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
Pr-Mex committed Apr 7, 2024
2 parents 295e66a + 693e939 commit 1bf1c33
Show file tree
Hide file tree
Showing 24 changed files with 1,491 additions and 165 deletions.
2 changes: 1 addition & 1 deletion VanessaAutomation/Ext/ObjectModule.bsl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -466,7 +466,7 @@
КонецФункции

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

Если ТолькоЦифры Тогда
Возврат Версия;
Expand Down
92 changes: 46 additions & 46 deletions VanessaAutomation/Forms/УправляемаяФорма/Ext/Form.xml
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2696,52 +2696,6 @@
</Button>
</ChildItems>
</ButtonGroup>
<ButtonGroup name="ГруппаVanessaEditorВидеоАудио" id="3094">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Видео/аудио</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Video/audio</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Видео/аудио</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Video/audio</v8:content>
</v8:item>
</ToolTip>
<Representation>Compact</Representation>
<ExtendedTooltip name="ГруппаVanessaEditorВидеоАудиоРасширеннаяПодсказка" id="3095"/>
<ChildItems>
<Button name="ПанельVanessaEditorОзвучиваниеВыполненияСценария" id="3096">
<Type>CommandBarButton</Type>
<Check>true</Check>
<CommandName>Form.Command.ВключитьВыключитьОзвучиваниеВыполненияСценария</CommandName>
<Picture>
<xr:Abs>Picture.png</xr:Abs>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<ExtendedTooltip name="ПанельVanessaEditorОзвучиваниеВыполненияСценарияРасширеннаяПодсказка" id="3097"/>
</Button>
<Button name="ПанельVanessaEditorФормаВключитьВыключитьЗаписьВидео" id="3017">
<Type>CommandBarButton</Type>
<Check>true</Check>
<CommandName>Form.Command.ВключитьВыключитьЗаписьВидео</CommandName>
<Picture>
<xr:Abs>Picture.png</xr:Abs>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<ExtendedTooltip name="ПанельVanessaEditorФормаВключитьВыключитьЗаписьВидеоРасширеннаяПодсказка" id="3018"/>
</Button>
</ChildItems>
</ButtonGroup>
<ButtonGroup name="ГруппаVanessaEditorОбучение" id="3135">
<Title>
<v8:item>
Expand Down Expand Up @@ -3441,6 +3395,52 @@
</Button>
</ChildItems>
</ButtonGroup>
<ButtonGroup name="ГруппаVanessaEditorВидеоАудио" id="3094">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Видео/аудио</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Video/audio</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Видео/аудио</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Video/audio</v8:content>
</v8:item>
</ToolTip>
<Representation>Compact</Representation>
<ExtendedTooltip name="ГруппаVanessaEditorВидеоАудиоРасширеннаяПодсказка" id="3095"/>
<ChildItems>
<Button name="ПанельVanessaEditorОзвучиваниеВыполненияСценария" id="3096">
<Type>CommandBarButton</Type>
<Check>true</Check>
<CommandName>Form.Command.ВключитьВыключитьОзвучиваниеВыполненияСценария</CommandName>
<Picture>
<xr:Abs>Picture.png</xr:Abs>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<ExtendedTooltip name="ПанельVanessaEditorОзвучиваниеВыполненияСценарияРасширеннаяПодсказка" id="3097"/>
</Button>
<Button name="ПанельVanessaEditorФормаВключитьВыключитьЗаписьВидео" id="3017">
<Type>CommandBarButton</Type>
<Check>true</Check>
<CommandName>Form.Command.ВключитьВыключитьЗаписьВидео</CommandName>
<Picture>
<xr:Abs>Picture.png</xr:Abs>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
<ExtendedTooltip name="ПанельVanessaEditorФормаВключитьВыключитьЗаписьВидеоРасширеннаяПодсказка" id="3018"/>
</Button>
</ChildItems>
</ButtonGroup>
<ButtonGroup name="ГруппаVanessaEditorМасштаб" id="2462">
<Title>
<v8:item>
Expand Down
52 changes: 50 additions & 2 deletions VanessaAutomation/Forms/УправляемаяФорма/Ext/Form/Module.bsl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -70,6 +70,9 @@
&НаКлиенте
Перем Версия8323ИлиВыше Экспорт;

&НаКлиенте
Перем Версия8325ИлиВыше Экспорт;

// Служебная переменная. Получает значение Истина, когда отработали все обработчики открытия формы.
&НаКлиенте
Перем ФормаVanessaAutomationОткрылась Экспорт;
Expand Down Expand Up @@ -7660,6 +7663,11 @@
// если поле невидимое - тогда получим представление данных
Возврат ПолеРеквизит.ПолучитьПредставлениеДанных();
КонецПопытки;
ИначеЕсли Версия8325ИлиВыше И
(ПолеРеквизит.Вид = ВидПоляФормы.ПолеФорматированногоДокумента ИЛИ ПолеРеквизит.Вид = ВидПоляФормы.ПолеHTMLДокумента) Тогда

Возврат ПолучитьПредставлениеПоляHTML(ПолеРеквизит);

КонецЕсли;

Возврат ПолеРеквизит.ПолучитьПредставлениеДанных();
Expand Down Expand Up @@ -8708,7 +8716,11 @@
КонецЕсли;

УстановитьРезультатДиалогаВыбораФайла(Истина, ИмяВременногоФайла, Неопределено);
ЭлементФормы.ЗаписатьСодержимоеВФайл();
Если Версия8325ИлиВыше Тогда
ЭлементФормы.ЗаписатьСодержимоеВФайл(Истина);
Иначе
ЭлементФормы.ЗаписатьСодержимоеВФайл();
КонецЕсли;

