Посмотреть штрих коды

Подскажите,обработка нужна которая просто показывает штрих коды ,но что то неполучается пытаюсь вот так :
Процедура Сформировать()

Спр=СоздатьОбъект("Справочник.Номенклатура");
СпрЕ=СоздатьОбъект("Справочник.Единицы");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
СпрЕ.ВыбратьЭлементы();
СпрЕ.ВыбратьЭлементы();
Кол=0;
Пока СпрЕ.ПолучитьЭлемент()=1 Цикл
Кол=Кол+1;
Если Число(СпрЕ.ШтрихКод) > 0 Тогда
Сообщить(Кол+" "+СпрЕ.ШтрихКод);
КонецЕсли;
КонецЦикла;

КонецЦикла;

КонецПроцедуры