В качестве дорабатываемой конфигурации была взята Комплексная автоматизация 1.1. Задачей было добавление на форму настроек программы дополнительной константы. Формой настроек программы является форма обработки «НастройкиПрограммы».
Ниже приведен код доработанной процедуры:
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
// {{ ДОБАВЛЕНО: 03.10.2018 16:15:
//Добавляем страницу
ЭлементыФормы.ПанельРазделов.Страницы.Добавить("Дополнительно", "Дополнительно");
ЭлементыФормы.ПанельРазделов.ТекущаяСтраница = ЭлементыФормы.ПанельРазделов.Страницы["Дополнительно"];
//Добавляем заголовок страницы
Элемент = ЭлементыФормы.Добавить(Тип("Надпись"), "_ЗаголовокДополнительно", Истина, ЭлементыФормы.ПанельРазделов);
Элемент.Заголовок = "Дополнительные настройки:";
Элемент.Верх = 0;
Элемент.Ширина = 300;
Элемент.Высота = 30;
Элемент.Шрифт = ЭлементыФормы.НадписьРаздела17.Шрифт;
//Добавляем поле ввода с надписью
Элемент = ЭлементыФормы.Добавить(Тип("Надпись"), "_ЗаголовокГруппаПользователей", Истина, ЭлементыФормы.ПанельРазделов);
Элемент.Заголовок = "Группа пользователей для сдвига даты: ";
Элемент.Верх = 43;
Элемент.Ширина = 240;
Элемент = ЭлементыФормы.Добавить(Тип("ПолеВвода"), "_ГруппаПользователей", Истина, ЭлементыФормы.ПанельРазделов);
Элемент.ТипЗначения = Новый ОписаниеТипов("СправочникСсылка.ГруппыПользователей");
Элемент.Данные = "ГруппаПользователейКладовщики"; //Наименование константы
Элемент.Верх = 40;
Элемент.Лево = 250;
Элемент.Ширина = 200;
// }} ДОБАВЛЕНО
ЗаполнитьСоответствия();
ОбработкаОбъект.ФормаОбработкиПередОткрытием(ЭтаФорма, Отказ);
// Получим номер версии конфигурации
НомерВерсииКонфигурации = глЗначениеПеременной("НомерВерсииКонфигурации");
КонецПроцедуры
Важно: константа должна быть добавлена в состав формы обработки.
