7.7 Как перебрать записи справочника Номенклатура

Теоретически у вас одинаковый ШК не должен быть (если речь идет о ТиС - там стоит проверка на дубль)

Проще всего запросом к справочнику Единицы (опять же оговорюсь если речь идет о ТиС) - номенклатуру получите используя реквизит Владелец

Причем для этих целей идеально подойдет Список значений. Более подробно можно говорить после детализации вопроса.
/index.php?act=announce&id=8

1) Делайте запрос с Единицам
2) Выгружайте с ТаблицуЗначений
3) Добавьте в ТЗ новую колонку сумма
4) Затем:

Код:

ТЗ.Заполнить(1,,,"Сумма");
ТЗ.Свернуть("ШК","Сумма");

Перебор в цикле ТЗ покажет дубли ШК (<>1)

Потом уже можно обратиться снова к запросу и выявить владельцев......

Я имел ввиду вот такой запрос:

Код:

ТекстЗапроса = 
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|Без итогов;
|ШК = Справочник.Единицы.ШтрихКод;
|Владелец = Справочник.Единицы.Владелец;
|Группировка ШК;
|Группировка Владелец без групп;
|"//}}ЗАПРОС
;

Код:

Запрос = СоздатьОбъект("Запрос");	
ТекстЗапроса = 	"//{{ЗАПРОС(СортНом)//	
|Период с (НачалоПериодаБИ()) по (КонецПериодаБИ());	
|Обрабатывать НеПомеченныеНаУдаление;	
|Без итогов;	
|ШК = Справочник.Единицы.ШтрихКод;	
|Владелец = Справочник.Единицы.Владелец;	
|Группировка ШК;	
|Группировка Владелец;	
|"//}}ЗАПРОС;	
// Если ошибка в запросе, то выход из процедуры	
Если Запрос.Выполнить(ТекстЗапроса) = 0 <span style='cursor: pointer; color:red' Onclick="window.open('/wiki/index.php/тогда')">Тогда		</span>
Возврат;	
КонецЕсли;    
//2) Выгружаем в ТаблицуЗначений             
Таб = СоздатьОбъект("ТаблицаЗначений");           
Запрос.Выгрузить(ТЗ,1,0);
//3) Добавляем в ТЗ новую колонку сумма            
Таб.НоваяКолонка("Сумма");           
Таб.Заполнить(1,,,"Сумма");           
Таб.Свернуть("ШК","Сумма");

Потому что ШК хнанится в справочнике Единицы, а не номенклатура)))))))

Выложите обработку - скорее всего вы намудрили с таблицей на форме

В таб уже нет владельца - вы использовали метод Свернуть соотвественно в ней только ШК и Сумма

Делаем так:

Код:

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

//создадим запрос с использованием фильтра
Запрос = СоздатьОбъект("Запрос");    
ТекстЗапроса =     "//{{ЗАПРОС(СортНом)//    
|Период с (НачалоПериодаБИ()) по (КонецПериодаБИ());    
|Обрабатывать НеПомеченныеНаУдаление;    
|Без итогов;    
|ШК = Справочник.Единицы.ШтрихКод;    
|Владелец = Справочник.Единицы.Владелец;    
|Группировка ШК;    
|Группировка Владелец;    
|Условие (ШК в Фильтр);
|"//}}ЗАПРОС;    

// Если ошибка в запросе, то выход из процедуры    
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда        
Возврат;    
КонецЕсли;    

В результате у вас получится набор владельцев только с дублирующимися ШК