diff --git a/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl b/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl index 7f497a9fc..8291b9c59 100644 --- a/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl +++ b/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl @@ -2280,9 +2280,21 @@ Функция ВерсияРежимаСовместимости(Знач ЗначениеПоУмолчанию = Неопределено) Экспорт Если Не ЗначениеЗаполнено(КешВерсияРежимСовместимости) Тогда - РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимости(ЗначениеПоУмолчанию), "Версия", ""); - РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", ""); - КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", "."); + РежимСовместимостиВерсия = Строка(РежимСовместимости(ЗначениеПоУмолчанию)); + Если ПустаяСтрока(РежимСовместимостиВерсия) + Или Найти(РежимСовместимостиВерсия, "НеИспольз") > 0 + Или Найти(РежимСовместимостиВерсия, "DontUse") > 0 Тогда + + СистемнаяИнформация = Новый СистемнаяИнформация; + КешВерсияРежимСовместимости = СистемнаяИнформация.ВерсияПриложения; + + Иначе + + РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Версия", ""); + РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", ""); + КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", "."); + + КонецЕсли; КонецЕсли; Возврат КешВерсияРежимСовместимости; diff --git a/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl b/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl index ddbaea344..1c776c5d8 100644 --- a/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl +++ b/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl @@ -1320,15 +1320,17 @@ Если Не ЗначениеЗаполнено(КешВерсияРежимСовместимости) Тогда - РежимСовместимости = РежимСовместимости(ЗначениеПоУмолчанию); - Если РежимСовместимости = Метаданные.СвойстваОбъектов.РежимСовместимости.НеИспользовать Тогда + РежимСовместимостиВерсия = Строка(РежимСовместимости(ЗначениеПоУмолчанию)); + Если ПустаяСтрока(РежимСовместимостиВерсия) + Или Найти(РежимСовместимостиВерсия, "НеИспольз") > 0 + Или Найти(РежимСовместимостиВерсия, "DontUse") > 0 Тогда СистемнаяИнформация = Новый СистемнаяИнформация; КешВерсияРежимСовместимости = СистемнаяИнформация.ВерсияПриложения; Иначе - РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимости, "Версия", ""); + РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Версия", ""); РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", ""); КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", "."); diff --git "a/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" index 8cf43a511..542a10351 100644 --- "a/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" +++ "b/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" @@ -2909,9 +2909,21 @@ &НаКлиенте Функция ВерсияРежимаСовместимостиКлиент(Знач ЗначениеПоУмолчанию = Неопределено) Экспорт Если Не ЗначениеЗаполнено(КешВерсияРежимСовместимости) Тогда - РежимСовместимостиВерсия = СтрЗаменить(УзнатьРежимСовместимостиКлиент(ЗначениеПоУмолчанию), "Версия", ""); - РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", ""); - КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", "."); + РежимСовместимостиВерсия = Строка(УзнатьРежимСовместимостиКлиент(ЗначениеПоУмолчанию)); + Если ПустаяСтрока(РежимСовместимостиВерсия) + Или Найти(РежимСовместимостиВерсия, "НеИспольз") > 0 + Или Найти(РежимСовместимостиВерсия, "DontUse") > 0 Тогда + + СистемнаяИнформация = Новый СистемнаяИнформация; + КешВерсияРежимСовместимости = СистемнаяИнформация.ВерсияПриложения; + + Иначе + + РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Версия", ""); + РежимСовместимостиВерсия = СтрЗаменить(РежимСовместимостиВерсия, "Version", ""); + КешВерсияРежимСовместимости = СтрЗаменить(РежимСовместимостиВерсия, "_", "."); + + КонецЕсли; КонецЕсли; Возврат КешВерсияРежимСовместимости;