ОтключитьСпаркРиски = Истина;
ОтключитьПроверкуКонтрагентовЕГРН = Истина;
ОтключитьНовости = Истина;
ОтключитьОтправкуСтатистики = Истина;
ОтключитьОценкуПроизводительности = Истина;//ВыполнятьЗамерыПроизводительности
ОтключитьПроизвольныеРегламентные = Истина;//только те, которые не зависят от констант или функциональных опций
ИменаПроизвольныхРегламентных = Новый Массив;
ИменаПроизвольныхРегламентных.Добавить("ВсеОбновленияНовостей");
ОтключитьПолнотекстовыйПоиск = Ложь;//отключать только после остальных, т.к. требует монопольный режим, иначе выдает ошибку
#Область Отлючить_отправку_статистики_в_1с
Если ОтключитьОтправкуСтатистики Тогда
ЦентрМониторингаРазрешитьОтправлятьДанные = 2;
//код из обработки ПанельАдминистрированияБСП.Форма.ИнтернетПоддержкаИСервисы.РазрешитьОтправлятьДанныеПриИзменении()
Если ЦентрМониторингаРазрешитьОтправлятьДанные = 2 Тогда
ПараметрыЦентраМониторингаЗапись = Новый Структура("ВключитьЦентрМониторинга, ЦентрОбработкиИнформацииОПрограмме", Ложь, Ложь);
ИначеЕсли ЦентрМониторингаРазрешитьОтправлятьДанные = 1 Тогда
ПараметрыЦентраМониторингаЗапись = Новый Структура("ВключитьЦентрМониторинга, ЦентрОбработкиИнформацииОПрограмме", Ложь, Истина);
ИначеЕсли ЦентрМониторингаРазрешитьОтправлятьДанные = 0 Тогда
ПараметрыЦентраМониторингаЗапись = Новый Структура("ВключитьЦентрМониторинга, ЦентрОбработкиИнформацииОПрограмме", Истина, Ложь);
КонецЕсли;
МодульЦентрМониторингаСлужебный = ОбщегоНазначения.ОбщийМодуль("ЦентрМониторингаСлужебный");
МодульЦентрМониторингаСлужебный.УстановитьПараметрыЦентраМониторингаВнешнийВызов(ПараметрыЦентраМониторингаЗапись);
МодульЦентрМониторингаСлужебный.УдалитьРегламентноеЗаданиеВнешнийВызов("СборИОтправкаСтатистики");
КонецЕсли;
#КонецОбласти
#Область ОтключениеПроизвольногоРегламентного
Если ОтключитьПроизвольныеРегламентные Тогда
Изменения = Новый Структура("Использование", Ложь);
Для каждого ИмяРегламентного Из ИменаПроизвольныхРегламентных Цикл
ИмяПредопределенного = ИмяРегламентного;
Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);
Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;
КонецЦикла;
КонецЕсли;
#КонецОбласти
#Область СПАРК_Риски
Если ОтключитьСпаркРиски Тогда
Константы.ИспользоватьСервисСПАРКРиски.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти
#Область ПроверкаКонтрагентовЕГРН
Если ОтключитьПроверкуКонтрагентовЕГРН Тогда
Константы.ИспользоватьПроверкуКонтрагентов.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти
#Область Новости
Если ОтключитьНовости Тогда
Константы.РазрешенаРаботаСНовостями.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти
#Область ОценкаПроизводительности
Если ОтключитьОценкуПроизводительности Тогда
Константы.ВыполнятьЗамерыПроизводительности.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти
#Область Отключить_ППД
//код из обработки ПанельАдминистрированияБСП.Форма.ОбщиеНастройки.СохранитьЗначениеРеквизита()
Если ОтключитьПолнотекстовыйПоиск Тогда
ИспользоватьПолнотекстовыйПоиск = Ложь;//Гладилов, 19.06.2019. Добавлено
Попытка
Если ИспользоватьПолнотекстовыйПоиск Тогда
ПолнотекстовыйПоиск.УстановитьРежимПолнотекстовогоПоиска(РежимПолнотекстовогоПоиска.Разрешить);
Иначе
ПолнотекстовыйПоиск.УстановитьРежимПолнотекстовогоПоиска(РежимПолнотекстовогоПоиска.Запретить);
КонецЕсли;
Исключение
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Полнотекстовый поиск'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,
,
,
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
//Возврат "НеУдалосьУстановитьРежимПолнотекстовогоПоиска";
ВызватьИсключение "НеУдалосьУстановитьРежимПолнотекстовогоПоиска";
КонецПопытки;
КонстантаИмя = "ИспользоватьПолнотекстовыйПоиск";
//НаборКонстант.ИспользоватьПолнотекстовыйПоиск = ИспользоватьПолнотекстовыйПоиск;
// Включение/отключение зависимых регламентных заданий.
Изменения = Новый Структура("Использование", ИспользоватьПолнотекстовыйПоиск);
//Задание = РегламентныеЗаданияНайтиПредопределенное("ОбновлениеИндексаППД");
ИмяПредопределенного = "ОбновлениеИндексаППД";
Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);
Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;
//Задание = РегламентныеЗаданияНайтиПредопределенное("СлияниеИндексаППД");
ИмяПредопределенного = "СлияниеИндексаППД";
Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);
Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда
//Изменения.Использование = Изменения.Использование И НаборКонстант.ИзвлекатьТекстыФайловНаСервере;
//Задание = РегламентныеЗаданияНайтиПредопределенное("ИзвлечениеТекста");
ИмяПредопределенного = "ИзвлечениеТекста";
Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);
Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;
КонецЕсли;
КонецЕсли;
#КонецОбласти
