1.
Asuneft
3
14.12.21 08:03
Сейчас в теме
Представление = ",628617,Ханты-Мансийский Автономный округ - Югра АО,Нижневартовск г,Чапаева ул,91,,16";
ОбъектСотрудник = Объект.Сотрудник.ПолучитьОбъект();
ВидКИ = Справочники.ВидыКонтактнойИнформации.АдресМестаПроживанияФизическиеЛица;
//Нормализуем представление для использования в парсере КИ
Пока Лев(Представление, 1) = "," Цикл Представление = Сред(Представление, 2); КонецЦикла;
МногострочныйТекст = СтрЗаменить(Представление, ",", Символы.ПС);
Представление = "";
Для А = 1 По СтрЧислоСтрок(МногострочныйТекст) Цикл
Подстрока = СокрЛП(СтрПолучитьСтроку(МногострочныйТекст, А));
Если ЗначениеЗаполнено(Подстрока) Тогда Представление = Представление + Подстрока + ", "; КонецЕсли;
КонецЦикла; //Для А = 1 По
Представление = Лев(Представление, СтрДлина(Представление) - 2);
ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.АдресXMLВXDTO("", Представление, Перечисления.ТипыКонтактнойИнформации.Адрес);
УправлениеКонтактнойИнформациейСлужебный.АдресВведенВСвободнойФорме(ОбъектXDTOКИ);
УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(ОбъектСотрудник,
УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ),
ВидКИ, Перечисления.ТипыКонтактнойИнформации.Адрес);
ОбъектСотрудник.Записать();
При выполнении такого кода не записываются данные по номеру дома и квартире.
Как сделать, чтобы номер квартиры и номер дома были заполнены?
