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

10.02.23

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

–

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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


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

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

–

См. также

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

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

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

10000 руб.

02.09.2020 125045 683 389

732

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

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

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

18000 руб.

06.10.2023 7788 24 6

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

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

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

10000 руб.

10.11.2023 4292 12 2

SALE! %

PowerTools

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

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

~~3600~~ 2280 руб.

14.01.2013 178674 1084 0

862

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

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

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

5000 руб.

07.02.2018 99648 239 97

298

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

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

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

3000 руб.

27.08.2019 18402 6 8

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

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

В процессе работы в 1С часто возникает потребность получить данные из другой базы. Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019 23861 16 15