1С: работа с регистром «АдресныйОбъект»
Намедни прилетела интересная задача: создать визуальный построитель адреса доставки счёта клиента согласно данным ФИАС в древней не обновляемой конфигурации 1С. Первоначально подумал покопать в сторону сервиса https://fias-public-service.nalog.ru/api/spas/v2.0/swagger/index.html, написал заявку на генерацию ключа API для доступа, отправил её на указанную электронную почту…и тишина. Тащить самому адреса ФИАС и файлов и создавать для этого обвязку в конфигурараторе — трудоёмко. Но неожиданно возникла идея — а есть же обновляемая регулярно конфигурация 1С «Бухгалтерия», где этот справочник вполне используется и регулярно обновляется. Следовательно мы можем просто создать..ну например WEB сервис, при помощи которого будем тянуть данные для построения адреса из Бухгалтерии. Можно данные тянуть из регистров АдресныйОбъект, ДополнительныеАдресныеСведения, ИерархияАдресов и т.д, а можно покопать БСП, найти все нужные функции. За сим и оформил сервис:
&НаСервере
Функция ПолучитьПрокси()
Определение = Новый WSОпределения(
Константы.СК_БУХURLВебСервиса.Получить(),
Константы.СК_БУХИмяПользователя.Получить(),
Константы.СК_БУХПароль.Получить()
//,ИнтернетПрокси
);
Прокси = Новый WSПрокси(
Определение,
Константы.СК_БУХURIПространстваИмен.Получить(),
"sk_SOAP_Services",
"sk_SOAP_ServicesSoap"
);
Прокси.Пользователь = Константы.СК_БУХИмяПользователя.Получить();
Прокси.Пароль = Константы.СК_БУХПароль.Получить();
Возврат Прокси;
КонецФункции
Функция sk_gr_fias_exchange(request, params)
params=JSONВСтруктуру(params);
МассивДляВозврата=Новый Массив();
if (request="GetAdresses") тогда
//Parent,Level,TypeAddress,Counts,Poz,FindStr
ДополнительныеПараметры=Новый Структура("КоличествоЗаписей,Позиция,СтрокаПоиска",params.Counts,params.Poz,params.FindStr);
ТЗ=АдресныйКлассификаторСлужебный.АдресаДляИнтерактивногоВыбора(Новый УникальныйИдентификатор(params.Parent), params.Level, params.TypeAddress, ДополнительныеПараметры);
МассивДляВозврата=Новый Массив();
для каждого стр из ТЗ.Данные цикл
инф=Новый Структура("Идентификатор,Представление",Строка(стр.Идентификатор),Строка(стр.Представление));
МассивДляВозврата.Добавить(инф);
конеццикла;
конецесли;
if (request="GetHomes") тогда
ТЗ=АдресныйКлассификаторСлужебный.СписокДомов(Новый УникальныйИдентификатор(params.Parent),params.FindStr,params.Counts);
МассивДляВозврата=Новый Массив();
для каждого стр из ТЗ цикл
инф=Новый Структура("Идентификатор,Представление,Индекс",Строка(стр.Идентификатор),Строка(стр.Представление),Строка(стр.Значение.Индекс));
МассивДляВозврата.Добавить(инф);
конеццикла;
конецесли;
Возврат СтруктураВСтрокуJSON(МассивДляВозврата);
КонецФункции
На целевой конфигурации, остаётся только дергать вызовы:
&НаСервере
Функция ПолучитьСписокАдресов(Родитель,Уровень)
// Уровень: 1- регион,2 - район, 3 - муниципальный район, 4-поселение, 5-город, 6 -нс, 7 - территория, 8 - улица
Прокси=ПолучитьПрокси();
params=Новый Структура("Parent,Level,TypeAddress,Counts,Poz,FindStr");
params.Parent=Строка(Родитель);
params.Level=Уровень;
params.TypeAddress="Административно-территориальный";
params.Counts=500;
params.FindStr="";
Результат=Прокси.sk_gr_fias_exchange("GetAdresses",СтруктураВСтрокуJSON(params));
//сообщить(Результат);
возврат JSONВСтруктуру(Результат);
КонецФункции
&НаСервере
Функция ПолучитьСписокДомов(Родитель)
Прокси=ПолучитьПрокси();
params=Новый Структура("Parent,Level,TypeAddress,Counts,Poz,FindStr");
params.Parent=Строка(Родитель);
params.Counts=500;
params.FindStr="";
Результат=Прокси.sk_gr_fias_exchange("GetHomes",СтруктураВСтрокуJSON(params));
//сообщить(Результат);
возврат JSONВСтруктуру(Результат);
КонецФункцииИ визуализировать всё подобным образом:
