Перенос функциональности БСП и переадресация на встроенные методы (#41)

Добавлена проверка использования БСП и переадресация на встроенные методы

src/Catalogs/__ИсторияИнтеграции/Ext/ManagerModule.bsl

@@ -28,10 +28,6 @@
 //Процедура очищает записи в справочнике старше чем установленное в предопределенном значении количество дней
 Процедура ОчиститьИсториюИнтеграции() Экспорт
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ЖурналРегистрации = Неопределено;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
 	Запрос = Новый Запрос;
 	Запрос.Текст = 
 		"ВЫБРАТЬ
@@ -68,7 +64,12 @@
 
 		ТекстОшибки = __ОбщегоНазначенияСервер.ПолучениеПолногоТекстаОшибкиПриИсключении(ЗаголовокОшибки,
 			ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()), ПолучитьСообщенияПользователю(Истина));
-		ЖурналРегистрации.ДобавитьСообщениеДляЖурналаРегистрации(ИмяСобытия, УровеньЖурналаРегистрации.Ошибка, , ВыборкаДетальныеЗаписи.Ссылка, ТекстОшибки);
+		__ЖурналРегистрацииСлужебный.ДобавитьСообщениеДляЖурналаРегистрации(
+			ИмяСобытия,
+			УровеньЖурналаРегистрации.Ошибка,
+			,
+			ВыборкаДетальныеЗаписи.Ссылка,
+			ТекстОшибки);
 
 	КонецПопытки;
 

src/Catalogs/__ИсторияИнтеграции/Forms/ФормаСписка/Ext/Form/Module.bsl

@@ -66,22 +66,18 @@
 &НаСервере
 Функция ПолучитьРегламентноеЗадание()
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	РегламентныеЗаданияСервер = __ВспомогательныйМодульНеПереносить;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
 	ПараметрыЗадания = Новый Структура;
 	ПараметрыЗадания.Вставить("Ключ"		, "__ОчисткаИсторииИнтеграции");
 	ПараметрыЗадания.Вставить("Метаданные"	, Метаданные.РегламентныеЗадания.__ОчисткаИсторииИнтеграции);
-	МассивРегламентныхЗаданий = РегламентныеЗаданияСервер.НайтиЗадания(ПараметрыЗадания);
+	МассивРегламентныхЗаданий = __РегламентныеЗаданияСлужебныйСервер.НайтиЗадания(ПараметрыЗадания);
 
 	Если МассивРегламентныхЗаданий.Количество() Тогда
 		РегламентноеЗадание = МассивРегламентныхЗаданий[0];
 	Иначе
 		ПараметрыЗадания.Вставить("Использование"	, Истина);
 		ПараметрыЗадания.Вставить("Расписание"		, Новый РасписаниеРегламентногоЗадания());
 
-		РегламентноеЗадание = РегламентныеЗаданияСервер.ДобавитьЗадание(ПараметрыЗадания);
+		РегламентноеЗадание = __РегламентныеЗаданияСлужебныйСервер.ДобавитьЗадание(ПараметрыЗадания);
 	КонецЕсли;
 
 	Возврат РегламентноеЗадание;

src/Catalogs/__ИсторияИнтеграции/Forms/ФормаЭлемента/Ext/Form/Module.bsl

@@ -68,11 +68,9 @@
 &НаКлиенте
 Процедура ПриОткрытии(Отказ)
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначенияКлиент = __ВспомогательныйМодульНеПереноситьКлиент;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
-	Если ЗначениеЗаполнено(Объект.ФорматЗапросаИнтеграции) И Объект.ФорматЗапросаИнтеграции <> ОбщегоНазначенияКлиент.ПредопределенныйЭлемент("Перечисление.__ФорматыЗапросовИнтеграции.ПроизвольныйФормат") Тогда
+	Предопределенный = "Перечисление.__ФорматыЗапросовИнтеграции.ПроизвольныйФормат";
+	Если ЗначениеЗаполнено(Объект.ФорматЗапросаИнтеграции) 
+		И Объект.ФорматЗапросаИнтеграции <> __ОбщегоНазначенияСлужебныйКлиент.ПредопределенныйЭлемент(Предопределенный) Тогда
 		ИнициализироватьБазовыйФайлРедактора(ПолучитьФорматИнтеграции(Объект.ФорматЗапросаИнтеграции));
 	КонецЕсли;
 
