Содержание:
Очень часто пользователи для более удобной работы просят вывести таблицу в виде дерева, например, когда отгружается одна и та же номенклатурная позиция, но с разными характеристиками. Чтобы не растягивался документ, можно вывести всю номенклатуру документа, а если необходимо посмотреть с какими характеристиками, мы просто жмем плюсик и раскрыть список.
Данная статья посвящена тому, какие есть способы преобразовать обычную табличную часть в структуру данных в виде дерева.
Для примера возьмем документ "Рейс" в конфигурации "ТМС логистика". В документе на закладке "Маршрут" выводиться информация о виде операции (погрузка, выгрузка) и адрес.
Пример документа «ТМС логистика»
Для реализации задачи в реквизиты формы добавляем реквизит "ДеревоМаршрутов" типа "ДеревоЗначений" и создаем в нем колонки, полностью повторяющие табличную часть. После этого надо написать процедуру по заполнению "ДереваМаршрутов".
В этой статье будут рассмотрены только варианты заполнения "ДереваЗначений", с одним уровнем вложенности. Обработка выбора, добавления и удаления строк и сохранения – это тема, достойная отдельной статьи, но, по сути, там нет такой вариативности, какую обеспечивает заполнение "ДереваЗначений".
1. Подготовка "дерева" через формирование запроса базы данных.
Данный метод подходит, если необходимо сделать группировку только по одному полю. Например, если нам необходимо сгруппировать данные только по полю "Операция".
Формируем запрос:
Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТЗМаршрут",объект.Маршрут.Выгрузить()); Запрос.Текст = "ВЫБРАТЬ | упРейсМаршрут.НомерСтроки КАК НомерСтроки, | упРейсМаршрут.ЗаданиеНаПеревозкуГруза КАК ЗаданиеНаПеревозкуГруза, | упРейсМаршрут.Операция КАК Операция, | упРейсМаршрут.Адрес КАК Адрес, | упРейсМаршрут.НомерЗвена КАК НомерЗвена |ПОМЕСТИТЬ ВТМаршрут |ИЗ | &ТЗМаршрут КАК упРейсМаршрут |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ВТМаршрут.НомерСтроки КАК НомерСтрокиТЧ, | ВТМаршрут.ЗаданиеНаПеревозкуГруза КАК ЗаданиеНаПеревозкуГруза, | ВТМаршрут.Операция КАК Операция, | ВТМаршрут.Адрес КАК Адрес, | ВТМаршрут.НомерЗвена КАК НомерЗвена |ИЗ | ВТМаршрут КАК ВТМаршрут |ИТОГИ ПО | Операция";
РезультатЗапроса = Запрос.Выполнить();
ПромежуточноеДерево = РезультатЗапроса.Выгрузить(ОбходРезультатазапроса.ПоГруппировкам); ЗначениеВРеквизитФормы(ПромежуточноеДерево,"ДеревоМаршрутов"); |
В результате формирования запроса базы данных получаем дерево типов данных вида:
2. Подготовка "дерева" через СКД в 1С
Данный метод подходит, если надо сделать группировку по нескольким полям. Например, нам необходимо сгруппировать данные по полям "Операция" и "Адрес".
Создаем схему компоновки данных, где на закладке "Настройка" указываем группировку по нескольким полям. В данном примере 2 поля:
Схема компоновки данных
Затем пишем вызов СКД в 1С:
//получаем схему СКД ТекОбъект = РеквизитФормыВЗначение("Объект"); НовыйСКД = ТекОбъект.ПолучитьМакет("МакетСКДМаршрут"); //инициализируем настройки СКД Настройки = НовыйСКД.НастройкиПоУмолчанию; ДанныеРасшифровкиСКД = Новый ДанныеРасшифровкиКомпоновкиДанных; КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; МакетКомпоновки = КомпоновщикМакета.Выполнить(НовыйСКД,Настройки, ДанныеРасшифровкиСКД,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); //передаем данные в СКД ВнешниеДанные = Новый Структура("Маршруты",Объект.Маршрут.Выгрузить()); ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,ВнешниеДанные,ДанныеРасшифровкиСКД); //подготавливаем данные для получения из СКД ПромежуточноеДерево = Новый ДеревоЗначений; ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений; ПроцессорВывода.УстановитьОбъект(ПромежуточноеДерево); ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); //передаем полученное дерево на форму ЗначениеВРеквизитФормы(ПромежуточноеДерево, "ДеревоМаршрутов"); |
В результате выполнения мы получаем базу данных в виде дерева, группируемого по двум полям:
Таблица в виде дерева
Специалист компании «Кодерлайн»
Максим Федоров