Загружаю в рус. торговле 921 в справочник Номенклатура, по оле элементы из справочника ТМЦ из укр. бухгалтерии 291 - вот код (ТМЦ - 3-уровненный справочник, Номенклатура - 5-уровненный):

спрНомГр1 = создатьОбъект("Справочник.Номенклатура");
спрНомГр2 = создатьОбъект("Справочник.Номенклатура");
спрНомЭл = создатьОбъект("Справочник.Номенклатура");
v7 = СоздатьОбъект("V77.Application");  
init = v7.Initialize(v7.RMTrade, , "");
   СпрТам = v7.EvalExpr("СоздатьОбъект(""Справочник.ТМЦ"")");
   СпрТам.ВыбратьЭлементы(0);    
   СпрТам.ИспользоватьДату(ТекущаяДата(),1);
   //НачатьТранзакцию();
   Пока (СпрТам.ПолучитьЭлемент() = 1) Цикл
                если СпрТам.пометкаУдаления()=1 тогда
               продолжить;
           конецесли;
           
           наим = сокрлп(СпрТам.Наименование);
           род = сокрлп(спрТам.Родитель.Наименование);
           если СпрТам.ЭтоГруппа()=1 тогда
               если спрНомГр1.НайтиПоНаименованию(наим,0,1)=0 тогда
                   спрНомГр1.НоваяГруппа();
                   спрНомГр1.Наименование=СпрТам.наименование;                
                   //спрНомГр1.Записать();
                   
                   если ПустоеЗначение(род)=0 тогда
                       если спрНомГр2.НайтиПоНаименованию(род,0,1)=0 тогда
                           спрНомГр2.НоваяГруппа();
                           спрНомГр2.Наименование = СпрТам.наименование;                
                           спрНомГр2.Записать();
                           спрНомГр1.Родитель = спрНомГр2.ТекущийЭлемент();
                       иначе
                           спрНомГр1.Родитель = спрНомГр2.ТекущийЭлемент();    
                       конецесли;    
                   конецесли;
                   спрНомГр1.Записать();
               конецесли;
           иначе
               если спрНомЭл.НайтиПоНаименованию(наим,0,1)=0 тогда
                   спрНомЭл.Новый();
                   спрНомЭл.Наименование = наим;                
                   спрНомЭл.ПолнНаименование= сокрлп(спрТам.ПолнНаименование);
                   спрНомЭл.СтавкаНДС = глЗначениеПоУмолчанию("ОсновнаяСтавкаНДС");
                   //Цена0 = СпрТам.Цена_Закуп;
                   //Цена1 = число(ВходExcel.ActiveSheet.Cells(СчетчикЦикла,8).Value);
                   //Цена2 = число(ВходExcel.ActiveSheet.Cells(СчетчикЦикла,9).Value);
                   если ПустоеЗначение(род)=0 тогда
                       если спрНомГр1.НайтиПоНаименованию(род,0,1)=0 тогда //если спрНомГр1.НайтиПоНаименованию(род,0,1)=0 тогда
                           спрНомГр1.НоваяГруппа();
                           спрНомГр1.Наименование = род;                
                           спрНомГр1.Записать();
                           спрНомЭл.Родитель = спрНомГр1.ТекущийЭлемент();
                       иначе
                           сообщить("елемент = "+спрНомЭл.наименование);
                           сообщить("група = "+спрНомГр1.ТекущийЭлемент());
                           спрНомЭл.Родитель = спрНомГр1.ТекущийЭлемент();
                           
                       конецесли;
                   конецесли;

вот в этой строке возникает ошибка:

сообщить("елемент = "+спрНомЭл.наименование);
                           сообщить("група = "+спрНомГр1.ТекущийЭлемент());
                           спрНомЭл.Родитель = спрНомГр1.ТекущийЭлемент();

когда загружается элемент 3-го уровня из базы бух. Как перекидывать справочники н-уровня?

Мало кода, чтобы воспроизвести ошибку.

ок, напишу завтра весь код обработки

Ошибку лучше напиши.

не верное значение реквизита

Наверное спрНомГр1 стоит найти. Не знаю...

да не - его то находит, но присвоить не дает как родителя, посмотрю еще спрНомГр1 на признак группы, возможно элемент такой нашло

А сам-то спрНомЭл создан?

Только сейчас заметил, что на + оказывается можно нажать!:))))

спрНомГр1.ВыбратьЭлементы()

(0) А если бы справочник был бы 10 уровневый? А одинаковых наименований тоже быть не может?

все ок, поправил и перенес по наименованию (так сказал руководитель, хотя я ему говорил о не надежности)