1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-01-28 03:57:18 +02:00
Code Issues Releases Activity

Изменил форму ввода факта по задачам. Добавил быстрые кнопки ввода часов.

Browse Source
This commit is contained in:
Anton Ivanov 2019-12-22 11:45:08 +03:00
parent d43dc538b2
commit 243596455e
2 changed files with 468 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

495
src/cf/Documents/узВводФактаПоЗадаче/Forms/ФормаДокументаВводСЗадачи/Ext/Form.xml
View File

@ -31,6 +31,256 @@
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<UsualGroup name="ГруппаШапка" id="48">
<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>
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаШапкаРасширеннаяПодсказка" id="49"/>
<ChildItems>
<UsualGroup name="ГруппаШапкаЛевая" id="50">
<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>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаШапкаЛеваяРасширеннаяПодсказка" id="51"/>
<ChildItems>
<UsualGroup name="Группа5" id="46">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа5РасширеннаяПодсказка" id="47"/>
<ChildItems>
<Button name="Команда15Минут" id="56">
<Type>UsualButton</Type>
<DefaultItem>true</DefaultItem>
<CommandName>Form.Command.Команда15Минут</CommandName>
<ExtendedTooltip name="Команда15МинутРасширеннаяПодсказка" id="57"/>
</Button>
<Button name="Команда30Минут" id="58">
<Type>UsualButton</Type>
<CommandName>Form.Command.Команда30Минут</CommandName>
<ExtendedTooltip name="Команда30МинутРасширеннаяПодсказка" id="59"/>
</Button>
<Button name="Команда45Минут" id="60">
<Type>UsualButton</Type>
<CommandName>Form.Command.Команда45Минут</CommandName>
<ExtendedTooltip name="Команда45МинутРасширеннаяПодсказка" id="61"/>
</Button>
<Button name="Команда1Час" id="62">
<Type>UsualButton</Type>
<CommandName>Form.Command.Команда1Час</CommandName>
<ExtendedTooltip name="Команда1ЧасРасширеннаяПодсказка" id="63"/>
</Button>
<Button name="Команда2Часа" id="64">
<Type>UsualButton</Type>
<CommandName>Form.Command.Команда2Часа</CommandName>
<ExtendedTooltip name="Команда2ЧасаРасширеннаяПодсказка" id="65"/>
</Button>
<Button name="Команда3Часа" id="77">
<Type>UsualButton</Type>
<CommandName>Form.Command.Команда3Часа</CommandName>
<ExtendedTooltip name="Команда3ЧасаРасширеннаяПодсказка" id="78"/>
</Button>
<Button name="Команда4Часа" id="79">
<Type>UsualButton</Type>
<CommandName>Form.Command.Команда4Часа</CommandName>
<ExtendedTooltip name="Команда4ЧасаРасширеннаяПодсказка" id="80"/>
</Button>
<Button name="Команда5Часов" id="81">
<Type>UsualButton</Type>
<CommandName>Form.Command.Команда5Часов</CommandName>
<ExtendedTooltip name="Команда5ЧасовРасширеннаяПодсказка" id="82"/>
</Button>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа6" id="69">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа6РасширеннаяПодсказка" id="70"/>
<ChildItems>
<InputField name="Факт" id="19">
<DataPath>Факт</DataPath>
<ContextMenu name="ФактКонтекстноеМеню" id="20"/>
<ExtendedTooltip name="ФактРасширеннаяПодсказка" id="21"/>
<Events>
<Event name="OnChange">ФактПриИзменении</Event>
</Events>
</InputField>
<InputField name="Задача" id="43">
<DataPath>Объект.Задача</DataPath>
<ContextMenu name="ЗадачаКонтекстноеМеню" id="44"/>
<ExtendedTooltip name="ЗадачаРасширеннаяПодсказка" id="45"/>
</InputField>
<InputField name="ЗадачаКод" id="74">
<DataPath>Объект.Задача.Code</DataPath>
<ReadOnly>true</ReadOnly>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Номер задачи</v8:content>
</v8:item>
</Title>
<TitleLocation>None</TitleLocation>
<EditFormat>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>ЧГ=0</v8:content>
</v8:item>
</EditFormat>
<ContextMenu name="ЗадачаКодКонтекстноеМеню" id="75"/>
<ExtendedTooltip name="ЗадачаКодРасширеннаяПодсказка" id="76"/>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаШапкаПравая" id="52">
<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>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаШапкаПраваяРасширеннаяПодсказка" id="53"/>
</UsualGroup>
</ChildItems>
</UsualGroup>
<InputField name="Примечание" id="33">
<DataPath>Примечание</DataPath>
<AutoMaxWidth>false</AutoMaxWidth>
<AutoMaxHeight>false</AutoMaxHeight>
<HorizontalStretch>true</HorizontalStretch>
<MultiLine>true</MultiLine>
<ContextMenu name="ПримечаниеКонтекстноеМеню" id="34"/>
<ExtendedTooltip name="ПримечаниеРасширеннаяПодсказка" id="35"/>
</InputField>
<UsualGroup name="ГруппаДополнительно" id="54">
<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>
<Behavior>Collapsible</Behavior>
<CollapsedRepresentationTitle>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Дополнительно</v8:content>
</v8:item>
</CollapsedRepresentationTitle>
<Collapsed>true</Collapsed>
<Representation>None</Representation>
<ExtendedTooltip name="ГруппаДополнительноРасширеннаяПодсказка" id="55"/>
<ChildItems>
<UsualGroup name="Группа4" id="41">
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа4РасширеннаяПодсказка" id="42"/>
<ChildItems>
<UsualGroup name="Группа2" id="31">
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа2РасширеннаяПодсказка" id="32"/>
<ChildItems>
<InputField name="Спринт" id="28">
<DataPath>Спринт</DataPath>
<SkipOnInput>true</SkipOnInput>
<ContextMenu name="СпринтКонтекстноеМеню" id="29"/>
<ExtendedTooltip name="СпринтРасширеннаяПодсказка" id="30"/>
</InputField>
<InputField name="Исполнитель" id="36">
<DataPath>Объект.Исполнитель</DataPath>
<ContextMenu name="ИсполнительКонтекстноеМеню" id="37"/>
<ExtendedTooltip name="ИсполнительРасширеннаяПодсказка" id="38"/>
</InputField>
<InputField name="СсылкаНомер" id="71">
<DataPath>Объект.Ref.Number</DataPath>
<ContextMenu name="СсылкаНомерКонтекстноеМеню" id="72"/>
<ExtendedTooltip name="СсылкаНомерРасширеннаяПодсказка" id="73"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа1" id="26">
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа1РасширеннаяПодсказка" id="27"/>
<ChildItems>
<InputField name="Дата" id="4">
<DataPath>Объект.Date</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Дата факт работ</v8:content>
</v8:item>
</Title>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ДатаКонтекстноеМеню" id="5"/>
<ExtendedTooltip name="ДатаРасширеннаяПодсказка" id="6"/>
</InputField>
<InputField name="ДатаНачала" id="13">
<DataPath>ДатаНачала</DataPath>
<OpenButton>true</OpenButton>
<ContextMenu name="ДатаНачалаКонтекстноеМеню" id="14"/>
<ExtendedTooltip name="ДатаНачалаРасширеннаяПодсказка" id="15"/>
<Events>
<Event name="Opening">ДатаНачалаОткрытие</Event>
</Events>
</InputField>
<InputField name="ДатаОкончания" id="16">
<DataPath>ДатаОкончания</DataPath>
<OpenButton>true</OpenButton>
<ContextMenu name="ДатаОкончанияКонтекстноеМеню" id="17"/>
<ExtendedTooltip name="ДатаОкончанияРасширеннаяПодсказка" id="18"/>
<Events>
<Event name="Opening">ДатаОкончанияОткрытие</Event>
</Events>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<UsualGroup name="Стандартные" id="24">
<Title>
<v8:item>
@ -48,95 +298,12 @@
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="СтандартныеРасширеннаяПодсказка" id="25"/>
<ChildItems>
<InputField name="Номер" id="1">
<DataPath>Объект.Number</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="НомерКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="НомерРасширеннаяПодсказка" id="3"/>
</InputField>
<InputField name="Дата" id="4">
<DataPath>Объект.Date</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ДатаКонтекстноеМеню" id="5"/>
<ExtendedTooltip name="ДатаРасширеннаяПодсказка" id="6"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа4" id="41">
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа4РасширеннаяПодсказка" id="42"/>
<ChildItems>
<UsualGroup name="Группа2" id="31">
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа2РасширеннаяПодсказка" id="32"/>
<ChildItems>
<InputField name="Факт" id="19">
<DataPath>Факт</DataPath>
<DefaultItem>true</DefaultItem>
<ContextMenu name="ФактКонтекстноеМеню" id="20"/>
<ExtendedTooltip name="ФактРасширеннаяПодсказка" id="21"/>
<Events>
<Event name="OnChange">ФактПриИзменении</Event>
</Events>
</InputField>
<InputField name="Спринт" id="28">
<DataPath>Спринт</DataPath>
<SkipOnInput>true</SkipOnInput>
<ContextMenu name="СпринтКонтекстноеМеню" id="29"/>
<ExtendedTooltip name="СпринтРасширеннаяПодсказка" id="30"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа1" id="26">
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа1РасширеннаяПодсказка" id="27"/>
<ChildItems>
<InputField name="ДатаНачала" id="13">
<DataPath>ДатаНачала</DataPath>
<OpenButton>true</OpenButton>
<ContextMenu name="ДатаНачалаКонтекстноеМеню" id="14"/>
<ExtendedTooltip name="ДатаНачалаРасширеннаяПодсказка" id="15"/>
<Events>
<Event name="Opening">ДатаНачалаОткрытие</Event>
</Events>
</InputField>
<InputField name="ДатаОкончания" id="16">
<DataPath>ДатаОкончания</DataPath>
<OpenButton>true</OpenButton>
<ContextMenu name="ДатаОкончанияКонтекстноеМеню" id="17"/>
<ExtendedTooltip name="ДатаОкончанияРасширеннаяПодсказка" id="18"/>
<Events>
<Event name="Opening">ДатаОкончанияОткрытие</Event>
</Events>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа3" id="39">
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа3РасширеннаяПодсказка" id="40"/>
<ChildItems>
<InputField name="Исполнитель" id="36">
<DataPath>Объект.Исполнитель</DataPath>
<ContextMenu name="ИсполнительКонтекстноеМеню" id="37"/>
<ExtendedTooltip name="ИсполнительРасширеннаяПодсказка" id="38"/>
</InputField>
<InputField name="Примечание" id="33">
<DataPath>Примечание</DataPath>
<ContextMenu name="ПримечаниеКонтекстноеМеню" id="34"/>
<ExtendedTooltip name="ПримечаниеРасширеннаяПодсказка" id="35"/>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
<Attributes>
@ -221,4 +388,166 @@
</Type>
</Attribute>
</Attributes>
<Commands>
<Command name="Команда15Минут" id="1">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>15 </v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>15 минут</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда15Минут</Action>
<Representation>TextPicture</Representation>
</Command>
<Command name="Команда30Минут" id="2">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>30</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>30 минут</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда30Минут</Action>
<Representation>TextPicture</Representation>
</Command>
<Command name="Команда45Минут" id="3">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>45</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>45 минут</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда45Минут</Action>
<Representation>TextPicture</Representation>
</Command>
<Command name="Команда1Час" id="4">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>1</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>1 час</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда1Час</Action>
<Representation>TextPicture</Representation>
</Command>
<Command name="Команда2Часа" id="5">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>2</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>2 часа</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда2Часа</Action>
<Representation>TextPicture</Representation>
</Command>
<Command name="Команда3Часа" id="6">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>3</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>3 часа</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда3Часа</Action>
<Representation>TextPicture</Representation>
</Command>
<Command name="Команда4Часа" id="7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>4</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>4 часа</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда4Часа</Action>
<Representation>TextPicture</Representation>
</Command>
<Command name="Команда5Часов" id="8">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>5</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>5 часов</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>StdPicture.ScheduledJob</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>Команда5Часов</Action>
<Representation>TextPicture</Representation>
</Command>
</Commands>
</Form>

