• ул. Неглинная, 12, Москва, 107016
  • 8 800 300-30-00
  • www.cbr.ru
Что вы хотите найти?

Веб-сервис для регионального раздела

Веб — сервис: http://www.cbr.ru/RegionWebServ/regional.asmx

Порядок работы:

Сценарий 1.

  • Вызов OpenDataBase()
  • Добавление кодов регионов — AddRegion(Reg_code) можно несколько раз
  • Добавление индикаторовв — AddIndicators (Ind_code) можно несколько раз
  • Вызов SetDatesRange("01.01.2001„, „01.01.2003”) для установки периода
  • Вызов GetRawRegionData() - результат выполнения как DataSet XSD
  • Вызов Close()

Сценарий 2.

  • Вызов OpenDataBase()
  • Добавление кодов регионов — AddRegion(Reg_code) можно несколько раз
  • Вызов ExecASXMLDocument (Year1,Year2,Ind_id) — результат выполнения как XMLDocument подобный результату аналитической системы регионального раздела
  • Вызов Close()

Дополнительные функции:

RegionsList() - получение списка регионов с их кодами (как DataSet) XSD, коды регионов используются для вызоваAddRegion(reg_code)
TablesList() - получение списка таблиц показателей с их кодами (как DataSet) XSD, коды таблиц используются для вызова IndicatorsList
IndicatorsList(Table_id) получение списка показателей для таблицы с их кодами XSD, коды показателей используются при вызове AddIndicators (Ind_code), или при вызове ExecASXMLDocument
RegionCodeByName(Reg_name) — получение кодов регионов по названию региона
ClearIndicatorsList() - Удаление всех кодов индикаторов из списока, обратно AddIndicators
ClearRegionList() - Удаление всех кодов регионов из списока, обратно AddRegion
RetIndicatorDim(ind_code) — Получение размерности индикатора по его коду (руб,%)
GET_Error() - Получение сообщений об ошибках
swToEnglish(true) — Переключение на русск./англ. версию
Внимание: Все функции необходимо вызывать только после вызова OpenDataBase()

Примеры использования

VB .NET VB 6 & VB Script
Создайте web reference на http://www.cbr.ru/RegionWebServ/regional.asmx

Sub StartIt
Dim DErr As Boolean
Dim r_name As String
Dim CookieK As New System.Net.CookieContainer()
WebSwc1 = New RegionalWebService.RegionInfoService()
WebSwc1.CookieContainer = CookieK
WebSwc1.AllowAutoRedirect = False
DErr = WebSwc1.OpenDataBase()
if Derr=false then
MsgBox („Error ” +CStr(WebSwc1.GET_Error))
end if

r_name="Брянская область"
codex = WebSwc1.RegionCodeByName(r_name)
If codex =-1 Then
MsgBox("Ошибка:" + CStr(WebSwc1.GET_Error) + " / " + r_name)
Exit Sub
End If
WebSwc1.AddRegion(codex)
codex = WebSwc1.IndicatorCodeByName("Количество действующих кредитных организаций„, „Table1”)
If codex = false Then
MsgBox("Ошибка:" + CStr(WebSwc1.GET_Error))
Exit Sub
End If
WebSwc1.AddIndicators(codex)

DErr = WebSwc1.SetDatesRange("01.01.2001„, „01.01.2003”)
If DErr = false Then
MsgBox("Ошибка:" + CStr(WebSwc1.GET_Error))
Exit Sub
End If
Dim ds As System.Data.DataSet
ds = WebSwc1.GetRawRegionData()

TextBox1.Text = ds.GetXml.ToString
DErr = WebSwc1.Close()

End Sub
Dim dom_sel As MSXML2.IXMLDOMSelection

soapclient = CreateObject("MSSOAP.SoapClient30″)
soapclient.ClientProperty("ServerHTTPRequest") = True

Call soapclient.MSSoapInit("http://www.cbr.ru/RegionWebServ/Regional.asmx?WSDL")

SoapClient.ClientProperty("ServerHTTPRequest") = True
Derr = soapclient.OpenDataBase()
if Derr=false then
rs = CStr(soapclient.GET_Error())
end if

reg_code = soapclient.RegionCodeByName("Брянская область")
if reg_code = −1 then
Exit Sub
end if

If soapclient.AddRegion(reg_code) = False Then
Exit Sub
End If

ind_id=soapclient.IndicatorCodeByName("Количество действующих кредитных организаций„, „Table1”)
dom_sel = soapclient.ExecASXMLDocument(2002, 2003, ind_id)
MsgBox(dom_sel.context.xml)

Call soapclient.Close()

При работе без использования .NET Framework для доступа к веб сервису необходимо установить SOAP клиент и MSXML4.0:

По вопросам: piter@mail.cbr.ru

Страница была полезной?
Последнее обновление страницы: 23.03.2020