Код

	Запрос = СоздатьОбъект("OdbcRecordSet");
	Если Запрос.Выполнить("if Exists (select * from tempdb..sysobjects where id = object_id('tempdb..#TempT') and sysstat & 0xf = 3) drop table #TempT") = 0 Тогда
		Сообщить(Запрос.ПолучитьОписаниеОшибки());
	КонецЕсли;
	Если Запрос.Выполнить("CREATE TABLE #TempT ( Tovar Char(9), Sklad char(9), PRIMARY KEY CLUSTERED (Tovar) )") = 0 Тогда
		Сообщить(Запрос.ПолучитьОписаниеОшибки());
	КонецЕсли;
	Запрос.УстановитьТекстовыйПараметр("ТД", ТекущийДокумент());
	Запрос.УстановитьТекстовыйПараметр("Склад", загСклад);
	Запрос.УстановитьТекстовыйПараметр("Раб", enum.ВидыТоваров.Работа);


	Если Запрос.Выполнить("insert into #TempT (tovar, sklad)
					|select distinct
					|$Д.табТовар,
					|Case
					|when $Д.табСклад = $ПустойИД then :Склад
					|else $Д.табСклад end
					|from $ДокументСтроки.РасходнаяНакл Д
					|inner join $Справочник.Товары СпрТ (nolock) on СпрТ.id = $Д.табТовар
					|where Д.iddoc = :ТД and $Д.табКоличество>0 and $СпрТ.спрВидТовара <> :Раб
					|")=0 Тогда
		Сообщить(Запрос.ПолучитьОписаниеОшибки());
	КонецЕсли;