Управляемая форма 1С 8.2 (8.3) – работа с деревом значений и таблицей значений. Часть I (Основы)
Как известно, в платформе 1С 8.1 не составляло никакого труда связать дерево значений с табличным полем на форме, единственное, что при этом нужно было не забыть, так это СоздатьКолонки(). В управляемом приложении 1С 8.2 (8.3) сделать это не так просто, как кажется на первый взгляд. В данной статье речь пойдет о программном создании дерева значений (таблицы значений) на управляемой форме в управляемом приложении 1С
В данной статье речь пойдет о программном создании дерева значений (таблицы значений) на управляемой форме в управляемом приложении 1С 8.2. Так как работа с ДеревомЗначений и ТаблицейЗначений в данном контексте практически не отличается, в примере будет использоваться ДеревоЗначений, все то же самое за исключением иерархии применимо и к ТаблицеЗначений. Как известно, в платформе 1С 8.1 не составляло никакого труда связать дерево значений с табличным полем на форме, единственное что при этом нужно было не забыть, так это СоздатьКолонки(). В управляемом приложении 1С 8.2 сделать это не так просто, как кажется на первый взгляд. Обращаю внимание, что ДеревоЗначений доступно только на сервере, в толстом клиенте и внешнем соединение. В данных самой управляемой формы для моделирования дерева используется тип ДанныеФормыДерево. Для преобразования ДеревоЗначений ДанныеФормыДерево используются методы управляемой формы ЗначениеВРеквизитФормы() и РеквизитФормыВЗначение(). Для непосредственного отображения дерева используется элемент формы типа ТаблицаФормы, связанный через реквизит ПутьКДанным с реквизитом формы типа ДанныеФормыДерево. Если Вам не очень понятна вышеописанная связь объектов, не огорчайтесь, ниже рассмотрим практический пример, и все встанет на свои места.
Задача: Имеется дерево значений, необходимо отобразить его на управляемой форме.
Создаем новую внешнюю обработку, добавляем управляемую форму и создаем обработчик ПриСозданииНаСервере(). Никаких реквизитов и элементов “вручную” не добавляем, будем делать это программно.
&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) // Создание и заполнение "обычного" объекта прикладного типа ДеревоЗначений, // который будет отображен на управляемой форме ДеревоОбъект = Новый ДеревоЗначений; ДеревоОбъект.Колонки.Добавить("Узел", Новый ОписаниеТипов("Строка")); Для к1 = 1 По 3 Цикл СтрокаУ1 = ДеревоОбъект.Строки.Добавить(); СтрокаУ1.Узел = "Узел"+к1; Для к2 = 1 По 3 Цикл СтрокаУ2 = СтрокаУ1.Строки.Добавить(); СтрокаУ2.Узел = СтрокаУ1.Узел+к2; Для к3 = 1 По 3 Цикл СтрокаУ3 = СтрокаУ2.Строки.Добавить(); СтрокаУ3.Узел = СтрокаУ2.Узел+к3; КонецЦикла; КонецЦикла; КонецЦикла; // Создание Реквизита формы типа ДанныеФормыДерево МассивДобавляемыхРеквизитов = Новый Массив; МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Дерево", Новый ОписаниеТипов("ДеревоЗначений"))); Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, "Дерево")); КонецЦикла; ИзменитьРеквизиты(МассивДобавляемыхРеквизитов); // Преобразование объекта прикладного типа ДеревоЗначений // в реквизит управляемой формы (данные формы) ЗначениеВРеквизитФормы(ДеревоОбъект, "Дерево"); // Создание элемента формы типа ТаблицаФормы для отображения дерева ЭлементДерево = Элементы.Добавить("Дерево", Тип("ТаблицаФормы")); ЭлементДерево.ПутьКДанным = "Дерево"; ЭлементДерево.Отображение = ОтображениеТаблицы.Дерево; Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл НовыйЭлемент = Элементы.Добавить(Колонка.Имя, Тип("ПолеФормы"), ЭлементДерево); НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода; НовыйЭлемент.ПутьКДанным = "Дерево." + Колонка.Имя; КонецЦикла; КонецПроцедуры Источник
Табличную часть в дерево значений
В вашем случае лучше всего собрать дерево значений в цикле.
Запросом без постобработки, тоже не получится, т.к. он не умеет группировать по двум полям. Можно еще схемой СКД, но это уже перебор.
(3)Можно, только зачем это делать, если все равно нужна постобработка, что бы удалить верхний уровень? Если автор получает данные запросом, то окей. но я так понимаю он в модуле формы или объекта и данные уже прочитаны.
(6)это будет документ
С таблично часть
Номенклатура
Характеристика
упаковка
факт
учёт
И реквизитом документ расходная накладная
По кнопке заполнить заполняется тч вида который я описал выше
А дерево значений нужно для визуализации скажем тоесть номенклатура состоит из 5 упаковок пока я их все не отсканирую не смогу отгрузить товар, а чтобы видно было сколько отсканировано упаковок нужно дерево
(3)Можно в запросе объединить в кортеж поля номенклатура и характеристика и получить итог по этому кортежу тогда будет только одна группировка итогов — то что нужно, не?
(11) проще говоря это соединение в уникальном выражении нескольких полей
Вот у вас есть поле номенклатура и поле характеристика. из которых в запросе вы можете выразить одно поле
номенклатура.код + характеристика как уникальный_ключ
И по нему уже получить итог как по одному полю вместо того чтобы добавлять в выражение итоги по номенклатуру и характеристику. Что приведет к образованию двухуровневого дерева результата.
(12)
Вариант, но все равно красиво выгрузить в дерево результат не получится, ведь в дереве будет присутствовать уникальный ключ, а он не нужен в выводе на форму.
(13) Ну это как подумать, Чем комбинация Номенклатура.наименование + «: » + Характеристика , если формировать кортеж так, а не по коду, как я предложил сначала, в одной колонке, органолептически для пользователя — хуже чем номенклатура и характеристика в разных колонках ? 🙂
(15)а потом обратно если в дереве значений таком что то поправили как будете обращаться? например
—номенклатура характеристика
——————упаковка1 1 шт
——————упаковка2 2 шт
я взял и поменял на упаковка2 10 шт трудность наверное возникнет с обратным переводом в таблицу значений
(20) Во первых: что мешает иметь в дереве значений колонок больше чем отображается на форму?
Во вторых: распарсить кортеж точно зная разделитель тоже вроде бы не сложно. Тут сложно только то что там будут строковые представления, а не ссылки. Если для номенклатуры наименования скорее уникальны то для характеристик скорее не уникальны. И потом по этим представлениям фиг определишь нужный элемент но это не точно.
Так что надежнее в дереве иметь колонки ссылок номенклатуры и характеристик но не отображать их на форму если вам в этом дереве надо менять данные для сохранения их в базе.
(13) Вот пример как выглядит в дереве кортеж наименование продукции / спецификация в одном из инструментов
Для Каждого Строка Из ТЧ Цикл СтрокаТовара = Дерево.Строки.Найти(Строка.Номенклатура, "Номенклатура"); Если СтрокаТовара = Неопределено Тогда СтрокаТовара = Дерево.Строки.Добавить(); СтрокаТовара.Номенклатура = Строка.Номенклатура; КонецЕсли; СтрокаСтроки = Строка.Строки.Найти("Упаковка", Строка.Упаковка); Если СтрокаСтроки = Неопределено Тогда СтрокаСтроки = СтрокаТовара.Строки.Добавить(); СтрокаСтроки = Строка.Упаковка; КонецЕсли; КонецЦикла; это все написать — две минуты. На обсуждение потрачено намного больше. Вот так мы и получаем производительность труда как в Зимбабве, вместо того, чтобы сделать — болтаем.
(14) две минуты если бы не одно но
надо сразу по двум колонкам сделать
—Номенклатура характеристика
———Упаковка
// Процедура выгружает данные из таблицы значений в дерево значений // данные выгружаются только в таблицу со сходным набором реквизитов // // Параметры: // // КлючСтроки - имя колонки ТаблицыЗначений - уникальный идентификатор // КлючСвязи - имя колонки ТаблицыЗначений - указатель привязки к строке Дерева, // своего рода указатель на "Родителя" // Функция ВыгрузитьТаблицуЗначенийВДеревоЗначений(Таблица, КлючСтроки = "КлючСтроки", КлючСвязи = "КлючСвязи") Экспорт Дерево = Новый ДеревоЗначений; Для Каждого Колонка Из Таблица.Колонки Цикл Дерево.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения); КонецЦикла; Для Каждого СтрокаТаблицы Из Таблица Цикл СтрокаГруппировки = Дерево.Строки.Найти(СтрокаТаблицы[КлючСвязи], КлючСтроки,Истина); Если СтрокаГруппировки = Неопределено Тогда ЗаполнитьЗначенияСвойств(Дерево.Строки.Добавить(), СтрокаТаблицы); Иначе ЗаполнитьЗначенияСвойств(СтрокаГруппировки.Строки.Добавить(), СтрокаТаблицы); КонецЕсли; КонецЦикла; Возврат Дерево; КонецФункции //ВыгрузитьТаблицуЗначенийВДеревоЗначений()
&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) //. СтруктураДокументаПоказатьНаСервере(); КонецПроцедуры &НаСервере Процедура СтруктураДокументаПоказатьНаСервере() ТЗ=Объект.СтруктураДокумента.Выгрузить(); ДЗ=КФСервер.ВыгрузитьТаблицуЗначенийВДеревоЗначений(ТЗ); ЗначениеВРеквизитФормы(ДЗ,"ДЗСтруктураДокумента"); Элементы.ДЗСтруктураДокумента.Обновить(); Для каждого ИмяЭл Из СкрываемыеЭлементы Цикл Если ИмяЭл.Значение="" Тогда Продолжить; КонецЕсли; Эл=Элементы[ИмяЭл.Значение]; Эл.Видимость=Ложь; КонецЦикла; КонецПроцедуры
(17)это тоже только для одной колонке
—Номенклатура характеристика
———Упаковка
У меня сделано через СКД.
Я создал макет схему компановки данных и программно передавал в него данные ТЧ, на выходе получил готовое дерево, которое просто грузил в реквизит формы.
ПромДерево = Новый ДеревоЗначений; ТекОбъект = РеквизитФормыВЗначение("Объект"); НовыйСКД = ТекОбъект.ПолучитьМакет("МОЙ МАКЕТ СКД"); Настройки = НовыйСКД.НастройкиПоУмолчанию; НовыйОтбор = Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); //////// программно устанавливаю отборы в СКД если просто ТЧ передать то этого не надо НовыйОтбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(" "); НовыйОтбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке; НовыйОтбор.ПравоеЗначение = ВыделенныеСтроки; НовыйОтбор.Использование = Истина; //// ДанныеРасшифровкиСКД = Новый ДанныеРасшифровкиКомпоновкиДанных; КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; МакетКомпоновки = КомпоновщикМакета.Выполнить(НовыйСКД,Настройки, ДанныеРасшифровкиСКД,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ,ДанныеРасшифровкиСКД); ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений; ПроцессорВывода.УстановитьОбъект(ПромДерево); ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); ЗначениеВРеквизитФормы(ПромДерево, "РЕКВИЗИТ ФОРМЫ ДЕРЕВО"); Источник