ВыборкаСправочника = Справочники.ТорговыеТочки.ВыбратьИерархически(Группа);
Пока ВыборкаСправочника.Следующий() Цикл
Объект = ВыборкаСправочника.ПолучитьОбъект();
Если Объект.ЭтоГруппа Тогда
НовыйОбъект = Справочники.ТорговыеТочки.СоздатьГруппу();
Иначе
НовыйОбъект = Справочники.ТорговыеТочки.СоздатьЭлемент();
КонецЕсли;
НовыйОбъект.Заполнить(Объект);
НовыйОбъект.Родитель = НоваяГруппа;
НовыйОбъект.Записать();
КонецЦикла;
Отладчиком сморю, НовыйОбъект ничем не заполнен, он пустой. Ну и не записывается.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший