Итак, нам нужно получить информацию о банке, которой по каким-то причинам нет в классификаторе банков 1С. Я, например, столкнулся с тем, что отсутствовала адресная информация о банке и статус лицензии. Пришлось "изобрести велосипед". Итак, вкратце по действиям:
- Создаем WS-ссылку на веб-сервис ЦБ
- Далее в коде Вашего модуля или обработки необходимо:
- Проинициализировать созданную ссылку WS
- Преобразовать БИК Банка в внутренний код
- Отправить его на веб-сервис сайта СБ РФ
- Код данного действа привожу тут:
Сервис=WSСсылки.cbrf.СоздатьWSПрокси("http://web.cbr.ru/", "CreditOrgInfo", "CreditOrgInfoSoap"); ВнутреннийКодБанка=Сервис.BicToIntCode(Банк.Код); Если ВнутреннийКодБанка=-1 Тогда Возврат; КонецЕсли; CreditInfoByIntCodeXMLТип=Сервис.ФабрикаXDTO.Тип("http://web.cbr.ru/","CreditInfoByIntCodeXML"); ЭкземплярCreditInfoByIntCodeXMLТип=Сервис.ФабрикаXDTO.Создать(CreditInfoByIntCodeXMLТип); ЭкземплярCreditInfoByIntCodeXMLТип.InternalCode=ВнутреннийКодБанка; РезультатКО=Сервис.CreditInfoByIntCode(ЭкземплярCreditInfoByIntCodeXMLТип).CreditInfoByIntCodeResult.diffgram.CreditOrgInfo.CO; - Обработка полученного результата есть в обработке, размещенной ниже.
В принципе, ничего сложного, отладчиком можно посмотреть поля, доступные в возвращаемом запросе.
Заранее прошу строго не судить - это моя первая публикация. Самому стрррашно ))) Полезные советы и рекомендации приветствую )
Вступайте в нашу телеграмм-группу Инфостарт
