Merge pull request #88 from ivanov660/#87_#84_добавление_и_исправления

#87 #84 добавление и исправления

TestingToolPlugins/src/ExternalDataProcessors/ExternalAutomationUI_TaskBuilder/Forms/Форма/Form.form

@@ -171,6 +171,56 @@
           <textEdit>true</textEdit>
         </extInfo>
       </items>
+      <items xsi:type="form:FormField">
+        <name>Родитель</name>
+        <id>144</id>
+        <visible>true</visible>
+        <enabled>true</enabled>
+        <userVisible>
+          <common>true</common>
+        </userVisible>
+        <dataPath xsi:type="form:DataPath">
+          <segments>Родитель</segments>
+        </dataPath>
+        <extendedTooltip>
+          <name>РасширеннаяПодсказка</name>
+          <id>146</id>
+          <visible>true</visible>
+          <enabled>true</enabled>
+          <userVisible>
+            <common>true</common>
+          </userVisible>
+          <type>Label</type>
+          <autoMaxWidth>true</autoMaxWidth>
+          <autoMaxHeight>true</autoMaxHeight>
+          <extInfo xsi:type="form:LabelDecorationExtInfo">
+            <horizontalAlign>Left</horizontalAlign>
+          </extInfo>
+        </extendedTooltip>
+        <contextMenu>
+          <name>КонтекстноеМеню</name>
+          <id>145</id>
+          <visible>true</visible>
+          <enabled>true</enabled>
+          <userVisible>
+            <common>true</common>
+          </userVisible>
+          <autoFill>true</autoFill>
+        </contextMenu>
+        <type>InputField</type>
+        <editMode>Enter</editMode>
+        <showInHeader>true</showInHeader>
+        <headerHorizontalAlign>Left</headerHorizontalAlign>
+        <showInFooter>true</showInFooter>
+        <extInfo xsi:type="form:InputFieldExtInfo">
+          <autoMaxWidth>true</autoMaxWidth>
+          <autoMaxHeight>true</autoMaxHeight>
+          <wrap>true</wrap>
+          <chooseType>true</chooseType>
+          <typeDomainEnabled>true</typeDomainEnabled>
+          <textEdit>true</textEdit>
+        </extInfo>
+      </items>
       <items xsi:type="form:FormGroup">
         <name>ГруппаДополнительно</name>
         <id>14</id>
@@ -182,10 +232,8 @@
           <userVisible>
             <common>true</common>
           </userVisible>
-          <dataPath xsi:type="form:MultiLanguageDataPath">
-            <paths xsi:type="form:DataPath">
-              <segments>ГруппаЗадания</segments>
-            </paths>
+          <dataPath xsi:type="form:DataPath">
+            <segments>Ответственный</segments>
           </dataPath>
           <extendedTooltip>
             <name>ОтветственныйРасширеннаяПодсказка</name>
@@ -668,6 +716,7 @@
           <autoMaxWidth>true</autoMaxWidth>
           <autoMaxHeight>true</autoMaxHeight>
           <wrap>true</wrap>
+          <autoMarkIncomplete>true</autoMarkIncomplete>
           <chooseType>true</chooseType>
           <typeDomainEnabled>true</typeDomainEnabled>
           <textEdit>true</textEdit>
@@ -677,62 +726,6 @@
           </inputHint>
         </extInfo>
       </items>
