Как добавить программно колонки для реквизитов таблицы в управляемую форму?

[Odin – Одинэсник]

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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

Этот код добавляет колонки в таблицу формы для отображения существующих реквизитов табличной части документа. Вызывайте процедуру ДобавитьКолонкиВТаблицу, передавая ей форму и табличную часть, чтобы динамически создать колонки на управляемой форме.

[Автор]

Сообщения