Заполнение дерева из табличных данных без рекурсии

Идея заложена в неком контейнере, выпрямителе лесинки иерархических данных в двумерный массив. В моём варианте этим контейнером служит соответствие. Создаем контейнер, извлекаем данне запросом, сортируя по идентификатору. Если данные собирались в таблицу с помощью рекурсивной процедуры/функции, то узлы иерархии создаются раньше элемента, соответственно идентификатор элемента всегда старше родительского узла.

Дальше начинаем создавать дерево заполняя его свойство строки, новыми строками и параллельно вносим узлы в соответствие. Таким образом когда мы находимся на очередном элементе в соответствии можно найти родительскую строку дерева. В итоге выстраивается дерево.

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

        Запрос.УстановитьПараметр("Ссылка", Документ.Ссылка);
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Документ", "Документ." + Документ.Метаданные().Имя + "." + ИмяТабЧасти);
    
        Результат = Запрос.Выполнить();

        ВыборкаДетальныеЗаписи = Результат.Выбрать();

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                //определяем каталог или элемент и для него определяем ветвь служащую родителем для элемента
                Если ВыборкаДетальныеЗаписи[ИмяРодительскгоПоля] = 0 Тогда
                        Ветвь = Древо;
                Иначе
                        Ветвь = КонвертДляСтрок.Получить(ВыборкаДетальныеЗаписи[ИмяРодительскгоПоля]);
                КонецЕсли;
                НовСтрокаДерева = Ветвь.Строки.Добавить();
                ЗаполнитьЗначенияСвойств(НовСтрокаДерева, ВыборкаДетальныеЗаписи);
                //вносим строку с каталогом (узлом) в двумерный список (Соответствие)
                Если ВыборкаДетальныеЗаписи[ИмяПризнакаКаталога] Тогда
                        КонвертДляСтрок.Вставить(ВыборкаДетальныеЗаписи[ИмяПоляСортировки], НовСтрокаДерева);
                КонецЕсли;
        КонецЦикла;
        Возврат Древо;
КонецФункции // ЗапросТаблицыПреобразованиеВДерево()