Снятие скриншотов до того как происходит снятие данных текущей формы #…

…2241
Pr-Mex · Nov 30, 2024 · c64a2cb · c64a2cb
1 parent 99474a0
commit c64a2cb
Showing 1 changed file with 33 additions and 19 deletions.
diff --git a/VanessaAutomation/Forms/УправляемаяФорма/Ext/Form/Module.bsl b/VanessaAutomation/Forms/УправляемаяФорма/Ext/Form/Module.bsl
@@ -21169,21 +21169,35 @@
 КонецПроцедуры 
 
 &НаКлиенте
-Процедура ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(СписокФайлов)
+Процедура ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(СписокФайлов, ТекШаг)
 	Если СписокФайлов.Количество() = 0 Тогда
 		Возврат;
 	КонецЕсли;	
 
 	ПоследнийФайл = СписокФайлов[СписокФайлов.Количество() - 1];
-	Шаги = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Шаги;
-	ТекШаг = Шаги[ТекИД_ШагаВМассиве];
+	Если ТекШаг = Неопределено Тогда
+		Шаги = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Шаги;
+		ТекШаг = Шаги[ТекИД_ШагаВМассиве];
+	КонецЕсли;	
 	ПоследнийФайл.Вставить("ПрикрепитьФайлКшагу", ТекШаг);
 	ПоследнийФайл.Вставить("ДобавлятьФайлКСценарию", Ложь);
 
 КонецПроцедуры 
 
 &НаКлиенте
-Процедура СборДанныхДляОтчетов(РезультатПрохожденияТестовСценария, СтрокаСценария, РезультатПрохожденияШага, ОписаниеОшибкиВнутриСценария)
+Процедура ЗапомнитьДанныеДляСборДанныхДляОтчетов(РезультатПрохожденияТестовСценария, СтрокаСценария, РезультатПрохожденияШага, ОписаниеОшибкиВнутриСценария, ТекШаг)
+
+	СохраненныеДанныеСборДанныхДляОтчетов = Новый Структура;
+	СохраненныеДанныеСборДанныхДляОтчетов.Вставить("РезультатПрохожденияТестовСценария", РезультатПрохожденияТестовСценария);
+	СохраненныеДанныеСборДанныхДляОтчетов.Вставить("СтрокаСценарияИдСтроки", СтрокаСценария.ИдСтроки);
+	СохраненныеДанныеСборДанныхДляОтчетов.Вставить("РезультатПрохожденияШага", РезультатПрохожденияШага);
+	СохраненныеДанныеСборДанныхДляОтчетов.Вставить("ОписаниеОшибкиВнутриСценария", ОписаниеОшибкиВнутриСценария);
+	СохраненныеДанныеСборДанныхДляОтчетов.Вставить("ТекШаг", ТекШаг);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура СборДанныхДляОтчетов(РезультатПрохожденияТестовСценария, СтрокаСценария, РезультатПрохожденияШага, ОписаниеОшибкиВнутриСценария, ТекШаг = Неопределено)
 
 	#Если НЕ ВебКлиент Тогда
 
@@ -21202,15 +21216,15 @@
 					ДанныеФайла.Макет.НачатьЗапись(,ИмяФайла,ТипФайлаТабличногоДокумента.MXL);
 					ДанныеФайлаДляПрикрепления = Новый Структура("ИмяФайла,Расширение,Представление", ИмяФайла, "mxl", ДанныеФайла.Имя + ".mxl");
 					ИменаФайловДляПрикрепления.Добавить(ДанныеФайлаДляПрикрепления);
-					ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);
+					ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 				КонецЕсли;	 
 
 				Если Объект.ПрикладыватьФайлыMxlСохраненныеВФорматеHTMLКОтчетуAllure Тогда
 					ИмяФайла = ПолучитьИмяВременногоФайла("html");
 					ДанныеФайла.Макет.НачатьЗапись(,ИмяФайла,ТипФайлаТабличногоДокумента.HTML5);
 					ДанныеФайлаДляПрикрепления = Новый Структура("ИмяФайла,Расширение,Представление", ИмяФайла, "html", ДанныеФайла.Имя + ".html");
 					ИменаФайловДляПрикрепления.Добавить(ДанныеФайлаДляПрикрепления);
