Как эффективно перебрать дерево значений в 1С: все методы с примерами кода

• 📊 Отчеты с иерархией — например, аналитика продаж по регионам → городам → магазинам
• 📦 Обработка вложенных справочников — категории номенклатуры, структуры подразделений
• 🔄 Обмен данными — когда нужно сохранить иерархию при экспорте/импорте
• 🛠 Настройки с группировкой — например, права доступа по ролям и подролям

Ключевое отличие от ТаблицаЗначений — наличие методов для работы с иерархией: ПолучитьУзел(), Уровень(), Родитель(). Однако стандартный перебор через Для Каждого... работает только с "плоским" списком строк, игнорируя вложенность.

⚠️ Внимание: В версиях 1С ниже 8.3.10 метод ПолучитьПуть() для деревьев значений работал некорректно при наличии узлов с одинаковыми именами на одном уровне. Перед использованием проверьте актуальность вашей платформы.

2. Классический способ: рекурсивный обход дерева

Самый очевидный и часто используемый метод — рекурсия. Его плюс в простоте реализации, минус — риск переполнения стека при глубокой вложенности (более 1000 уровней). Базовый алгоритм:

1. Берем корневой узел дерева
2. Обрабатываем его данные
3. Для каждого дочернего узла повторяем шаги 1-3

Пример кода для обхода всех узлов с выводом пути (имя родителя → имя узла):

Процедура ОбойтиДеревоРекурсивно(Узел, Путь = "")
Путь = Путь + " → " + Узел.Значение; // Формируем путь
Сообщить(Путь);

// Обрабатываем дочерние узлы
Если Узел.Родитель = Неопределено Тогда
Для Каждого ДочернийУзел Из Узел.Строки Цикл
ОбойтиДеревоРекурсивно(ДочернийУзел, Путь);
КонецЦикла;
Иначе
Если Узел.Уровень() < 5 Тогда // Ограничиваем глубину для примера
Для Каждого ДочернийУзел Из Узел.Строки Цикл
ОбойтиДеревоРекурсивно(ДочернийУзел, Путь);
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

// Запуск обхода с корня
ОбойтиДеревоРекурсивно(Дерево.ПолучитьУзел(Дерево.НайтиСтроки().Получить(0)));

Обратите внимание на проверку Узел.Уровень() < 5 — это защита от зацикливания при тестировании. В реальных задачах либо убирайте ограничение, либо реализуйте контроль максимальной глубины через параметр процедуры.

⚠️ Внимание: Рекурсия в 1С имеет ограничение на глубину стека (~3000 вызовов в 8.3.23). При обходе деревьев с большой вложенностью используйте итеративные методы (см. раздел 4).

3. Прямой обход с использованием метода ПолучитьПуть()

Платформа 1С предоставляет встроенный метод ПолучитьПуть(), который возвращает массив узлов от корня до текущего. Это упрощает навигацию, но требует аккуратности при обработке. Алгоритм:

1. Получаем все строки дерева через НайтиСтроки()
2. Для каждой строки получаем путь с помощью ПолучитьПуть()
3. Обрабатываем узлы по мере углубления в путь

Пример кода для вывода иерархии с отступами:

Процедура ОбойтиСПутем(Дерево)
Строки = Дерево.НайтиСтроки();
Для Инд = 0 По Строки.Количество() - 1 Цикл
ТекущаяСтрока = Строки.Получить(Инд);
Путь = ТекущаяСтрока.ПолучитьПуть();
Отступ = СтрПовтор("    ", Путь.Количество() - 1);
Сообщить(Отступ + ТекущаяСтрока.Значение);
КонецЦикла;
КонецПроцедуры

Преимущества метода:

• ✅ Не требует рекурсии — безопасен для глубоких деревьев
• ✅ Легко получать родительские узлы через индексы пути
• ✅ Хорошая производительность на деревьях до 50 000 узлов

Недостатки:

• ❌ Метод ПолучитьПуть() создает временные объекты, что увеличивает нагрузку на память
• ❌ Сложно модифицировать дерево "на лету" во время обхода

4. Итеративный обход с использованием стека (без рекурсии)

Для деревьев с большой вложенностью (>100 уровней) или при ограничениях на рекурсию используют обход в глубину со стеком. Этот метод имитирует рекурсию, но работает через цикл и явное управление стеком вызовов.

Алгоритм:

1. Создаем стек и помещаем в него корневой узел
2. Пока стек не пуст:
   • Берем узел из вершины стека
   • Обрабатываем его
   • Помещаем в стек дочерние узлы (в обратном порядке для корректной обработки)

Реализация на 1С:

Процедура ОбойтиСоСтеком(Дерево)
Стек = Новый Массив;
Корень = Дерево.ПолучитьУзел(Дерево.НайтиСтроки().Получить(0));
Стек.Добавить(Корень);

Пока Стек.Количество() > 0 Цикл
ТекущийУзел = Стек.Удалить(Стек.ВГраница());
Сообщить(СтрПовтор("  ", ТекущийУзел.Уровень()) + ТекущийУзел.Значение);

// Добавляем дочерние узлы в обратном порядке
СтрокиДетей = ТекущийУзел.Строки;
Для Инд = СтрокиДетей.Количество() - 1 По 0 Шаг -1 Цикл
Стек.Добавить(СтрокиДетей.Получить(Инд));
КонецЦикла;
КонецЦикла;
КонецПроцедуры

Особенности метода:

• 🔹 Подходит для деревьев любой глубины (ограничение только по памяти)
• 🔹 Позволяет прерывать обход на любом этапе (в отличие от рекурсии)
• 🔹 Требует ручного управления порядком обработки дочерних узлов

Создать массив для стека|Получить корневой узел дерева|Добавить корень в стек|Организовать цикл While|Обработать порядок дочерних узлов-->

5. Обход в ширину (по уровням)

Если вам нужно обрабатывать узлы послойно (сначала все узлы 1-го уровня, затем 2-го и т.д.), используйте обход в ширину с очередью. Этот метод полезен для:

• 📌 Построения визуальных иерархий (например, в отчетах)
• 📌 Вычисления агрегатных функций по уровням
• 📌 Поиска кратчайшего пути в дереве

Реализация через Очередь:

Процедура ОбойтиВШирину(Дерево)
Очередь = Новый Очередь;
Корень = Дерево.ПолучитьУзел(Дерево.НайтиСтроки().Получить(0));
Очередь.Поместить(Корень);

Пока Очередь.Количество() > 0 Цикл
ТекущийУзел = Очередь.Извлечь();
Сообщить(СтрПовтор("-", ТекущийУзел.Уровень()) + " " + ТекущийУзел.Значение);

// Добавляем дочерние узлы в очередь
Для Каждого ДочернийУзел Из ТекущийУзел.Строки Цикл
Очередь.Поместить(ДочернийУзел);
КонецЦикла;
КонецЦикла;
КонецПроцедуры

Производительность этого метода ниже, чем у обхода в глубину, зато он гарантирует обработку узлов строго по уровням. Это критично, например, при расчете иерархических скидок в торговле, где сначала нужно применить скидки верхнего уровня, а затем — дочерних.

6. Оптимизация и сравнение методов

Выбор метода обхода зависит от размера дерева, требований к производительности и задачи. Ниже сравнительная таблица с рекомендациями: