fix: исправления для толстого управляемого клиента

bia-technologies · Sep 4, 2024 · 1cb9e19 · 1cb9e19
1 parent ba2e252
commit 1cb9e19
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 23 deletions.
diff --git a/exts/yaxunit/src/CommonModules/ЮТИсполнительСлужебныйСервер/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТИсполнительСлужебныйСервер/Module.bsl
@@ -54,14 +54,14 @@
 
  КонецЦикла;
 
-#Если НЕ ТолстыйКлиентОбычноеПриложение Тогда // Исключение для обычного приложения в файловом варианте
+#Если НЕ ТолстыйКлиентОбычноеПриложение И НЕ ТолстыйКлиентУправляемоеПриложение Тогда // Исключение для толстого клиента в файловом варианте
  Модуль.НаборыТестов = Новый Массив; // Уже не нужно, поэтому очистим
 #КонецЕсли
 
  КонецЦикла;
 
  АдресХранилища = ПоместитьВоВременноеХранилище(Хранилище, Новый УникальныйИдентификатор());
- ЮТКонтекстСлужебный.УстановитьЗначениеКонтекста(ИмяКонтекстаХранилище(), АдресХранилища);
+ ЮТКонтекстСлужебный.УстановитьЗначениеКонтекста(ИмяКонтекстаХранилище(), АдресХранилища, Истина);
 
 КонецПроцедуры
 

diff --git a/exts/yaxunit/src/CommonModules/ЮТЧитательСлужебный/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТЧитательСлужебный/Module.bsl
@@ -198,35 +198,23 @@
 
 #Если ТолстыйКлиентОбычноеПриложение Тогда
  Если МетаданныеМодуля.КлиентОбычноеПриложение Тогда
-
  ОписаниеМодуля = ИсполняемыеСценарииМодуля(МетаданныеМодуля);
-
  ИначеЕсли МетаданныеМодуля.Сервер Тогда
-
  ОписаниеМодуля = ЮТЧитательСлужебныйВызовСервера.ИсполняемыеСценарииМодуля(МетаданныеМодуля);
  ЮТЛогированиеСлужебный.ВывестиСерверныеСообщения();
-
- КонецЕсли;
-#ИначеЕсли Сервер Тогда
- Если МетаданныеМодуля.Сервер Тогда
-
- ОписаниеМодуля = ИсполняемыеСценарииМодуля(МетаданныеМодуля);
-
- Иначе
-
- ВызватьИсключение "Чтение списка тестов модуля в недоступном контексте";
-
  КонецЕсли;
-#ИначеЕсли Клиент Тогда
+#ИначеЕсли ТолстыйКлиентУправляемоеПриложение Или ТонкийКлиент Тогда
  Если МетаданныеМодуля.КлиентУправляемоеПриложение Тогда
-
  ОписаниеМодуля = ИсполняемыеСценарииМодуля(МетаданныеМодуля);
-
  ИначеЕсли МетаданныеМодуля.Сервер Тогда
-
  ОписаниеМодуля = ЮТЧитательСлужебныйВызовСервера.ИсполняемыеСценарииМодуля(МетаданныеМодуля);
  ЮТЛогированиеСлужебный.ВывестиСерверныеСообщения();
-
+ КонецЕсли;
+#ИначеЕсли Сервер Тогда
+ Если МетаданныеМодуля.Сервер Тогда
+ ОписаниеМодуля = ИсполняемыеСценарииМодуля(МетаданныеМодуля);
+ Иначе
+ ВызватьИсключение "Чтение списка тестов модуля в недоступном контексте";
  КонецЕсли;
 #КонецЕсли
 

diff --git a/exts/yaxunit/src/DataProcessors/ЮТЮнитТесты/Forms/Основная/Module.bsl b/exts/yaxunit/src/DataProcessors/ЮТЮнитТесты/Forms/Основная/Module.bsl
@@ -1143,10 +1143,22 @@
 &НаКлиенте
 Процедура ЗагрузитьПараметрыТестирования()
 
- Если ЗначениеЗаполнено(ИмяФайлаПараметров) Тогда
+ Если НЕ ЗначениеЗаполнено(ИмяФайлаПараметров) Тогда
+ Возврат;
+ КонецЕсли;
+
+ ОбновитьЗаголовок();
+
+ Попытка
  ПараметрыЗапускаТестирования = ЮТПараметрыЗапускаСлужебный.ПараметрыЗапускаИзФайла(ИмяФайлаПараметров, Неопределено);
+ Исключение
+ Ошибка = ИнформацияОбОшибке();
+ КонецПопытки;
+
+ Если Ошибка = Неопределено Тогда
  ПоказатьОповещениеПользователя("Настройки тестирования", , "Настройки загружены", БиблиотекаКартинок.ЮТНастройки);
- ОбновитьЗаголовок();
+ Иначе
+ ПоказатьПредупреждение(, "Не удалось загрузить настройки тестирования. " + КраткоеПредставлениеОшибки(Ошибка));
  КонецЕсли;
 
 КонецПроцедуры