Код

рс = СоздатьОбъект("ODBCRecordset");

	ТекстЗапроса = "
	|WITH _TblWithParents (ID,ISFOLDER,PARENTID) AS
	|(
	|
	|	SELECT 	ТМЦ.ID
	|	,	ТМЦ.ISFOLDER
	|	,	ТМЦ.PARENTID
	|	FROM $Справочник.ТМЦ AS ТМЦ With (NOLOCK)
	|	WHERE (ТМЦ.PARENTID = :ВыбРодитель)
	|
	|	UNION ALL
	|
	|	SELECT 	ТМЦ.ID
	|	,	ТМЦ.ISFOLDER
	|	,	ТМЦ.PARENTID
	|	FROM $Справочник.ТМЦ AS ТМЦ With (NOLOCK)
	|		INNER JOIN _TblWithParents ON _TblWithParents.PARENTID = ТМЦ.ID
	|
	|)
	|
	|SELECT DISTINCT
	|	ID [Ссылка $Справочник.ТМЦ]
	|,	ISFOLDER
	|,	PARENTID [Родитель $Справочник.ТМЦ]
	|FROM
	|	_TblWithParents
	|ORDER BY
	|	ISFOLDER, ID
	|";

	рс.УстановитьТекстовыйПараметр("ВыбРодитель", ВыбРодитель);
	тз = рс.ВыполнитьИнструкцию(ТекстЗапроса);
	тз.ВыбратьСтроку();
 

Код

	ТекстЗапроса = "
		|WITH _TblWithParents (ID,ISFOLDER,PARENTID,Descr, Level) AS
		|(
		|	SELECT 	ТМЦ.ID
		|		,ТМЦ.ISFOLDER
		|		,ТМЦ.PARENTID
		|		,ТМЦ.Descr
		|		,1
		|	FROM $Справочник.Номенклатура AS ТМЦ With (NOLOCK)
		|	WHERE (ТМЦ.PARENTID = :ВыбРодитель)
		|
		|	UNION ALL
		|
		|	SELECT 	ТМЦ.ID
		|		,ТМЦ.ISFOLDER
		|		,ТМЦ.PARENTID
		|		,ТМЦ.Descr
		|		,Level+1
		|	FROM $Справочник.Номенклатура AS ТМЦ With (NOLOCK)
		|		INNER JOIN _TblWithParents ON _TblWithParents.PARENTID = ТМЦ.ID
		|
		|)
		|
		|SELECT DISTINCT
		|	 ID 			[Ссылка 		$Справочник.Номенклатура]
		|	,ISFOLDER		[ЭтоГруппа		$Число]
		|	,PARENTID 		[Родитель 		$Справочник.Номенклатура]
		|	,DESCR
		|	,Level			Уровень
		|FROM
		|	_TblWithParents
		|ORDER BY
		|	ISFOLDER, DESCR
		|";