Код

Процедура Сформировать()
	// Входной параметр папка   ВыбТовар ( Справочник.Товары )
	Запрос = СоздатьОбъект("ODBCRecordSet");
	Род = СоздатьОбъект("СписокЗначений");
	Род.ДобавитьЗначение(ВыбТовар);
	Запрос.УложитьСписокОбъектов(Род,"#ПапкаТовары","Товары");
	Запрос.УложитьСписокОбъектов(Род,"#ПапкаРод","Товары");
	ТекстЗапроса = "delete from #ПапкаРод";
	ТЗ = Запрос.ВыполнитьСкалярный(ТекстЗапроса);

	ТекстЗапроса = "INSERT INTO #ПапкаРод   select DISTINCT Спр.ParentID as val,1 as isfolder  from $Справочник.Товары as Спр
	|where Спр.id in ( select val from #ПапкаТовары  )
	|";
	ТЗ = Запрос.ВыполнитьСкалярный(ТекстЗапроса);
//	ТекстЗапроса = "select * from #ПапкаРод";


// Родной запрос
	ТекстЗапроса = "
	|SELECT ID [Тов $Справочник.Товары], Спр.IsFolder from $Справочник.Товары as Спр
	|WHERE  Спр.ParentID in ( select val from  #ПапкаРод)
	|";
	Запрос.Отладка(1);
	ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
	ТЗ.ВыбратьСтроку();

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

Код

ТекстЗапроса = "
|SELECT ОстаткиТМЦОстаткиОбороты.Товар [Товар $Справочник.Номенклатура]
| , ОстаткиТМЦОстаткиОбороты.Склад [Склад $Справочник.Склады]
| , ОстаткиТМЦОстаткиОбороты.КоличествоНачальныйОстаток [КоличествоНачОст]
| , ОстаткиТМЦОбороты.КоличествоПриход [КоличествоПриход]
| , ОстаткиТМЦОбороты.КоличествоРасход [КоличествоРасход]
| , ОстаткиТМЦОстаткиОбороты.КоличествоКонечныйОстаток [КоличествоКонОст]
| , RIGHT(ОстаткиТМЦОбороты.ПозицияДокумента,9) [Документ $Документ]
| , ОстаткиТМЦОбороты.ВидДокумента [Документ_вид]
|FROM $РегистрОстаткиОбороты.ОстаткиТМЦ(:ДатаНачала,:ДатаКонца~,Документ,,,(Товар, Склад),Количество) AS ОстаткиТМЦОстаткиОбороты";