Копирование подчиненных элементов справочника из группы Источник в группу Цель

 

Справ=СоздатьОбъект("Справочник.Задания");

Справ2=СоздатьОбъект("Справочник.Задания");

Справ.ИспользоватьВладельца(Цель);

Справ2.ИспользоватьВладельца(Источник);

Справ.ИспользоватьДату(НаДату);

Справ2.ИспользоватьДату(НаДату);



Справ2.ВыбратьЭлементы();

Пока Справ2.ПолучитьЭлемент()>0 Цикл

     Справ.Новый();

     Справ.Записать();

     МетаСправочник=Метаданные.Справочник(Справ.Вид());

     Для Счетчик=1 По МетаСправочник.Реквизит() Цикл

          МетаРеквизит=МетаСправочник.Реквизит(Счетчик);

          Идентификатор=Строка(МетаРеквизит.Идентификатор);

          Значенице=Справ2.ПолучитьАтрибут(Идентификатор);

          Справ.УстановитьАтрибут(Идентификатор,Значенице);

     КонецЦикла;

Справ.Записать();

КонецЦикла;