Fixed bug with looping

firstBitSportivnaya · May 7, 2024 · 9931172 · 9931172
1 parent 37712a2
commit 9931172
Show file tree

Hide file tree

Showing 12 changed files with 51 additions and 40 deletions.
diff --git a/src/cf/CommonModules/__ЖурналРегистрацииСлужебный/Ext/Module.bsl b/src/cf/CommonModules/__ЖурналРегистрацииСлужебный/Ext/Module.bsl
@@ -38,7 +38,7 @@
 #Область СлужебныеПроцедурыИФункции
 
 Функция ПолучитьМодуль()
-	Возврат __ОбщегоНазначенияПовтИсп.ОбщийМодуль("ЖурналРегистрации", "__ЖурналРегистрации");
+	Возврат __ОбщегоНазначенияПовтИсп.ПереадресацияОбщегоМодуля("ЖурналРегистрации", "__ЖурналРегистрации");
 КонецФункции
 
 #КонецОбласти
diff --git a/src/cf/CommonModules/__ОбщегоНазначенияВызовСервера/Ext/Module.bsl b/src/cf/CommonModules/__ОбщегоНазначенияВызовСервера/Ext/Module.bsl
@@ -27,10 +27,10 @@
 
 КонецФункции
 
-// См. __ОбщегоНазначенияСервер.ОбщийМодуль
-Функция ОбщийМодуль(ИмяМодуляБСП, ИмяМодуляВстроенного) Экспорт
+// См. __ОбщегоНазначенияСервер.ПереадресацияОбщегоМодуля
+Функция ПереадресацияОбщегоМодуля(ИмяМодуляБСП, ИмяМодуляВстроенного) Экспорт
 
-	Возврат __ОбщегоНазначенияПовтИсп.ОбщийМодуль(ИмяМодуляБСП, ИмяМодуляВстроенного);
+	Возврат __ОбщегоНазначенияПовтИсп.ПереадресацияОбщегоМодуля(ИмяМодуляБСП, ИмяМодуляВстроенного);
 
 КонецФункции
 

diff --git a/src/cf/CommonModules/__ОбщегоНазначенияКлиент/Ext/Module.bsl b/src/cf/CommonModules/__ОбщегоНазначенияКлиент/Ext/Module.bsl
@@ -27,7 +27,7 @@
 
 // Аналог метода БСП. Возвращает ссылку на общий модуль или модуль менеджера по имени.
 //
-// См. ОбщегоНазначения.ОбщийМодуль
+// См. __ОбщегоНазначенияСервер.ОбщийМодуль
 //
 // Параметры:
 //  Имя - Строка - имя общего модуля.
@@ -40,15 +40,11 @@
 //  РегистрСведенийМенеджер.
 //
 // Пример:
-//	Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
-//		МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодуль("ОбновлениеКонфигурации");
-//		МодульОбновлениеКонфигурации.<Имя метода>();
-//	КонецЕсли;
-//
-//	Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда
-//		МодульПолнотекстовыйПоискСервер = ОбщегоНазначения.ОбщийМодуль("ПолнотекстовыйПоискСервер");
-//		МодульПолнотекстовыйПоискСервер.<Имя метода>();
-//	КонецЕсли;
+//	МодульОбновлениеКонфигурации = __ОбщегоНазначенияСлужебный.ОбщийМодуль("ОбновлениеКонфигурации");
+//	МодульОбновлениеКонфигурации.<Имя метода>();
+//
+//	МодульПолнотекстовыйПоискСервер = __ОбщегоНазначенияСлужебный.ОбщийМодуль("ПолнотекстовыйПоискСервер");
+//	МодульПолнотекстовыйПоискСервер.<Имя метода>();
 //
 Функция ОбщийМодуль(ИмяМодуляБСП, ИмяМодуляВстроенного = "") Экспорт
 

diff --git a/src/cf/CommonModules/__ОбщегоНазначенияПовтИсп/Ext/Module.bsl b/src/cf/CommonModules/__ОбщегоНазначенияПовтИсп/Ext/Module.bsl
@@ -105,10 +105,10 @@
 
 КонецФункции
 
-// См. __ОбщегоНазначенияСервер.ОбщийМодуль.
-Функция ОбщийМодуль(ИмяМодуляБСП, ИмяМодуляВстроенного) Экспорт
+// См. __ОбщегоНазначенияСервер.ПереадресацияОбщегоМодуля.
+Функция ПереадресацияОбщегоМодуля(ИмяМодуляБСП, ИмяМодуляВстроенного) Экспорт
 
-	Возврат __ОбщегоНазначенияСервер.ОбщийМодуль(ИмяМодуляБСП, ИмяМодуляВстроенного);
+	Возврат __ОбщегоНазначенияСервер.ПереадресацияОбщегоМодуля(ИмяМодуляБСП, ИмяМодуляВстроенного);
 
 КонецФункции
 

