Merge pull request #2437 from beefree86/task7

Настройка для скрытия некоторых переменных в аллюр

Author: Pr-Mex

VanessaAutomation.xml

@@ -13962,6 +13962,44 @@ Default: ffmpeg</v8:content>
 					<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
 				</Properties>
 			</Attribute>
+			<Attribute uuid="e25eaaad-686a-40ff-a116-f566c346e899">
+				<Properties>
+					<Name>СписокИсключаемыхПеременныхAllure</Name>
+					<Synonym>
+						<v8:item>
+							<v8:lang>ru</v8:lang>
+							<v8:content>Список исключаемых переменных allure</v8:content>
+						</v8:item>
+						<v8:item>
+							<v8:lang>en</v8:lang>
+							<v8:content>List of excluded allure variables</v8:content>
+						</v8:item>
+					</Synonym>
+					<Comment/>
+					<Type>
+						<v8:Type>v8:ValueListType</v8:Type>
+					</Type>
+					<PasswordMode>false</PasswordMode>
+					<Format/>
+					<EditFormat/>
+					<ToolTip/>
+					<MarkNegatives>false</MarkNegatives>
+					<Mask/>
+					<MultiLine>false</MultiLine>
+					<ExtendedEdit>false</ExtendedEdit>
+					<MinValue xsi:nil="true"/>
+					<MaxValue xsi:nil="true"/>
+					<FillChecking>DontCheck</FillChecking>
+					<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
+					<ChoiceParameterLinks/>
+					<ChoiceParameters/>
+					<QuickChoice>Auto</QuickChoice>
+					<CreateOnInput>Auto</CreateOnInput>
+					<ChoiceForm/>
+					<LinkByType/>
+					<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
+				</Properties>
+			</Attribute>
 			<Form>Форма</Form>
 			<Form>УправляемаяФорма</Form>
 			<Form>ВыборИзвестногоШага</Form>

VanessaAutomation/Ext/ObjectModule.bsl

@@ -150,7 +150,8 @@
 	Allure.Вставить("ПрикладыватьФайлыXlsxКОтчетуAllure", Истина);	
 	Allure.Вставить("ПрикладыватьФайлыMxlСохраненныеВФорматеHTMLКОтчетуAllure", Истина);	
 	Allure.Вставить("ПрикладыватьДополнительныеДанныеПриСравненииЗначенияСЭталономAllure", Ложь);	
-	Allure.Вставить("ПодставлятьВОтчетеAllureЗначенияПеременных", Истина);	
+	Allure.Вставить("ПодставлятьВОтчетеAllureЗначенияПеременных", Истина);
+	Allure.Вставить("СписокИсключаемыхПеременныхAllure", Новый Массив);
 	Allure.Вставить("ПрикладыватьКОтчетуAllureДанныеОСостоянииВсехФорм", Ложь);	
 	Allure.Вставить("ПрикладыватьКОтчетуAllureДанныеОСетевыхСоединениях", Ложь);	
 	Allure.Вставить("ПрикладыватьКОтчетуAllureДанныеОПроцессахОС", Ложь);	
@@ -1571,9 +1572,22 @@
 
 КонецПроцедуры
 
-Функция ПодставитьЗначенияПеременныхВШаг(Знач Стр, ДанныеШага)
+Функция ПодставитьЗначенияПеременныхВШаг(Знач Стр, ДанныеШага, ПодставлятьЗначения = Истина, СписокИсключений = Неопределено)
 
-	Для Каждого Элем Из ДанныеШага.ПеременныеДляСохраненияВШаг Цикл
+	Если СписокИсключений = Неопределено Тогда
+		СписокИсключений = Новый Массив;
+	КонецЕсли;
+
+	// Получаем полный список переменных
+	ПеременныеДляПоиска = Новый Массив;
+	Если ДанныеШага.Свойство("ВсеПеременныеШага") Тогда
+		ПеременныеДляПоиска = ДанныеШага.ВсеПеременныеШага;
+	ИначеЕсли ДанныеШага.Свойство("ПеременныеДляСохраненияВШаг") Тогда
+		ПеременныеДляПоиска = ДанныеШага.ПеременныеДляСохраненияВШаг;
+	КонецЕсли;
+
+	// Обрабатываем переменные в строке
+	Для Каждого Элем Из ПеременныеДляПоиска Цикл
 		Если Элем.Тип Тогда
 			//Это глобальная переменная
 			СпецСимволы = "$$";
