Пример интерфейса для обработки контактной информации - адреса ФИАС
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
&НаСервере
Функция СерверПредыдущаяСтруктураКонтактнойИнформацииXML(СтруктураАдресаXML)
СтруктураАдреса = "";
Если Не ПустаяСтрока(СтруктураАдресаXML) Тогда
СтруктураАдреса = УправлениеКонтактнойИнформацией.ПредыдущаяСтруктураКонтактнойИнформацииXML(
СтруктураАдресаXML);
КонецЕсли;
Возврат СтруктураАдреса;
КонецФункции
&НаКлиенте
Процедура АдресНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ПараметрыОткрытия = Новый Структура;
ПараметрыОткрытия.Вставить("ВидКонтактнойИнформации", ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента"));
ПараметрыОткрытия.Вставить("Представление", Объект.Адрес);
Оповещение = Новый ОписаниеОповещения("АдресЗавершениеВыбора", ЭтотОбъект);
УправлениеКонтактнойИнформациейКлиент.ОткрытьФормуКонтактнойИнформации(ПараметрыОткрытия, ЭтотОбъект, Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура АдресЗавершениеВыбора(РезультатОткрытияФормы, ПараметрыОповещения) Экспорт
Если ТипЗнч(РезультатОткрытияФормы)<>Тип("Структура") Тогда
// не было изменений в данных
Возврат;
КонецЕсли;
Объект.Адрес = РезультатОткрытияФормы.Представление;
НаборКонтактнойИнформации = СерверПредыдущаяСтруктураКонтактнойИнформацииXML(РезультатОткрытияФормы.КонтактнаяИнформация);
//Заполним наименование
Наименование = НаборКонтактнойИнформации["Улица"];
Если Не Наименование = "" тогда
Если НЕ НаборКонтактнойИнформации["Дом"] = "" Тогда
Наименование = Наименование + ", " + НаборКонтактнойИнформации["Дом"];
КонецЕсли;
КонецЕсли;
Если Не Наименование = "" тогда
Если НЕ НаборКонтактнойИнформации["Город"] = "" Тогда
Наименование = Наименование + ", " + НаборКонтактнойИнформации["Город"];
КонецЕсли;
Иначе
Наименование = НаборКонтактнойИнформации["Город"];
КонецЕсли;
Если Не Наименование = "" тогда
Если НЕ НаборКонтактнойИнформации["Регион"] = "" Тогда
Наименование = Наименование + ", " + НаборКонтактнойИнформации["Регион"];
КонецЕсли;
Иначе
Наименование = НаборКонтактнойИнформации["Регион"];
КонецЕсли;
Объект.Наименование = Наименование;
Модифицированность = Истина;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот