Skip to content

Commit

Permalink
Merge branch 'feature/Improve' into develop
Browse files Browse the repository at this point in the history
  • Loading branch information
Pr-Mex committed Mar 31, 2024
2 parents ab2e5f9 + 683ad36 commit cad0d40
Show file tree
Hide file tree
Showing 86 changed files with 1,029 additions and 482 deletions.
2 changes: 1 addition & 1 deletion VanessaAutomation.xml
Original file line number Diff line number Diff line change
Expand Up @@ -578,7 +578,7 @@
</Attribute>
<Attribute uuid="d3e90876-ed13-418b-8adf-61b9879875ae">
<Properties>
<Name>ВыполнятьШагиАссинхронно</Name>
<Name>ВыполнятьШагиАсинхронно</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
Expand Down
4 changes: 2 additions & 2 deletions VanessaAutomation/Ext/ObjectModule.bsl
Original file line number Diff line number Diff line change
Expand Up @@ -86,7 +86,7 @@

// Выполнение сценариев
ВыполнениеСценариев = Новый Структура;
ВыполнениеСценариев.Вставить("ВыполнятьШагиАссинхронно", Ложь);
ВыполнениеСценариев.Вставить("ВыполнятьШагиАсинхронно", Ложь);
ВыполнениеСценариев.Вставить("ИнтервалВыполненияШагаЗаданныйПользователем", 0);
ВыполнениеСценариев.Вставить("ОбновлятьСтатистикуВДереве", Истина);
ВыполнениеСценариев.Вставить("ОбновлятьДеревоПриНачалеВыполненияСценария", Истина);
Expand Down Expand Up @@ -466,7 +466,7 @@
КонецФункции

Функция ПолучитьВерсиюОбработки(ДобавлятьНазвание = Истина, ТолькоЦифры = Ложь) Экспорт
Версия = "1.2.041.11";
Версия = "1.2.041.14";

Если ТолькоЦифры Тогда
Возврат Версия;
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -282,7 +282,7 @@
КоллекцияКоманд.Вставить("ВыгрузитьPIDTestManager", Новый Структура("Р, А", "ВыгрузитьPIDTestManager", "returnpidoftestmanager"));
КоллекцияКоманд.Вставить("ВыполнитьСценарии", Новый Структура("Р, А", "ВыполнитьСценарии", "vanessarun"));
КоллекцияКоманд.Вставить("ВыполнитьСценарииСТекущегоШага", Новый Структура("Р, А", "ВыполнитьСценарииСТекущегоШага", "vanessarunfromthisstep"));
КоллекцияКоманд.Вставить("ВыполнятьШагиАссинхронно", Новый Структура("Р, А", "ВыполнятьШагиАссинхронно", "makestepsasync"));
КоллекцияКоманд.Вставить("ВыполнятьШагиАсинхронно", Новый Структура("Р, А", "ВыполнятьШагиАсинхронно", "makestepsasync"));
КоллекцияКоманд.Вставить("ДанныеАллюрМеток", Новый Структура("Р, А", "ДанныеАллюрМеток", "DataAllureMarks"));
КоллекцияКоманд.Вставить("НастройкиДругогоДвижкаTTS", Новый Структура("Р, А", "НастройкиДругогоДвижкаTTS", "SettingsOtherEngineTTS"));
КоллекцияКоманд.Вставить("ДелатьЛогВыполненияСценариевВЖР", Новый Структура("Р, А", "ДелатьЛогВыполненияСценариевВЖР", "logtogr"));
Expand Down Expand Up @@ -825,11 +825,43 @@
Результат.Добавить(Новый Структура("ЧтоЗаменяем,НаЧтоЗаменяем", "useaddine", "useaddin"));
Результат.Добавить(Новый Структура("ЧтоЗаменяем,НаЧтоЗаменяем", "buildname", "NameCurrentBuild"));
Результат.Добавить(Новый Структура("ЧтоЗаменяем,НаЧтоЗаменяем", "ПоказыватьСтрокиПодсценариевVanessaEdittor", "ПоказыватьСтрокиПодсценариевVanessaEditor"));
Результат.Добавить(Новый Структура("ЧтоЗаменяем,НаЧтоЗаменяем", "ВыполнятьШагиАссинхронно", "ВыполнятьШагиАсинхронно"));

Возврат Результат;

КонецФункции

// Исправляет найденные опечатки в именах параметров, чтобы сохранить совместимость поведения
&НаКлиенте
Процедура ОбработкаИсправленныхОпечатокПараметровЗапуска(Данные) Экспорт

Замены = ЗаменыСинонимовПараметров();

