Прошу помочь разобраться с проблемой переноса операций чере OLE, а именно перенос субконто, которое является перечислением. Поискал, почитал, но понять не могу в чем загвоздка. Привожу свой код:
Пока Опер.ПолучитьОперацию()=1 Цикл
   Если Опер.Документ.НомерДок="0000000425" Тогда
       НовыйДок=Приемник.CreateObject("Операция");
       НовыйДок.Новая();
       НовыйДок.ДатаОперации=Опер.ДатаОперации;
       НовыйДок.Содержание=Опер.Содержание;
       Опер.ВыбратьПроводки();
       Пока Опер.ПолучитьПроводку()=1 Цикл
           НовыйДок.НоваяПроводка();
           Счет.НайтиПоКоду(Строка(Опер.Кредит.Счет));
           НовыйДок.Кредит.Счет=Счет.ТекущийСчет();
           
           Для Инд = 1 По Счет.КоличествоСубконто() Цикл  
               Субк = Счет.ВидСубконто(Инд);
               Тип = Субк.ТипСубконто();
               Вид = Опер.Кредит.Счет.ВидСубконто(Инд);
               Идент = Субк.Идентификатор();
               
               Если Найти(Тип,"Перечисление")>0 Тогда
                   Номер = Опер.Кредит.Субконто(Инд).ПорядковыйНомер();      
                   ЗнСубк=Приемник.Перечисление.ПолучитьАтрибут(Вид).ЗначениеПоИдентификатору(Идент);
                   Опер.Кредит.Субконто(Инд,ЗнСубк);
               Иначе
                   ТипСубк = Приемник.CreateObject(Тип);  
                   Если ТипСубк.НайтиПоРеквизиту("IDD",Опер.Кредит.Субконто(Инд).IDD,1)=1 Тогда
                       НовыйДок.Кредит.Субконто(Инд,ТипСубк.ТекущийЭлемент());    
                   КонецЕсли;
               КонецЕсли;    
           КонецЦикла;
           
           НовыйДок.Количество=Опер.Количество;
           НовыйДок.Сумма=Опер.Сумма;
           НовыйДок.Содержание=Опер.Содержание;
           
           НовыйДок.ЗаписатьПроводки();
       КонецЦикла;
       НовыйДок.Записать();
   КонецЕсли;    
КонецЦикла;

Останавливается с ошибкой "Плохой тип" на строке:
ЗнСубк=Приемник.Перечисление.ПолучитьАтрибут(Вид).ЗначениеПоИдентификатору(Идент);

Как правильно тут написать?

Конечно же тут строка не нужна:
Номер = Опер.Кредит.Субконто(Инд).ПорядковыйНомер();

Опер - это объект какой базы ?

Получаешь ПорядковыйНомер, а ищешь по Идентификатру? Причем о идентификатору вида субконта, а не значения перечисления...

(2) Опер-объект базы-источника

(4) ага зачет, а еще ему подсовываешь перечисления от другой базы

да, и вместо Опер тебе нужен НовыйДок.

Строка Номер = Опер.Кредит.Субконто(Инд).ПорядковыйНомер(); тут не нужна

есен пень ругается (а то что перечисление не найдено будет там, это пофик - тип то ОЛЕ-базы один хрен)

Да-да, ошибка нужно так:
Если Найти(Тип,"Перечисление")>0 Тогда
                   ЗнСубк=Приемник.Перечисление.ПолучитьАтрибут(Вид).ЗначениеПоИдентификатору(Идент);
                   НовыйДок.Кредит.Субконто(Инд,ЗнСубк);
               Иначе
                   ТипСубк = Приемник.CreateObject(Тип);  
                   Если ТипСубк.НайтиПоРеквизиту("IDD",Опер.Кредит.Субконто(Инд).IDD,1)=1 Тогда
                       НовыйДок.Кредит.Субконто(Инд,ТипСубк.ТекущийЭлемент());    
                   КонецЕсли;
               КонецЕсли;

Но где ошибка-то?

Можете написать правильный код?

В чем ошибка?

с (3) согласен, но что-то не пойму как правильно сделать, буду думать