Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 07:18

Размещение колонок в несколько этажей

Автор lexey_fan, 13 ноя 2018, 22:53

0 Пользователей и 1 гость просматривают эту тему.

lexey_fan

Друзья подскажите пожалуйста:
Создаю табличное поле на УФ программно, помещаю туда данные из запроса, все работает, но нужно колонки в программно созданной таблице разместить в несколько "этажей", Можете носом ткнуть куда копнуть,
Собственно процедура которая создает ТП
&НаСервере
Процедура ТаблицаФорма(форма,гр="",тз,операция=1)
ИмяТЗ = "ТЗ";
если операция=1 тогда
МассивРеквизитов = Новый Массив;
МассивРеквизитов.Добавить(Новый РеквизитФормы(ИмяТЗ, Новый ОписаниеТипов("ТаблицаЗначений"), "", ИмяТЗ));
Для Каждого Колонка Из ТЗ.Колонки Цикл
МассивРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИмяТЗ, Колонка.Заголовок));
КонецЦикла;
этаформа.ИзменитьРеквизиты(МассивРеквизитов);
//Помещаем Элементы на форму
Таблица = форма.Элементы.Добавить(ИмяТЗ, Тип("ТаблицаФормы"),Гр);
Таблица.ПутьКДанным = ИмяТЗ;
Таблица.Отображение = ОтображениеТаблицы.Список;
Для Каждого Колонка Из ТЗ.Колонки Цикл
НовыйЭлемент = форма.Элементы.Добавить(ИмяТЗ + "_" + Колонка.Имя, Тип("ПолеФормы"), Таблица);
НовыйЭлемент.Вид = ВидПоляФормы.ПолеНадписи;
НовыйЭлемент.ПутьКДанным = ИмяТЗ + "." + Колонка.Имя;
НовыйЭлемент.высота =0;
КонецЦикла;
форма.ЗначениеВРеквизитФормы( ТЗ,ИмяТЗ);
иначе
форма.ЗначениеВРеквизитФормы(ТЗ,ИмяТЗ);
конецесли;
конецпроцедуры


Конфигурация Бухгалтерия предприятия, редакция 3.0 (3.0.65.72)

Заранее огромное спасибо!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск