1
0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-21 21:17:24 +02:00

В текущие дела добавил кнопку "Настройки" туда перенес признак "Автоматически сохранять текущие дела (каждые 15 мин)"

This commit is contained in:
Anton Ivanov 2018-12-16 14:50:56 +03:00
parent aef2600903
commit b44cc7b349
6 changed files with 105 additions and 11 deletions

View File

@ -846,6 +846,7 @@
</ChildObjects>
</TabularSection>
<Form>Форма</Form>
<Form>ФормаНастройки</Form>
<Command uuid="5db63bce-cf29-4131-a8c9-b946e30b226b">
<Properties>
<Name>КомандаОткрытьТекущиеДела</Name>

View File

@ -81,6 +81,11 @@
<CommandName>Form.StandardCommand.CustomizeForm</CommandName>
<ExtendedTooltip name="ТЧТекущиеДелаИзменитьФормуРасширеннаяПодсказка" id="103"/>
</Button>
<Button name="ТЧТекущиеДелаКомандаНастройки" id="104">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаНастройки</CommandName>
<ExtendedTooltip name="ТЧТекущиеДелаКомандаНастройкиРасширеннаяПодсказка" id="105"/>
</Button>
</ChildItems>
</AutoCommandBar>
<ExtendedTooltip name="ТЧТекущиеДелаРасширеннаяПодсказка" id="4"/>
@ -289,15 +294,6 @@
<Event name="OnChange">ПоказыватьПозжеПриИзменении</Event>
</Events>
</CheckBoxField>
<CheckBoxField name="АвтоматическиСохранятьТекущиеДела" id="104">
<DataPath>Объект.АвтоматическиСохранятьТекущиеДела</DataPath>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="АвтоматическиСохранятьТекущиеДелаКонтекстноеМеню" id="105"/>
<ExtendedTooltip name="АвтоматическиСохранятьТекущиеДелаРасширеннаяПодсказка" id="106"/>
<Events>
<Event name="OnChange">АвтоматическиСохранятьТекущиеДелаПриИзменении</Event>
</Events>
</CheckBoxField>
</ChildItems>
</UsualGroup>
</ChildItems>
@ -512,5 +508,20 @@
</Picture>
<Action>КомандаСохранить</Action>
</Command>
<Command name="КомандаНастройки" id="8">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Настройки</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда настройки</v8:content>
</v8:item>
</ToolTip>
<Action>КомандаНастройки</Action>
</Command>
</Commands>
</Form>

View File

@ -1,4 +1,9 @@

&НаКлиенте
Процедура КомандаНастройки(Команда)
ОткрытьФорму("Обработка.узТекущиеДела.Форма.ФормаНастройки",,ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура КомандаОбновить(Команда)
ОбновитьТекущиеДелаНаСервере();
@ -302,9 +307,14 @@
&НаКлиенте
Процедура АвтоматическиСохранятьТекущиеДелаПриИзменении(Элемент)
ПрименитьНастройкиНаКлиенте();
КонецПроцедуры
&НаКлиенте
Процедура ПрименитьНастройкиНаКлиенте() Экспорт
Если Объект.АвтоматическиСохранятьТекущиеДела Тогда
ПодключитьОбработчикОжидания("СохранитьТекущиеДелаНаКлиенте", 600);
Иначе
ОтключитьОбработчикОжидания("СохранитьТекущиеДелаНаКлиенте");
Конецесли;
КонецПроцедуры
Конецесли;
КонецПроцедуры

View File

@ -0,0 +1,22 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<Form uuid="33b8ec38-4f83-43b5-beed-0fbeaeaada8c">
<Properties>
<Name>ФормаНастройки</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Настройки "Текущих дел"</v8:content>
</v8:item>
</Synonym>
<Comment/>
<FormType>Managed</FormType>
<IncludeHelpInContents>false</IncludeHelpInContents>
<UsePurposes>
<v8:Value xsi:type="app:ApplicationUsePurpose">PersonalComputer</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobileDevice</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

View File

@ -0,0 +1,37 @@
<?xml version="1.0" encoding="UTF-8"?>
<Form xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<Autofill>false</Autofill>
</AutoCommandBar>
<Events>
<Event name="OnOpen">ПриОткрытии</Event>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
<Event name="OnClose">ПриЗакрытии</Event>
</Events>
<ChildItems>
<Button name="Закрыть" id="4">
<Type>UsualButton</Type>
<CommandName>Form.StandardCommand.Close</CommandName>
<ExtendedTooltip name="ЗакрытьРасширеннаяПодсказка" id="5"/>
</Button>
<CheckBoxField name="АвтоматическиСохранятьТекущиеДела" id="6">
<DataPath>АвтоматическиСохранятьТекущиеДела</DataPath>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="АвтоматическиСохранятьТекущиеДелаКонтекстноеМеню" id="7"/>
<ExtendedTooltip name="АвтоматическиСохранятьТекущиеДелаРасширеннаяПодсказка" id="8"/>
</CheckBoxField>
</ChildItems>
<Attributes>
<Attribute name="АвтоматическиСохранятьТекущиеДела" id="1">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Автоматически сохранять текущие дела (каждые 15 мин)</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
</Attribute>
</Attributes>
</Form>

View File

@ -0,0 +1,13 @@

&НаКлиенте
Процедура ПриЗакрытии()
ВладелецФормы.Объект.АвтоматическиСохранятьТекущиеДела = АвтоматическиСохранятьТекущиеДела;
ВладелецФормы.ПрименитьНастройкиНаКлиенте();
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
АвтоматическиСохранятьТекущиеДела = ВладелецФормы.Объект.АвтоматическиСохранятьТекущиеДела;
КонецПроцедуры