diff --git a/src/cf/CommonModules/__ОбщегоНазначенияСервер/Ext/Module.bsl b/src/cf/CommonModules/__ОбщегоНазначенияСервер/Ext/Module.bsl
@@ -773,6 +773,31 @@
 
 КонецФункции
 
+// Возвращает ссылку на общий модуль или модуль менеджера по имени. Если подключена БСП,
+// происходит переадресация на общий модуль из БСП, иначе используются встроенные модули ПБП.
+//
+// Параметры:
+//  ИмяМодуляБСП		 - Строка - Имя Общего модуля из Библиотеки стандартных подсистем
+//  ИмяМодуляВстроенного - Строка - Имя Общего модуля из Проектной библиотеки подсистем
+// 
+// Возвращаемое значение:
+//   ОбщийМодуль
+//   МодульМенеджераОбъекта
+//
+Функция ПереадресацияОбщегоМодуля(ИмяМодуляБСП, ИмяМодуляВстроенного = "") Экспорт
+
+	Имя = ИмяМодуляВстроенного;
+	Если __ОбщегоНазначенияПовтИсп.СуществуетБиблиотекаСтандартныхПодсистем()
+		И Метаданные.ОбщиеМодули.Найти(ИмяМодуляБСП) <> Неопределено Тогда
+		Имя = ИмяМодуляБСП;
+	КонецЕсли;
+
+	Модуль = ОбщийМодуль(Имя);
+
+	Возврат Модуль;
+
+КонецФункции
+
 #Область МетодыАналогиБСП
 
 // Аналог метода БСП. Возвращает ссылку на общий модуль или модуль менеджера по имени.
@@ -785,23 +810,13 @@
 //   МодульМенеджераОбъекта
 //
 // Пример:
-//	Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
-//		МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодуль("ОбновлениеКонфигурации");
-//		МодульОбновлениеКонфигурации.<Имя метода>();
-//	КонецЕсли;
+//	МодульОбновлениеКонфигурации = __ОбщегоНазначенияСервер.ОбщийМодуль("ОбновлениеКонфигурации");
+//	МодульОбновлениеКонфигурации.<Имя метода>();
 //
-//	Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда
-//		МодульПолнотекстовыйПоискСервер = ОбщегоНазначения.ОбщийМодуль("ПолнотекстовыйПоискСервер");
-//		МодульПолнотекстовыйПоискСервер.<Имя метода>();
-//	КонецЕсли;
+//	МодульПолнотекстовыйПоискСервер = __ОбщегоНазначенияСервер.ОбщийМодуль("ПолнотекстовыйПоискСервер");
+//	МодульПолнотекстовыйПоискСервер.<Имя метода>();
 //
-Функция ОбщийМодуль(ИмяМодуляБСП, ИмяМодуляВстроенного = "") Экспорт
-
-	Имя = ИмяМодуляВстроенного;
-	Если __ОбщегоНазначенияПовтИсп.СуществуетБиблиотекаСтандартныхПодсистем()
-		И Метаданные.ОбщиеМодули.Найти(ИмяМодуляБСП) <> Неопределено Тогда
-		Имя = ИмяМодуляБСП;
-	КонецЕсли;
+Функция ОбщийМодуль(Имя) Экспорт
 
 	Если Метаданные.ОбщиеМодули.Найти(Имя) <> Неопределено Тогда
 		УстановитьБезопасныйРежим(Истина);
@@ -815,7 +830,7 @@
 	Если ТипЗнч(Модуль) <> Тип("ОбщийМодуль") Тогда
 		ВызватьИсключение __СтроковыеФункцииСлужебныйКлиентСервер.ПодставитьПараметрыВСтроку(
 			НСтр("ru = 'Общий модуль ""%1"" не существует.'"),
-			?(ПустаяСтрока(Имя), ИмяМодуляБСП, Имя));
+			Имя);
 	КонецЕсли;
 
 	Возврат Модуль;

diff --git a/src/cf/CommonModules/__ОбщегоНазначенияСлужебный/Ext/Module.bsl b/src/cf/CommonModules/__ОбщегоНазначенияСлужебный/Ext/Module.bsl
@@ -155,7 +155,7 @@
 #Область СлужебныеПроцедурыИФункции
 
 Функция ПолучитьМодуль()
-	Возврат __ОбщегоНазначенияПовтИсп.ОбщийМодуль("ОбщегоНазначения", "__ОбщегоНазначенияСервер");
+	Возврат __ОбщегоНазначенияПовтИсп.ПереадресацияОбщегоМодуля("ОбщегоНазначения", "__ОбщегоНазначенияСервер");
 КонецФункции
 
 #КонецОбласти
