Поддержка конфигураций на английском коде (#1147)

* Update ObjectModule.bsl поддержка конфигураций на английском языке
vanessa-opensource · Nov 24, 2024 · 17a5c23 · 17a5c23
1 parent 3775926
commit 17a5c23
Show file tree

Hide file tree

Showing 6 changed files with 7 additions and 2 deletions.
diff --git a/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl b/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl
@@ -2282,6 +2282,7 @@
 
 	Если Не ЗначениеЗаполнено(КешВерсияРежимСовместимости) Тогда
 		РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимости(ЗначениеПоУмолчанию), "Версия", "");
+		РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", "");
 		КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", ".");
 	КонецЕсли;
 

diff --git a/epf/bddRunner/bddRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl b/epf/bddRunner/bddRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl
@@ -6793,6 +6793,7 @@
 Функция ВерсияРежимаСовместимостиКлиент(Знач ЗначениеПоУмолчанию = Неопределено) Экспорт
 	Если Не ЗначениеЗаполнено(КешВерсияРежимСовместимости) Тогда
 		РежимСовместимостиВерсия = СтрЗаменить(УзнатьРежимСовместимостиКлиент(ЗначениеПоУмолчанию), "Версия", "");
+		РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", "");
 		КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", ".");
 	КонецЕсли;
 

diff --git a/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl b/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
@@ -1315,6 +1315,7 @@
 		Иначе
 
 			РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимости, "Версия", "");
+			РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", "");
 			КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", ".");
 
 		КонецЕсли;

diff --git a/epf/xddTestRunner/xddTestRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl b/epf/xddTestRunner/xddTestRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl
@@ -2860,6 +2860,7 @@
 			Возврат Истина;
 		КонецЕсли;
 		РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимости, "Версия", "");
+		РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", "");
 		РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "_", ".");
 		Если ВерсияПриложенияБольшеИлиРавнаЧемЗаданная(РежимСовместимостиВерсия, "8.3.13") Тогда
 			Возврат Истина;
@@ -2911,6 +2912,7 @@
 Функция ВерсияРежимаСовместимостиКлиент(Знач ЗначениеПоУмолчанию = Неопределено) Экспорт
 	Если Не ЗначениеЗаполнено(КешВерсияРежимСовместимости) Тогда
 		РежимСовместимостиВерсия = СтрЗаменить(УзнатьРежимСовместимостиКлиент(ЗначениеПоУмолчанию), "Версия", "");
+		РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", "");
 		КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", ".");
 	КонецЕсли;
 

diff --git a/plugins/ЗагрузчикФайла/ЗагрузчикФайла/Ext/ObjectModule.bsl b/plugins/ЗагрузчикФайла/ЗагрузчикФайла/Ext/ObjectModule.bsl
@@ -163,7 +163,7 @@
 		Обработка.ЗаполнитьНаборТестов(ЭтотОбъект, КонтекстЯдра);
 	Исключение
 		Инфо = ИнформацияОбОшибке();
-		Если Инфо.ИмяМодуля = "ВнешняяОбработка.ЗагрузчикФайла.МодульОбъекта" И
+		Если (Инфо.ИмяМодуля = "ВнешняяОбработка.ЗагрузчикФайла.МодульОбъекта" ИЛИ Инфо.ИмяМодуля = "ExternalDataProcessor.ЗагрузчикФайла.ObjectModule") И
 			(Инфо.Описание = "Слишком много фактических параметров" Или
 			Инфо.Описание = "Too many actual parameters") И
 			Найти(Инфо.ИсходнаяСтрока, "Обработка.ЗаполнитьНаборТестов(ЭтотОбъект, КонтекстЯдра);") > 0

diff --git a/plugins/ЗагрузчикФайла/ЗагрузчикФайла/Forms/Форма/Ext/Form/Module.bsl b/plugins/ЗагрузчикФайла/ЗагрузчикФайла/Forms/Форма/Ext/Form/Module.bsl
@@ -299,7 +299,7 @@
 		ФормаОбработки.ЗаполнитьНаборТестов(ЭтаФорма, КонтекстЯдра);
 	Исключение
 		Инфо = ИнформацияОбОшибке();
-		Если Инфо.ИмяМодуля = "ВнешняяОбработка.ЗагрузчикФайла.Форма.Форма.Форма" И
+		Если (Инфо.ИмяМодуля = "ВнешняяОбработка.ЗагрузчикФайла.Форма.Форма.Форма" ИЛИ Инфо.ИмяМодуля = "ExternalDataProcessor.ЗагрузчикФайла.Form.Форма.Form") И
 			(Инфо.Описание = "Слишком много фактических параметров" Или
 			Инфо.Описание = "Too many actual parameters") И
 			Найти(Инфо.ИсходнаяСтрока, "ФормаОбработки.ЗаполнитьНаборТестов(ЭтаФорма, КонтекстЯдра);") > 0