Код

	ТзЗапроса = СоздатьОбъект("ИндексированнаяТаблица");
	ТзЗапроса.Загрузить(Запрос.ВыполнитьИнструкцию(ТекстЗапроса));
 

Код

ТзЗапроса.Группировать("ИндАгент: *Агент;ИндКлиент: *Клиент;ИндТерминалКлиента: *ТерминалКлиента",СтрокаСумм,0); 

Код

	|SELECT
	|	ОстаткиТоваровОстаткиОбороты.Товар [Товар $Справочник.Товары]
	|	,ОстаткиТоваровОстаткиОбороты.Партия [Партия $Документ.ПриходнаяКредит]
	|	,ОстаткиТоваровОстаткиОбороты.Склад [Склад $Справочник.Склады]
	|	, RIGHT(ОстаткиТоваровОстаткиОбороты.ПозицияДокумента, 9) [Док $Документ]
	|	, MAX(ОстаткиТоваровОстаткиОбороты.ВидДокумента) Док_вид
	|	, ОстаткиТоваровОстаткиОбороты.НачальныйОстаток As НачКол
	|	, ОстаткиТоваровОстаткиОбороты.Приход As ПрихКол
	|	, ОстаткиТоваровОстаткиОбороты.Расход As РасхКол
	|	, ОстаткиТоваровОстаткиОбороты.ПереоценкаРасход As ПереоценКол
	|	, ОстаткиТоваровОстаткиОбороты.ПродажаРасход As ПродКол
	|	, ОстаткиТоваровОстаткиОбороты.ПерекидкиРасход As ПерекидКол
	|	, ОстаткиТоваровОстаткиОбороты.ВозвратРасход As ВозвКол
	|	, ОстаткиТоваровОстаткиОбороты.РасходнаяСтоимостьНачальныйОстаток As НачСто
	|	, ОстаткиТоваровОстаткиОбороты.РасходнаяСтоимостьПриход As ПрихСто
	|	, ОстаткиТоваровОстаткиОбороты.РасходнаяСтоимостьРасход As РасСто
	|	, ОстаткиТоваровОстаткиОбороты.СтоимостьПереоценкиРасход As ПереоценСто
	|	, ОстаткиТоваровОстаткиОбороты.ПродажнаяСтоимостьРасход As ПродажСто
	|	, ОстаткиТоваровОстаткиОбороты.СтоимостьПерекидкиРасход As ПерекидСто
	|	, ОстаткиТоваровОстаткиОбороты.ВозвратнаяСтоимостьРасход As ВозвСто
	|FROM (
	|SELECT
	|	ОстаткиТоваровОстатки.Товар,
	|	ОстаткиТоваровОстатки.Партия,
	  |	ОстаткиТоваровОстатки.Склад,
	  |	null as ПозицияДокумента,
	  |	null as ВидДокумента,
	  |	ОстаткиТоваровОстатки.ОстатокТовараОстаток As НачКол,
	  |	0 as Приход,
	  |	0 as Расход,
	|	0 As ПереоценкаРасход,
	|	0 As ПродажаРасход,
	|	0 As ПерекидкиРасход,
	|	0 As ВозвратРасход,
	|	ОстаткиТоваровОстатки.РасходнаяСтоимостьОстаток As НачСто,
	|	0 As РасходнаяСтоимостьПриход,
	|	0 As РасходнаяСтоимостьРасход,
	|	0 As СтоимостьПереоценкиРасход,
	|	0 As ПродажнаяСтоимостьРасход,
	|	0 As СтоимостьПерекидкиРасход,
	|	0 As ВозвратнаяСтоимостьРасход
	|FROM $РегистрОстатки.ОстаткиТоваров(:ДатаОтчета,,,
	  |(Товар, Партия, Склад), (ОстатокТовара, РасходнаяСтоимость)) AS ОстаткиТоваровОстатки
	|union all
	|SELECT
	  |	ОстаткиТоваровОбороты.Товар,
	|	ОстаткиТоваровОбороты.Партия,
	  |	ОстаткиТоваровОбороты.Склад,
	  |	ОстаткиТоваровОбороты.ПозицияДокумента,
	  |	ОстаткиТоваровОбороты.ВидДокумента,
	  |	0,
	  |	ОстаткиТоваровОбороты.ОстатокТовараПриход,
	  |	ОстаткиТоваровОбороты.ОстатокТовараРасход,
	|	ОстаткиТоваровОбороты.ПереоценкаТовараРасход,
	|	ОстаткиТоваровОбороты.ПродажаТовараРасход,
	|	ОстаткиТоваровОбороты.ПерекидкаТовараРасход,
	|	ОстаткиТоваровОбороты.ВозвратТовараРасход,
	|	0,
	|	ОстаткиТоваровОбороты.РасходнаяСтоимостьПриход,
	|	ОстаткиТоваровОбороты.РасходнаяСтоимостьРасход,
	|	ОстаткиТоваровОбороты.СтоимостьПереоценкиРасход,
	|	ОстаткиТоваровОбороты.ПродажнаяСтоимостьРасход,
	|	ОстаткиТоваровОбороты.СтоимостьПерекидкиРасход,
	|	ОстаткиТоваровОбороты.ВозвратнаяСтоимостьРасход
	|FROM $РегистрОбороты.ОстаткиТоваров(:ДатаОтчета, :ДатаКон~, Документ,,, (Товар, Партия, Склад),
	  |	(ОстатокТовара, ПереоценкаТовара, ПродажаТовара, ПерекидкаТовара, ВозвратТовара, РасходнаяСтоимость, СтоимостьПереоценки, ПродажнаяСтоимость, СтоимостьПерекидки, ВозвратнаяСтоимость)) AS ОстаткиТоваровОбороты
	|) As ОстаткиТоваровОстаткиОбороты
	|GROUP BY ОстаткиТоваровОстаткиОбороты.Товар
	|	, ОстаткиТоваровОстаткиОбороты.Партия
	|	, ОстаткиТоваровОстаткиОбороты.Склад";
 