-      <items xsi:type="form:FormField">
-        <name>ПортExternalAutomationUI</name>
-        <id>135</id>
-        <visible>true</visible>
-        <enabled>true</enabled>
-        <userVisible>
-          <common>true</common>
-        </userVisible>
-        <dataPath xsi:type="form:MultiLanguageDataPath">
-          <paths xsi:type="form:DataPath">
-            <segments>ПортExternalAutomationUI</segments>
-          </paths>
-        </dataPath>
-        <extendedTooltip>
-          <name>ПортExternalAutomationUIРасширеннаяПодсказка</name>
-          <id>137</id>
-          <visible>true</visible>
-          <enabled>true</enabled>
-          <userVisible>
-            <common>true</common>
-          </userVisible>
-          <type>Label</type>
-          <autoMaxWidth>true</autoMaxWidth>
-          <autoMaxHeight>true</autoMaxHeight>
-          <extInfo xsi:type="form:LabelDecorationExtInfo">
-            <horizontalAlign>Left</horizontalAlign>
-          </extInfo>
-        </extendedTooltip>
-        <contextMenu>
-          <name>ПортExternalAutomationUIКонтекстноеМеню</name>
-          <id>136</id>
-          <visible>true</visible>
-          <enabled>true</enabled>
-          <userVisible>
-            <common>true</common>
-          </userVisible>
-          <autoFill>true</autoFill>
-        </contextMenu>
-        <type>InputField</type>
-        <editMode>Enter</editMode>
-        <showInHeader>true</showInHeader>
-        <headerHorizontalAlign>Left</headerHorizontalAlign>
-        <showInFooter>true</showInFooter>
-        <extInfo xsi:type="form:InputFieldExtInfo">
-          <autoMaxWidth>true</autoMaxWidth>
-          <autoMaxHeight>true</autoMaxHeight>
-          <wrap>true</wrap>
-          <chooseType>true</chooseType>
-          <typeDomainEnabled>true</typeDomainEnabled>
-          <textEdit>true</textEdit>
-          <inputHint>
-            <key>ru</key>
-            <value>8080</value>
-          </inputHint>
-        </extInfo>
-      </items>
       <items xsi:type="form:FormField">
         <name>ExternalAutomationUIPath</name>
         <id>141</id>
@@ -780,9 +773,14 @@
           <autoMaxWidth>true</autoMaxWidth>
           <autoMaxHeight>true</autoMaxHeight>
           <wrap>true</wrap>
+          <autoMarkIncomplete>true</autoMarkIncomplete>
           <chooseType>true</chooseType>
           <typeDomainEnabled>true</typeDomainEnabled>
           <textEdit>true</textEdit>
+          <inputHint>
+            <key>ru</key>
+            <value>ExternalAutomationUI</value>
+          </inputHint>
         </extInfo>
       </items>
       <visible>true</visible>
@@ -1378,7 +1376,7 @@
     <name>Объект</name>
     <id>1</id>
     <valueType>
-      <types>ExternalDataProcessorObject.ExternalAutomationUI_TaskBuilder</types>
+      <types>ExternalDataProcessor.ExternalAutomationUI_TaskBuilder</types>
     </valueType>
     <view>
       <common>true</common>
@@ -1668,24 +1666,6 @@
       <common>true</common>
     </edit>
   </attributes>
-  <attributes>
-    <name>ПортExternalAutomationUI</name>
-    <title>
-      <key>ru</key>
-      <value>Порт external automation UI</value>
-    </title>
-    <id>20</id>
-    <valueType>
-      <types>String</types>
-      <stringQualifiers/>
-    </valueType>
-    <view>
-      <common>true</common>
-    </view>
-    <edit>
-      <common>true</common>
-    </edit>
-  </attributes>
   <attributes>
     <name>ExternalAutomationUIPath</name>
     <title>

TestingToolPlugins/src/ExternalDataProcessors/ExternalAutomationUI_TaskBuilder/Forms/Форма/Module.bsl

@@ -8,7 +8,7 @@
 	РедактироватьКонструктором = Истина;
 	ИдентификаторКонструктора = "ExternalAutomationUI_TaskBuilder";
 	ИдентификаторКонструктораУниверсальный = "Universal";
-	ExternalAutomationUIPath = "ExternAutomationUI";
+	ExternalAutomationUIPath = "ExternalAutomationUI";
 
 	// Открыта форма редактирования
 	Если ЗначениеЗаполнено(Параметры.Задание) Тогда		
@@ -37,7 +37,6 @@
 
 	Если Не ЗначениеЗаполнено(АдресИнтернетExternalAutomationUI) Тогда
 		АдресИнтернетExternalAutomationUI = "http://localhost:8080";
-		ПортExternalAutomationUI = "8080";
 	КонецЕсли; 
 
 	Если НЕ ЗначениеЗаполнено(ВыполняемоеДействие) Тогда
@@ -103,7 +102,6 @@
 
 
 	АдресИнтернетExternalAutomationUI = КонструкторЗаданийСервер.ПолучитьЗначениеПараметра(Задание,"%АдресИнтернетExternAutomationUI%", Ложь);
-	ПортExternalAutomationUI = КонструкторЗаданийСервер.ПолучитьЗначениеПараметра(Задание,"%ПортExternAutomationUI%", Ложь);
 	ВыполняемоеДействие = КонструкторЗаданийСервер.ПолучитьЗначениеПараметра(Задание,"ВыполняемоеДействие", Истина); 
 	ExternalAutomationUIPath = КонструкторЗаданийСервер.ПолучитьЗначениеПараметра(Задание,"%ExternalAutomationUIPath%", Ложь);
 
@@ -254,7 +252,7 @@
 			Иначе
 				Действие = СоздатьДействиеЗадания(ИдентификаторКонструктораУниверсальный,"Закрыть внешний сервис 'External Autoamtion UI'",КлючПоискаШаблона,Версия,ВыполняемоеДействие);
 			КонецЕсли;
-			СоздатьОбновитьПараметр(Действие,Справочники.ИменаПеременных.КлючПоиска,КлючПоискаШаблона);
+			КонструкторЗаданийСервер.УстановитьПараметр(Действие,Справочники.ИменаПеременных.КлючПоиска,КлючПоискаШаблона);
 			Если НЕ ЗначениеЗаполнено(Действие) Тогда
 				Отказ = Истина;
 				Возврат НЕ Отказ;
@@ -307,10 +305,9 @@
 
 		// III. Состав задания
 		// сохраняем параметры
-		СоздатьОбновитьПараметр(Задание,"%АдресИнтернетExternalAutomationUI%",АдресИнтернетExternalAutomationUI,Ложь); 		
-		СоздатьОбновитьПараметр(Задание,"%ПортExternalAutomationUI%",ПортExternalAutomationUI,Ложь);
-		СоздатьОбновитьПараметр(Задание,"%ExternalAutomationUIPath%",ExternalAutomationUIPath,Ложь);
-		СоздатьОбновитьПараметр(Задание,"ВыполняемоеДействие",ВыполняемоеДействие,Истина);
+		КонструкторЗаданийСервер.УстановитьПараметр(Задание,"%АдресИнтернетExternAutomationUI%",АдресИнтернетExternalAutomationUI,Ложь); 		
+		КонструкторЗаданийСервер.УстановитьПараметр(Задание,"%ExternalAutomationUIPath%",ExternalAutomationUIPath,Ложь);
+		КонструкторЗаданийСервер.УстановитьПараметр(Задание,"ВыполняемоеДействие",ВыполняемоеДействие,Истина);
 
 		ЗафиксироватьТранзакцию();
 
@@ -323,31 +320,6 @@
 	Возврат Истина;
 КонецФункции
 
-// Процедура - Создать/обновить параметр
-//
-// Параметры:
-//  Владелец			 - 	 - задание, действие, шаблон или др. из регистра сведений параметры заданий измерение "задание"
-//  ИмяПеременной		 - 	 - строка или элемент справочника имена пременных
-//  ЗначениеПеременной	 - 	 - значение
-//  ЭтоПараметрНастройки - 	 - булево
-//  Ключ				 - 	 - неопределено
-//
-//  Создает или обновляет настройку парамтера. Для служебных параметров, которые предназначены только для определения использования в редакторе, используйте опцию (ЭтоПараметрНастройки=Истина)
-&НаСервереБезКонтекста
-Процедура СоздатьОбновитьПараметр(Знач Владелец,Знач ИмяПеременной,Знач ЗначениеПеременной, Знач ЭтоПараметрНастройки=Истина, Знач Ключ=Неопределено)
-
-	МенеджерЗаписи = РегистрыСведений.ПеременныеЗаданий.СоздатьМенеджерЗаписи();
-
-	МенеджерЗаписи.Задание = Владелец;	
-	МенеджерЗаписи.ИмяПеременной = ИмяПеременной;
-	МенеджерЗаписи.НомерАргумента = 0;
-	МенеджерЗаписи.Ключ = Ключ;
-	МенеджерЗаписи.ЗначениеПеременной = ЗначениеПеременной;
-	МенеджерЗаписи.ЭтоПараметрНастройки = ЭтоПараметрНастройки;
-
-	МенеджерЗаписи.Записать(Истина);
-
-КонецПроцедуры
 
 &НаСервереБезКонтекста
 Функция ПроверитьНаличиеПодобноегоЗадания(Знач Наименование,Знач TaskID,Знач Задание)   	
@@ -418,7 +390,6 @@
 	Html = Html + "ГруппаЗадания: "+?(ЗначениеЗаполнено(ГруппаЗадания),ГруппаЗадания,"---")+"</br>";
 	Html = Html + "<h3>Параметры задания</h3>";
 	Html = Html + "<b>Адрес интернет внешнего сервиса:</b> <span color='blue'>"+АдресИнтернетExternalAutomationUI+"</b></br>";
-	Html = Html + "Порт внешнего сервиса: <span color='blue'>"+ПортExternalAutomationUI+"</b></br>";
 	Html = Html + "Путь относительно корня git к папке исполняемого файла (WinAutomationUI.exe) с обвязкой: <span color='blue'>"+ExternalAutomationUIPath+"</b></br>";
 	Html = Html + "<b>Выполняемое действие:</b> <span color='blue'>"+ВыполняемоеДействие+"</b></br>";
 	Html = Html + "<h3>Структура действий</h3>";
@@ -540,12 +511,12 @@
 Функция ПолучитьТекстЗапросаЗакрытияВнешнегоСервиса()
 	ТекстЗапроса = "
 	|// закрыть и удалить параметр
-	|Сообщение = "";
+	|Сообщение = """";
 	|
 	|// Задание и Действие - это входные параметры
-	|мПараметры = новый Структура(""Владелец,Действие"",Задание,Действие);
+	|мПараметры = новый Структура(""ЗаданиеВладелец,Владелец,Действие"",ЗаданиеВладелец,Задание,Действие);
 	|
-	|ШаблонИмениКлюча = ""ExternalAutomationUI %ПортExternalAutomationUI%"";
+	|ШаблонИмениКлюча = ""ExternalAutomationUI %АдресИнтернетExternAutomationUI%"";
 	|
 	|ИмяКлюча = СценарноеТестированиеСервер.ОбработатьСтрокуПоПараметрам(ШаблонИмениКлюча,мПараметры);
 	|
@@ -563,14 +534,16 @@
 Функция ПолучитьТекстЗапросаЗапускаВнешнегоСервиса()
 	ТекстЗапроса = "
 	|
-	|Сообщение = "";
+	|Сообщение = """";
 	|// Задание и Действие - это входные параметры
-	|мПараметры = новый Структура(""Владелец,Действие"",Задание,Действие);
+	|мПараметры = новый Структура(""ЗаданиеВладелец,Владелец,Действие"",ЗаданиеВладелец,Задание,Действие);
 	|
 	|// I) если открыт, то закроем
-	|ШаблонИмениКлюча = ""ExternalAutomationUI %ПортExternalAutomationUI%"";
+	|АдресИнтернетШаблон = ""%АдресИнтернетExternAutomationUI%"";
 	|
