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