1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00
Code Issues Releases Activity

@milanse #198 Загрузка изменений из хранилища по TCP и загрузка изменений по расширениям

Browse Source
This commit is contained in:
Anton Ivanov 2020-06-06 09:28:38 +03:00
parent b5f2e8e87a
commit 0e84388611
3 changed files with 55 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/cf/Catalogs/узКонфигурации.xml
View File

@ -804,7 +804,7 @@ D:\Dev\Storage\
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillFromFillingValue>true</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
@ -857,7 +857,10 @@ D:\Dev\Storage\
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<LinkByType>
<xr:DataPath>Catalog.узКонфигурации.Attribute.ЭтоРасширение</xr:DataPath>
<xr:LinkItem>0</xr:LinkItem>
</LinkByType>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
<Use>ForItem</Use>
<Indexing>DontIndex</Indexing>
@ -888,7 +891,7 @@ D:\Dev\Storage\
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillFromFillingValue>true</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
@ -897,7 +900,10 @@ D:\Dev\Storage\
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<LinkByType>
<xr:DataPath>Catalog.узКонфигурации.Attribute.ЭтоРасширение</xr:DataPath>
<xr:LinkItem>0</xr:LinkItem>
</LinkByType>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
<Use>ForItem</Use>
<Indexing>DontIndex</Indexing>

39
src/cf/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -3,6 +3,7 @@
<UseForFoldersAndItems>Items</UseForFoldersAndItems>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
<Events>
<Event name="AfterWriteAtServer">ПослеЗаписиНаСервере</Event>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
@ -26,6 +27,24 @@
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа7" id="156">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа7РасширеннаяПодсказка" id="157"/>
<ChildItems>
<CheckBoxField name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория" id="86">
<DataPath>Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория</DataPath>
<TitleLocation>Right</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияКонтекстноеМеню" id="87"/>
<ExtendedTooltip name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияРасширеннаяПодсказка" id="88"/>
<Events>
<Event name="OnChange">ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияПриИзменении</Event>
</Events>
</CheckBoxField>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаВыгрузкиФайлаЛистаЗадач" id="102">
<ToolTip>
<v8:item>
@ -61,24 +80,6 @@
</CheckBoxField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа7" id="156">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа7РасширеннаяПодсказка" id="157"/>
<ChildItems>
<CheckBoxField name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория" id="86">
<DataPath>Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория</DataPath>
<TitleLocation>Right</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияКонтекстноеМеню" id="87"/>
<ExtendedTooltip name="ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияРасширеннаяПодсказка" id="88"/>
<Events>
<Event name="OnChange">ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозиторияПриИзменении</Event>
</Events>
</CheckBoxField>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаРасширение" id="128">
<Title>
<v8:item>
@ -436,7 +437,6 @@
<Representation>List</Representation>
<HeightInTableRows>3</HeightInTableRows>
<UseAlternationRowColor>true</UseAlternationRowColor>
<VerticalStretch>false</VerticalStretch>
<EnableStartDrag>true</EnableStartDrag>
<EnableDrag>true</EnableDrag>
<DataPath>Расширения</DataPath>
@ -525,7 +525,6 @@
Справочник.узКонфигурации КАК узКонфигурации
ГДЕ
узКонфигурации.ЭтоРасширение
И узКонфигурации.РасширениеДляКонфигурации = &amp;РасширениеДляКонфигурации
И НЕ узКонфигурации.ЭтоГруппа</QueryText>
<MainTable>Catalog.узКонфигурации</MainTable>
<ListSettings>

27
src/cf/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -6,10 +6,22 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Расширения.Параметры.УстановитьЗначениеПараметра("РасширениеДляКонфигурации",Объект.Ссылка);
//{[+] #198 milanse 31.05.2020
УстановитьОтборСпискаРасширений(Объект.Ссылка);
//}[+] #198 milanse 31.05.2020
УстановитьВидимостьДоступность();
КонецПроцедуры
//{[+] #198 milanse 31.05.2020
&НаСервере
Процедура УстановитьОтборСпискаРасширений(СсылкаНаОсновнуюКонфигурацию)
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Расширения,"РасширениеДляКонфигурации",СсылкаНаОсновнуюКонфигурацию);
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Расширения,"ЭтоРасширение",Истина);
КонецПроцедуры
//}[+] #198 milanse 31.05.2020
&НаСервере
Процедура УстановитьВидимостьДоступность()
Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Ложь;
@ -53,6 +65,12 @@
Конецесли;
//- #198 Иванов А.Б. 2020-05-23
//+ #206 Иванов А.Б. 2020-06-06 @milanse
Элементы.Расширения.ТолькоПросмотр = Ложь;
Если НЕ ЗначениеЗаполнено(Объект.РасширениеДляКонфигурации) Тогда
Элементы.Расширения.ТолькоПросмотр = Истина;
Конецесли;
//- #206 Иванов А.Б. 2020-06-06 @milanse
Если Объект.ФормироватьФайлЛистЗадачВКаталогеЛокальногоРепозитория Тогда
@ -212,3 +230,10 @@
УстановитьВидимостьДоступность();
КонецПроцедуры
//{[+] #198 milanse 31.05.2020
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
УстановитьОтборСпискаРасширений(ТекущийОбъект.Ссылка);
КонецПроцедуры
//}[+] #198 milanse 31.05.2020