Код

	Текст="select reg.Номенклатура [Номенклатура $Справочник.Номенклатура],
	|reg.Фирма [Фирма $Справочник.Фирмы],
	|-sum(reg.КоличествоКонечныйОстаток) as Количество
	|from $РегистрОстаткиОбороты.ПартииНаличие(:НачДата,:КонДата~,
	|Документ,Движения,,Номенклатура in (select val from #vtminus) and СтатусПартии=:РегСтат,
	|(Фирма,Номенклатура,СтатусПартии),
	|(Количество)) as reg
	|group by reg.Фирма, reg.Номенклатура, reg.СтатусПартии, reg.ПозицияДокумента
	|having sum(reg.КоличествоКонечныйОстаток)<0
	|order by reg.Номенклатура, reg.ПозицияДокумента";


йДокумент(),1));
Запрос.УстановитьТекстовыйПараметр("КонДата",КонМесяца(ДатаДок));
Запрос.УстановитьТекстовыйПараметр("РегСтат",РегСтат);
спНом=СоздатьОбъект("СписокЗначений");
ВыгрузитьТабличнуюЧасть(спНом,"Номенклатура");
Запрос.УложитьСписокОбъектов(спНом,"#vtminus","Номенклатура");

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