@@ -92,11 +90,8 @@
 &НаКлиенте
 Процедура ЗапросИсходящийДокументСформирован_Подключаемый(Элемент)
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначенияКлиент = Неопределено;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
-	Если Объект.ФорматЗапросаИнтеграции = ОбщегоНазначенияКлиент.ПредопределенныйЭлемент("Перечисление.__ФорматыЗапросовИнтеграции.JSON") Тогда
+	Предопределенный = "Перечисление.__ФорматыЗапросовИнтеграции.JSON";
+	Если Объект.ФорматЗапросаИнтеграции = __ОбщегоНазначенияСлужебныйКлиент.ПредопределенныйЭлемент(Предопределенный) Тогда
 		ИнициализироватьИЗаполнитьТекстомОбъектJSON("code", "Исходящий");
 	Иначе
 		ИнициализироватьИЗаполнитьТекстомОбъектXML("Исходящий");
@@ -107,11 +102,8 @@
 &НаКлиенте
 Процедура ЗапросВходящийДокументСформирован_Подключаемый(Элемент)
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначенияКлиент = Неопределено;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
-	Если Объект.ФорматЗапросаИнтеграции = ОбщегоНазначенияКлиент.ПредопределенныйЭлемент("Перечисление.__ФорматыЗапросовИнтеграции.JSON") Тогда
+	Предопределенный = "Перечисление.__ФорматыЗапросовИнтеграции.JSON";
+	Если Объект.ФорматЗапросаИнтеграции = __ОбщегоНазначенияСлужебныйКлиент.ПредопределенныйЭлемент(Предопределенный) Тогда
 		ИнициализироватьИЗаполнитьТекстомОбъектJSON("code", "Входящий");
 	Иначе
 		ИнициализироватьИЗаполнитьТекстомОбъектXML("Входящий");
@@ -126,11 +118,8 @@
 &НаКлиенте
 Процедура РазвернутьВсе(Команда)
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначенияКлиент = Неопределено;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
-	Если Объект.ФорматЗапросаИнтеграции = ОбщегоНазначенияКлиент.ПредопределенныйЭлемент("Перечисление.__ФорматыЗапросовИнтеграции.XML") Тогда
+	Предопределенный = "Перечисление.__ФорматыЗапросовИнтеграции.XML";
+	Если Объект.ФорматЗапросаИнтеграции = __ОбщегоНазначенияСлужебныйКлиент.ПредопределенныйЭлемент(Предопределенный) Тогда
 		Элементы.ЗапросИсходящий.Документ.defaultView.Xonomy.plusminus("xonomy1", true);
 		Элементы.ЗапросВходящий.Документ.defaultView.Xonomy.plusminus("xonomy1", true);
 	Иначе
@@ -148,11 +137,8 @@
 &НаКлиенте
 Процедура СвернутьВсе(Команда)
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначенияКлиент = Неопределено;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
-	Если Объект.ФорматЗапросаИнтеграции = ОбщегоНазначенияКлиент.ПредопределенныйЭлемент("Перечисление.__ФорматыЗапросовИнтеграции.XML") Тогда
+	Предопределенный = "Перечисление.__ФорматыЗапросовИнтеграции.XML";
+	Если Объект.ФорматЗапросаИнтеграции = __ОбщегоНазначенияСлужебныйКлиент.ПредопределенныйЭлемент(Предопределенный) Тогда
 		Элементы.ЗапросИсходящий.Документ.defaultView.Xonomy.plusminus("xonomy1", false);
 		Элементы.ЗапросВходящий.Документ.defaultView.Xonomy.plusminus("xonomy1", false);
 	Иначе

src/Catalogs/__НастройкиИнтеграции/Forms/ФормаЭлемента/Ext/Form/Module.bsl

@@ -30,13 +30,8 @@
 		Возврат;
 	КонецЕсли;
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначения = Неопределено;
-	Если ОбщегоНазначения <> Неопределено Тогда
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
 	УстановитьПривилегированныйРежим(Истина);
-	СтруктураНастроек = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Объект.Ссылка);
+	СтруктураНастроек = __ОбщегоНазначенияСлужебный.ПрочитатьДанныеИзБезопасногоХранилища(Объект.Ссылка);
 
 	Если СтруктураНастроек = Неопределено Тогда
 		Возврат;
@@ -49,22 +44,11 @@
 		ЗаполнитьЗначенияСвойств(НоваяСтрока, КлючИЗначение.Значение);
 	КонецЦикла;
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	КонецЕсли;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
 КонецПроцедуры
 
 &НаСервере
 Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначения = Неопределено;
