В версии 3.75.1 появился функционал "Включить функциональные опции". При нажатии он сразу изменяет значения констант. Предложение: сделать изменение значений в таблице на форме и выставление признака модифицированности, чтобы можно было увидеть все изменения, которые делаются и, при необходимости, отменить.
И ещё: бывают функциональные опции, которые привязаны к константам типа не Булево, например в УПП: Функциональная опция АктуальнаяДатаОбновленияПовторноИспользуемыхЗначенийМРО, Константа ДатаОбновленияПовторноИспользуемыхЗначенийМРО, тип Дата.
Вот вариант изменного кода:
Код
Процедура КоманднаяПанель1ВключитьВсеФункциональныеОпции(Кнопка)
Индикатор = ирОбщий.ПолучитьИндикаторПроцессаЛкс(ТаблицаКонстант.Количество());
Для каждого СтрокаКонстанты из ТаблицаКонстант Цикл
ирОбщий.ОбработатьИндикаторЛкс(Индикатор);
// +++
//Если ЗначениеЗаполнено(СтрокаКонстанты.ФункциональнаяОпция) Тогда
// Константы[СтрокаКонстанты.ИдентификаторКонстанты].Установить(Истина);
//КонецЕсли;
Если ЗначениеЗаполнено(СтрокаКонстанты.ФункциональнаяОпция)
И СтрокаКонстанты.РазрешеноИзменение
И СтрокаКонстанты.Значение = Ложь Тогда
СтрокаКонстанты.Значение = Истина;
СтрокаКонстанты.ПризнакМодификации = Истина;
ЭтаФорма.Модифицированность = Истина;
КонецЕсли;
// ---
КонецЦикла;
ирОбщий.ОсвободитьИндикаторПроцессаЛкс();
// +++
//Если Не ПроверкаМодифицированностиФормы() Тогда
// Возврат;
//КонецЕсли;
//ПрочитатьКонстантыИзБазы();
// ---
КонецПроцедуры