61
src/cf/Documents/узВводФактаПоЗадаче/Forms/ФормаДокументаВводСЗадачи/Ext/Form/Module.bsl
View File

@ -14,6 +14,14 @@
Объект.Исполнитель = Параметры.Исполнитель;
КонецЕсли;
Если Параметры.Свойство("Примечание") Тогда
Примечание = Параметры.Примечание;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Объект.Исполнитель) Тогда
Объект.Исполнитель = ПараметрыСеанса.ТекущийПользователь;
Конецесли;
Спринт = Справочники.узСпринты.ПолучитьТекущийСпринтДляЗадачи(КонецДня(Объект.Дата), Объект.Задача);
КонецПроцедуры
@ -40,11 +48,7 @@
&НаКлиенте
Процедура ФактПриИзменении(Элемент)
Если Не ЗначениеЗаполнено(ДатаНачала) Тогда
ДатаНачала = ДатаОкончания - Факт * 3600;
КонецЕсли;
ДатаНачала = ДатаОкончания - Факт * 3600;
КонецПроцедуры
@ -104,3 +108,50 @@
ИзменитьЧасыФактДляСтроки();
КонецПроцедуры
// --- 79Vlad 25.10.2018
&НаКлиенте
Процедура Команда15Минут(Команда)
УказатьФактВМинутах(15);
КонецПроцедуры
&НаКлиенте
Процедура УказатьФактВМинутах(КоличествоМинут)
Факт = КоличествоМинут / 60;
ФактПриИзменении(Неопределено);
КонецПроцедуры
&НаКлиенте
Процедура Команда30Минут(Команда)
УказатьФактВМинутах(30);
КонецПроцедуры
&НаКлиенте
Процедура Команда45Минут(Команда)
УказатьФактВМинутах(45);
КонецПроцедуры
&НаКлиенте
Процедура Команда1Час(Команда)
УказатьФактВМинутах(60);
КонецПроцедуры
&НаКлиенте
Процедура Команда2Часа(Команда)
УказатьФактВМинутах(120);
КонецПроцедуры
&НаКлиенте
Процедура Команда3Часа(Команда)
УказатьФактВМинутах(180);
КонецПроцедуры
&НаКлиенте
Процедура Команда4Часа(Команда)
УказатьФактВМинутах(240);
КонецПроцедуры
&НаКлиенте
Процедура Команда5Часов(Команда)
УказатьФактВМинутах(300);
КонецПроцедуры