-	Если ОбщегоНазначения <> Неопределено Тогда
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
-	УстановитьПривилегированныйРежим(Истина);
-
 	СтруктураНастроек = Новый Структура();
 
 	Для Каждого ТекСтрока Из СписокНастроек Цикл
@@ -78,12 +62,9 @@
 		СтруктураНастроек.Вставить(ТекСтрока.ИмяНастройки, Настройка);
 	КонецЦикла;
 
-	ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ТекущийОбъект.Ссылка, СтруктураНастроек);
-
+	УстановитьПривилегированныйРежим(Истина);
+	__ОбщегоНазначенияСлужебный.ЗаписатьДанныеВБезопасноеХранилище(ТекущийОбъект.Ссылка, СтруктураНастроек);
 	УстановитьПривилегированныйРежим(Ложь);
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	КонецЕсли;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
 
 КонецПроцедуры
 

src/Catalogs/__ПользовательскиеФункции/Ext/ManagerModule.bsl

@@ -29,10 +29,6 @@
 //
 Процедура ОбновитьПредопределенныеЭлементы(Знач Макет = Неопределено, РежимСообщений = "Все") Экспорт
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначения = Неопределено;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
 	ВыводитьОшибки = ?(РежимСообщений = "Все" Или РежимСообщений = "Ошибки", Истина, Ложь);
 	ВыводитьИнформацию = ?(РежимСообщений = "Все", Истина, Ложь);
 
@@ -76,7 +72,7 @@
 
 				Если ВыводитьОшибки Тогда
 
-					ОбщегоНазначения.СообщитьПользователю(СтрШаблон(
+					__ОбщегоНазначенияСлужебный.СообщитьПользователю(СтрШаблон(
 						НСтр("ru='Не удалось найти предопределенный элемент справочника ""Пользовательские функции"" по имени %1';
 						|en='Failed to find a predefined element of the directory ""User-defined functions"" named %1'"),
 						ОписаниеЭлемента.ИмяПредопределенного));
@@ -94,7 +90,7 @@
 
 	Если ВыводитьИнформацию Тогда
 
-		ОбщегоНазначения.СообщитьПользователю(СтрШаблон(
+		__ОбщегоНазначенияСлужебный.СообщитьПользователю(СтрШаблон(
 			НСтр("ru='Выполнена проверка версий предопределенных элементов справочника ""Пользовательские функции"". Обновлено %1 элементов.';
 			|en='Successfully checked the versions of predefined elements of the directory ""User functions"". %1 elements updated.'"),
 			Строка(Ном)));

src/Catalogs/__ПользовательскиеФункции/Ext/ObjectModule.bsl

@@ -47,10 +47,6 @@
 
 Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
 
-	// ++ Обход ошибки отстутствия модуля БСП, не переносить
-	ОбщегоНазначения = Неопределено;
-	// -- Обход ошибки отстутствия модуля БСП, не переносить
-
 	СтруктураПараметров = Новый Структура;
 
 	Для Каждого СтрокаТаблицы Из Переменные Цикл
@@ -71,14 +67,14 @@
 
 				ТекстСообщения = СтрШаблон(НСтр("ru='Обнаружено некорректное имя ""%1"" в таблице ""Переменные"".';
 					|en='Found an incorrect name ""%1"" in table ""Variables.""'"),СтрокаТаблицы.Имя);
-				ОбщегоНазначения.СообщитьПользователю(
+				__ОбщегоНазначенияСлужебный.СообщитьПользователю(
 					ТекстСообщения, ЭтотОбъект, СтрШаблон("Переменные[%1].Имя", НомерСтроки),, Отказ);
 			КонецПопытки;
 		Иначе
 
 			ТекстСообщения = СтрШаблон(НСтр("ru='Обнаружено дублирующееся имя ""%1"" в таблице ""Переменные"".';
 				|en='Found a duplicate name ""%1"" in the table ""Variables.""'"), СтрокаТаблицы.Имя);
-			ОбщегоНазначения.СообщитьПользователю(
+			__ОбщегоНазначенияСлужебный.СообщитьПользователю(
 				ТекстСообщения, ЭтотОбъект, СтрШаблон("Переменные[%1].Имя", НомерСтроки),, Отказ);
 		КонецЕсли;
 	КонецЦикла;