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