Имя: Пароль:
1C
1С v8
Обращение к ТЧ элемента, через COM-соединение
0 _Дайвер_
 
17.07.17
11:07
Для Каждого ТекСтрока ИЗ Объект.ДанныеВыгрузкиКонтрагенты Цикл
        ТекСтрока.СоответствиеНайдено = НайтиСоответствияВБазеПриемнике(ТекСтрока.ИНН, ТекСтрока.КПП);//, ТекСтрока.КОД);
        Если ТекСтрока.СоответствиеНайдено Тогда
            Сообщить("Для " + ТекСтрока.Ссылка + " найдено соответствие в базе приемнике!!!");
            Продолжить;
        Иначе
            Контрагент = Соединение.Справочники.Контрагенты.СоздатьЭлемент();
            Контрагент.ПометкаУдаления = ТекСтрока.ПометкаУдаления;
            Контрагент.Код = ТекСтрока.Код;
            Контрагент.ИНН = ТекСтрока.ИНН;
            Контрагент.КодПоОКПО = ТекСтрока.КодПоОКПО;
            Контрагент.КПП = ТекСтрока.КПП;
            Контрагент.НаименованиеПолное = ТекСтрока.НаименованиеПолное;
            Контрагент.КонтактнаяИнформация.АдресЭП = ТекСтрока.АдресЭП; // Как обратиться к ТЧ "КонтактнаяИнформация" элемента?
            Контрагент.Наименование = ТекСтрока.Наименование;
            Контрагент.КПП = ТекСтрока.КПП;
            Контрагент.Записать();
            Сообщить("Контрагент " + ТекСтрока.Ссылка + " перенесен!");
        КонецЕсли;
    КонецЦикла;
1 zvial
 
17.07.17
11:09
Контрагент.КонтактнаяИнформация.Добавить().АдресЭП = ТекСтрока.АдресЭП
2 butterbean
 
17.07.17
11:10
(1) убил бы
3 _Дайвер_
 
17.07.17
11:11
(1) Спасибо, друг)
4 _Дайвер_
 
17.07.17
11:12
(2) Не обижайся) Понедельник день тяжелый xD
5 lodger
 
17.07.17
11:14
(3) если осознаешь, что в КИ надо и остальные поля заполнить, тогда:
НоваяСтрокаКИ = Контрагент.КонтактнаяИнформация.Добавить();
НоваяСтрокаКИ.АдресЭП = ТекСтрока.АдресЭП;
НоваяСтрокаКИ.ЕщеКакойТоРеквизит = ТекСтрока.КакойТоРеквизит;