Кольцо всевластия. Выполнение кода и создание пользователя сразу в нескольких базах

ОтключитьСпаркРиски     = Истина;
ОтключитьПроверкуКонтрагентовЕГРН  = Истина;
ОтключитьНовости       = Истина;
ОтключитьОтправкуСтатистики   = Истина;
ОтключитьОценкуПроизводительности  = Истина;//ВыполнятьЗамерыПроизводительности

ОтключитьПроизвольныеРегламентные = Истина;//только те, которые не зависят от констант или функциональных опций
ИменаПроизвольныхРегламентных = Новый Массив;
ИменаПроизвольныхРегламентных.Добавить("ВсеОбновленияНовостей");

ОтключитьПолнотекстовыйПоиск = Ложь;//отключать только после остальных, т.к. требует монопольный режим, иначе выдает ошибку

#Область Отлючить_отправку_статистики_в_1с
Если ОтключитьОтправкуСтатистики Тогда
ЦентрМониторингаРазрешитьОтправлятьДанные = 2;

//код из обработки ПанельАдминистрированияБСП.Форма.ИнтернетПоддержкаИСервисы.РазрешитьОтправлятьДанныеПриИзменении()

Если ЦентрМониторингаРазрешитьОтправлятьДанные = 2 Тогда
ПараметрыЦентраМониторингаЗапись = Новый Структура("ВключитьЦентрМониторинга, ЦентрОбработкиИнформацииОПрограмме", Ложь, Ложь);
ИначеЕсли ЦентрМониторингаРазрешитьОтправлятьДанные = 1 Тогда
ПараметрыЦентраМониторингаЗапись = Новый Структура("ВключитьЦентрМониторинга, ЦентрОбработкиИнформацииОПрограмме", Ложь, Истина);
ИначеЕсли ЦентрМониторингаРазрешитьОтправлятьДанные = 0 Тогда
ПараметрыЦентраМониторингаЗапись = Новый Структура("ВключитьЦентрМониторинга, ЦентрОбработкиИнформацииОПрограмме", Истина, Ложь);
КонецЕсли;


МодульЦентрМониторингаСлужебный = ОбщегоНазначения.ОбщийМодуль("ЦентрМониторингаСлужебный");

МодульЦентрМониторингаСлужебный.УстановитьПараметрыЦентраМониторингаВнешнийВызов(ПараметрыЦентраМониторингаЗапись);


МодульЦентрМониторингаСлужебный.УдалитьРегламентноеЗаданиеВнешнийВызов("СборИОтправкаСтатистики");

КонецЕсли;
#КонецОбласти

#Область ОтключениеПроизвольногоРегламентного
Если ОтключитьПроизвольныеРегламентные Тогда

Изменения = Новый Структура("Использование", Ложь);

Для каждого ИмяРегламентного Из ИменаПроизвольныхРегламентных Цикл

ИмяПредопределенного = ИмяРегламентного;

Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);

Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;

КонецЦикла;

КонецЕсли;
#КонецОбласти

#Область СПАРК_Риски
Если ОтключитьСпаркРиски Тогда
Константы.ИспользоватьСервисСПАРКРиски.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти

#Область ПроверкаКонтрагентовЕГРН
Если ОтключитьПроверкуКонтрагентовЕГРН Тогда
Константы.ИспользоватьПроверкуКонтрагентов.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти

#Область Новости
Если ОтключитьНовости Тогда
Константы.РазрешенаРаботаСНовостями.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти

#Область ОценкаПроизводительности
Если ОтключитьОценкуПроизводительности Тогда
Константы.ВыполнятьЗамерыПроизводительности.Установить(Ложь);//и всё, дальше сработает подписка ВключитьРегламентноеЗаданиеПриИзмененииФункциональнойОпции (она же выключает)
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
#КонецОбласти

#Область Отключить_ППД

//код из обработки ПанельАдминистрированияБСП.Форма.ОбщиеНастройки.СохранитьЗначениеРеквизита()

Если ОтключитьПолнотекстовыйПоиск Тогда
ИспользоватьПолнотекстовыйПоиск = Ложь;//Гладилов, 19.06.2024. Добавлено
Попытка
Если ИспользоватьПолнотекстовыйПоиск Тогда
ПолнотекстовыйПоиск.УстановитьРежимПолнотекстовогоПоиска(РежимПолнотекстовогоПоиска.Разрешить);
Иначе
ПолнотекстовыйПоиск.УстановитьРежимПолнотекстовогоПоиска(РежимПолнотекстовогоПоиска.Запретить);
КонецЕсли;
Исключение
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Полнотекстовый поиск'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,
,
,
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
//Возврат "НеУдалосьУстановитьРежимПолнотекстовогоПоиска";
ВызватьИсключение "НеУдалосьУстановитьРежимПолнотекстовогоПоиска";
КонецПопытки;
КонстантаИмя = "ИспользоватьПолнотекстовыйПоиск";
//НаборКонстант.ИспользоватьПолнотекстовыйПоиск = ИспользоватьПолнотекстовыйПоиск;

// Включение/отключение зависимых регламентных заданий.
Изменения = Новый Структура("Использование", ИспользоватьПолнотекстовыйПоиск);

//Задание = РегламентныеЗаданияНайтиПредопределенное("ОбновлениеИндексаППД");
ИмяПредопределенного = "ОбновлениеИндексаППД";
Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);

Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;

//Задание = РегламентныеЗаданияНайтиПредопределенное("СлияниеИндексаППД");
ИмяПредопределенного = "СлияниеИндексаППД";
Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);

Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда
//Изменения.Использование = Изменения.Использование И НаборКонстант.ИзвлекатьТекстыФайловНаСервере;

//Задание = РегламентныеЗаданияНайтиПредопределенное("ИзвлечениеТекста");
ИмяПредопределенного = "ИзвлечениеТекста";
Фильтр = Новый Структура("Метаданные", ИмяПредопределенного);
Найденные = РегламентныеЗаданияСервер.НайтиЗадания(Фильтр);
Задание = ?(Найденные.Количество() = 0, Неопределено, Найденные[0]);

Если Задание <> Неопределено Тогда
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения);
КонецЕсли;
КонецЕсли;
КонецЕсли;

#КонецОбласти