-					ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);
+					ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 				КонецЕсли;	 
 
 			КонецЕсли;	 
@@ -21225,14 +21239,14 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьЖурналРегистрацииТекущейБазы(ТабДок, СтрокаСценария, "mxl", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли;	 
 
 			Если Объект.ПрикладыватьФайлыMxlСохраненныеВФорматеHTMLКОтчетуAllure Тогда
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьЖурналРегистрацииТекущейБазы(ТабДок, СтрокаСценария, "html", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли;	 
 
 		Исключение
@@ -21244,7 +21258,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 				ПрикрепитьЖурналРегистрацииТекущейБазы(ТабДок, СтрокаСценария, "xlsx", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли;	 
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureЖурналРегистрацииВыполненияСценария", ОписаниеОшибки());
@@ -21266,7 +21280,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьДанныеОСостоянииАктивнойФормы(ТабДок, СтрокаСценария, "mxl", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли;
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОСостоянииАктивнойФормы", ОписаниеОшибки());
@@ -21277,7 +21291,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьДанныеОСостоянииАктивнойФормы(ТабДок, СтрокаСценария, "html", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);	
 			КонецЕсли;
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОСостоянииАктивнойФормы", ОписаниеОшибки());
@@ -21288,7 +21302,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 				ПрикрепитьДанныеОСостоянииАктивнойФормы(ТабДок, СтрокаСценария, "xlsx", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли;	 
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОСостоянииАктивнойФормы", ОписаниеОшибки());
@@ -21310,7 +21324,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьДанныеОСостоянииВсехФорм(ТабДок, СтрокаСценария, "mxl", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОСостоянииВсехФорм", ОписаниеОшибки());
@@ -21321,7 +21335,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьДанныеОСостоянииВсехФорм(ТабДок, СтрокаСценария, "html", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОСостоянииВсехФорм", ОписаниеОшибки());
@@ -21332,7 +21346,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьДанныеОСостоянииВсехФорм(ТабДок, СтрокаСценария, "xlsx", ОписаниеОшибкиВнутриСценария));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли;	 
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОСостоянииВсехФорм", ОписаниеОшибки());
@@ -21344,7 +21358,7 @@
 			ИменаФайловДляПрикрепления.Добавить(
 				ПрикрепитьДанныеОСетевыхСоединениях(СтрокаСценария, ОписаниеОшибкиВнутриСценария));
 
-			ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+			ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОСетевыхСоединениях", ОписаниеОшибки());
 		КонецПопытки;
@@ -21355,7 +21369,7 @@
 			ИменаФайловДляПрикрепления.Добавить(
 				ПрикрепитьДанныеОПроцессахОС(СтрокаСценария, ОписаниеОшибкиВнутриСценария));
 
-			ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+			ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОПроцессахОС", ОписаниеОшибки());
 		КонецПопытки;
@@ -21367,7 +21381,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьДанныеОЗначенияхПеременных(СтрокаСценария, ОписаниеОшибкиВнутриСценария, "mxl"));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОЗначенияхПеременных", ОписаниеОшибки());
@@ -21378,7 +21392,7 @@
 				ИменаФайловДляПрикрепления.Добавить(
 					ПрикрепитьДанныеОЗначенияхПеременных(СтрокаСценария, ОписаниеОшибкиВнутриСценария, "html"));
 
-				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления);	
+				ДобавитьПоследнийФайлИзМассиваКТекущемуШагу(ИменаФайловДляПрикрепления, ТекШаг);
 			КонецЕсли
 		Исключение
 			ЗаписатьЛогВЖРОшибка("VanessaAutomation.ПрикладыватьКОтчетуAllureДанныеОЗначенияхПеременных", ОписаниеОшибки());