7.7 Копирование групп из одного справочника в другой

Помогите, пожалуйста.
В результате кода ниже из справочника ТМЦ в справочник Меню копируются группы самого верхнего уровня, но только те, что содержат подгруппы (простые элементы не учитываются). А как скопировать эти пустые группы, т.е. без подгруп, с или без элементов? И как спозиционироваться внутрь созданных групп? Спасибо.

Код:

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