@@ -1582,24 +1596,37 @@
 			СпецСимволы = "$";
 		КонецЕсли;	 
 
-		Стр = СтрЗаменить(Стр, СпецСимволы + Элем.Имя + СпецСимволы, Элем.Значение);
-		Если ДанныеШага.Свойство("ЕстьПеременныеТаблицыПеременных") И ДанныеШага.ЕстьПеременныеТаблицыПеременных Тогда
-			Стр = СтрЗаменить(Стр, "'" + Элем.Имя + "'", "'" + Элем.Значение + "'");
-			Стр = СтрЗаменить(Стр, """" + Элем.Имя + """", """" + Элем.Значение + """");
+		Если ПодставлятьЗначения И НЕ ПеременнаяВСпискеИсключений(Элем.Имя, СписокИсключений) Тогда
+			Стр = СтрЗаменить(Стр, СпецСимволы + Элем.Имя + СпецСимволы, Строка(Элем.Значение));
+			Если ДанныеШага.Свойство("ЕстьПеременныеТаблицыПеременных") И ДанныеШага.ЕстьПеременныеТаблицыПеременных Тогда
+				Стр = СтрЗаменить(Стр, "'" + Элем.Имя + "'", "'" + Строка(Элем.Значение) + "'");
+				Стр = СтрЗаменить(Стр, """" + Элем.Имя + """", """" + Строка(Элем.Значение) + """");
+			КонецЕсли;
 		КонецЕсли;	
 	КонецЦикла;
-	
-	Если ДанныеШага.Свойство("ЗначенияИзТаблицыПеременных") Тогда
+
+	Если ПодставлятьЗначения И ДанныеШага.Свойство("ЗначенияИзТаблицыПеременных") Тогда
 		Для Каждого КлючЗначение Из ДанныеШага.ЗначенияИзТаблицыПеременных Цикл
-			Стр = СтрЗаменить(Стр, "'" + КлючЗначение.Ключ + "'", "'" + КлючЗначение.Значение + "'");
-			Стр = СтрЗаменить(Стр, """" + КлючЗначение.Ключ + """", """" + КлючЗначение.Значение + """");
-		КонецЦикла;	
-	КонецЕсли;	
-	
+			Если НЕ ПеременнаяВСпискеИсключений(КлючЗначение.Ключ, СписокИсключений) Тогда
+				Стр = СтрЗаменить(Стр, "'" + КлючЗначение.Ключ + "'", "'" + Строка(КлючЗначение.Значение) + "'");
+				Стр = СтрЗаменить(Стр, """" + КлючЗначение.Ключ + """", """" + Строка(КлючЗначение.Значение) + """");
+			КонецЕсли;
+		КонецЦикла;
+	КонецЕсли;
+
 	Возврат Стр;
 
 КонецФункции
 
+Функция ПеременнаяВСпискеИсключений(ИмяПеременной, СписокИсключений)
+	Для Каждого ЭлементСписка Из СписокИсключений Цикл
+		Если НРег(СокрЛП(ЭлементСписка)) = НРег(СокрЛП(ИмяПеременной)) Тогда
+			Возврат Истина;
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Ложь;
+КонецФункции
+
 Функция ВставитьГруппыШагов(СтрокаВыполнения, ДопПараметрыАллюр2, РезультатыПрохождения, МассивШагов)
 
 	ДанныеГруппыШагов = ДопПараметрыАллюр2.ГруппыШагов[СтрокаВыполнения.ИдСтроки];
@@ -1691,11 +1718,30 @@
 
 	Шаг = ПолучитьОписаниеШагаАллюр2();
 	Шаг.name  = Строка(РезультатыПрохождения.Имя);
-	ПодставитьЗначенияПеременныхВШаг = Ложь;
-	Если РезультатыПрохождения.Свойство("ПеременныеДляСохраненияВШаг") Тогда
-		ПодставитьЗначенияПеременныхВШаг = Истина;
-		Шаг.name = ПодставитьЗначенияПеременныхВШаг(Строка(РезультатыПрохождения.Имя), РезультатыПрохождения);
-	КонецЕсли;	 
+    Если РезультатыПрохождения.Свойство("ПеременныеДляСохраненияВШаг") Тогда
+
+        ДанныеДляИмени = Новый Структура;
+
+		МассивПерем = Новый Массив;
+
+		Для Каждого ПеремШага Из РезультатыПрохождения.ПеременныеДляСохраненияВШаг Цикл
+			Позиция = Найти(Шаг.name, "'" + ПеремШага.Имя + "' в переменную");
+			Если Позиция = 0 Тогда
+				МассивПерем.Добавить(ПеремШага); 
+			КонецЕсли;
+        КонецЦикла;
+		ДанныеДляИмени.Вставить("ПеременныеДляСохраненияВШаг", МассивПерем);
+
+        Если РезультатыПрохождения.Свойство("ЕстьПеременныеТаблицыПеременных") Тогда
+            ДанныеДляИмени.Вставить("ЕстьПеременныеТаблицыПеременных", РезультатыПрохождения.ЕстьПеременныеТаблицыПеременных);
+        КонецЕсли;
+        Если РезультатыПрохождения.Свойство("ЗначенияИзТаблицыПеременных") Тогда
+            ДанныеДляИмени.Вставить("ЗначенияИзТаблицыПеременных", РезультатыПрохождения.ЗначенияИзТаблицыПеременных);
+        КонецЕсли;
+
+        Шаг.name = ПодставитьЗначенияПеременныхВШаг(Шаг.name, ДанныеДляИмени, ДопПараметрыАллюр2.ПодставлятьВОтчетеAllureЗначенияПеременных, ДопПараметрыАллюр2.СписокИсключаемыхПеременныхAllure);
+    КонецЕсли;
+
 	Если РезультатыПрохождения.ВремяНачала <> Неопределено Тогда
 		Шаг.start = (РезультатыПрохождения.ВремяНачала - РазницаВМилисекундахМеждуЮниксИНачалЭпохи);
 		Шаг.stop  = (РезультатыПрохождения.ВремяОкончания - РазницаВМилисекундахМеждуЮниксИНачалЭпохи);
@@ -1707,14 +1753,20 @@
 		Для каждого Элемент Из СтрокаВыполнения.ЗначенияПараметров Цикл
 			ИмяПараметра = "Парам" + Счетчик;
 			Счетчик = Счетчик + 1;
-			Если ПодставитьЗначенияПеременныхВШаг Тогда
-				Шаг["parameters"].Добавить(Новый Структура("name, value", ИмяПараметра,
-					ПодставитьЗначенияПеременныхВШаг(Элемент.Значение.Значение, РезультатыПрохождения)));
+			Если ТипЗнч(Элемент.Значение) = Тип("Структура") И Элемент.Значение.Свойство("Значение") Тогда
+				ТекстПараметра = Элемент.Значение.Значение;
+			Иначе	
+				ТекстПараметра = Элемент.Значение;
+			КонецЕсли;	 
+			ТекстДляПодстановки = ТекстПараметра;
+			
+			Если ДопПараметрыАллюр2.ПодставлятьВОтчетеAllureЗначенияПеременных Тогда
+			    Значение = ПодставитьЗначенияПеременныхВШаг(ТекстДляПодстановки, РезультатыПрохождения, Истина, ДопПараметрыАллюр2.СписокИсключаемыхПеременныхAllure);
 			Иначе	
-				Шаг["parameters"].Добавить(Новый Структура("name, value",
-					ИмяПараметра, Элемент.Значение.Значение));
+			    Значение = ТекстПараметра;
 			КонецЕсли;	 
 
+			Шаг["parameters"].Добавить(Новый Структура("name, value", ИмяПараметра, Значение));
 		КонецЦикла;
 
 		МассивПараметров = Новый Массив();		
@@ -1740,10 +1792,16 @@
 				Для каждого Колонка Из СтрокиТаблицы.ПараметрыТаблицы Цикл
 					НомерКолонки       = НомерКолонки + 1;
 					СтруктураПараметра = Колонка.Значение;
-					Значение           = Строка(СтруктураПараметра.Значение);
-					Если ПодставитьЗначенияПеременныхВШаг Тогда
-						Значение = ПодставитьЗначенияПеременныхВШаг(Значение, РезультатыПрохождения);
+					Если ТипЗнч(СтруктураПараметра) = Тип("Структура") И СтруктураПараметра.Свойство("Значение") Тогда
+						Значение = СтруктураПараметра.Значение;
+					Иначе
+						Значение = СтруктураПараметра;
 					КонецЕсли;	 
+					
+				    Если ДопПараметрыАллюр2.ПодставлятьВОтчетеAllureЗначенияПеременных И ТипЗнч(Значение) = Тип("Строка") Тогда
+				        Значение = ПодставитьЗначенияПеременныхВШаг(Значение, РезультатыПрохождения, Истина, ДопПараметрыАллюр2.СписокИсключаемыхПеременныхAllure);
+				    КонецЕсли;	 
+					
 					СтрокаCSV = СтрокаCSV + ?(НомерКолонки = 1, "", ",") + """" + СтрЗаменить(Значение, """", """""") + """";
 					СтруктураПарамТаблица.Вставить("Кол" + НомерКолонки, Значение);
 				КонецЦикла;
@@ -1767,7 +1825,7 @@
 
 				ДвоичныеДанныеФайла = Новый ДвоичныеДанные(ВременноеИмяФайла);
 				СтруктураФайлаXML = Новый Структура;
-				СтруктураФайлаXML.Вставить("РеальноеИмяФайла", Строка(РеальноеИмяФайла)); 
+				СтруктураФайлаXML.Вставить("РеальноеИмяФайла", РеальноеИмяФайла); 
 				СтруктураФайлаXML.Вставить("ФайлXMLДвоичныеДанные", ДвоичныеДанныеФайла);
 				МассивXMLОтчетаAllure.Добавить(СтруктураФайлаXML);
 				УдалитьФайлы(ВременноеИмяФайла);
@@ -2737,6 +2795,8 @@
 	ДопПараметрыАллюр2 = Новый Структура;
 	ДопПараметрыАллюр2.Вставить("КешИменПриложенныхФайлов", Новый Соответствие);
 	ДопПараметрыАллюр2.Вставить("СтрокаДереваПоИдСтроки", СтрокаДереваПоИдСтроки(ДеревоТестовПарам));
+	ДопПараметрыАллюр2.Вставить("ПодставлятьВОтчетеAllureЗначенияПеременных", СтруктураОФ.ПодставлятьВОтчетеAllureЗначенияПеременных);
+	ДопПараметрыАллюр2.Вставить("СписокИсключаемыхПеременныхAllure", СтруктураОФ.СписокИсключаемыхПеременныхAllure);
 	Если СтруктураОФ.Свойство("КаталогПроекта") Тогда
 		ДопПараметрыАллюр2.Вставить("КаталогПроекта", СтруктураОФ.КаталогПроекта);
 	КонецЕсли;	

VanessaAutomation/Forms/ОбщегоНазначенияVA/Ext/Form/Module.bsl

@@ -603,6 +603,7 @@
 	КоллекцияКоманд.Вставить("ПрикладыватьФайлыMxlСохраненныеВФорматеHTMLКОтчетуAllure", Новый Структура("Р, А", "ПрикладыватьФайлыMxlСохраненныеВФорматеHTMLКОтчетуAllure", "attachmxlfilessavedinhtmlformattoallurereport"));
 	КоллекцияКоманд.Вставить("ПрикладыватьДополнительныеДанныеПриСравненииЗначенияСЭталономAllure", Новый Структура("Р, А", "ПрикладыватьДополнительныеДанныеПриСравненииЗначенияСЭталономAllure", "attachadditionaldatawhencomparingvaluewithreferenceallure"));
 	КоллекцияКоманд.Вставить("ПодставлятьВОтчетеAllureЗначенияПеременных", Новый Структура("Р, А", "ПодставлятьВОтчетеAllureЗначенияПеременных", "setvariablevaluesinstepsallurereport"));
+	КоллекцияКоманд.Вставить("СписокИсключаемыхПеременныхAllure", Новый Структура("Р, А", "СписокИсключаемыхПеременныхAllure", "allureexcludevars"));
 	КоллекцияКоманд.Вставить("ПрикладыватьКОтчетуAllureДанныеОСостоянииАктивнойФормы", Новый Структура("Р, А", "ПрикладыватьКОтчетуAllureДанныеОСостоянииАктивнойФормы", "attachactiveformdatatotheallurereport"));
 	КоллекцияКоманд.Вставить("ПрикладыватьКОтчетуAllureДанныеОСостоянииВсехФорм", Новый Структура("Р, А", "ПрикладыватьКОтчетуAllureДанныеОСостоянииВсехФорм", "attachallformsdatatotheallurereport"));
 	КоллекцияКоманд.Вставить("ПрикладыватьКОтчетуAllureДанныеОСетевыхСоединениях", Новый Структура("Р, А", "ПрикладыватьКОтчетуAllureДанныеОСетевыхСоединениях", "attachnetworkconnectiondatatotheallurereport"));