Код

Зпр = СоздатьОбъект("ODBCRecordset");
ТекстЗ = "SELECT
|	  Tov.code as Код,
|     $РегП.Товар AS [Товар $Справочник.Номенклатура],
|	  $Tov.ШтрихКод as ШтрихКод,
|	  $Tov.ПолнНаименование as ПолнНаименование,
|	  $Tov.Disc as Disc,
|	  $Tov.LimDisc as LimDisc,
|     isNULL((Select top 1 $ПоследнееЗначение.Цены.Цена(СпрЦ.ID, :КонПериода) Цена
|		FROM $Справочник.Цены СпрЦ WHERE СпрЦ.ParentExt = $РегП.Товар AND
|				   $СпрЦ.КатегорияЦены = :ТипЦен),0)  AS Цена,
|	  R.code as РодКод,
|     $РегП.ОстатокТовара  AS Колич
|  FROM
|     $РегистрИтоги.ОстаткиТоваров as РегП
|
|	LEFT JOIN $Справочник.Номенклатура Tov ON Tov.ID = $РегП.Товар
|	LEFT JOIN $Справочник.Номенклатура R ON Tov.ParentID = R.ID
| WHERE $РегП.ОстатокТовара >0
|		    AND $РегП.Фирма = :ВыбФирма
|			AND Period = :ПредМесяц
|	"+?((Фильтр=1) и (Группа.Выбран()=1),"AND $РегП.Товар in (SELECT val from #STov)","")+"
|   "+?(ВыбСклад.Выбран()=1,"AND $РегП.Склад = :ВыбСклад","")+"
|"
;
Зпр.УстановитьТекстовыйПараметр("ПредМесяц", НачМесяца(РабочаяДата()));
Зпр.УстановитьТекстовыйПараметр("КонПериода", РабочаяДата());
Если  ВыбСклад.Выбран()=1 Тогда
  Зпр.УстановитьТекстовыйПараметр("ВыбСклад", ВыбСклад);
КонецЕсли;
Зпр.УстановитьТекстовыйПараметр("ВыбФирма", ПустФирма);
Зпр.УстановитьТекстовыйПараметр("ТипЦен", ТипЦен);
Если (Фильтр=1) и (Группа.Выбран()=1) Тогда
	Зпр.УложитьСписокОбъектов(Группа,"#STov","Номенклатура");
КонецЕсли;
ТовИтог = Зпр.ВыполнитьИнструкцию(ТекстЗ); 

Код

IF EXISTS(SELECT name FROM sysobjects WHERE name = 'NestLevel_SC196' AND type = 'FN') DROP FUNCTION NestLevel_SC196
GO

CREATE FUNCTION NestLevel_SC196 (@CurID char(9))
RETURNS int
AS
BEGIN
	DECLARE @MaxNestLv int -- максимальный уровень вложенности
	DECLARE @NestLv int -- счетчик

	SET @MaxNestLv = 3
	SET @NestLv = 0

	WHILE (@@ROWCOUNT > 0) OR (@NestLv <= @MaxNestLv) BEGIN
		SELECT TOP 1
			@CurID = parentid
		FROM SC196 (NOLOCK)
		WHERE id = @CurID

		IF @@ROWCOUNT = 0 BEGIN
			SET @NestLv = 0
			BREAK
		END
		ELSE IF @CurID = '     0   ' BEGIN
			SET @NestLv = @NestLv + 1
			BREAK
		END

		SET @NestLv = @NestLv + 1
	END

RETURN @NestLv
END