Преобразование Структуры в Дерево значений и Дерева значений в Структуру. Управляемые формы

10.02.23

Разработка - Инструментарий разработчика

–

Достаточно много информации о том, как заполнить дерево значений из структуры, массива, и прочих входящих данных. А вот как дерево значений преобразовать обратно, не найти. Решил исправить этот недочёт. Держите велосипед.

Скачать исходный код

	Наименование	Файл	Версия	Размер
	Структура в Дерево значений, Дерево значений в Структуру: .epf 9,07Kb 5	.epf		9,07Kb	5	Скачать

Обработка - пример преобразования структуры в дерево значений и обратно из дерева значений в структуру на управляемых формах.

Храню настройки в структуре. И для их быстрого просмотра, а также для внесения мелких правок, не прибегая к форме настроек, изобрёл небольшую обработку.

Всё запилено в рекурсии.

Например, 3 уровня вложенности. При испытаниях использовал простые типы данных, но, думаю, могут быть любые ссылочные значения, которые без проблем передаются между сервером - клиентом.

Обработка является кодовой базой, для своего проекта. Кодил на платформе: 8.3.21.1393, код будет работать на любой платформе с управляемыми формами.

Пример кода, собирающего структуру по дереву значений.

#Область ДеревоВСтруктуру

//Дерево в структуру



&НаСервере
Процедура ПреобразоватьТаблицуВСтруктуру()
	ДеревоЗначений = РеквизитФормыВЗначение("Параметры");
	ВхДанные = ДеревоВСтруктуру(ДеревоЗначений);
	НастройкиЗаписать(ВхДанные);
КонецПроцедуры

&НаСервере
Функция ДобавитьЗапистьВПараметры(РезультатПараметры, СтрокаДЗ)
	ДобавленоВМассив = Ложь;
	Если		СтрокаДЗ.ТипЗначения = "Массив" Тогда
		Если ТипЗнч(РезультатПараметры) = Тип("Массив") Тогда
			РезультатПараметры.Добавить(Новый Массив);
			ДобавленоВМассив = Истина;
		Иначе
			РезультатПараметры.Вставить(СтрокаДЗ.Имя, Новый Массив);
		КонецЕсли;
	ИначеЕсли	СтрокаДЗ.ТипЗначения = "Структура" Тогда
		Если ТипЗнч(РезультатПараметры) = Тип("Массив") Тогда
			РезультатПараметры.Добавить(Новый Структура);
			ДобавленоВМассив = Истина;
		Иначе
			РезультатПараметры.Вставить(СтрокаДЗ.Имя, Новый Структура);
		КонецЕсли;
	ИначеЕсли	СтрокаДЗ.ТипЗначения = "Соответствие" Тогда
		Если ТипЗнч(РезультатПараметры) = Тип("Массив") Тогда
			РезультатПараметры.Добавить(Новый Соответствие);
			ДобавленоВМассив = Истина;
		Иначе
			РезультатПараметры.Вставить(СтрокаДЗ.Имя, Новый Соответствие);
		КонецЕсли;
	Иначе
		Если СтрокаДЗ.Родитель <> Неопределено И СтрокаДЗ.Родитель.ТипЗначения = "Массив" Тогда
			РезультатПараметры.Добавить(СтрокаДЗ.Значение);
			ДобавленоВМассив = Истина;
		Иначе
			РезультатПараметры.Вставить(СтрокаДЗ.Имя, СтрокаДЗ.Значение);
		КонецЕсли;
	КонецЕсли;
	Если ДобавленоВМассив Тогда
		УказательНаОбъектВСтруктуре = РезультатПараметры[РезультатПараметры.Количество()-1];
	Иначе
		УказательНаОбъектВСтруктуре = РезультатПараметры[СтрокаДЗ.Имя];
	КонецЕсли;
	Возврат УказательНаОбъектВСтруктуре;
КонецФункции

&НаСервере
Процедура ОбработатьВложенныеСтроки(УказательНаОбъектВСтруктуре, СтрокаДЗ)
	Если СтрокаДЗ.Строки.Количество() > 0 Тогда
		Для Каждого Подстрока Из СтрокаДЗ.Строки Цикл
			Если		СтрокаДЗ.ТипЗначения = "Массив" Тогда
				УказательНаПодОбъектВСтруктуре = ДобавитьЗапистьВПараметры(УказательНаОбъектВСтруктуре, Подстрока);
				ОбработатьВложенныеСтроки(УказательНаПодОбъектВСтруктуре, Подстрока);
			ИначеЕсли		СтрокаДЗ.ТипЗначения = "Структура"
						ИЛИ СтрокаДЗ.ТипЗначения = "Соответствие" Тогда
				УказательНаПодОбъектВСтруктуре = ДобавитьЗапистьВПараметры(УказательНаОбъектВСтруктуре, Подстрока);
				ОбработатьВложенныеСтроки(УказательНаПодОбъектВСтруктуре, Подстрока);
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
КонецПроцедуры

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


#КонецОбласти

Дерево значений ДеревоЗначений Преобразовать значение в дерево значений Преобразовать массив в Дерево значений Преобразовать Структуру в Дерево значений Конвертация Дерева значения в массив Конвертация Дерева значения в структуру.

–

См. также

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020 130851 709 390

758

Infostart PrintWizard - создание и редактирование печатных форм в 1С 8.3

Пакетная печать Печатные формы Инструментарий разработчика Программист Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 руб.

06.10.2023 9288 27 6

Infostart УДиФ: Управление данными и формами 1С

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 руб.

10.11.2023 5417 14 2

SALE! %

PowerTools

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

~~3600~~ 2880 руб.

14.01.2013 179899 1094 0

868

OneDebugger - инструмент для отладки кода без использования режима конфигуратора

Инструментарий разработчика Программист Платформа 1С v8.3 Платные (руб)

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

5400 руб.

17.05.2024 6056 13 12

Бустер Конвертации данных 3 (Infostart Toolkit)

Инструментарий разработчика Программист 8.3.14 1С:Конвертация данных Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

15000 руб.

07.10.2021 15427 3 12

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018 100339 240 97

299

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Программист Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019 18849 7 8