Задача по преобразованию дерева значений в таблицу значений встречается не так чтобы часто, но тем не менее встречается и я привожу в этой статье свое решение этой задачи.
Дерево значений в таблицу значений
Дано: дерево значений (2 колонки) и таблица значений (4 колонки). Две дополнительные колонки в таблице значений нужны для обратного преобразования, если оно не требуется то и колонки не нужны.
Код выглядит так:
| 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 | &НаСервере Процедура ВТЗНаСервере() тДерево = РеквизитФормыВЗначение("Дерево"); тТаблица = РеквизитФормыВЗначение("Таблица"); ПреобразоватьВТЗРекурсия(тДерево, тТаблица, Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); тДерево.Строки.Очистить(); ЗначениеВРеквизитФормы(тТаблица, "Таблица"); ЗначениеВРеквизитФормы(тДерево, "Дерево"); КонецПроцедуры &НаСервере Процедура ПреобразоватьВТЗРекурсия(тДерево, тТаблица, ГУИД) Для Каждого тСтр Из тДерево.Строки Цикл нСтр = тТаблица.Добавить(); нСтр.Колонка1 = тСтр.Колонка1; нСтр.Колонка2 = тСтр.Колонка2; нСтр.Родитель = ГУИД; нСтр.ГУИД = Новый УникальныйИдентификатор(); Если тСтр.Строки.Количество()>0 Тогда ПреобразоватьВТЗРекурсия(тСтр, тТаблица, нСтр.ГУИД); КонецЕсли; КонецЦикла; КонецПроцедуры |
В колонку «ГУИД» таблицы значений записывается уникальный идентификатор строки (он просто генерируется), а в колонку «Родитель» записывается уникальный идентификатор строки-родителя (для строк верхнего уровня — нулевой уникальный идентификатор).
Таблица значений в дерево значений
Обратное преобразование производится при помощи двух лишних колонок («ГУИД» и «Родитель») если из таблицы значений была удалена какая-то строка, то все подчиненные ей строки также будут удалены.
Код выглядит так:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | &НаСервере Процедура ВДЗНаСервере() тДерево = РеквизитФормыВЗначение("Дерево"); тТаблица = РеквизитФормыВЗначение("Таблица"); ПреобразоватьВДЗРекурсия(тДерево, тТаблица, Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); тТаблица.Очистить(); ЗначениеВРеквизитФормы(тТаблица, "Таблица"); ЗначениеВРеквизитФормы(тДерево, "Дерево"); КонецПроцедуры &НаСервере Процедура ПреобразоватьВДЗРекурсия(тДерево, тТаблица, ГУИД) тПоиск = Новый Структура("Родитель", ГУИД); тМассив = тТаблица.НайтиСтроки(тПоиск); Для Каждого тСтр Из тМассив Цикл нСтр = тДерево.Строки.Добавить(); нСтр.Колонка1 = тСтр.Колонка1; нСтр.Колонка2 = тСтр.Колонка2; ПреобразоватьВДЗРекурсия(нСтр, тТаблица, тСтр.ГУИД); КонецЦикла; КонецПроцедуры |
Работу приведенного выше кода можно посмотреть в маленькой обработке.
На этом все, надеюсь статья Вам помогла.
Если Вы нашли ошибку или неточность, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.
(оценок: 22, средняя оценка: 4,23 из 5)
Загрузка... 
Отличное решение. Просто, коротко и по делу
Смотрел другие варианты — много текста, а результат тот же.
И спасибо автору, мне пригодилось.
Спасибо автору, пригодилось!
отличная мысль — реализация через ГУИД. спасибо автору
Спасибо
Спасибо.
Большое спасибо, очень помогло!
Из обувной коробки, четырёх крышек для банок и двух спиц можно сделать троллейбус. Но зачем???