Если ТипЗнч(Данные) = Тип("Структура") Тогда
Для Каждого ТекЗамена Из Замены Цикл
Попытка
Если Данные.Свойство(ТекЗамена.ЧтоЗаменяем) И НЕ Данные.Свойство(ТекЗамена.НаЧтоЗаменяем) Тогда
Данные.Вставить(ТекЗамена.НаЧтоЗаменяем, Данные[ТекЗамена.ЧтоЗаменяем]);
КонецЕсли;
Исключение
ЗаписатьЛогВЖРОшибка("ОбработкаИсправленныхОпечатокПараметровЗапуска", ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецЕсли;

Если ТипЗнч(Данные) = Тип("Соответствие") Тогда
Для Каждого ТекЗамена Из Замены Цикл
Попытка
Если Данные[ТекЗамена.ЧтоЗаменяем] <> Неопределено И Данные[ТекЗамена.НаЧтоЗаменяем] = Неопределено Тогда
Данные.Вставить(ТекЗамена.НаЧтоЗаменяем, Данные[ТекЗамена.ЧтоЗаменяем]);
КонецЕсли;
Исключение
ЗаписатьЛогВЖРОшибка("ОбработкаИсправленныхОпечатокПараметровЗапуска", ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецЕсли;

КонецПроцедуры

#КонецОбласти

Expand Down Expand Up @@ -1176,37 +1208,6 @@

КонецФункции

&НаКлиенте
Процедура ОбработкаИсправленныхОпечатокПараметровЗапуска(Данные)

Замены = ЗаменыСинонимовПараметров();

Если ТипЗнч(Данные) = Тип("Структура") Тогда
Для Каждого ТекЗамена Из Замены Цикл
Попытка
Если Данные.Свойство(ТекЗамена.ЧтоЗаменяем) И НЕ Данные.Свойство(ТекЗамена.НаЧтоЗаменяем) Тогда
Данные.Вставить(ТекЗамена.НаЧтоЗаменяем, Данные[ТекЗамена.ЧтоЗаменяем]);
КонецЕсли;
Исключение
ЗаписатьЛогВЖРОшибка("ОбработкаИсправленныхОпечатокПараметровЗапуска", ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецЕсли;

Если ТипЗнч(Данные) = Тип("Соответствие") Тогда
Для Каждого ТекЗамена Из Замены Цикл
Попытка
Если Данные[ТекЗамена.ЧтоЗаменяем] <> Неопределено И Данные[ТекЗамена.НаЧтоЗаменяем] = Неопределено Тогда
Данные.Вставить(ТекЗамена.НаЧтоЗаменяем, Данные[ТекЗамена.ЧтоЗаменяем]);
КонецЕсли;
Исключение
ЗаписатьЛогВЖРОшибка("ОбработкаИсправленныхОпечатокПараметровЗапуска", ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецЕсли;

КонецПроцедуры

&НаСервере
Функция СтруктураОбщихНастроекСервер()
ОбъектСервер = РеквизитФормыВЗначение("Объект");
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -16505,8 +16505,8 @@ This option only works under Windows.</v8:content>
<ControlRepresentation>Picture</ControlRepresentation>
<ExtendedTooltip name="ГруппаСкоростьВыполненияСценариевРасширеннаяПодсказка" id="3343"/>
<ChildItems>
<CheckBoxField name="ВыполнятьШагиАссинхронно" id="335">
<DataPath>Объект.ВыполнятьШагиАссинхронно</DataPath>
<CheckBoxField name="ВыполнятьШагиАсинхронно" id="335">
<DataPath>Объект.ВыполнятьШагиАсинхронно</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
Expand Down Expand Up @@ -16606,8 +16606,8 @@ This option only works under Windows.</v8:content>
</ToolTip>
<ToolTipRepresentation>ShowBottom</ToolTipRepresentation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ВыполнятьШагиАссинхронноКонтекстноеМеню" id="336"/>
<ExtendedTooltip name="ВыполнятьШагиАссинхронноРасширеннаяПодсказка" id="1374">
<ContextMenu name="ВыполнятьШагиАсинхронноКонтекстноеМеню" id="336"/>
<ExtendedTooltip name="ВыполнятьШагиАсинхронноРасширеннаяПодсказка" id="1374">
<Width>50</Width>
<AutoMaxWidth>false</AutoMaxWidth>
<HorizontalStretch>false</HorizontalStretch>
Expand All @@ -16627,7 +16627,7 @@ Scenario runs several times faster when the flag is off.</v8:content>
</Title>
</ExtendedTooltip>
<Events>
<Event name="OnChange">ВыполнятьШагиАссинхронноПриИзменении</Event>
<Event name="OnChange">ВыполнятьШагиАсинхронноПриИзменении</Event>
</Events>
</CheckBoxField>
<InputField name="ИнтервалВыполненияШагаЗаданныйПользователем" id="2001">
Expand Down Expand Up @@ -26019,6 +26019,14 @@ Speech rate is specified as a fractional number in the range from 0.1 to 3.0.</v
<xr:CheckState>0</xr:CheckState>
<xr:Value xsi:type="FormChoiceListDesTimeValue">
<Presentation/>
<Value xsi:type="xs:string">Elin</Value>
</xr:Value>
</xr:Item>
<xr:Item>
<xr:Presentation/>
<xr:CheckState>0</xr:CheckState>
<xr:Value xsi:type="FormChoiceListDesTimeValue">
<Presentation/>
<Value xsi:type="xs:string">Emma</Value>
</xr:Value>
</xr:Item>
Expand Down
Loading

0 comments on commit cad0d40

Please sign in to comment.