Merge pull request #2011 from Vovchik45/develop

Забыл добавить обработку \x_GS при эмуляции сканирования штрихкода
Pr-Mex · Jul 22, 2023 · 24b71f1 · 24b71f1
2 parents 7054593 + f94e381
commit 24b71f1
Show file tree

Hide file tree

Showing 4 changed files with 63 additions and 8 deletions.
diff --git a/features/Core/VAExtension/VAExtension.feature b/features/Core/VAExtension/VAExtension.feature
@@ -305,6 +305,54 @@
 		И Я нажимаю на кнопку перезагрузить сценарии в Vanessa-Automation TestClient
 		И Я нажимаю на кнопку выполнить сценарии в Vanessa-Automation TestClient
 
+	* Проверка внешних событий через файл
+		И я запускаю мониторинг каталога "C:\temp\events" для внешних событий(Расширение)
+		// тест внешних событий
+		И я вызываю внешнее событие "Источник" с событием "Событие" с данными "Данные" через файл события (Расширение)
+		И я ожидаю "10" секунд результат обработки последнего события через файл и запоминаю результат в переменную "тест1"(Расширение)
+		Если переменная "тест1" имеет значение "Событие было обработано" Тогда	
+			// всё отлично
+		Иначе
+			Если переменная "тест1" имеет значение "Ошибка компиляции при вычислении выражения или выполнении фрагмента кода" Тогда
+					// всё отлично, но конфигурация не имеет процедуру обработки внешнего события
+			Иначе		
+				И я Останавливаю мониторинг каталога внешних событий(Расширение)
+				И я вызываю исключение "Ошибка работы внешнего события через файл"
+
+		// тесты встроенного языка
+		И я выполняю код встроенного языка на клиенте через файл события (Расширение)
+		"""bsl
+			Результат = "1";
+		"""
+		И я ожидаю "10" секунд результат обработки последнего события через файл и запоминаю результат в переменную "тест2"(Расширение)
+		Тогда переменная "тест2" имеет значение "1"
+		И я выполняю код встроенного языка на сервере через файл события (Расширение)
+		"""bsl
+			Результат = "2";
+		"""
+		И я ожидаю "10" секунд результат обработки последнего события через файл и запоминаю результат в переменную "тест3"(Расширение)
+		Тогда переменная "тест3" имеет значение "2"
+		И я выполняю код встроенного языка на сервере через файл события в привилегированном режиме (Расширение)
+		"""bsl
+			Результат = "3";
+		"""
+		И я ожидаю "10" секунд результат обработки последнего события через файл и запоминаю результат в переменную "тест4"(Расширение)
+		Тогда переменная "тест4" имеет значение "3"
+
+	* Проверка эмуляции работы сканера штрихкода через файл внешних событий
+		//тесты сканирования ШК
+		И я эмулирую сканирование штрихкода БПО "4670003110011" через файл события (Расширение)
+		И я ожидаю "10" секунд результат обработки последнего события через файл и запоминаю результат в переменную "тест5"(Расширение)
+		Если переменная "тест5" имеет значение "4670003110011" Тогда
+			И я Останавливаю мониторинг каталога внешних событий(Расширение)
+		Иначе
+			Если переменная "тест5" имеет значение "Нет БПО в конфигурации" Тогда
+				И я Останавливаю мониторинг каталога внешних событий(Расширение)
+			Иначе
+				И я Останавливаю мониторинг каталога внешних событий(Расширение)
+				И я вызываю исключение "Ошибка работы эмуляции сканера штрихкода"
+
+
 
 Сценарий: Активизация основного клиента
 	И я закрываю TestClient "TM"

diff --git a/features/Libraries/VAExtension/VAExtension/Forms/Форма/Ext/Form/Module.bsl b/features/Libraries/VAExtension/VAExtension/Forms/Форма/Ext/Form/Module.bsl
@@ -1491,6 +1491,7 @@
 
 	КомандаЭмуляцияШтрихкода = "e1cib/command/ОбщаяКоманда.VAExtension_ЭмуляцияШтрихкода";
 
+	Штрихкод = СтрЗаменить(Штрихкод,"\\x_GS",Символ(29));
 	Штрихкод = СтрЗаменить(Штрихкод,"\x_GS",Символ(29));
 
 	БуферОбменаVA = Ванесса.БуферОбменаVA();
