Быстрая конвертация Таблицы значений в Дерево значений и обратно

Сложно себе представить ситуацию, когда бы понадобились подобные функции, но и тем не менее такой момент настал. Встала необходимость анализа уже собранных данных из "Дерева значений", а так же их доработка. После доработки данные нужно обратно загрузить в Дерево. Вот такая специфическая задача.

Глянув в интернете не нашел достойной реализации по этому представляю свой вариант ниже. 

Метод получения Таблицы значений из Дерева значений

// Преобразование ДеревоЗначений в ТаблицаЗначений
Функция ДеревоЗначенийВТаблицуЗначений(ДеревоЗначений, ДобавлятьКолонкуУровня = Истина) Экспорт
    
    ТаблицаЗначений = Новый ТаблицаЗначений;
    
    // Копируем колонки из дерева
    Для Каждого Колонка Из ДеревоЗначений.Колонки Цикл
        НоваяКолонка = ТаблицаЗначений.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения, Колонка.Заголовок);
        НоваяКолонка.Ширина = Колонка.Ширина;
    КонецЦикла;
    
    // Добавляем служебные колонки для восстановления структуры
    ТаблицаЗначений.Колонки.Добавить("ИдентификаторСтроки", Новый ОписаниеТипов("УникальныйИдентификатор"));
    ТаблицаЗначений.Колонки.Добавить("ИдентификаторРодителя", Новый ОписаниеТипов("УникальныйИдентификатор"));
    
    Если ДобавлятьКолонкуУровня Тогда
        ТаблицаЗначений.Колонки.Добавить("УровеньБаза", Новый ОписаниеТипов("Число"));
    КонецЕсли;
    
    // Рекурсивно обходим дерево и заполняем таблицу
    ОбойтиСтрокиДерева(ДеревоЗначений.Строки, ТаблицаЗначений, Неопределено, 0, ДобавлятьКолонкуУровня);
    
    Возврат ТаблицаЗначений;
    
КонецФункции

// Вспомогательная процедура для рекурсивного обхода дерева
Процедура ОбойтиСтрокиДерева(СтрокиДерева, ТаблицаЗначений, ИдентификаторРодителя, УровеньБаза, ДобавлятьКолонкуУровня)
    
    Для Каждого СтрокаДерева Из СтрокиДерева Цикл
        
        НоваяСтрока = ТаблицаЗначений.Добавить();
        ИдентификаторТекущейСтроки = Новый УникальныйИдентификатор;
        
        // Копируем данные из строки дерева
        Для Каждого Колонка Из ТаблицаЗначений.Колонки Цикл
            Если Колонка.Имя <> "ИдентификаторСтроки" 
                И Колонка.Имя <> "ИдентификаторРодителя" 
                И Колонка.Имя <> "УровеньБаза" Тогда
                НоваяСтрока[Колонка.Имя] = СтрокаДерева[Колонка.Имя];
            КонецЕсли;
        КонецЦикла;
        
        // Заполняем служебные поля
        НоваяСтрока.ИдентификаторСтроки = ИдентификаторТекущейСтроки;
        НоваяСтрока.ИдентификаторРодителя = ИдентификаторРодителя;
        
        Если ДобавлятьКолонкуУровня Тогда
            НоваяСтрока.УровеньБаза = УровеньБаза;
        КонецЕсли;
        
        // Рекурсивно обрабатываем дочерние строки
        Если СтрокаДерева.Строки.Количество() > 0 Тогда
            ОбойтиСтрокиДерева(СтрокаДерева.Строки, ТаблицаЗначений, ИдентификаторТекущейСтроки, УровеньБаза + 1, ДобавлятьКолонкуУровня);
        КонецЕсли;
        
    КонецЦикла;
    
КонецПроцедуры

Метод получения  Дерева значений из Таблицы значений

