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

10.02.23

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

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Структура в Дерево значений, Дерево значений в Структуру: .epf 9,07Kb 6	6	Скачать (1 SM)	Купить за 1 850 руб.

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

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

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

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

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

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

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

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



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

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

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

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


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

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

+3 –

См. также

SALE! %

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

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

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

~~12000~~ 10000 руб.

02.09.2020 161263 893 399

872

Database Compression Tool (DCT) Универсальный инструмент сжатия, свертки и конвертации баз данных 1С

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

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP и т.д.). Поддерживаются управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя.

8400 руб.

20.08.2024 8563 66 29

Infostart PrintWizard (конструктор печатных форм)

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

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

22200 руб.

06.10.2023 15682 39 8

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

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

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

9360 руб.

17.05.2024 23840 70 45

119

SALE! %

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

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

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

~~15000~~ 10000 руб.

10.11.2023 10662 38 27