Добрый день.
Отправляю запрос на адрес "http://kad.arbitr.ru/Kad/SearchInstances" - Картотека арбитражных дел. Цель - получить данные о банкротном деле (поиск осуществляется по ИНН). В firebug все выглядит приблизительно так:
ответ:
В результате работы этого кода я получаю список всех дел. Может кто подскажит в чем дело
Отправляю запрос на адрес "http://kad.arbitr.ru/Kad/SearchInstances" - Картотека арбитражных дел. Цель - получить данные о банкротном деле (поиск осуществляется по ИНН). В firebug все выглядит приблизительно так:
ответ:
{"Result":{"PagesCount":1,"Page":1,"PageSize":25,"TotalCount":1,"Items":[{"CaseId":"3f35d6eb-1c58-43e3-9009-faac79504f94","CaseNumber":"А65-2505/2015","CaseType":"Б","CourtName":"АС Республики Татарстан","Date":"2015-02-06T00:00:00","Plaintiffs":{"Count":2,"Participants":[{"Name":"Федеральная налоговая служба России, г. Казань","Inn":"1654009437","Address":"420111, Россия, г.Казань, РТ, ул. Театральная, д. 13А","OrganizationForm":null,"SubjectCategories":["b94301b2-e2dd-4ff6-a5f9-0d80e374e677"]},{"Name":"Федеральная налоговая служба, г. Москва","Inn":"1644025493","Address":"127381, Россия, г.Москва, РФ, ул. Неглинная,23","OrganizationForm":null,"SubjectCategories":["b94301b2-e2dd-4ff6-a5f9-0d80e374e677"]}]},"Respondents":{"Count":1,"Participants":[{"Name":"ЗАО \"Трикотаж\", г. Казань","Inn":"1654017519","Address":"420111, Россия, г.Казань, РТ, ул. Саид-Галеева, д. 6","OrganizationForm":"5be9aa1d-4207-40a3-bd98-755093757f18","SubjectCategories":["f3dc4121-9ded-4ac4-b329-80bb06eef1c9"]}]},"IsSimpleJustice":false,"Judge":"Минапов А. Р."}]},"Message":"","Success":true,"ServerDate":"2015-09-16T14:47:26","Timings":null}
Код:
Option Explicit
Call main
Sub main
Dim xpl, xmlHTTP, adr, auth, rez
Set xpl = Report.GetXPL()
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
adr="http://kad.arbitr.ru/Kad/SearchInstances"
auth="{""Page"":1,""Count"":25,""CaseType"":""B"",""Courts"":[],""DateFrom"":Null,""DateTo"":Null,""Sides"":[{""Name"":""165401751"",""Type"":-1,""ExactMatch"":False}],""Judges"":[],""CaseNumbers"":[],""WithVKSInstances"":False}"
auth=URLEncode(auth)
xmlHTTP.Open "POST", adr, False
xmlHTTP.setRequestHeader "ContentType", "application/json"
xmlHTTP.setRequestHeader "X-Requested-With", "XMLHttpRequest"
xmlHTTP.setRequestHeader "Referer", "http://kad.arbitr.ru/"
xmlHTTP.setRequestHeader "x-Date-format", "iso"
xmlHTTP.setRequestHeader "Cache-Control", "no-cache"
xmlHTTP.setRequestHeader "Connection", "keep-alive"
xmlHTTP.setRequestHeader "Content-Length", "192"
xmlHTTP.setRequestHeader "Host", "kad.arbitr.ru"
xmlHTTP.Send()
rez = xmlHTTP.responseText
xpl.GetXParamValue("otvet").SetStr rez
End Sub
Function URLEncode(Data)
Dim oScript, this
Set oScript = CreateObject("ScriptControl")
oScript.Language = "JavaScript"
Set this = oScript.Eval("this")
URLEncode = this.encodeURIComponent(Data)
End Function