Код

	ТекстЗапросаШапка = "
	|SELECT SUM(Запрос.НачОст) as НачОст
	|,	SUM(Запрос.Приход) as Приход
	|,	SUM(Запрос.Расход) as Расход
	|,	SUM(Запрос.НачОст) + SUM(Запрос.Приход) - SUM(Запрос.Расход) as КонОст
	|";

	ТекстЗапросаИтоги = "
	|SELECT $Итоги.Долг as НачОст
	|,	CAST(0 as Numeric(15,2)) as Приход
	|,	CAST(0 as Numeric(15,2)) as Расход
	|";

	ТекстЗапросаОстатки = "
	|SELECT	$Остатки.Долг * (1 - Остатки.DEBKRED * 2) as НачОст
	|,	CAST(0 as Numeric(15,2)) as Приход
	|,	CAST(0 as Numeric(15,2)) as Расход
	|";

	ТекстЗапросаДвижения = "
	|SELECT	CAST(0 as Numeric(15,2)) as НачОст
	|,	(CASE WHEN Движения.DEBKRED=0 THEN $Движения.Долг ELSE 0 END) as Приход
	|,	(CASE WHEN Движения.DEBKRED=1 THEN $Движения.Долг ELSE 0 END) as Расход
	|";

	ТекстЗапросаПодвал = "
	|) as Запрос
	|
	|GROUP BY
	|";
	Если ЕстьПометка("Фирма") = 1 Тогда
		ТекстЗапросаШапка = ТекстЗапросаШапка + "
		|,	Запрос.Фирма as [Фирма $Справочник.Фирмы]
		|,	GROUPING(Запрос.Фирма) as ИтогФирма
		|";

		ТекстЗапросаИтоги = ТекстЗапросаИтоги + "
		|,	$Итоги.Фирма as Фирма
		|";

		ТекстЗапросаОстатки = ТекстЗапросаОстатки + "
		|,	$Остатки.Фирма as Фирма
		|";

		ТекстЗапросаДвижения = ТекстЗапросаДвижения + "
		|,	$Движения.Фирма as Фирма
		|";
	КонецЕсли;
//Далее по аналогии
	ТекстЗапросаШапка = ТекстЗапросаШапка + "
	|FROM (
	|";

	ТекстЗапросаИтоги = ТекстЗапросаИтоги + "
	|FROM
	|	$РегистрИтоги.ВзаиморасчетыПокупателей as Итоги With (NOLOCK)
	|";
	ТекстЗапросаИтоги = ТекстЗапросаИтоги + "
	|WHERE
	|	(Итоги.PERIOD = :ДатаОстатков)
	|	AND ($Итоги.Фирма IN (Select val from #СписокФирм))
	|";

	ТекстЗапросаОстатки = ТекстЗапросаОстатки + "
	|FROM
	|	$Регистр.ВзаиморасчетыПокупателей as Остатки With (NOLOCK)
	|
	|INNER JOIN _1SJOURN as ЖурналОст With (NOLOCK) ON Остатки.IDDOC = ЖурналОст.IDDOC
	|";
	ТекстЗапросаОстатки = ТекстЗапросаОстатки + "
	|WHERE
	|	(ЖурналОст.DATE_TIME_IDDOC >= :НачДатаОст)
	|	AND (ЖурналОст.DATE_TIME_IDDOC < :НачДата)
	|	AND (ЖурналОст.$ФлагРегистра.ВзаиморасчетыПокупателей = 1)
	|	AND ($Остатки.Фирма IN (Select val from #СписокФирм))
	|";

    ТекстЗапросаДвижения = ТекстЗапросаДвижения + "
	|FROM
	|	$Регистр.ВзаиморасчетыПокупателей as Движения With (NOLOCK)
	|";
	ТекстЗапросаДвижения = ТекстЗапросаДвижения + "
	|INNER JOIN _1SJOURN as Журнал With (NOLOCK) ON Движения.IDDOC = Журнал.IDDOC
	|
	|WHERE
	|	(Журнал.DATE_TIME_IDDOC >= :НачДата)
	|	AND (Журнал.DATE_TIME_IDDOC < :КонДата~)
	|	AND (Журнал.$ФлагРегистра.ВзаиморасчетыПокупателей = 1)
	|	AND ($Движения.Фирма IN (Select val from #СписокФирм))
	|";
	Для Сч = 1 по СписокГруппировок.РазмерСписка() Цикл
		ТекГруппировка = СписокГруппировок.ПолучитьЗначение(Сч);
		ТекстЗапросаПодвал = ТекстЗапросаПодвал + "Запрос." + ТекГруппировка + ", "
	КонецЦикла;

	Если Прав(ТекстЗапросаПодвал, 2) = ", " Тогда
		ТекстЗапросаПодвал = Лев(ТекстЗапросаПодвал, СтрДлина(ТекстЗапросаПодвал) - 2);
		ТекстЗапросаПодвал = ТекстЗапросаПодвал + " WITH ROLLUP";
	Иначе
		ТекстЗапросаПодвал = "
		|) as Запрос
		|";
	КонецЕсли;