Skip to content

Commit

Permalink
Удалил неявные вызовы методов общих модулей не из подсистемы
Browse files Browse the repository at this point in the history
  • Loading branch information
LevkinSergey committed Jul 18, 2021
1 parent e0c6f24 commit 35ab9d3
Show file tree
Hide file tree
Showing 5 changed files with 112 additions and 98 deletions.
11 changes: 11 additions & 0 deletions src/Инструменты/.settings/ManagedEnvironments.prefs
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
CLIENT=false
EXTERNAL_CONN=false
MNG_CLIENT=true
MOBILE_AUTONOMOUS_SERVER=false
MOBILE_CLIENT=false
MOBILE_SERVER=false
MOBILE_THIN_CLIENT=true
SERVER=true
THIN_CLIENT=true
WEB_CLIENT=true
eclipse.preferences.version=1
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
ClientServer=true
eclipse.preferences.version=1
Original file line number Diff line number Diff line change
Expand Up @@ -269,25 +269,25 @@
КонецФункции

Процедура УстановитьБезопасныйРежимБСП()
Если ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда
МодульРаботаВБезопасномРежиме = ОбщийМодуль("РаботаВБезопасномРежиме");
Если МодульРаботаВБезопасномРежиме.ИспользуютсяПрофилиБезопасности()
И Не МодульРаботаВБезопасномРежиме.УстановленБезопасныйРежим() Тогда

МодульРаботаВБезопасномРежиме = ОбщийМодуль("РаботаВБезопасномРежиме");
ПрофильИнформационнойБазы = МодульРаботаВБезопасномРежиме.ПрофильБезопасностиИнформационнойБазы();

Если ЗначениеЗаполнено(ПрофильИнформационнойБазы) Тогда

УстановитьБезопасныйРежим(ПрофильИнформационнойБазы);
Если БезопасныйРежим() = Истина Тогда
УстановитьБезопасныйРежим(Ложь);
КонецЕсли;

КонецЕсли;

КонецЕсли;
КонецЕсли;
// Если ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда
// МодульРаботаВБезопасномРежиме = ОбщийМодуль("РаботаВБезопасномРежиме");
// Если МодульРаботаВБезопасномРежиме.ИспользуютсяПрофилиБезопасности()
// И Не МодульРаботаВБезопасномРежиме.УстановленБезопасныйРежим() Тогда
//
// МодульРаботаВБезопасномРежиме = ОбщийМодуль("РаботаВБезопасномРежиме");
// ПрофильИнформационнойБазы = МодульРаботаВБезопасномРежиме.ПрофильБезопасностиИнформационнойБазы();
//
// Если ЗначениеЗаполнено(ПрофильИнформационнойБазы) Тогда
//
// УстановитьБезопасныйРежим(ПрофильИнформационнойБазы);
// Если БезопасныйРежим() = Истина Тогда
// УстановитьБезопасныйРежим(Ложь);
// КонецЕсли;
//
// КонецЕсли;
//
// КонецЕсли;
// КонецЕсли;
КонецПроцедуры

// Выполнить экспортную процедуру объекта встроенного языка по имени.
Expand Down Expand Up @@ -1027,10 +1027,10 @@
//
Функция ЭтоАвтономноеРабочееМесто() Экспорт

Если ПодсистемаСуществует("СтандартныеПодсистемы.ОбменДанными") Тогда
МодульОбменДаннымиСервер = ОбщийМодуль("ОбменДаннымиСервер");
Возврат МодульОбменДаннымиСервер.ЭтоАвтономноеРабочееМесто();
КонецЕсли;
// Если ПодсистемаСуществует("СтандартныеПодсистемы.ОбменДанными") Тогда
// МодульОбменДаннымиСервер = ОбщийМодуль("ОбменДаннымиСервер");
// Возврат МодульОбменДаннымиСервер.ЭтоАвтономноеРабочееМесто();
// КонецЕсли;

Возврат Ложь;

Expand Down Expand Up @@ -1296,16 +1296,16 @@

ИсключенияПоискаИнтеграция = Новый Массив;

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

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

УИ_ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ИсключенияПоиска, ИсключенияПоискаИнтеграция);

Expand Down Expand Up @@ -1748,23 +1748,23 @@
КонецЕсли;
КонецЦикла;

Если ПараметрыВыполнения.УчитыватьПрикладныеПравила И ПодсистемаСуществует(
"СтандартныеПодсистемы.ПоискИУдалениеДублей") Тогда
МодульПоискИУдалениеДублей = ОбщийМодуль("ПоискИУдалениеДублей");
Ошибки = МодульПоискИУдалениеДублей.ПроверитьВозможностьЗаменыЭлементов(ПарыЗамен, Параметры);
Для Каждого КлючЗначение Из Ошибки Цикл
Дубль = КлючЗначение.Ключ;
Оригинал = ПарыЗамен[Дубль];
ТекстОшибки = КлючЗначение.Значение;
Причина = ОписаниеОшибкиЗамены("ОшибкаЗаписи", Оригинал, ПредметСтрокой(Оригинал), ТекстОшибки);
ЗарегистрироватьОшибкуЗамены(Результат, Дубль, Причина);

Индекс = Дубли.Найти(Дубль);
Если Индекс <> Неопределено Тогда
Дубли.Удалить(Индекс); // пропускаем проблемный элемент.
КонецЕсли;
КонецЦикла;
КонецЕсли;
// Если ПараметрыВыполнения.УчитыватьПрикладныеПравила И ПодсистемаСуществует(
// "СтандартныеПодсистемы.ПоискИУдалениеДублей") Тогда
// МодульПоискИУдалениеДублей = ОбщийМодуль("ПоискИУдалениеДублей");
// Ошибки = МодульПоискИУдалениеДублей.ПроверитьВозможностьЗаменыЭлементов(ПарыЗамен, Параметры);
// Для Каждого КлючЗначение Из Ошибки Цикл
// Дубль = КлючЗначение.Ключ;
// Оригинал = ПарыЗамен[Дубль];
// ТекстОшибки = КлючЗначение.Значение;
// Причина = ОписаниеОшибкиЗамены("ОшибкаЗаписи", Оригинал, ПредметСтрокой(Оригинал), ТекстОшибки);
// ЗарегистрироватьОшибкуЗамены(Результат, Дубль, Причина);
//
// Индекс = Дубли.Найти(Дубль);
// Если Индекс <> Неопределено Тогда
// Дубли.Удалить(Индекс); // пропускаем проблемный элемент.
// КонецЕсли;
// КонецЦикла;
// КонецЕсли;

ТаблицаПоиска = МестаИспользования(Дубли);

Expand Down Expand Up @@ -1798,10 +1798,10 @@
ПараметрыВыполнения.Вставить("ПарыЗамен", ПарыЗамен);
ПараметрыВыполнения.Вставить("УспешныеЗамены", Новый Соответствие);

Если ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступом = ОбщийМодуль("УправлениеДоступом");
МодульУправлениеДоступом.ОтключитьОбновлениеКлючейДоступа(Истина);
КонецЕсли;
// Если ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
// МодульУправлениеДоступом = ОбщийМодуль("УправлениеДоступом");
// МодульУправлениеДоступом.ОтключитьОбновлениеКлючейДоступа(Истина);
// КонецЕсли;

Попытка
Если ЗаменаПарыВТранзакции Тогда
Expand All @@ -1812,16 +1812,16 @@
ЗаменитьСсылкиКороткимиТранзакциями(Результат, ПараметрыВыполнения, Дубли, ТаблицаПоиска);
КонецЕсли;

Если ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступом = ОбщийМодуль("УправлениеДоступом");
МодульУправлениеДоступом.ОтключитьОбновлениеКлючейДоступа(Ложь);
КонецЕсли;
// Если ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
// МодульУправлениеДоступом = ОбщийМодуль("УправлениеДоступом");
// МодульУправлениеДоступом.ОтключитьОбновлениеКлючейДоступа(Ложь);
// КонецЕсли;

Исключение
Если ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступом = ОбщийМодуль("УправлениеДоступом");
МодульУправлениеДоступом.ОтключитьОбновлениеКлючейДоступа(Ложь);
КонецЕсли;
// Если ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
// МодульУправлениеДоступом = ОбщийМодуль("УправлениеДоступом");
// МодульУправлениеДоступом.ОтключитьОбновлениеКлючейДоступа(Ложь);
// КонецЕсли;
ВызватьИсключение;
КонецПопытки;

Expand Down Expand Up @@ -3574,33 +3574,33 @@
Если Не Кэш.Свойство("МодельСервиса") Тогда
Кэш.Вставить("МодельСервиса", РазделениеВключено());
Если Кэш.МодельСервиса Тогда

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

Кэш.Вставить("ВОбластиДанных", РазделениеВключено() И ДоступноИспользованиеРазделенныхДанных());
Кэш.Вставить("РазделительОсновныхДанных", РазделительОсновныхДанных);
Кэш.Вставить("РазделительВспомогательныхДанных", РазделительВспомогательныхДанных);
КонецЕсли;
КонецЕсли;
Если Кэш.МодельСервиса Тогда
Если ПодсистемаСуществует("ТехнологияСервиса.БазоваяФункциональность") Тогда
МодульРаботаВМоделиСервиса = ОбщийМодуль("РаботаВМоделиСервиса");
Попытка
ЭтоРазделенныйОбъектМетаданных = МодульРаботаВМоделиСервиса.ЭтоРазделенныйОбъектМетаданных(
ОбъектМетаданных);
Исключение
ЭтоРазделенныйОбъектМетаданных = Истина;
КонецПопытки;
Иначе
// Если ПодсистемаСуществует("ТехнологияСервиса.БазоваяФункциональность") Тогда
// МодульРаботаВМоделиСервиса = ОбщийМодуль("РаботаВМоделиСервиса");
// Попытка
// ЭтоРазделенныйОбъектМетаданных = МодульРаботаВМоделиСервиса.ЭтоРазделенныйОбъектМетаданных(
// ОбъектМетаданных);
// Исключение
// ЭтоРазделенныйОбъектМетаданных = Истина;
// КонецПопытки;
// Иначе
ЭтоРазделенныйОбъектМетаданных = Истина;
КонецЕсли;
// КонецЕсли;
Информация.Разделенный = ЭтоРазделенныйОбъектМетаданных;
КонецЕсли;
КонецЕсли;
Expand Down
Loading

0 comments on commit 35ab9d3

Please sign in to comment.