0
vasmedv
16.05.14
✎
07:48
|
//МассивДобавляемыхРеквизитов= Новый Массив;
//
//Для каждого Колонка Из Результат.Колонки Цикл
// ИмяКолонки= Колонка.Имя;
// ЗаголовокКолонки =Колонка.Имя;
// Если ИмяКолонки <> "Уровень" и ИмяКолонки <> "СтатусТранзакции" Тогда
// НоваяКолонка=Новый РеквизитФормы(ИмяКолонки,Колонка.ТипЗначения,//Новый ОписаниеТипов(МассивТипов),
// "Отчет.Результат",ЗаголовокКолонки);
// МассивДобавляемыхРеквизитов.Добавить(НоваяКолонка);
// КонецЕсли;
//Конеццикла;
//
//ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);
//Для Каждого ТекЭлемент Из МассивДобавляемыхРеквизитов Цикл
// ДобавитьКолонку("Результат", ТекЭлемент.Имя, ТекЭлемент.Заголовок);
//КонецЦикла;
//Отчет.Результат.Загрузить(Результат);
&НаСервере
Процедура ДобавитьКолонку(ИмяТаблицы, ИмяКолонки, ЗаголовокКолонки)
НоваяКолонка = Элементы.Добавить(ИмяТаблицы + ИмяКолонки, Тип("ПолеФормы"), Элементы.Результат);
НоваяКолонка.Заголовок = ЗаголовокКолонки;
НоваяКолонка.ПутьКДанным = "Отчет."+ИмяТаблицы + "." + ИмяКолонки;
НоваяКолонка.Вид = ВидПоляФормы.ПолеНадписи;
КонецПроцедуры
|
|
3
vasmedv
16.05.14
✎
08:20
|
Единственная проблема, если через кнопку сформировать делать, то ИзменитьРеквизиты(МассивДобавляемыхРеквизитов)
второй раз не сработает. Надо проверку ставить, есть ли уже такие реквизиты и колонки
|
|