Имя: Пароль:
1C
1С v8
Контактная информация в УТ 11 , ERP
0 tg30000
 
03.01.17
19:35
Заполняю программно справочники партнеры и контрагенты, доп поля все загружаются, а физ. и юр. адреса нет, при записи очищаются поля, что то разобраться не могу.


Если ТекущаяСтрока[Объект.ЮрАдрес]<> "" Тогда
                    Если ДобавлятьИнфоПартнера Тогда                    
                    //Партнер    
                    СтрП = НовыйПартнер.КонтактнаяИнформация.Добавить();
                    СтрП.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
                    СтрП.Вид = Справочники.ВидыКонтактнойИнформации.АдресПартнера;
                    СтрП.Представление = ТекущаяСтрока[Объект.ЮрАдрес];
                    СтрП.Представление =  СтрЗаменить(СтрП.Представление, """", "");
                    СтрП.ЗначенияПолей = "<КонтактнаяИнформация xmlns=""http://www.v8.1c.ru/ssl/contactinfo""; xmlns:xs=""http://www.w3.org/2001/XMLSchema""; xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""; Представление="""+СтрП.Представление+"""><Состав xsi:type=""Адрес"" Страна=""РОССИЯ""><Состав xsi:type=""АдресРФ""><Адрес_по_документу>"+СтрП.Представление+"</Адрес_по_документу></Состав></Состав></КонтактнаяИнформация>";

                    //Контрагент
                    СтрК = НовыйКонтрагент.КонтактнаяИнформация.Добавить();
                    СтрК.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
                    СтрК.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
                    СтрК.Представление = ТекущаяСтрока[Объект.ЮрАдрес];
                    КонецЕсли;
                КонецЕсли;
1 Fram
 
03.01.17
19:40
(0) С отладчиком советовался?
2 tg30000
 
03.01.17
19:42
(1)Сейчас занимаюсь, в ERP пока разберешься..