добавлено свойство действие в комментарий если в блоке

ivanov660 · Nov 8, 2020 · 31221ca · 31221ca
1 parent 3cb40bf
commit 31221ca
Show file tree

Hide file tree

Showing 4 changed files with 64 additions and 5 deletions.
diff --git a/UI-ScenarioTestManager/bin/МенеджерСценарногоТеста.epf b/UI-ScenarioTestManager/bin/МенеджерСценарногоТеста.epf
diff --git a/...ExternalDataProcessors/МенеджерСценарногоТеста/Forms/Форма_ОсновноеРабочееМесто/Form.form b/...ExternalDataProcessors/МенеджерСценарногоТеста/Forms/Форма_ОсновноеРабочееМесто/Form.form
@@ -14690,6 +14690,23 @@
         <common>true</common>
       </edit>
     </columns>
+    <columns>
+      <name>TurnToCommentInBlock</name>
+      <title>
+        <key>ru</key>
+        <value>Turn to comment in block</value>
+      </title>
+      <id>114</id>
+      <valueType>
+        <types>Boolean</types>
+      </valueType>
+      <view>
+        <common>true</common>
+      </view>
+      <edit>
+        <common>true</common>
+      </edit>
+    </columns>
   </attributes>
   <attributes>
     <name>ТаблицаСценария</name>
@@ -16263,6 +16280,23 @@
         <common>true</common>
       </edit>
     </columns>
+    <columns>
+      <name>TurnToCommentInBlock</name>
+      <title>
+        <key>ru</key>
+        <value>Turn to comment in block</value>
+      </title>
+      <id>113</id>
+      <valueType>
+        <types>Boolean</types>
+      </valueType>
+      <view>
+        <common>true</common>
+      </view>
+      <edit>
+        <common>true</common>
+      </edit>
+    </columns>
   </attributes>
   <attributes>
     <name>НаборТестовЗапущен</name>

diff --git a/...xternalDataProcessors/МенеджерСценарногоТеста/Forms/Форма_ОсновноеРабочееМесто/Module.bsl b/...xternalDataProcessors/МенеджерСценарногоТеста/Forms/Форма_ОсновноеРабочееМесто/Module.bsl
@@ -1552,6 +1552,7 @@ EndFunction
 	мПараметры.Вставить("Key",mKey);
 	мПараметры.Вставить("Type",Узел.Type);
 	мПараметры.Вставить("FileName",FileName);
+	мПараметры.Вставить("TurnToCommentInBlock",Узел.TurnToCommentInBlock);
 
 	// параметры подключения по умолчанию
 	ПараметрыПодключенияПоУмолчанию = новый Структура();
@@ -3040,6 +3041,10 @@ EndFunction
 			НоваяЗаписьXML.ЗаписатьНачалоЭлемента("ОдинУровеньВниз");
 			НоваяЗаписьXML.ЗаписатьТекст(?(Узел.ОдинУровеньВниз=Истина,"true","false"));
 			НоваяЗаписьXML.ЗаписатьКонецЭлемента(); 
+			// TurnToCommentInBlock
+			НоваяЗаписьXML.ЗаписатьНачалоЭлемента("TurnToCommentInBlock");
+			НоваяЗаписьXML.ЗаписатьТекст(?(Узел.TurnToCommentInBlock=Истина,"true","false"));
+			НоваяЗаписьXML.ЗаписатьКонецЭлемента(); 
 			// ClickX
 			НоваяЗаписьXML.ЗаписатьНачалоЭлемента("ClickX");
 			НоваяЗаписьXML.ЗаписатьТекст(Узел.ClickX);
@@ -3445,6 +3450,14 @@ EndFunction
 		ИначеЕсли ЧтениеXML.Имя = "Свойства" Тогда
 			// прочтем свойства
 			ЗагрузитьСценарийФорматXMLСвойстваШага(ЧтениеXML,ШагСвойства);
+			Если ЗагрузкаБлока=Истина Тогда
+				// перобразуем к комментарию если стоит условие TurnToCommentInBlock
+				Если ШагСвойства.Свойство("TurnToCommentInBlock") И ШагСвойства.TurnToCommentInBlock=Истина Тогда
+					ШагСвойства.Наименование = "В комментарий -> "+ШагСвойства.Наименование; 
+					ШагСвойства.Действие = "Комментарий";
+					ШагСвойства.ДанныеКартинки = мСцен_ПолучитьДанныеКартинки_НаКлиенте(ШагСвойства);
+				КонецЕсли;
+			КонецЕсли;
 		ИначеЕсли ЧтениеXML.Имя = "Параметр" И ЧтениеXML.ТипУзла=ТипУзлаXML.НачалоЭлемента Тогда
 			Параметр = ПараметрыСценария.Добавить();
 			МассивНовыхПараметров.Добавить(Параметр);