КоличествоПопытокПроверкиСуществованияФайла = 0;
МаксКоличествоПопытокПроверкиСуществованияФайла = ЗначениеКоличествоПопытокВыполненияДействия();
Expand Down Expand Up @@ -8813,7 +8825,11 @@

Если ТекущаяДоступность Тогда
УстановитьРезультатДиалогаВыбораФайла(Истина, ИмяВременногоФайла, Неопределено);
ЭлементФормы.ЗаписатьСодержимоеВФайл();
Если Версия8325ИлиВыше Тогда
ЭлементФормы.ЗаписатьСодержимоеВФайл(Истина);
Иначе
ЭлементФормы.ЗаписатьСодержимоеВФайл();
КонецЕсли;

КоличествоПопытокПроверкиСуществованияФайла = 0;
МаксКоличествоПопытокПроверкиСуществованияФайла = ЗначениеКоличествоПопытокВыполненияДействия();
Expand Down Expand Up @@ -10348,6 +10364,10 @@
ЗаписатьЛогВЖРИнформация("УстановитьРезультатДиалогаВыбораФайла", ЗаписатьОбъектJSON(Данные));
КонецЕсли;

Если Версия8325ИлиВыше Тогда
ОбъектКонтекстСохраняемый.ТестовоеПриложение.ОчиститьРезультатДиалогаВыбораФайла();
КонецЕсли;

Если ИндексФильтра = Неопределено Тогда
ОбъектКонтекстСохраняемый.ТестовоеПриложение.УстановитьРезультатДиалогаВыбораФайла(Результат, ИмяФайла);
Иначе
Expand Down Expand Up @@ -37959,6 +37979,11 @@
Узел_setFileDialogResult = Истина;
ИначеЕсли ИмяУзла = "comment" Тогда
Узел_comment = Истина;
ИначеЕсли ИмяУзла = "setOrder" Тогда
Если ТекущаяТЧ <> "" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице '"
+ ТекущаяТЧ + "' я устанавливаю сортировку по колонке '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве]["columnTitle"]) + "'");
КонецЕсли;
ИначеЕсли ИмяУзла = "writeContentToFile" Тогда
Если ГенерироватьШагПоискаПоЗаголовку(ИмяОбъекта, ТекИмяПоля, МассивСтруктурФорм, ТекущаяФорма, "ПолеФормы") Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я сохраняю данные элемента формы с именем '"
Expand All @@ -37967,6 +37992,11 @@
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я сохраняю данные элемента формы с именем '"
+ ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + "' в файл");
КонецЕсли;
ИначеЕсли ИмяУзла = "executeChoiceDetailsMenu" Тогда
ЗначениеМеню = МассивСвойств[ИдВМассиве]["presentation"];
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в табличном документе """
+ ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + """ в меню расшифровки я выбираю "
+ ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля("""" + ЗначениеМеню + """"));
КонецЕсли;
КонецЕсли;

Expand Down Expand Up @@ -38040,6 +38070,9 @@

ИначеЕсли ИмяУзла = "Field" Тогда
ТаблицаСвойствСтроки.Добавить(СвойствоСтроки);
ИначеЕсли ИмяУзла = "switchRowDeleteMark" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице '"
+ ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + "' я меняю пометку удаления строки");
КонецЕсли;
КонецЕсли;

Expand Down Expand Up @@ -39597,6 +39630,11 @@
));
СообщитьПользователю(ОписаниеОшибки());
КонецПопытки;
ИначеЕсли Версия8325ИлиВыше И
(ЭлементФормы.Вид = ВидПоляФормы.ПолеФорматированногоДокумента ИЛИ ЭлементФормы.Вид = ВидПоляФормы.ПолеHTMLДокумента) Тогда

СтруктураЗначения.Вставить("ПредставлениеДанных", ПолучитьПредставлениеПоляHTML(ЭлементФормы));

ИначеЕсли ИгнорируемыеВидыЭлементовФорм.Найти(ЭлементФормы.Вид) = Неопределено Тогда
// для остальных надо сохранить представление данных
Попытка
Expand Down Expand Up @@ -43329,6 +43367,7 @@
Версия8319ИлиВыше = Ложь;
Версия8321ИлиВыше = Ложь;
Версия8323ИлиВыше = Ложь;
Версия8325ИлиВыше = Ложь;

СтрокаПробелов = СтрокаПробелов();

Expand Down Expand Up @@ -43621,6 +43660,7 @@
Версия8319ИлиВыше = ВерсияПриложенияБольшеИлиРавнаЧемЗаданная(СистемнаяИнформация.ВерсияПриложения, "8.3.19.0");
Версия8321ИлиВыше = ВерсияПриложенияБольшеИлиРавнаЧемЗаданная(СистемнаяИнформация.ВерсияПриложения, "8.3.21.0");
Версия8323ИлиВыше = ВерсияПриложенияБольшеИлиРавнаЧемЗаданная(СистемнаяИнформация.ВерсияПриложения, "8.3.23.0");
Версия8325ИлиВыше = ВерсияПриложенияБольшеИлиРавнаЧемЗаданная(СистемнаяИнформация.ВерсияПриложения, "8.3.25.0");

СчитываниеМакетаНачСтр = 1;
СчитываниеМакетаНачКол = 1;
Expand Down Expand Up @@ -49315,6 +49355,14 @@
Возврат Структура;
КонецФункции

&НаКлиенте
Функция ПолучитьПредставлениеПоляHTML(ПолеРеквизит)
ПредставлениеДанных = "";
Вложения = Новый Соответствие;
ПолеРеквизит.ПолучитьHTMLДокумента(ПредставлениеДанных, Вложения);
Возврат ПредставлениеДанных;
КонецФункции

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

#Область Настройки
Expand Down
Loading

0 comments on commit 1bf1c33

Please sign in to comment.