Код

	//Создание объекта типа Запрос
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса =
	"//{{ЗАПРОС(Сформировать)
	|Обрабатывать НеПомеченныеНаУдаление;
	|ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент;
	|ДатаИзмЦены = Справочник.Номенклатура.ДатаИзмЦены;
	|АС = Справочник.Номенклатура.Catalog.Number_Part;
	|Model = Справочник.Номенклатура.Catalog.Model;    
	|Груп = Справочник.Номенклатура.Catalog.ГруппаТовара;
	|Марка = Справочник.Номенклатура.Catalog.Model.Марка;
	|Группировка ТекущийЭлемент без групп;
	|"//}}ЗАПРОС
	;                                                      

	Если ПустоеЗначение(ВыбАС) = 0 Тогда
		ТекстЗапроса = ТекстЗапроса + "Условие(АС = ВыбАС);";    
	КонецЕсли;
	Если ВыбМарка.Выбран() = 1 Тогда
		ТекстЗапроса = ТекстЗапроса + "Условие(Марка = ВыбМарка);";
	КонецЕсли;  
	Если ВыбМодель.Выбран() = 1 Тогда
		ТекстЗапроса = ТекстЗапроса + "Условие(Model = ВыбМодель);";
	КонецЕсли;    
	Если ВыбГруппа.Выбран() = 1 Тогда
		ТекстЗапроса = ТекстЗапроса + "Условие(Груп = ВыбГруппа);";
	КонецЕсли;
	Если Акт = 1 Тогда
		ТекстЗапроса = ТекстЗапроса + "Условие((ТекущаяДата() - ДатаИзмЦены) <= Константа.АктуальностьПрайсаДней);";    
	КонецЕсли;

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

	Пока Запрос.Группировка() = 1 Цикл    
		Если ПустоеЗначение(Запрос.ТекущийЭлемент) = 0 Тогда  
			СпГруппы.ДобавитьЗначение(Запрос.ТекущийЭлемент);
		КонецЕсли;
	КонецЦикла;