Код

	ЗапросОстатки = СоздатьОбъект("ODBCRecordSet");
	//========================================================================
	ТекстЗапросаОстатки = "
	|@ВыбСклад = ?
	|@ВыбТовар = ?
	|SELECT
	|   SUM(Рег.ОстатокТовараОстаток)	as ОстатокТовара
	|FROM
	|	$РегистрОстатки.ОстаткиТоваров(:ДатаРасчета~,,Склад = @ВыбСклад AND Товар = @ВыбТовар,, (ОстатокТовара)) as Рег";

	ЗапросОстатки.УстановитьТекстовыйПараметр("ДатаРасчета",ДатаРасчета);
	Если ЗапросОстатки.Подготовить(ТекстЗапросаОстатки)=1 Тогда
		  Сообщить("Запрос подготовлен");
	  КонецЕсли;
	  Если ЗапросОстатки.ПостроитьПараметры()=1 Тогда
		  Сообщить("Параметры запроса построены");
	  КонецЕсли;
 

Код

		ДатаРасчета = СформироватьПозициюДокумента(Конт.ТекущийДокумент(),-1);

 

Код

	ТекстЗапросаПоДолгам ="
	|select
	|	$Рег.Договор 					[Договор $Справочник.Договоры]
	|	, $Рег.Сумма*(1-2*Рег.debkred)	[Сумма]
	|	, Рег.DATE_TIME_IDDOC 			[ПозицияДокумента]
	|from
	|	$Регистр."+глПокупатели+" as Рег (nolock)
	|where
	|	$Рег.ЮрЛицо = ? AND
	|	$Рег.ВидДеятельности = ? AND
	|	$Рег.Издание = ? AND
	|	$Рег.ЦветПлатежа = ? AND
	|	$Рег.Контрагент = ? AND
	|	$Рег.Менеджер = ? AND
	|	Рег.Date_Time_iddoc <= ? AND
 	|	(Рег.debkred = 1)  AND
 	| 	(($Рег.КодОперации <> $Перечисление.КодОперации.ЗакрытиеДебМинус)AND($Рег.КодОперации <> $Перечисление.КодОперации.ЗакрытиеДебПлюс))";

 	Если ЗапросДолгиПарам.Подготовить(ТекстЗапросаПоДолгам) = 0 Тогда
 		Сообщить(ЗапросДолгиПарам.ПолучитьОписаниеОшибки());
 		Сообщить("Не удалось подготовить параметризованный запрос к выполнению: "+ТекстЗапросаПоДолгам);
 	КонецЕсли;

	Если ЗапросДолгиПарам.КолвоПараметров() <> 7 Тогда	//Сообщить("колво параметров = " +_RS.КолвоПараметров());
 		ЗапросДолгиПарам.ДобПараметр(1,14,9,0); // спр-к ЮрЛицо
 		ЗапросДолгиПарам.ДобПараметр(1,14,9,0); // спр-к ВидДеятельности
 		ЗапросДолгиПарам.ДобПараметр(1,14,9,0); // спр-к Издание
 		ЗапросДолгиПарам.ДобПараметр(1,14,9,0); // переч-е ЦветПлатежа
 		ЗапросДолгиПарам.ДобПараметр(1,14,9,0); // спр-к Контрагент
 		ЗапросДолгиПарам.ДобПараметр(1,14,9,0); // спр-к Менеджер
 		ЗапросДолгиПарам.ДобПараметр(1,14,23,0); //строка Date_Time_iddoc
 		//Сообщить("Параметры повторно построены, колво параметров = " +ЗапросДолгиПарам.КолвоПараметров());
 	КонецЕсли;

 	ЗапросДолгиПарам.УстПараметр(1, ЮрЛицо);
 	ЗапросДолгиПарам.УстПараметр(2, ВидДеятельности);
 	ЗапросДолгиПарам.УстПараметр(3, Издание);
 	ЗапросДолгиПарам.УстПараметр(4, ЦветПлатежа);
 	ЗапросДолгиПарам.УстПараметр(5, Контрагент);
 	ЗапросДолгиПарам.УстПараметр(6, Менеджер);
 	ЗапросДолгиПарам.УстПараметр(7, _MD.ПолучитьДатуВремяИдДок(ДатаПоз));

 	Попытка
 		ТЗ = ЗапросДолгиПарам.ВыполнитьИнструкцию(ТекстЗапросаПоДолгам)
 	Исключение
 		Сообщить("Не удалось выполнить параметризованный запрос "+ТекстЗапросаПоДолгам);
 		Сообщить(ЗапросДолгиПарам.ОписаниеОшибки());
 	КонецПопытки;