Код

Перем гЗапрос1П;

// ПодготовитьЗапросы()
Процедура ПодготовитьЗапросы()
	гЗапрос1П = СоздатьОбъект("ODBCRecordset");
	гЗапрос1П.УстБД1С();
	вТекстЗапроса = "
	|--- Поиск номенклатуры по коду
	|SELECT
	|	Спр.ID as [ТМЦ $Справочник.Номенклатура]
	|	, Спр.Code as Код
	|FROM
	|	$Справочник.Номенклатура as Спр(NOLOCK)
	|WHERE
	|	Спр.Code = ?
	|";
	Попытка
		гЗапрос1П.ДобПараметр(1,14, Метаданные.Справочник("Номенклатура").ДлинаКода ,0);
		гЗапрос1П.Подготовить(вТекстЗапроса);
	Исключение
		Сообщить(гЗапрос1П.ПолучитьОписаниеОшибки());
	КонецПопытки;

КонецПроцедуры // ПодготовитьЗапросы()
//*******************************************
Процедура Сформировать()
	вЗапрос = СоздатьОбъект("Запрос");
	вТекстЗапроса = "
	|ТекЭлем = Справочник.Номенклатура.ТекущийЭлемент;
	|Код = Справочник.Номенклатура.Код;
	|Группировка ТекЭлем Без Групп Без Упорядочивания;
	|";
	Если вЗапрос.Выполнить(вТекстЗапроса ) = 0 Тогда
		Возврат;
	КонецЕсли;
	вВсегоЭлем = 0;
	вВсегоЭлемОК = 0;
	ПодготовитьЗапросы();
	Пока вЗапрос.Группировка(1) = 1 Цикл
		вВсегоЭлем = вВсегоЭлем + 1;
	    вКод = вЗапрос.Код;
		гЗапрос1П.УстПараметр(1,вКод);
		вТЗ = гЗапрос1П.ВыполнитьИнструкцию();
		Если вТЗ.КоличествоСтрок()>0 Тогда
		    вТЗ.ПолучитьСтрокуПоНомеру(1);
			Если СокрЛП(вТЗ.Код) = СокрЛП(вКод) Тогда
			    вВсегоЭлемОК = вВсегоЭлемОК + 1;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;

	Сообщить("Всего: " + вВсегоЭлем+" нашли: " + вВсегоЭлемОК);
КонецПроцедуры