Дерево подсистем записать. Сохраняет настройки размещения, измененные пользователем в табличную часть варианта отчета.
// Сохраняет настройки размещения, измененные пользователем в табличную часть варианта отчета.
//
// Параметры:
// ВариантОбъект - СправочникОбъект.ВариантыОтчетов, ДанныеФормыСтруктура - Объект варианта отчета.
// ИзмененныеПодсистемы - Массив - Массив из строк дерева значений, содержащий измененные настройки размещения.
//
Процедура ДеревоПодсистемЗаписать(ВариантОбъект, ИзмененныеПодсистемы) Экспорт
Для Каждого Подсистема Из ИзмененныеПодсистемы Цикл
СтрокаТабличнойЧасти = ВариантОбъект.Размещение.Найти(Подсистема.Ссылка, "Подсистема");
Если СтрокаТабличнойЧасти = Неопределено Тогда
// Необходимо зарегистрировать настройку размещения варианта безусловно (даже флажок Использование отключен)
// - только тогда эта настройка заменит предопределенную (из неразделенного справочника).
СтрокаТабличнойЧасти = ВариантОбъект.Размещение.Добавить();
СтрокаТабличнойЧасти.Подсистема = Подсистема.Ссылка;
КонецЕсли;
Если Подсистема.Использование = 0 Тогда
СтрокаТабличнойЧасти.Использование = Ложь;
ИначеЕсли Подсистема.Использование = 1 Тогда
СтрокаТабличнойЧасти.Использование = Истина;
Иначе
// Оставить как есть
КонецЕсли;
Если Подсистема.Важность = ПредставлениеВажный() Тогда
СтрокаТабличнойЧасти.Важный = Истина;
СтрокаТабличнойЧасти.СмТакже = Ложь;
ИначеЕсли Подсистема.Важность = ПредставлениеСмТакже() Тогда
СтрокаТабличнойЧасти.Важный = Ложь;
СтрокаТабличнойЧасти.СмТакже = Истина;
Иначе
СтрокаТабличнойЧасти.Важный = Ложь;
СтрокаТабличнойЧасти.СмТакже = Ложь;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
УстановитьУсловноеОформлениеДереваПодсистем (БСП)
ДеревоПодсистемСформировать (БСП)
ДеревоПодсистемИспользованиеПриИзменении (БСП)
ДеревоПодсистемВажностьПриИзменении (БСП)