-	|ИмяКлюча = СценарноеТестированиеСервер.ОбработатьСтрокуПоПараметрам(ШаблонИмениКлюча,мПараметры);
+	|АдресИнтернет = СценарноеТестированиеСервер.ОбработатьСтрокуПоПараметрам(АдресИнтернетШаблон,мПараметры);
+	|
+	|ИмяКлюча = ""ExternalAutomationUI ""+АдресИнтернет;
 	|
 	|PID = ПланировщикЗаданийСервер.ПолучитьЗначениеПользовательскойПеременной(Неопределено,ИмяКлюча);
 	|
@@ -580,7 +553,9 @@
 	|
 	|// II) запустить и сохранить в параметр
 	|
-	|ШаблонКоманды = ""%ПутьККаталогуGIT%\%ExternalAutomationUIPath%\WinAutomationUI.exe -StartWebServer -Port %ПортExternalAutomationUI%"";
+	|ПортExternalAutomationUI = КонструкторЗаданийСервер.ПолучитьПортАдресаИнтернет(АдресИнтернет,8080);
+	|
+	|ШаблонКоманды = ""%ПутьККаталогуGIT%\%ExternalAutomationUIPath%\WinAutomationUI.exe -StartWebServer -Port ""+XMLСтрока(ПортExternalAutomationUI);
 	|
 	|СтрокаЗапуска = СценарноеТестированиеСервер.ОбработатьСтрокуПоПараметрам(ШаблонКоманды,мПараметры);
 	|
@@ -689,38 +664,6 @@
 
 #КонецОбласти
 
-&НаСервереБезКонтекста
-Функция ПолучитьПортАдресаИнтернет(Знач АдресИнтернет)
-	Порт = 8080;
-	АдресИнтернет = СтрЗаменить(АдресИнтернет,"http://","");
-	АдресИнтернет = СтрЗаменить(АдресИнтернет,"https://","");
-	ПозицияДвоеточия = Найти(АдресИнтернет,":");
-	Если ПозицияДвоеточия<>0 Тогда
-		АдресИнтернет = СокрЛП(АдресИнтернет);
-		ПортСтр = "";
-		Для ш=ПозицияДвоеточия+1 по СтрДлина(АдресИнтернет) Цикл
-			ТекСимвол = Сред(АдресИнтернет,ш,1);
-			Если Найти("0123456789",ТекСимвол) Тогда
-				ПортСтр = ПортСтр+ТекСимвол;
-			Иначе
-				Прервать;
-			КонецЕсли;
-		КонецЦикла;
-		Попытка 
-			Порт = XMLСтрока(Число(ПортСтр));
-		Исключение
-			Сообщить("Введенный адрес интернет не корректный (шаблон:'http://localhost:8080')");
-		КонецПопытки;
-	КонецЕсли;
-	Возврат Порт;
-КонецФункции
-
-
-&НаКлиенте
-Процедура АдресИнтернетExternAutomationUIПриИзменении(Элемент)
-	ПортExternalAutomationUI = Формат(ПолучитьПортАдресаИнтернет(АдресИнтернетExternalAutomationUI),"ЧГ=;");
-КонецПроцедуры
-
 &НаКлиенте
 Процедура ВыполняемоеДействиеПриИзменении(Элемент)
 	НайтиШаблоныДействия();

TestingToolPlugins/src/ExternalDataProcessors/ExternalAutomationUI_TaskBuilder/ObjectModule.bsl

@@ -8,7 +8,7 @@
 	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
 	ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
 	ПараметрыРегистрации.Вставить("Наименование", "Конструктор запуска External Automation UI");
-	ПараметрыРегистрации.Вставить("Версия", "2020.03.13");
+	ПараметрыРегистрации.Вставить("Версия", "2020.07.02");
 	ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
 	ПараметрыРегистрации.Вставить("Информация", ИнформацияПоИсторииИзменений());
 	ПараметрыРегистрации.Вставить("ВерсияБСП", "1.2.1.4");