Есть список домов. Возвращает есть ли список домов по идентификатору адресного объекта, поиск по подобию.
// Возвращает есть ли список домов по идентификатору адресного объекта, поиск по подобию.
//
// Параметры:
// ИдентификаторАдресногоОбъекта - УникальныйИдентификатор - Родительский объект.
//
// Возвращаемое значение:
// Булево - Истина, если есть информация о домах.
//
Функция ЕстьСписокДомов(ИдентификаторАдресногоОбъекта) Экспорт
Если Не ЗначениеЗаполнено(ИдентификаторАдресногоОбъекта) Тогда
Возврат Ложь;
КонецЕсли;
ЗагруженныеАдресныеСведения = АдресныйКлассификаторПовтИсп.СведенияОЗагрузкеСубъектовРФ();
Если ЗагруженныеАдресныеСведения["ИспользоватьЗагруженные"] Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| ДомаЗданияСтроения.Строения КАК Строения
|ИЗ
| РегистрСведений.ДомаЗданияСтроения КАК ДомаЗданияСтроения
|ГДЕ
| ДомаЗданияСтроения.АдресныйОбъект = &АдресныйОбъект";
Запрос.УстановитьПараметр("АдресныйОбъект", ИдентификаторАдресногоОбъекта);
ДомаНайдены = НЕ Запрос.Выполнить().Пустой();
Если ДомаНайдены Тогда
Возврат Истина;
КонецЕсли;
КонецЕсли;
Если ЗагруженныеАдресныеСведения["КлассификаторДоступен"] = Истина Тогда
ТекстGETЗапроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("selectHouse?&parentId=%1&limit=1",
Строка(ИдентификаторАдресногоОбъекта));
РезультатВебСервис = ВыполнитьЗапросЧерезВебСервис(ТекстGETЗапроса);
Если РезультатВебСервис.Отказ Тогда
Возврат Ложь;
КонецЕсли;
Возврат РезультатВебСервис.Данные.Количество() > 0;
КонецЕсли;
Возврат Ложь;
КонецФункции
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
ДоменРасположенияСерверовИПП (БСП)
ДоменАдресаКонтактнойИнформации (БСП)