Программное добавление константы на форму констант (Обычные формы)

В качестве дорабатываемой конфигурации была взята Комплексная автоматизация 1.1. Задачей было добавление на форму настроек программы дополнительной константы. Формой настроек программы является форма обработки «НастройкиПрограммы».

Ниже приведен код доработанной процедуры:

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

// {{ ДОБАВЛЕНО: 03.10.2018 16:15:

//Добавляем страницу
ЭлементыФормы.ПанельРазделов.Страницы.Добавить("Дополнительно", "Дополнительно");
ЭлементыФормы.ПанельРазделов.ТекущаяСтраница = ЭлементыФормы.ПанельРазделов.Страницы["Дополнительно"];

//Добавляем заголовок страницы
Элемент = ЭлементыФормы.Добавить(Тип("Надпись"), "_ЗаголовокДополнительно", Истина, ЭлементыФормы.ПанельРазделов);
Элемент.Заголовок = "Дополнительные настройки:";
Элемент.Верх = 0;
Элемент.Ширина = 300;
Элемент.Высота = 30;
Элемент.Шрифт = ЭлементыФормы.НадписьРаздела17.Шрифт;

//Добавляем поле ввода с надписью
Элемент = ЭлементыФормы.Добавить(Тип("Надпись"), "_ЗаголовокГруппаПользователей", Истина, ЭлементыФормы.ПанельРазделов);
Элемент.Заголовок = "Группа пользователей для сдвига даты: ";
Элемент.Верх = 43;
Элемент.Ширина = 240;

Элемент = ЭлементыФормы.Добавить(Тип("ПолеВвода"), "_ГруппаПользователей", Истина, ЭлементыФормы.ПанельРазделов);
Элемент.ТипЗначения = Новый ОписаниеТипов("СправочникСсылка.ГруппыПользователей");
Элемент.Данные = "ГруппаПользователейКладовщики"; //Наименование константы
Элемент.Верх = 40;
Элемент.Лево = 250;
Элемент.Ширина = 200;

// }} ДОБАВЛЕНО

ЗаполнитьСоответствия();
ОбработкаОбъект.ФормаОбработкиПередОткрытием(ЭтаФорма, Отказ);

// Получим номер версии конфигурации
НомерВерсииКонфигурации = глЗначениеПеременной("НомерВерсииКонфигурации");

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

Важно: константа должна быть добавлена в состав формы обработки.

Состав констант обычные формы

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *