|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
&НаСервере Процедура ДобавитьНаСервере() ДобавляемыеРеквизиты = Новый Массив; Реквизит1 = Новый РеквизитФормы("Таб", Новый ОписаниеТипов("ТаблицаЗначений"), , "Таблица", Истина); ДобавляемыеРеквизиты.Добавить(Реквизит1); ИзменитьРеквизиты(ДобавляемыеРеквизиты); ДобавляемыеРеквизиты = Новый Массив; Реквизит2 = Новый РеквизитФормы("Кол", Новый ОписаниеТипов("Строка"),"Таб" , "Колонка", Истина); ДобавляемыеРеквизиты.Добавить(Реквизит2); ИзменитьРеквизиты(ДобавляемыеРеквизиты); ТаблицаФормы = ЭтаФорма.Элементы.Добавить("Таблица", Тип("ТаблицаФормы"), ЭтаФорма); ТаблицаФормы.ПутьКДанным = "Таб"; Колонка = ЭтаФорма.Элементы.Добавить("Колонка", Тип("ПолеФормы"), ТаблицаФормы); Колонка.ПутьКДанным = "Таб.Кол"; КонецПроцедуры |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
//Добавим кнопки и команды //Команды Кмд = ЭтаФорма.Команды.Добавить("Выгрузить"); Кмд.Действие = "Выгрузить"; Кмд.Заголовок = "Выгрузить в файл"; КмдЗ = ЭтаФорма.Команды.Добавить("Загрузить"); КмдЗ.Действие = "Загрузить"; КмдЗ.Заголовок = "Загрузить из файла"; КмдЗ = ЭтаФорма.Команды.Добавить("ЗаписатьВДокумент"); КмдЗ.Действие = "ЗаписатьВДокумент"; КмдЗ.Заголовок = "Записать в документ"; //Добавляем новую кнопку Горизонт = ЭтаФорма.Элементы.Добавить("Горизонт", Тип("ГруппаФормы"), ЭтаФорма); Горизонт.Вид = ВидГруппыФормы.ОбычнаяГруппа; // Элемент2.ИмяКоманды = "Выгрузить"; //Добавляем новую кнопку Элемент2 = ЭтаФорма.Элементы.Добавить("Выгрузить", Тип("КнопкаФормы"), Горизонт); Элемент2.Вид = ВидКнопкиФормы.ОбычнаяКнопка; Элемент2.ИмяКоманды = "Выгрузить"; //Добавляем новую кнопку Элемент = ЭтаФорма.Элементы.Добавить("Загрузить", Тип("КнопкаФормы"), ЭтаФорма); Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; Элемент.ИмяКоманды = "Загрузить"; //Добавляем новую кнопку Элемент = ЭтаФорма.Элементы.Добавить("ЗаписатьВДокумент", Тип("КнопкаФормы"), ЭтаФорма); Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; Элемент.ИмяКоманды = "ЗаписатьВДокумент"; ТаблицаФормы = Элементы.Добавить("ф__ТЗ", Тип("ТаблицаФормы")); ТаблицаФормы.ПутьКДанным = "ТЗ"; |
Источник: https://helpf.pro/
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
ДобавляемыеРеквизиты = Новый Массив; Типы = Новый Массив; Типы.Добавить(ТипЗнч(Объект.ЕдиницаИзмеренияДляПодбора)); ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("ЕдиницаДляПодбора", Новый ОписаниеТипов(Типы), , "Ед для подб.", Истина)); ЭтаФорма.ИзменитьРеквизиты(ДобавляемыеРеквизиты); Элемент = ЭтаФорма.Элементы.Добавить("ЕдиницаДляПодбора", Тип("ПолеФормы"), ЭтаФорма.Элементы["Единицы"]); Элемент.Вид = ВидПоляФормы.ПолеВвода; Элемент.ПутьКДанным = "Объект.ЕдиницаИзмеренияДляПодбора"; Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Авто; Элемент.Видимость = Истина; Элемент.Доступность = Истина; Элемент.ТолькоПросмотр = Ложь; Элемент.КнопкаСпискаВыбора = Неопределено; Элемент.КнопкаВыбора = Неопределено; Элемент.КнопкаОчистки = Неопределено; Элемент.КнопкаРегулирования = Неопределено; Элемент.КнопкаОткрытия = Неопределено; Элемент.РежимВыбораИзСписка = Ложь; Элемент.ЦветТекста = Новый Цвет(); //"Авто"; Элемент.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Авто; Элемент.Ширина = 0; Элемент.УстановитьДействие("ПриИзменении", ""); Элемент.УстановитьДействие("НачалоВыбора", "ЕдиницаИзмеренияДляПодбораНачалоВыбора"); Элемент.УстановитьДействие("НачалоВыбораИзСписка", ""); Элемент.УстановитьДействие("Очистка", ""); Элемент.УстановитьДействие("Регулирование", ""); Элемент.УстановитьДействие("Открытие", ""); Элемент.УстановитьДействие("ОбработкаВыбора", "ЕдиницаИзмеренияДляПодбораОбработкаВыбора"); Элемент.УстановитьДействие("АвтоПодбор", ""); Элемент.УстановитьДействие("ОкончаниеВводаТекста", ""); |
|
1 2 3 4 5 |
Элемент = ЭтаФорма.Элементы.Добавить("аксПровереноБухгалтером", Тип("ПолеФормы"), ЭтаФорма.Элементы.ГруппаШапкаПравая); Элемент.Вид = ВидПоляФормы.ПолеФлажка; Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Право; Элемент.ПутьКДанным = "Объект.аксПровереноБухгалтером"; Элемент.Заголовок = "Проверено бухгалтером"; |