Код

Процедура Сформировать()

....

	ТекстЗапроса2 = "
	|SELECT
	|	SUM(S.Summa) as Сумма,
	|	S.ВидПлатежа [ВидПлатежа $Перечисление.ВидыПлатежей]
	|FROM (
	|		SELECT
	|	    	$Рег.Сумма as Summa,
	|			$Рег.ВидПлатежа as ВидПлатежа
	|		FROM
	|		    $Регистр.Реклама as Рег (nolock)
	|		INNER JOIN _1sjourn as J (nolock) ON
	|				(Рег.IDDOC = J.IDDOC)
	|				AND (J.Date_Time_IDDoc > :ДатаКонца)
	|				AND (J.Date_Time_IDDoc <= :ПраваяДатаДляПоискаОплат)
	|				AND (J.$ФлагРегистра.Реклама=1)
	|		WHERE
	|		   	($Рег.Издание = :Издание) AND ($Рег.Рубрика = :Рубрика) AND
	|			($Рег.Контрагент = :Контрагент) AND ($Рег.Менеджер = :Менеджер) AND (Рег.DEBKRED = 0) AND ($Рег.Сумма <> 0)
	|			AND	 (($Рег.ВидПлатежа = '" + MDWork.ЗначениеВСтрокуБД(Перечисление.ВидыПлатежей.БН) + "')
	|			OR	 ($Рег.ВидПлатежа = '" + MDWork.ЗначениеВСтрокуБД(Перечисление.ВидыПлатежей.Н) + "')
	|			OR	 ($Рег.ВидПлатежа = '" + MDWork.ЗначениеВСтрокуБД(Перечисление.ВидыПлатежей.Н1) + "'))
	|
	|	) as S
	|GROUP BY
	|	S.Summa,
	|	S.ВидПлатежа";

   Для сч = 1 По ТЗ.КоличествоСтрок() Цикл // сама ТЗ является результатом выполнения другого прямого запроса
....
				Если ОплаченоПоВыпуск < ПечСумма Тогда
					//Поищем-ка в будущих периодах оплату..
					RS1.УстановитьТекстовыйПараметр("Издание", ВыбИздание);
					RS1.УстановитьТекстовыйПараметр("Менеджер", ТЗ.Менеджер);
					RS1.УстановитьТекстовыйПараметр("Рубрика",ТЗ.Рубрика);
					RS1.УстановитьТекстовыйПараметр("Контрагент", ТЗ.Контрагент);
					RS1.УстановитьТекстовыйПараметр("ДатаКонца", ДатаКон); //ДатаКон
					RS1.УстановитьТекстовыйПараметр("ПраваяДатаДляПоискаОплат", ПраваяДатаДляПоискаОплат+1);
					//RS1.Debug(1);
					В = _GetPerformanceCounter();
					ТЗ2=RS1.ВыполнитьИнструкцию(ТекстЗапроса2);
					ВсегоНаПоискОплатВремени = ВсегоНаПоискОплатВремени + (_GetPerformanceCounter() - В)/1000;
					//ТЗ2.ВыбратьСтроку(,,);
					Если ТипЗначения(ТЗ2) <> 0 Тогда
						Если ТЗ2.КоличествоСтрок() > 0 Тогда
							СуммаПлатежаБудущихВыпусков = ТЗ2.Итог(1); //будущая оплата одной суммой по всем видам платежей
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;              
......
 КонецЦикла;

....

КонецПроцедуры