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