@@ -1513,6 +1514,10 @@
 	КонецЕсли;	
 
 	Если КонтекстСохраняемый._ЗапущенМониторингКаталогаСобытий Тогда
+
+		Штрихкод = СтрЗаменить(Штрихкод,"\\x_GS",Символ(29));
+		Штрихкод = СтрЗаменить(Штрихкод,"\x_GS",Символ(29));
+
 		ТекстСобытия = Новый Структура;
 		ТекстСобытия.Вставить("ВидСобытия","СканерШтрихкода");
 		ТекстСобытия.Вставить("Данные",Штрихкод);

diff --git a/lib/VAExtension/ConfigDumpInfo.xml b/lib/VAExtension/ConfigDumpInfo.xml
@@ -19,8 +19,8 @@
 		<Metadata name="CommonModule.VAExtensionОбщегоНазначенияКлиент.Module" id="fc4815e4-9c56-49a0-88dd-2f7c36b70d19.0" configVersion="79c5c156788de58e91c848ac7c4fe1c93105dc0e"/>
 		<Metadata name="CommonModule.VAExtensionСобытияЧерезФайл" id="c9025cef-2d91-4932-8f3d-a8891cbe76ee" configVersion="116bc91a4aecf8f1c9e1260848798155f792d3c6"/>
 		<Metadata name="CommonModule.VAExtensionСобытияЧерезФайл.Module" id="c9025cef-2d91-4932-8f3d-a8891cbe76ee.0" configVersion="8ec7440a5b721122c443fec37e5c2b7a473f4ed7"/>
-		<Metadata name="Configuration.VAExtension" id="62fb2cd4-f060-4a2a-9e76-5375577cc91b" configVersion="57b544ea97f8e87a322ad9269a444f892d14d335"/>
-		<Metadata name="Configuration.VAExtension.ManagedApplicationModule" id="9d16e3e2-5a12-4dfc-a9bb-0baf5c50167d.6" configVersion="22c5fd658cc675a7c88415d8c8a2cb66a08151e0"/>
+		<Metadata name="Configuration.VAExtension" id="62fb2cd4-f060-4a2a-9e76-5375577cc91b" configVersion="b74c74770508e4648fe08f934174a762a4247599"/>
+		<Metadata name="Configuration.VAExtension.ManagedApplicationModule" id="9d16e3e2-5a12-4dfc-a9bb-0baf5c50167d.6" configVersion="402dd90778633dc194e8b65126e88f787d77c89e"/>
 		<Metadata name="DataProcessor.VAExtension_ВнешниеСобытия" id="bf7953f2-2fa8-4fb6-a25c-4fb46f7ed1e2" configVersion="676132cd3c16b54dfa43daad32bc5fbcb9176176"/>
 		<Metadata name="DataProcessor.VAExtension_ВнешниеСобытия.Form.Форма" id="4da28e27-8041-422a-abf3-706207b36177" configVersion="cbddd223c2cb88fd01915d25b34561275d43e6c4"/>
 		<Metadata name="DataProcessor.VAExtension_ВнешниеСобытия.Form.Форма.Form" id="4da28e27-8041-422a-abf3-706207b36177.0" configVersion="c4527d99943c9df429064612a89f1841ae3cf16f"/>

diff --git a/lib/VAExtension/Ext/ManagedApplicationModule.bsl b/lib/VAExtension/Ext/ManagedApplicationModule.bsl
@@ -63,12 +63,14 @@
 				КонецЕсли;	
 
 			ИначеЕсли ДанныеJSON.ВидСобытия = "ВнешнееСобытие" Тогда
-
-				#Если НЕ ВебКлиент Тогда
-					Выполнить "ОбработкаВнешнегоСобытия(ДанныеJSON.Источник, ДанныеJSON.Событие, ДанныеJSON.Данные)";
-				#КонецЕсли
-
-				Результат = "Событие было обработано";
+				Попытка
+					#Если НЕ ВебКлиент Тогда
+						Выполнить "ОбработкаВнешнегоСобытия(ДанныеJSON.Источник, ДанныеJSON.Событие, ДанныеJSON.Данные)";
+					#КонецЕсли
+					Результат = "Событие было обработано";
+				Исключение   
+					Результат = ИнформацияОбОшибке().Описание;
+				КонецПопытки;	
 
 			ИначеЕсли ДанныеJSON.ВидСобытия = "ВыполнитьКодНаКлиенте" Тогда