Полезности | Дерево значений | Обычные формы |

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

В данной статье я попробовал собрать наиболее полезны методы «борьбы» с этими казусами.

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

////////////////////////////////////////////////////////////////////////////////
// ПЕРЕМЕННЫЕ МОДУЛЯ

Перем ТекущееДерево;


// Функция возвращает дерево значений
//
Функция Получить_ДеревоЗначений()

Запрос = Новый Запрос;
Запрос.Текст = "";

РезультатЗапроса = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

Возврат РезультатЗапроса;

КонецФункции

// Процедура - выполняет заполнение дерева значений
//
Процедура ЗаполнитьДеревоЗначений()

// Очистить дерево перед заполнением
ДеревоЗначений.Строки.Очистить();

// Выборка данных (запрос)
ДеревоЗначений = Получить_ДеревоЗначений();

// Массив удаляемых колонок из дерева
МассивУдаляемыхКолонок = Новый Массив;
МассивУдаляемыхКолонок.Добавить("Колонка_1");
МассивУдаляемыхКолонок.Добавить("Колонка_2");

ОформитьДеревоЗначений(ДеревоЗначений, "Наименование", МассивУдаляемыхКолонок);

КонецПроцедуры


// Процедура - оформляет колонки дерева
//
Процедура ОформитьДеревоЗначений(Дерево, Наименование, МассивУдаляемыхКолонок = Неопределено)

ТекущееДерево = Дерево;

Если Наименование = "Наименование" Тогда

Дерево.Колонки.Колонка_Имя.Заголовок = "Красивый заголовок с пробелами";
Дерево.Колонки.Колонка_Имя.Ширина    = 15;

// Удаляем ненужные колонки
Если МассивУдаляемыхКолонок <> Неопределено Тогда
Удалить_Колонки_ДеревоЗначений(МассивУдаляемыхКолонок, Дерево);
КонецЕсли

КонецЕсли;

НастройкаФорматаКолонок(Дерево);
НастройкаРасположенияКолонок(ДеревоЗначений, "ДеревоЗначений");

КонецПроцедуры // ()


// Процедура - выполняет настройкку формата колонок в дереве
//
Процедура НастройкаФорматаКолонок(СтрокаДерево)

Дерево  = ТекущееДерево;
Строки  = ТекущееДерево.Строки;
Колонки = ТекущееДерево.Колонки;

Для Каждого стр из Строки Цикл
Для Каждого Колонка из Колонки Цикл
Если ТипЗнч(стр[Колонка.Имя]) = Тип("Число") Тогда
стр[Колонка.Имя] = Формат(стр[Колонка.Имя], "ЧДЦ=2");
КонецЕсли;
КонецЦикла;
НастройкаФорматаКолонок(стр);
КонецЦикла;

КонецПроцедуры


// Процедура - выполняет настройкку расположения колонок в дереве
//
Процедура НастройкаРасположенияКолонок(Дерево, Наименование)

Колонки = ТекущееДерево.Колонки;

Для Каждого Колонка Из Колонки Цикл
Тип_Число = Дерево.Колонки[Колонка.Имя].ТипЗначения.СодержитТип(Тип("Число"));
Тип_Дата  = Дерево.Колонки[Колонка.Имя].ТипЗначения.СодержитТип(Тип("Дата"));
Если Тип_Число Или Тип_Дата Тогда
Колонка.ГоризонтальноеПоложениеВШапке   = ГоризонтальноеПоложение.Центр;
Колонка.ГоризонтальноеПоложениеВКолонке = ГоризонтальноеПоложение.Центр;
Колонка.ГоризонтальноеПоложениеВПодвале = ГоризонтальноеПоложение.Центр;
КонецЕсли;
КонецЦикла;

КонецПроцедуры

// Процедура выполняет удаление ненужных колонок из дерева значений
//
Процедура Удалить_Колонки_ДеревоЗначений(Массив, Дерево)

Для Каждого Имя Из Массив Цикл
Дерево.Колонки.Удалить(Имя);
КонецЦикла;

КонецПроцедуры


Процедура ДеревоЗначенийПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

// Раскраска дерева по уровнях
Если ДанныеСтроки.Уровень() = 0 Тогда
ОформлениеСтроки.ЦветФона = WebЦвета.Циан;
ОформлениеСтроки.Шрифт = Новый Шрифт(,,Истина);
ИначеЕсли  ДанныеСтроки.Уровень() =  1 Тогда
ОформлениеСтроки.ЦветФона = WebЦвета.ЦианСветлый;
//ОформлениеСтроки.Шрифт = Новый Шрифт(,,Истина);
КонецЕсли;

// Виделим отрицательные значения в колонках
Для Каждого Колонка Из Элемент.Колонки Цикл
Если ТипЗнч(ДанныеСтроки[Колонка.Имя]) = Тип("Число") Тогда
Если  ДанныеСтроки[Колонка.Имя] < 0 Тогда
ОформлениеСтроки.Ячейки[Колонка.Имя].ЦветТекста = WebЦвета.Красный;
КонецЕсли;
ДанныеСтроки[Колонка.Имя] = Формат(ДанныеСтроки[Колонка.Имя], "ЧДЦ=2");
КонецЕсли;
КонецЦикла;

КонецПроцедуры