HelpF.pro

Форма ~ Добавление элементов на форму [Команда, Кнопка, ТаблицаЗначений]

Код 1C v 8.2 УП
 &НаСервере
Процедура ДобавитьНаСервере()

ДобавляемыеРеквизиты = Новый Массив;
Реквизит1 = Новый РеквизитФормы("Таб", Новый ОписаниеТипов("ТаблицаЗначений"), , "Таблица", Истина);
ДобавляемыеРеквизиты.Добавить(Реквизит1);
ИзменитьРеквизиты(ДобавляемыеРеквизиты);

ДобавляемыеРеквизиты = Новый Массив;
Реквизит2 = Новый РеквизитФормы("Кол", Новый ОписаниеТипов("Строка"),"Таб" , "Колонка", Истина);
ДобавляемыеРеквизиты.Добавить(Реквизит2);
ИзменитьРеквизиты(ДобавляемыеРеквизиты);
ТаблицаФормы = ЭтаФорма.Элементы.Добавить("Таблица", Тип("ТаблицаФормы"), ЭтаФорма);
ТаблицаФормы.ПутьКДанным = "Таб";

Колонка = ЭтаФорма.Элементы.Добавить("Колонка", Тип("ПолеФормы"), ТаблицаФормы);
Колонка.ПутьКДанным = "Таб.Кол";

КонецПроцедуры


еще
Код 1C v 8.2 УП
 	 //Добавим кнопки и команды
//Команды
Кмд = ЭтаФорма.Команды.Добавить("Выгрузить");
Кмд.Действие = "Выгрузить";
Кмд.Заголовок = "Выгрузить в файл";

КмдЗ = ЭтаФорма.Команды.Добавить("Загрузить");
КмдЗ.Действие = "Загрузить";
КмдЗ.Заголовок = "Загрузить из файла";

КмдЗ = ЭтаФорма.Команды.Добавить("ЗаписатьВДокумент");
КмдЗ.Действие = "ЗаписатьВДокумент";
КмдЗ.Заголовок = "Записать в документ";

//Добавляем новую кнопку
Горизонт = ЭтаФорма.Элементы.Добавить("Горизонт", Тип("ГруппаФормы"), ЭтаФорма);
Горизонт.Вид = ВидГруппыФормы.ОбычнаяГруппа;

// Элемент2.ИмяКоманды = "Выгрузить";


//Добавляем новую кнопку
Элемент2 = ЭтаФорма.Элементы.Добавить("Выгрузить", Тип("КнопкаФормы"), Горизонт);
Элемент2.Вид = ВидКнопкиФормы.ОбычнаяКнопка;
Элемент2.ИмяКоманды = "Выгрузить";

//Добавляем новую кнопку
Элемент = ЭтаФорма.Элементы.Добавить("Загрузить", Тип("КнопкаФормы"), ЭтаФорма);
Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка;
Элемент.ИмяКоманды = "Загрузить";

//Добавляем новую кнопку
Элемент = ЭтаФорма.Элементы.Добавить("ЗаписатьВДокумент", Тип("КнопкаФормы"), ЭтаФорма);
Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка;
Элемент.ИмяКоманды = "ЗаписатьВДокумент";


ТаблицаФормы = Элементы.Добавить("ф__ТЗ", Тип("ТаблицаФормы"));
ТаблицаФормы.ПутьКДанным = "ТЗ";

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq82/view/1534.html