7.7 Перебор справочника

Добрый день!
Подскажите как, без запроса, перебрать Спр.Товары по группам
Нашла такой кусок кода, но не пойму почему не срабатывает:

Меню=СоздатьОбъект("СписокЗначений");
Меню.ДобавитьЗначение(1,"Все товары на складе");
Меню.ДобавитьЗначение(2,"Группа товаров (один товар)");
Зн1=0;
Рез=Меню.ВыбратьЗначение(Зн1,"",,30,1);
Если Рез=0 Тогда
Возврат;
КонецЕсли;
ВыбТовар=ПолучитьПустоеЗначение("Справочник.Товары");
Если Зн=2 Тогда
СТ=СоздатьОбъект("Справочник.Товары");
Если СТ.Выбрать("Группа или товар для отбора","ДляПодбора")=0 Тогда
Возврат;
КонецЕсли;
ВыбТовар=СТ.ТекущийЭлемент();
КонецЕсли;