0
tg30000
03.01.17
✎
19:35
|
Заполняю программно справочники партнеры и контрагенты, доп поля все загружаются, а физ. и юр. адреса нет, при записи очищаются поля, что то разобраться не могу.
Если ТекущаяСтрока[Объект.ЮрАдрес]<> "" Тогда
Если ДобавлятьИнфоПартнера Тогда
//Партнер
СтрП = НовыйПартнер.КонтактнаяИнформация.Добавить();
СтрП.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
СтрП.Вид = Справочники.ВидыКонтактнойИнформации.АдресПартнера;
СтрП.Представление = ТекущаяСтрока[Объект.ЮрАдрес];
СтрП.Представление = СтрЗаменить(СтрП.Представление, """", "");
СтрП.ЗначенияПолей = "<КонтактнаяИнформация xmlns=""; xmlns:xs=""; xmlns:xsi=""; Представление="""+СтрП.Представление+"""><Состав xsi:type=""Адрес"" Страна=""РОССИЯ""><Состав xsi:type=""АдресРФ""><Адрес_по_документу>"+СтрП.Представление+"</Адрес_по_документу></Состав></Состав></КонтактнаяИнформация>";
//Контрагент
СтрК = НовыйКонтрагент.КонтактнаяИнформация.Добавить();
СтрК.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
СтрК.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
СтрК.Представление = ТекущаяСтрока[Объект.ЮрАдрес];
КонецЕсли;
КонецЕсли;
|
|