// ИСПРАВЛЕННАЯ функция преобразования ТаблицаЗначений в ДеревоЗначений
Функция ТаблицуЗначенийВДеревоЗначений(ТаблицаЗначений) Экспорт
    
    ДеревоЗначений = Новый ДеревоЗначений;
    
    // Копируем колонки (исключая служебные)
    Для Каждого Колонка Из ТаблицаЗначений.Колонки Цикл
        Если Колонка.Имя <> "ИдентификаторСтроки" 
            И Колонка.Имя <> "ИдентификаторРодителя" 
            И Колонка.Имя <> "УровеньБаза" Тогда
            НоваяКолонка = ДеревоЗначений.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения, Колонка.Заголовок);
            НоваяКолонка.Ширина = Колонка.Ширина;
        КонецЕсли;
    КонецЦикла;
    
    // Создаем соответствие для быстрого поиска строк по идентификатору
    СоответствиеСтрок = Новый Соответствие;
    
    // УБРАЛ сортировку - обрабатываем строки в исходном порядке!
    // Обрабатываем все строки в исходном порядке
    Для Каждого СтрокаТаблицы Из ТаблицаЗначений Цикл
        
        Если СтрокаТаблицы.ИдентификаторРодителя = Неопределено Тогда
            // Корневая строка
            НоваяСтрока = ДеревоЗначений.Строки.Добавить();
        Иначе
            // Ищем родительскую строку
            СтрокаРодитель = СоответствиеСтрок[СтрокаТаблицы.ИдентификаторРодителя];
            Если СтрокаРодитель <> Неопределено Тогда
                НоваяСтрока = СтрокаРодитель.Строки.Добавить();
            Иначе
                // Если родитель не найден, создаем как корневую
                НоваяСтрока = ДеревоЗначений.Строки.Добавить();
            КонецЕсли;
        КонецЕсли;
        
        // Копируем данные
        Для Каждого Колонка Из ДеревоЗначений.Колонки Цикл
            НоваяСтрока[Колонка.Имя] = СтрокаТаблицы[Колонка.Имя];
        КонецЦикла;
        
        // Сохраняем соответствие для поиска дочерних строк
        СоответствиеСтрок.Вставить(СтрокаТаблицы.ИдентификаторСтроки, НоваяСтрока);
        
    КонецЦикла;
    
    Возврат ДеревоЗначений;
    
КонецФункции

// УЛУЧШЕННАЯ альтернативная функция преобразования через уровни
Функция ТаблицуЗначенийВДеревоЗначенийПоУровням(ТаблицаЗначений) Экспорт
    
    ДеревоЗначений = Новый ДеревоЗначений;
    
    // Копируем колонки (исключая служебные)
    Для Каждого Колонка Из ТаблицаЗначений.Колонки Цикл
        Если Колонка.Имя <> "ИдентификаторСтроки" 
            И Колонка.Имя <> "ИдентификаторРодителя" 
            И Колонка.Имя <> "УровеньБаза" Тогда
            НоваяКолонка = ДеревоЗначений.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения, Колонка.Заголовок);
            НоваяКолонка.Ширина = Колонка.Ширина;
        КонецЕсли;
    КонецЦикла;
    
    // Проверяем наличие колонки УровеньБаза
    КолонкаУровня = ТаблицаЗначений.Колонки.Найти("УровеньБаза");
    Если КолонкаУровня = Неопределено Тогда
        // Если нет колонки уровня, используем основную функцию
        Возврат ТаблицуЗначенийВДеревоЗначений(ТаблицаЗначений);
    КонецЕсли;
    
    // УБРАЛ сортировку - сохраняем исходный порядок строк!
    
    // Используем соответствие для поиска строк по идентификатору
    СоответствиеСтрок = Новый Соответствие;
    
    Для Каждого СтрокаТаблицы Из ТаблицаЗначений Цикл
        
        УровеньБаза = СтрокаТаблицы.УровеньБаза;
        
        Если УровеньБаза = 0 Тогда
            // Корневая строка
            НоваяСтрока = ДеревоЗначений.Строки.Добавить();
        Иначе
            // Ищем родительскую строку по идентификатору
            СтрокаРодитель = СоответствиеСтрок[СтрокаТаблицы.ИдентификаторРодителя];
            
            Если СтрокаРодитель <> Неопределено Тогда
                НоваяСтрока = СтрокаРодитель.Строки.Добавить();
            Иначе
                // Если родитель не найден, создаем как корневую
                НоваяСтрока = ДеревоЗначений.Строки.Добавить();
            КонецЕсли;
        КонецЕсли;
        
        // Копируем данные
        Для Каждого Колонка Из ДеревоЗначений.Колонки Цикл
            НоваяСтрока[Колонка.Имя] = СтрокаТаблицы[Колонка.Имя];
        КонецЦикла;
        
        // Сохраняем соответствие для поиска дочерних строк
        СоответствиеСтрок.Вставить(СтрокаТаблицы.ИдентификаторСтроки, НоваяСтрока);
        
    КонецЦикла;
    
    Возврат ДеревоЗначений;
    
КонецФункции

Также отмечу, что решение внедрено в реальную базу, оно рабочее, так что пользуйтесь. )