@@ -3523,7 +3536,7 @@ EndFunction
 		ИмяТега = ЧтениеXML.Имя;
 		Если ИмяТега = "Свойства" И ЧтениеXML.ТипУзла=ТипУзлаXML.КонецЭлемента Тогда
 			Возврат;
-		ИначеЕсли Найти("Активность ПродолжитьПриОшибке ЭтоГлавноеОкно ЭтоБлок SwitchSelection Cancel ИспользоватьВариантыПоиска ОдинУровеньВниз",ИмяТега) 
+		ИначеЕсли Найти("Активность ПродолжитьПриОшибке ЭтоГлавноеОкно ЭтоБлок SwitchSelection Cancel ИспользоватьВариантыПоиска ОдинУровеньВниз TurnToCommentInBlock",ИмяТега) 
 			И ЧтениеXML.ТипУзла=ТипУзлаXML.НачалоЭлемента Тогда
 			ЧтениеXML.Прочитать();
 			ШагСвойства.Вставить(ИмяТега,?(ЧтениеXML.Значение="true",Истина,Ложь));
@@ -5567,12 +5580,22 @@ EndFunction
 	// ОдинУровеньВниз
 	стр_н = новый Структура;
 	стр_н.Вставить("Свойство","ОдинУровеньВниз");
-	стр_н.Вставить("Синоним","ОдинУровеньВниз");
+	стр_н.Вставить("Синоним","Один уровень вниз");
 	стр_н.Вставить("Значение",Неопределено);
 	стр_н.Вставить("ОписаниеТипов",ОписаниеТиповБулево);
 	стр_н.Вставить("ТолькоПросмотр",Истина);
 	стр_н.Вставить("Видимость",Ложь);
-	ДоступныеСвойстваМассив.Добавить(стр_н);	// ClickX	
+	ДоступныеСвойстваМассив.Добавить(стр_н);
+	// TurnToCommentInBlock	
+	стр_н = новый Структура;
+	стр_н.Вставить("Свойство","TurnToCommentInBlock");
+	стр_н.Вставить("Синоним","В блоке как комментарий");
+	стр_н.Вставить("Значение",Неопределено);
+	стр_н.Вставить("ОписаниеТипов",ОписаниеТиповБулево);
+	стр_н.Вставить("ТолькоПросмотр",Истина);
+	стр_н.Вставить("Видимость",Ложь);
+	ДоступныеСвойстваМассив.Добавить(стр_н);
+	// ClickX	
 	стр_н = новый Структура;
 	стр_н.Вставить("Свойство","ClickX");
 	стр_н.Вставить("Синоним","Click X");
@@ -5858,7 +5881,8 @@ EndFunction
 		СоответсвиеДляПоиска.Получить("ПродолжитьПриОшибке").Видимость = Истина;
 		СоответсвиеДляПоиска.Получить("СвойстваПодключенияКлиентаТестирования").Видимость = Истина;
 		СоответсвиеДляПоиска.Получить("Интервал").Видимость = Истина;
-		СоответсвиеДляПоиска.Получить("API").Видимость = Истина;		
+		СоответсвиеДляПоиска.Получить("API").Видимость = Истина;
+		СоответсвиеДляПоиска.Получить("TurnToCommentInBlock").Видимость = Истина;		
 	ИначеЕсли Действие = "ВызватьИсключение" ИЛИ Действие = "ThrowException" Тогда
 		СоответсвиеДляПоиска.Получить("ПродолжитьПриОшибке").Видимость = Истина;
 		СоответсвиеДляПоиска.Получить("OutputText").Видимость = Истина;
@@ -5867,6 +5891,7 @@ EndFunction
 		СоответсвиеДляПоиска.Получить("ПродолжитьПриОшибке").Видимость = Истина;
 		СоответсвиеДляПоиска.Получить("СвойстваПодключенияКлиентаТестирования").Видимость = Истина;
 		СоответсвиеДляПоиска.Получить("API").Видимость = Истина;
+		СоответсвиеДляПоиска.Получить("TurnToCommentInBlock").Видимость = Истина;
 	ИначеЕсли Действие="Таймер" Тогда
 		СоответсвиеДляПоиска.Получить("Интервал").Видимость = Истина;
 		СоответсвиеДляПоиска.Получить("API").Видимость = Истина;		

diff --git a/UI-ScenarioTestManager/src/ExternalDataProcessors/МенеджерСценарногоТеста/ObjectModule.bsl b/UI-ScenarioTestManager/src/ExternalDataProcessors/МенеджерСценарногоТеста/ObjectModule.bsl
@@ -7,7 +7,7 @@
 	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
 	ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
 	ПараметрыРегистрации.Вставить("Наименование", "Менеджер сценарного теста");
-	ПараметрыРегистрации.Вставить("Версия", "2020.11.07");
+	ПараметрыРегистрации.Вставить("Версия", "2020.11.08");
 	ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
 	ПараметрыРегистрации.Вставить("Информация", ПолучитьИнформацию());
 	ПараметрыРегистрации.Вставить("ВерсияБСП", "1.2.1.4");