Код

Процедура ПриОткрытии() формы списка
	Если Константа.ФлагSQL=1 Тогда
		ДатаОстатков=РабочаяДата();
		RS = СоздатьОбъект("ODBCRecordset");
		ТекстЗапроса = "
		|SELECT
		|  $Рег.Количество as Количество
		|FROM
		|  $РегистрИтоги.ОстаткиТоваров as Рег
		|WHERE
		|  Рег.Period = {d’2006-01-01’} AND
		|  $Рег.Фирма = ? AND
		|  $Рег.Склад = ? AND
		|  $Рег.Товар = ?";
		Сообщить(ТекстЗапроса);
		RS.Подготовить(ТекстЗапроса);
		RS.ПостроитьПараметры();
	КонецЕсли;
КонецПроцедуры 

Код

Функция Остаток(Спр)
   Если Константа.ФлагSQL=1 Тогда
	RS.УстПараметр(1,Фирма);
	RS.УстПараметр(2,Склад);
	RS.УстПараметр(3,ТекущийЭлемент());
	Количество=RS.ВыполнитьСкалярный();
  КонецЕсли
КонецФункции 

Код

ДатаОстатков=РабочаяДата();
Запрос = СоздатьОбъект("ODBCRecordset");
ТекстЗапроса = "
|@Товар = ?
|SELECT
|  Рег.КоличествоОстаток as Количество
|FROM
|  $РегистрОстатки.ОстаткиТоваров(:ВыбДата~,,
|                               Фирма = :ВыбФирма AND Склад = :ВыбСклад AND Товар = @Товар,
|                               (Товар), (Количество)) as Рег";
Запрос.УстановитьТекстовыйПараметр("ВыбДата",ПолучитьДатуТА());
Запрос.УстановитьТекстовыйПараметр("Фирма",Фирма);
Запрос.УстановитьТекстовыйПараметр("Склад",Склад);
Запрос.Подготовить(ТекстЗапроса);  
Запрос.ПостроитьПараметры();
Запрос.УстПараметр(1,ТекущийЭлемент());
Количество=Запрос.ВыполнитьСкалярный();