День добрый!
Есть задача Копирование папки справочника, со всеми элементами внутри.

Данный код работает только для групп, какую строчку дописать чтобы элементы тоже копировались
Благодарю всех неравнодушных.


Процедура КнопкаВыполнитьНажатие(Кнопка)
    Запрос = Новый Запрос("ВЫБРАТЬ
    |    БизнесПроекты.Ссылка
    |ИЗ
    |    Справочник.БизнесПроекты КАК БизнесПроекты
    |ГДЕ
    |    БизнесПроекты.Ссылка В ИЕРАРХИИ(&Группа)"
    );
    Запрос.УстановитьПараметр("Группа", Откуда);
    Результат = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
    СЗ = Новый СписокЗначений; //Будем запихивать туда родителей
    Пока Результат.Следующий() Цикл
        ТекСпр = Результат.Ссылка.ПолучитьОбъект();
        Если ТекСпр.Родитель = Откуда.Родитель Тогда //Копируем корень
            элементСправочника = ТекСпр.Скопировать();
            элементСправочника.Родитель = Куда;
            элементСправочника.Записать();
            СЗ.Добавить(элементСправочника.Ссылка);  //Запихали корневого родителя
        Иначе                                        //Копируем все остальное
            элементСправочника = ТекСпр.Скопировать();
            элементСправочника.Родитель = СЗ[СЗ.Количество()-1].Значение;
            элементСправочника.Записать();
            Если ТекСпр.ЭтоГруппа  Тогда
                СЗ.Добавить(элементСправочника.Ссылка); //А здесь запихиваем всех остальных родителей
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

у вас текст вопроса и текст программы противоречат друг другу. уточнений не добавите?

элементСправочника.Родитель = СЗ[СЗ.Количество()-1].Значение;

А если на одном уровне будет несколько групп с подгруппами?

(0) Вы уж разберитесь чего хотите.

(3) он хочет дописать одну строчку и чтоб всё заработало

(4) а, ну тогда все понятно. Всё просто:

Сообщить("Всё хорошо. Всё работает.");

(3) нужно Копирование папки справочника с подчиненными ей папками и элементами.

(6) наверно как-то так

    Пока Результат.Следующий() Цикл
       Если ТекСпр.Родитель = Откуда.Родитель Тогда//Копируем корень

            элементСправочника = ТекСпр.Скопировать();
            элементСправочника.Родитель = Куда;
            элементСправочника.Записать();
//Запихали корневого родителя

        Иначе    
           ТекСпр = Результат.Ссылка.ПолучитьОбъект();

           элементСправочника = ТекСпр.Скопировать();
           элементСправочника.Родитель =  
        Справочники.Номенклатура.НайтиПоНаименованию(ТекСпр.Родитель.Наименование, Куда);
        элементСправочника.Записать();
       КонецЕСли;
    КонецЦикла;

(7) ++  НайтиПоНаименованию(ТекСпр.Родитель.Наименование,, Куда);

или сколько там запятых, ну ты понял

(8) спасибо, попробуемс

наверное,нужна или рекурсия или очередь,что быстрее,определяется опытным путем
очередь занимает меньше памяти,а рекурсия понятнее

https://s.mail.ru/AqBm/5BJmkrLpo сделал такое для примера
https://s.mail.ru/8gz5/BZWBZnr6v скопировалось не все

тест7 это папка "Куда"