Здравствуйте. Пытаюсь получить данные из справочника номенклатура при помощи прямого запроса:
           RS2 = СоздатьОбъект("ODBCRecordset");
           RS2.УстБД1С();
           ТекстЗапроса = "
           |SELECT
           |    Спр.ID as [ТМЦ $Справочник.Номенклатура]
           |FROM
           |    $Справочник.Номенклатура as Спр
           |WHERE
           |    Спр.IsFolder = 1 AND
           |    Спр.IsMark = 0
           |    " + ?( ВыбТМЦ.Выбран()=1, "AND Спр.ID = :ВыбТМЦ1", "") + "";
           RS2.УстановитьТекстовыйПараметр("ВыбТМЦ1", ВыбТМЦ);
           ТЗ = RS2.ВыполнитьИнструкцию(ТекстЗапроса);
           ТЗ.ВыбратьСтроки();
           Пока ТЗ.ПолучитьСтроку() = 1 Цикл
                 ТМЦ = ТЗ.ТМЦ;
                 ПризнакГруппы = ТМЦ.ЭтоГруппа();
                 Если ПризнакГруппы = 1 Тогда
                       Если ТМЦ.Уровень() = 1 Тогда      
                             Таб.ВывестиСекцию("ТМЦГруппа1");
                       ИначеЕсли ТМЦ.Уровень() = 2 Тогда
                             Таб.ВывестиСекцию("ТМЦГруппа2");
                       ИначеЕсли ТМЦ.Уровень() = 3 Тогда
                             Таб.ВывестиСекцию("ТМЦГруппа3");
                       КонецЕсли;
                 КонецЕсли;
           КонецЦикла;
аналогично этому из 1С:
           ЗапросТМЦ = СоздатьОбъект("Запрос");
           
           ТекстЗапроса =
           "//{{ЗАПРОС(Сформировать)
           |ТМЦ = Справочник.Номенклатура.ТекущийЭлемент;
           |Условие(ТМЦ в СписокТМЦ);
           |Группировка ТМЦ упорядочить по ТМЦ.Наименование;
           |"//}}ЗАПРОС
           ;
           // Если ошибка в запросе, то выход из процедуры
           Если ЗапросТМЦ.Выполнить(ТекстЗапроса) = 0 Тогда
                 Возврат;
           КонецЕсли;
           
           Пока ЗапросТМЦ.Группировка(1) = 1 Цикл
                 ТМЦ = ЗапросТМЦ.ТМЦ;
                 ПризнакГруппы = ТМЦ.ЭтоГруппа();
                 Если ПризнакГруппы = 1 Тогда
                       Если ТМЦ.Уровень() = 1 Тогда      
                             Таб.ВывестиСекцию("ТМЦГруппа1");
                       ИначеЕсли ТМЦ.Уровень() = 2 Тогда
                             Таб.ВывестиСекцию("ТМЦГруппа2");
                       ИначеЕсли ТМЦ.Уровень() = 3 Тогда
                             Таб.ВывестиСекцию("ТМЦГруппа3");
                       КонецЕсли;
                 КонецЕсли;
           КонецЦикла;      

Получается что попала, во первых выдает данные совершенно в другом порядке, не по иерархии как в 1С, а во вторых как реализовать Условие(ТМЦ в СписокТМЦ(папки)); я пробовал IN (SELECT Val FROM #СписокТМЦ), но не получается выдает только элементы. Если возможно подскажите как. Заранее спасибо

Dmitry The Wing писал(а) 14. Марта 2012 :: 04:09:

State 42000, native 156, message [Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword 'WHEN'

Ivanych писал(а) 14. Марта 2012 :: 05:16:

CASE WHEN Спр3.id IS NOT NULL THEN 4 ELSE
	CASE WHEN Спр2.id IS NOT NULL THEN 3 ELSE
		CASE WHEN Спр1.id IS NOT NULL THEN 2 ELSE 1 END
	END
END AS Уровень 

Однако, может оказаться, что придется использовать функции типа IIF, IFNULL или соседние...

CASE WHEN Спр3.id IS NOT NULL THEN 4
     WHEN Спр2.id IS NOT NULL THEN 3
     WHEN Спр1.id IS NOT NULL THEN 2
     ELSE 1 END AS Уровень

Вообще, где-то валялась sql функция, возвращающая уровень, цеплять кучу таблиц неоптимально как-то.

А, нашёл:

CREATE FUNCTION ufn_getLevelSpr (@IDSpr Char(9))
RETURNS  Int
BEGIN
DECLARE @R Char(9)
DECLARE @Lev Int
SET @Lev = 0
SET @R = @IDSpr
WHILE (@R <> $ПустойИД) AND (@R IS NOT NULL)
BEGIN
    SELECT
    @R = PARENTID, @Lev = @Lev + 1
    FROM $Справочник.Номенклатура
    WHERE
    (ID = @R)
END
RETURN @Lev
end      
GO
set nocount on

© не моё

Я бы порекомендовал несколько другой подход.
Накидал простенький пример:

Процедура ВыводСтроки(ИТЗ)
	ИТЗ.Сортировать("-__ЭтоГруппа__,Имя");
	ИТЗ.ВыбратьСтроки();
	Пока ИТЗ.ПолучитьСтроку() = 1 Цикл
		Если ИТЗ.__ЭтоГруппа__=1 Тогда
			//Выводим строку группы
			Сообщить("Группа: "+ИТЗ.Товар+" Элементов: "+ИТЗ.Количество);
			//Обходим дерево дальше
			_тз = ИТЗ.ТЗПотомки;
			ВыводСтроки(_тз);
		Иначе
			Прервать;
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

//*******************************************
Процедура Сформировать()
	ИТЗ = СоздатьОбъект("ИндексированнаяТаблица");
	ТекстЗапроса="
	|SELECT СпрНом.ID [Товар $Справочник.Номенклатура]
	|	,СпрНом.ParentID [Товар_Родитель $Справочник.Номенклатура]
	|	,СпрНом.Descr Имя
	|	,1 Количество
	|FROM
	|	$Справочник.Номенклатура СпрНом
	|WHERE IsFolder=2
	|";
	Таб = СоздатьОбъект("Таблица");
	ИТЗ = глРС_Аддон.ВыполнитьИнструкцию(ТекстЗапроса, ИТЗ, 1);
	ИТЗ.Группировать("индТовар: &*Товар","Количество");
	ВыводСтроки(ИТЗ);
КонецПроцедуры
 

Salimbek писал(а) 14. Марта 2012 :: 07:35:

А вы не могли бы показать на моем примере более подробно. А то я чето не очень пойму

Salimbek писал(а) 14. Марта 2012 :: 11:31:

Классно, все работает. Спасибо Salimbek