Код

Попытка
	рс.ВыполнитьИнструкцию(ТекстЗапроса,тз,1);
Исключение  
	предупреждение("Ошибка! "+рс.ПолучитьОписаниеОшибки());
	возврат;
КонецПопытки;  

Код

|   $ПартЗ.Поставщик [ПоставщикЗ $Справочник.Контрагенты], 

Код

|left join $Справочник.Партии as ПартЗ (nolock) on ПартЗ.id = Рег.Партия 

Код

ТекстЗапроса = "
	|Select
	|   Рег.Магазин [Магазин $Справочник.Подразделения],
	|   Рег.Товар 	[Товар $Справочник.Номенклатура],
	|   $Номен.ТипПФ [ПробаМ $Справочник.ТипПФ],
	|   $Номен.ВидИзделия [ТоварВид $Перечисление.ВидИзделия],
	//|   $ПартЗ.Поставщик [ПоставщикЗ $Справочник.Контрагенты],
	|   Рег.Партия	[Партия $Справочник.Партии],
	|   Рег.КоличествоОстаток as Кол,
	|   Рег.МассаОстаток as Масса,
	|   Рег.МассаБКОстаток as МассаБК,
	|   Рег.СуммаОстаток as Сумма
	|FROM
	|   $РегистрОстатки.Взаиморасщеты(,,
	|	/*УсловиеСклад*/
	|	,(Товар,Партия,Магазин),) as Рег
	|left join $Справочник.Номенклатура as Номен (nolock) on Номен.id = Рег.Товар
	|left join $Справочник.Партии as ПартЗ (nolock) on ПартЗ.id = Рег.Партия
	|where
	|	Рег.КоличествоОстаток>0
	|	AND Рег.МассаОстаток>0
	|	AND Рег.МассаБКОстаток>0
	|	AND Рег.СуммаОстаток>0
	|   /*УсловиеТипПФ*/
	|   /*ТоварВид*/
	|   /*ТоварПост*/
	|";

    Запрос = СоздатьОбъект("ODBCRecordSet");

	Если ПустоеЗначение(Магазин)=1 Тогда
		//Отбор не нужен
	ИначеЕсли Магазин.ЭтоГруппа()=0 Тогда
		Запрос.УстановитьТекстовыйПараметр("Магазин", Магазин);
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*УсловиеСклад*/", "Магазин = :Магазин");
	Иначе
		Запрос.УложитьСписокОбъектов(Магазин,"#Магазин", "Подразделения");
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*УсловиеСклад*/", "Магазин in (select val from #Магазин)");
	КонецЕсли;

	Если ПустоеЗначение(Проба)=1 Тогда
		//Отбор не нужен
	ИначеЕсли Проба.ЭтоГруппа()=0 Тогда
		Запрос.УстановитьТекстовыйПараметр("Проба", Проба);
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*УсловиеТипПФ*/", "AND $Номен.ТипПФ = :Проба");
	Иначе
		Запрос.УложитьСписокОбъектов(Проба,"#Проба", "ТипПф");
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*УсловиеТипПф*/", "AND $Номен.ТипПФ in (select val from #Проба)");
	КонецЕсли;

	Если ПустоеЗначение(ВидИзделия)=0 Тогда
		Запрос.УстановитьТекстовыйПараметр("ВидИзделия", ВидИзделия);
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*ТоварВид*/", "AND $Номен.ВидИзделия = :ВидИзделия");
	КонецЕсли;

	//Если ПустоеЗначение(ВыбТоварПост)=1 Тогда
	//	//Отбор не нужен
	//ИначеЕсли ВыбТоварПост.ЭтоГруппа()=0 Тогда
	//	Запрос.УстановитьТекстовыйПараметр("ВыбТоварПост", ВыбТоварПост);
	//	ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*ТоварПост*/", "AND $ПартЗ.Поставщик = :ВыбТоварПост");
	//Иначе
	//	Запрос.УложитьСписокОбъектов(ВыбТоварПост,"#ВыбТоварПост", "Контрагенты");
	//	ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "/*ТоварПост*/", "AND $ПартЗ.Поставщик in (select val from #ВыбТоварПост)");
	//КонецЕсли;

	//Запрос.Отладка(1);
	ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);