Код

Процедура ПриОткрытии()
	СписСкл = СоздатьОбъект("СписокЗначений");
	ТЗ = "
	|declare @Тов char(9)
	|set @Тов = ?
	|select
	|sum(БигСел.КолОст) [Ост $Число],
	|sum(БигСел.КолРез) [Резв $Число]
	|from
	|(select
	|ОстТ.ресКоличествоОстаток КолОст,
	|0 КолРез
	|from $РегистрОстатки.Товары(,,измТовар = @Тов and измСклад in (select val from #TempSklSC), измТовар, ресКоличество) ОстТ
	|union
	|select
	|0,
	|РезТ.ресКоличествоОстаток
	|from $РегистрОстатки.РезервыТоваров(,,измТовар = @Тов and измСклад in (select val from #TempSklSC), измТовар, ресКоличество) РезТ
	|) БигСел";

	Если ЗапросОстПоСтр.Подготовить(ТЗ) = 1 Тогда
		ЗапросОстПоСтр.ДобПараметр(1, 14, 9,0)
	Иначе
		Сообщить(ЗапросОстПоСтр.ПолучитьОписаниеОшибки());
	КонецЕсли;
КонецПроцедуры

Функция ПолучитьОстаток()
	Если табСклад.Выбран() = 1 Тогда
		_Скл = табСклад
	Иначе
		_Скл = загСклад
	КонецЕсли;
	Если ОстГрупп = 1 Тогда
		ЗапросСкл = СоздатьОбъект("OdbcRecordSet");
		ТзСкл = "
		|select
		|Скл.id [Склад $Справочник.Склады]
		|from $Справочник.Склады Скл (nolock)
		|where $Скл.спрСкладВладелец = :СклВлад";
		ЗапросСкл.УстановитьТекстовыйПараметр("СклВлад", _Скл);
		ЗапросСкл.ВыполнитьИнструкцию(ТзСкл, СписСкл);
	КонецЕсли;
	ЗапросОстПоСтр.УстПараметр(1, табТовар);
	ЗапросОстПоСтр.УложитьСписокОбъектов(СписСкл, "#TempSklSC")
 	Рез = ЗапросОстПоСтр.ВыполнитьСкалярный();
 	РезРез = Рез.Резв;
 	глОст = Рез.Ост;
 	возврат Рез.Ост
КонецФункции
 

Код

Процедура ПриОткрытии()
	Запрос = СоздатьОбъект("OdbcRecordSet");
	ЗапросОстПоСтр = СоздатьОбъект("OdbcRecordSet");
	Если Запрос.Выполнить("if Exists (select * from tempdb..sysobjects where id = object_id('tempdb..#TempSklSC') and sysstat & 0xf = 3 )
						  |drop table #TempSklSC") =0 Тогда
		Сообщить(Запрос.ПолучитьОписаниеОшибки());
	КонецЕсли;
	Запрос.Выполнить("Create Table #TempSklSC (sklad char(9) PRIMARY KEY CLUSTERED (sklad))");
	СписСкл = СоздатьОбъект("СписокЗначений");
	ТЗ = "
	|declare @Тов char(9)
	|set @Тов = ?
	|select
	|sum(БигСел.КолОст) [Ост $Число],
	|sum(БигСел.КолРез) [Резв $Число]
	|from
	|(select
	|ОстТ.ресКоличествоОстаток КолОст,
	|0 КолРез
	|from $РегистрОстатки.Товары(,,измТовар = @Тов and измСклад in (select sklad from #TempSklSC), измТовар, ресКоличество) ОстТ
	|union
	|select
	|0,
	|РезТ.ресКоличествоОстаток
	|from $РегистрОстатки.РезервыТоваров(,,измТовар = @Тов and измСклад in (select sklad from #TempSklSC), измТовар, ресКоличество) РезТ
	|) БигСел";

	Если ЗапросОстПоСтр.Подготовить(ТЗ) = 1 Тогда
		ЗапросОстПоСтр.ДобПараметр(1, 14, 9,0)
	Иначе
		Сообщить(ЗапросОстПоСтр.ПолучитьОписаниеОшибки());
	КонецЕсли;
КонецПроцедуры

Функция ПолучитьОстатокРезервПоСтроке()
	Если табСклад.Выбран() = 1 Тогда
		_Скл = табСклад
	Иначе
		_Скл = загСклад
	КонецЕсли;
	Запрос.Выполнить("delete from #TempSklSC");
	Тз = "insert into #TempSklSC Values(:Скл)";
	Запрос.УстановитьТекстовыйПараметр("Скл", _Скл);
	Запрос.Выполнить(Тз);
	Если ОстГрупп = 1 Тогда
		ЗапросСкл = СоздатьОбъект("OdbcRecordSet");
		ТзСкл = "
		|insert into #TempSklSC (sklad)
		|select
		|Скл.id [Склад $Справочник.Склады]
		|from $Справочник.Склады Скл (nolock)
		|where $Скл.спрСкладВладелец = :СклВлад";
		ЗапросСкл.УстановитьТекстовыйПараметр("СклВлад", _Скл);
		ЗапросСкл.Выполнить(ТзСкл);
	КонецЕсли;
	ЗапросОстПоСтр.УстПараметр(1, табТовар);
 	Рез = ЗапросОстПоСтр.ВыполнитьСкалярный();
 	РезРез = Рез.Резв;
 	глОст = Рез.Ост;
 	возврат Рез.Ост
КонецФункции	// гл