Реализация паузы через внешнюю компоненту

bia-technologies · Aug 9, 2023 · 04e5777 · 04e5777
1 parent 0b92776
commit 04e5777
Show file tree

Hide file tree

Showing 6 changed files with 49 additions and 0 deletions.
diff --git a/exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl
@@ -841,6 +841,12 @@
 
 КонецПроцедуры
 
+Процедура Пауза(Время) Экспорт
+
+ ЮТПовторногоИспользования.Компонента().Sleep(Время);
+
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции

diff --git a/exts/yaxunit/src/CommonModules/ЮТПовторногоИспользования/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТПовторногоИспользования/Module.bsl
@@ -42,4 +42,27 @@
 
 КонецФункции
 
+Функция Компонента() Экспорт
+
+ ЮТПовторногоИспользования.ПодключитьКомпоненту();
+ Возврат Новый ("AddIn.YaxUnitAddin.Sleep");
+
+КонецФункции
+
+Функция ПодключитьКомпоненту() Экспорт
+
+ ИмяМакета = "ОбщийМакет.AddIn";
+ ИмяКомпоненты = "YaxUnitAddin";
+
+#Если ТонкийКлиент Тогда
+ Если НЕ ПодключитьВнешнююКомпоненту(ИмяМакета, ИмяКомпоненты) Тогда
+ УстановитьВнешнююКомпоненту(ИмяМакета);
+ Иначе
+ Возврат Истина;
+ КонецЕсли;
+#КонецЕсли
+ Возврат ПодключитьВнешнююКомпоненту(ИмяМакета, ИмяКомпоненты);
+
+КонецФункции
+
 #КонецОбласти
diff --git a/exts/yaxunit/src/CommonTemplates/AddIn/AddIn.mdo b/exts/yaxunit/src/CommonTemplates/AddIn/AddIn.mdo
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<mdclass:CommonTemplate xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="28fa5c27-1be9-4b6d-b814-c72dd59f398c">
+ <name>AddIn</name>
+ <synonym>
+ <key>ru</key>
+ <value>Add in</value>
+ </synonym>
+ <templateType>BinaryData</templateType>
+</mdclass:CommonTemplate>
diff --git a/exts/yaxunit/src/CommonTemplates/AddIn/Template.bin b/exts/yaxunit/src/CommonTemplates/AddIn/Template.bin
diff --git a/exts/yaxunit/src/Configuration/Configuration.mdo b/exts/yaxunit/src/Configuration/Configuration.mdo
@@ -35,6 +35,7 @@
  <commonPictures>CommonPicture.ЮТУпал</commonPictures>
  <commonPictures>CommonPicture.ЮТУспешно</commonPictures>
  <commonPictures>CommonPicture.ЮТЭлементыТестов</commonPictures>
+ <commonTemplates>CommonTemplate.AddIn</commonTemplates>
  <commonTemplates>CommonTemplate.ЮТ_СловарьПодражателя_Компании_Наименования_ru</commonTemplates>
  <commonTemplates>CommonTemplate.ЮТ_СловарьПодражателя_Компании_ПрефиксыНаименований_ru</commonTemplates>
  <commonTemplates>CommonTemplate.ЮТ_СловарьПодражателя_Люди_ЖенскиеИмена_ru</commonTemplates>

diff --git a/tests/src/CommonModules/ОМ_Общий/Module.bsl b/tests/src/CommonModules/ОМ_Общий/Module.bsl
@@ -25,10 +25,20 @@
  .ДобавитьТест("ОбъединитьВСтруктуру")
  .ДобавитьТест("СформироватьСтрокуСимволов")
  .ДобавитьТест("ДанныеСовпадают")
+ .ДобавитьТест("Пауза")
  ;
 
 КонецПроцедуры
 
+Процедура Пауза() Экспорт
+
+ ЮТОбщий.Пауза(1);
+ ЮТОбщий.Пауза(10);
+ ЮТОбщий.Пауза(100);
+ ЮТОбщий.Пауза(1000);
+
+КонецПроцедуры
+
 Процедура ДобавитьСтроку() Экспорт
 
  Варианты = ЮТест.Варианты("Исходная, Дополнение, Разделитель, Результат")