diff --git a/src/cf/CommonModules/__ОбщегоНазначенияСлужебныйКлиентСервер/Ext/Module.bsl b/src/cf/CommonModules/__ОбщегоНазначенияСлужебныйКлиентСервер/Ext/Module.bsl
@@ -152,7 +152,7 @@
 			"ОбщегоНазначенияКлиентСервер",
 			"__ОбщегоНазначенияКлиентСервер");
 	#Иначе
-		Возврат __ОбщегоНазначенияВызовСервера.ОбщийМодуль(
+		Возврат __ОбщегоНазначенияВызовСервера.ПереадресацияОбщегоМодуля(
 			"ОбщегоНазначенияКлиентСервер",
 			"__ОбщегоНазначенияКлиентСервер");
 	#КонецЕсли

diff --git a/src/cf/CommonModules/__ПолучениеФайловИзИнтернетаСлужебный/Ext/Module.bsl b/src/cf/CommonModules/__ПолучениеФайловИзИнтернетаСлужебный/Ext/Module.bsl
@@ -37,7 +37,7 @@
 #Область СлужебныеПроцедурыИФункции
 
 Функция ПолучитьМодуль()
-	Возврат __ОбщегоНазначенияПовтИсп.ОбщийМодуль("ПолучениеФайловИзИнтернета", "__ПолучениеФайловИзИнтернета");
+	Возврат __ОбщегоНазначенияПовтИсп.ПереадресацияОбщегоМодуля("ПолучениеФайловИзИнтернета", "__ПолучениеФайловИзИнтернета");
 КонецФункции
 
 #КонецОбласти

diff --git a/src/cf/CommonModules/__ПользователиСлужебный/Ext/Module.bsl b/src/cf/CommonModules/__ПользователиСлужебный/Ext/Module.bsl
@@ -37,7 +37,7 @@
 #Область СлужебныеПроцедурыИФункции
 
 Функция ПолучитьМодуль()
-	Возврат __ОбщегоНазначенияПовтИсп.ОбщийМодуль("Пользователи", "__Пользователи");
+	Возврат __ОбщегоНазначенияПовтИсп.ПереадресацияОбщегоМодуля("Пользователи", "__Пользователи");
 КонецФункции
 
 #КонецОбласти
diff --git a/src/cf/CommonModules/__РегламентныеЗаданияСлужебныйСервер/Ext/Module.bsl b/src/cf/CommonModules/__РегламентныеЗаданияСлужебныйСервер/Ext/Module.bsl
@@ -53,7 +53,7 @@
 #Область СлужебныеПроцедурыИФункции
 
 Функция ПолучитьМодуль()
-	Возврат __ОбщегоНазначенияПовтИсп.ОбщийМодуль("РегламентныеЗаданияСервер", "__РегламентныеЗаданияСервер");
+	Возврат __ОбщегоНазначенияПовтИсп.ПереадресацияОбщегоМодуля("РегламентныеЗаданияСервер", "__РегламентныеЗаданияСервер");
 КонецФункции
 
 #КонецОбласти
diff --git a/src/cf/CommonModules/__СтандартныеПодсистемыСлужебныйПовтИсп/Ext/Module.bsl b/src/cf/CommonModules/__СтандартныеПодсистемыСлужебныйПовтИсп/Ext/Module.bsl
@@ -37,7 +37,7 @@
 #Область СлужебныеПроцедурыИФункции
 
 Функция ПолучитьМодуль()
-	Возврат __ОбщегоНазначенияПовтИсп.ОбщийМодуль("СтандартныеПодсистемыПовтИсп", "__СтандартныеПодсистемыПовтИсп");
+	Возврат __ОбщегоНазначенияПовтИсп.ПереадресацияОбщегоМодуля("СтандартныеПодсистемыПовтИсп", "__СтандартныеПодсистемыПовтИсп");
 КонецФункции
 
 #КонецОбласти
diff --git a/src/cf/CommonModules/__СтроковыеФункцииСлужебныйКлиентСервер/Ext/Module.bsl b/src/cf/CommonModules/__СтроковыеФункцииСлужебныйКлиентСервер/Ext/Module.bsl
@@ -60,7 +60,7 @@
 			"СтроковыеФункцииКлиентСервер",
 			"__СтроковыеФункцииКлиентСервер");
 	#Иначе
-		Возврат __ОбщегоНазначенияВызовСервера.ОбщийМодуль(
+		Возврат __ОбщегоНазначенияВызовСервера.ПереадресацияОбщегоМодуля(
 			"СтроковыеФункцииКлиентСервер",
 			"__СтроковыеФункцииКлиентСервер");
 	#КонецЕсли