Смена кода в ПриПереносеЭлементаВДругуюГруппу()

Наткнулся на проблему.. Если итоговая группа пустая, то не могу в нее перенести, т.к. не выбирается текущий элемент. Может как-то можно все-таки получить список только групп?..

"> как-то можно все-таки получить список только групп?
СписокГрупп=СоздатьОбъект("СписокЗначенией");
Спр=СоздатьОбъект("Справочник.<ВидСправочника>");
Спр.ВыбратьЭлементы(0);
Пока Спр.ПолучитьЭлемент()>0 Цикл
   Если Спр.ЭтоГруппа()=1 Тогда
       СписокГрупп.ДобавитьЗначение(Спр.ТекущийЭлемент());
   КонецЕсли;
КонецЦикла;
//Здесть в СписокГрупп имеем список всех групп справочника
"

Я имел ввиду визуально, с иерархией, чтоб пользователь мог выбрать

Ну тогда остается http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=1131