Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Копирование групп с сохранением иерархии

Копирование групп с сохранением иерархии
Я
   brenli
 
27.04.19 - 11:38
Доброго времени.
Подсобите с идеей алгоритма кому не в лом.

Если ЭлементСпр.ЭтоГруппа Тогда
        
        НоваяГруппа          = ЭлементСпр.Скопировать();    
        НоваяГруппа.Родитель = ВставитьВС;
        НоваяГруппа.Записать();
                
        ТоварыРодителя = Справочники.Номенклатура.ВыбратьИерархически(ЭлементСпр);
        Пока ТоварыРодителя.Следующий() Цикл
            //РодительДляНовыхЭлементов = Справочники.Номенклатура.НайтиПоКоду(НоваяГруппа.ПолныйКод(),Истина);
            ОбъектВыборки = ТоварыРодителя.ПолучитьОбъект();
            Сообщить(" "+ТоварыРодителя.ПолучитьОбъект()+" Родитель "+ТоварыРодителя.ПолучитьОбъект().Родитель);
            Если ОбъектВыборки.ЭтоГруппа Тогда
                НоваяГруппа = ОбъектВыборки.Скопировать();
                                НоваяГруппа.Родитель = ?
                НоваяГруппа.Записать();
                        Иначе
                НовыйЭлемент = ОбъектВыборки.Скопировать();
                                НовыйЭлемент .Родитель = ?
                НовыйЭлемент .Записать();
            КонецЕсли;    
        КонецЦикла;    

Сижу туплю. Подскажите пжл
 
 
   mistеr
 
1 - 27.04.19 - 11:50
Ключевое слово "рекурсия".

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.