Как построить запрос для получения дерева иерархии справочника Номенклатура в 1С

[Odineski]

Нужен запрос на получение дерева иерархии Номенклатуры

[Odin — Одинэсник]

Dmitriy, привет!

Для получения дерева иерархии справочника Номенклатура в 1С (обычно это справочник с реквизитом «Родитель») можно написать запрос, который будет рекурсивно строить иерархию. В 1С запросах нет прямой поддержки рекурсии, но можно использовать обход иерархии через соединение с самим собой.

Пример запроса для получения дерева иерархии Номенклатуры с уровнями вложенности и полным путем:

1С (Код)

Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Номенклатура.Ссылка КАК Ссылка, | Номенклатура.Наименование КАК Наименование, | Номенклатура.Родитель КАК Родитель, | 0 КАК Уровень, | Номенклатура.Наименование КАК Путь |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | Номенклатура.Родитель = NULL ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ | Номенклатура_Дочерняя.Ссылка, | Номенклатура_Дочерняя.Наименование, | Номенклатура_Дочерняя.Родитель, | Родительская.Уровень + 1, | Родительская.Путь + ""/"" + Номенклатура_Дочерняя.Наименование |ИЗ | Справочник.Номенклатура КАК Номенклатура_Дочерняя | ВНУТРЕННЕЕ СОЕДИНЕНИЕ (&РодительскаяТаблица) КАК Родительская | ПО Номенклатура_Дочерняя.Родитель = Родительская.Ссылка"; РодительскаяТаблица = Новый ТаблицаЗначений; РодительскаяТаблица.Колонки.Добавить("Ссылка"); РодительскаяТаблица.Колонки.Добавить("Уровень"); РодительскаяТаблица.Колонки.Добавить("Путь"); // Заполняем начальные значения - корневые элементы Запрос.УстановитьПараметр("РодительскаяТаблица", РодительскаяТаблица); // В 1С нет прямой поддержки рекурсивных запросов, поэтому для обхода иерархии нужно делать это программно: // 1. Получить корневые элементы (где Родитель = NULL) // 2. Для каждого уровня делать запрос с фильтром по родителю из предыдущего уровня // 3. Собрать результаты в общую таблицу // Пример обхода иерархии программно: Функция ПолучитьДеревоНоменклатуры() Результат = Новый ТаблицаЗначений; Результат.Колонки.Добавить("Ссылка", Новый ОписаниеТипов("СправочникСсылка.Номенклатура")); Результат.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка")); Результат.Колонки.Добавить("Родитель", Новый ОписаниеТипов("СправочникСсылка.Номенклатура")); Результат.Колонки.Добавить("Уровень", Новый ОписаниеТипов("Число")); Результат.Колонки.Добавить("Путь", Новый ОписаниеТипов("Строка")); // Получаем корневые элементы ЗапросКорень = Новый Запрос; ЗапросКорень.Текст = "ВЫБРАТЬ | Ссылка, | Наименование, | Родитель, | 0 КАК Уровень, | Наименование КАК Путь |ИЗ | Справочник.Номенклатура |ГДЕ | Родитель = NULL"; Корни = ЗапросКорень.Выполнить().Выгрузить(); ПроцессироватьУровень(Корни, 0, Результат); Возврат Результат; КонецФункции Процедура ПроцессироватьУровень(ТекущиеЭлементы, Уровень, Результат) Для Каждого Строка Из ТекущиеЭлементы Цикл НоваяСтрока = Результат.Добавить(); НоваяСтрока.Ссылка = Строка.Ссылка; НоваяСтрока.Наименование = Строка.Наименование; НоваяСтрока.Родитель = Строка.Родитель; НоваяСтрока.Уровень = Уровень; НоваяСтрока.Путь = Строка.Путь; КонецЦикла; // Получаем дочерние элементы для текущих МассивРодителей = Новый Массив; Для Каждого Строка Из ТекущиеЭлементы Цикл МассивРодителей.Добавить(Строка.Ссылка); КонецЦикла; Если МассивРодителей.Количество() = 0 Тогда Возврат; КонецЕсли; ЗапросДети = Новый Запрос; ЗапросДети.Текст = "ВЫБРАТЬ | Ссылка, | Наименование, | Родитель, | &Уровень + 1 КАК Уровень, | Путь + ""/"" + Наименование КАК Путь |ИЗ | Справочник.Номенклатура |ГДЕ | Родитель В (&Родители)"; ЗапросДети.УстановитьПараметр("Родители", МассивРодителей); ЗапросДети.УстановитьПараметр("Уровень", Уровень); Дети = ЗапросДети.Выполнить().Выгрузить(); Если Дети.Количество() > 0 Тогда ПроцессироватьУровень(Дети, Уровень + 1, Результат); КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ |   Номенклатура.Ссылка КАК Ссылка, |   Номенклатура.Наименование КАК Наименование, |   Номенклатура.Родитель КАК Родитель, |   0 КАК Уровень, |   Номенклатура.Наименование КАК Путь |ИЗ |   Справочник.Номенклатура КАК Номенклатура |ГДЕ |   Номенклатура.Родитель = NULL   ОБЪЕДИНИТЬ ВСЕ   ВЫБРАТЬ |   Номенклатура_Дочерняя.Ссылка, |   Номенклатура_Дочерняя.Наименование, |   Номенклатура_Дочерняя.Родитель, |   Родительская.Уровень + 1, |   Родительская.Путь + ""/"" + Номенклатура_Дочерняя.Наименование |ИЗ |   Справочник.Номенклатура КАК Номенклатура_Дочерняя |   ВНУТРЕННЕЕ СОЕДИНЕНИЕ (&РодительскаяТаблица) КАК Родительская |   ПО Номенклатура_Дочерняя.Родитель = Родительская.Ссылка";   РодительскаяТаблица = Новый ТаблицаЗначений; РодительскаяТаблица.Колонки.Добавить("Ссылка"); РодительскаяТаблица.Колонки.Добавить("Уровень"); РодительскаяТаблица.Колонки.Добавить("Путь");   // Заполняем начальные значения - корневые элементы Запрос.УстановитьПараметр("РодительскаяТаблица", РодительскаяТаблица);   // В 1С нет прямой поддержки рекурсивных запросов, поэтому для обхода иерархии нужно делать это программно: // 1. Получить корневые элементы (где Родитель = NULL) // 2. Для каждого уровня делать запрос с фильтром по родителю из предыдущего уровня // 3. Собрать результаты в общую таблицу   // Пример обхода иерархии программно:   Функция ПолучитьДеревоНоменклатуры()     Результат = Новый ТаблицаЗначений;     Результат.Колонки.Добавить("Ссылка", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));     Результат.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"));     Результат.Колонки.Добавить("Родитель", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));     Результат.Колонки.Добавить("Уровень", Новый ОписаниеТипов("Число"));     Результат.Колонки.Добавить("Путь", Новый ОписаниеТипов("Строка"));       // Получаем корневые элементы     ЗапросКорень = Новый Запрос;     ЗапросКорень.Текст =     "ВЫБРАТЬ     |   Ссылка,     |   Наименование,     |   Родитель,     |   0 КАК Уровень,     |   Наименование КАК Путь     |ИЗ     |   Справочник.Номенклатура     |ГДЕ     |   Родитель = NULL";       Корни = ЗапросКорень.Выполнить().Выгрузить();       ПроцессироватьУровень(Корни, 0, Результат);       Возврат Результат; КонецФункции   Процедура ПроцессироватьУровень(ТекущиеЭлементы, Уровень, Результат)     Для Каждого Строка Из ТекущиеЭлементы Цикл         НоваяСтрока = Результат.Добавить();         НоваяСтрока.Ссылка = Строка.Ссылка;         НоваяСтрока.Наименование = Строка.Наименование;         НоваяСтрока.Родитель = Строка.Родитель;         НоваяСтрока.Уровень = Уровень;         НоваяСтрока.Путь = Строка.Путь;     КонецЦикла;       // Получаем дочерние элементы для текущих     МассивРодителей = Новый Массив;     Для Каждого Строка Из ТекущиеЭлементы Цикл         МассивРодителей.Добавить(Строка.Ссылка);     КонецЦикла;       Если МассивРодителей.Количество() = 0 Тогда         Возврат;     КонецЕсли;       ЗапросДети = Новый Запрос;     ЗапросДети.Текст =     "ВЫБРАТЬ     |   Ссылка,     |   Наименование,     |   Родитель,     |   &Уровень + 1 КАК Уровень,     |   Путь + ""/"" + Наименование КАК Путь     |ИЗ     |   Справочник.Номенклатура     |ГДЕ     |   Родитель В (&Родители)";       ЗапросДети.УстановитьПараметр("Родители", МассивРодителей);     ЗапросДети.УстановитьПараметр("Уровень", Уровень);       Дети = ЗапросДети.Выполнить().Выгрузить();       Если Дети.Количество() > 0 Тогда         ПроцессироватьУровень(Дети, Уровень + 1, Результат);     КонецЕсли; КонецПроцедуры

Объяснение:

— В 1С нет поддержки рекурсивных запросов, поэтому иерархию нужно обходить программно.
— Сначала выбираются корневые элементы (где Родитель = NULL).
— Затем для каждого уровня выбираются дочерние элементы, добавляются в результат с увеличением уровня вложенности.
— В результате получается таблица с полями: Ссылка, Наименование, Родитель, Уровень вложенности, Путь (полный путь по иерархии).

Если нужно просто получить иерархию с уровнями, без полного пути, можно убрать поле Путь.

Если справочник Номенклатура использует другой реквизит для связи с родителем, замените «Родитель» на нужное имя.

Там подробно описан обход иерархий и примеры запросов.

[Автор]

Сообщения