в = Восьмерка.Справочники.ДоговорыКонтрагентов;
Р = в.Выбрать();
Пока р.Следующий() Цикл
   
   Если не ЗначениеЗаполнено( Справочники.ДоговорыКонтрагентов.НайтиПоКоду(Р.Код)) Тогда
       НовыйЭЛ = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
       НовыйЭЛ.Код = Р.Код;
       НовыйЭЛ.Родитель = Справочники.ДоговорыКонтрагентов.НайтиПоКоду(Р.Родитель.Код);
       НовыйЭЛ.Владелец =Справочники.Контрагенты.НайтиПоКоду(Р.Владелец.Код);
       НовыйЭЛ.Заполнить(Р);
       НовыйЭЛ.ПометкаУдаления = Р.ПометкаУдаления;
       НовыйЭЛ.Наименование    = Р.Наименование;
       НовыйЭЛ.Организация = Справочники.Организации.НайтиПоКоду(Р.Организация.Код);
       НовыйЭЛ.ВедениеВзаиморасчетов = Р.ВедениеВзаиморасчетов;
       НовыйЭЛ.ВидДоговора = Р.ВидДоговора;
       НовыйЭЛ.ВалютаВзаиморасчетов =Справочники.Валюты.НайтиПоКоду(Р.ВалютаВзаиморасчетов.Код) ;
       
       НовыйЭЛ.Записать();
КонецЦыкла;




НовыйЭЛ.ВедениеВзаиморасчетов = Р.ВедениеВзаиморасчетов; Не переносит перечесления. Как перенести перечесления через com - объект ?

тут есть.

Книга знаний: Работа с перечислениями