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

#108 @capitoshko Добавить настройки 3 строки карточки задачи

Browse Source
This commit is contained in:
Anton Ivanov 2018-10-05 12:51:49 +03:00
parent 9eb24dda38
commit f36b065037
3 changed files with 635 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

235
src/cf/DataProcessors/узКанбанДоска.xml
View File

@ -159,6 +159,201 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="c639e751-99f1-481c-a50a-26343dc56eb2">
<Properties>
<Name>ПоказыватьПризнакЕстьФайлыПоЗадаче</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Показывать признак есть файлы по задаче</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>* § - есть файлы по задаче;</v8:content>
</v8:item>
</ToolTip>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="3a05797d-21ce-4934-bae6-039480f2d1f3">
<Properties>
<Name>ПоказыватьПризнакЕстьПисьмаПоЗадаче</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Показывать признак есть письма по задаче</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>* ✉ - есть письма по задаче;</v8:content>
</v8:item>
</ToolTip>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="436592f1-b5ff-46b7-a288-7a3cddfa38b0">
<Properties>
<Name>ПоказыватьЗаказчика</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Показывать заказчика</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>* заказчик.</v8:content>
</v8:item>
</ToolTip>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="41a70597-3749-4714-9ecf-beb27acedbd6">
<Properties>
<Name>ПоказыватьВыполнениеЧеклистаДробь</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Показывать выполнение чеклиста дробь</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>* 2/3 - чеклиста</v8:content>
</v8:item>
</ToolTip>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="83b4e257-b3dc-4a80-af1b-8fd9f60ed76f">
<Properties>
<Name>ПоказыватьВыполнениеЧеклистаПроцент</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Показывать выполнение чеклиста процент</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>* % - чеклиста</v8:content>
</v8:item>
</ToolTip>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<TabularSection uuid="df049fed-f241-4ab8-bf0b-3a046feb2d8f">
<InternalInfo>
<xr:GeneratedType name="DataProcessorTabularSection.узКанбанДоска.ТЧЗадачи" category="TabularSection">
@ -863,6 +1058,46 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="3d31e14e-5fb6-413f-82ce-feae28d7610b">
<Properties>
<Name>ЧекЛистВыполнениеПроцент</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Чек лист выполнение процент</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>20</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:type="xs:string"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
</ChildObjects>
</TabularSection>
<TabularSection uuid="fc9c0693-c970-4285-be29-6fac7fdd05e6">

133
src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml
View File

@ -300,10 +300,8 @@
</UsualGroup>
</ChildItems>
</UsualGroup>
<CheckBoxField name="Показывать3СтрокуВКарточкеЗадачи" id="522">
<CheckBoxField name="Показывать3СтрокуВКарточкеЗадачи" id="550">
<DataPath>Объект.Показывать3СтрокуВКарточкеЗадачи</DataPath>
<TitleLocation>None</TitleLocation>
<ToolTipRepresentation>ShowLeft</ToolTipRepresentation>
<CheckBoxType>Tumbler</CheckBoxType>
<EditFormat>
<v8:item>
@ -311,12 +309,122 @@
<v8:content>БЛ=Нет; БИ=Да</v8:content>
</v8:item>
</EditFormat>
<ContextMenu name="Показывать3СтрокуВКарточкеЗадачиКонтекстноеМеню" id="523"/>
<ExtendedTooltip name="Показывать3СтрокуВКарточкеЗадачиРасширеннаяПодсказка" id="524"/>
<ContextMenu name="Показывать3СтрокуВКарточкеЗадачиКонтекстноеМеню" id="551"/>
<ExtendedTooltip name="Показывать3СтрокуВКарточкеЗадачиРасширеннаяПодсказка" id="552"/>
<Events>
<Event name="OnChange">Показывать3СтрокуВКарточкеЗадачиПриИзменении</Event>
</Events>
</CheckBoxField>
<UsualGroup name="ГруппаДопНастройки3СтрокиВКарточкиЗадачи" id="548">
<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>
<HorizontalStretch>false</HorizontalStretch>
<GroupHorizontalAlign>Left</GroupHorizontalAlign>
<Group>Vertical</Group>
<HorizontalAlign>Left</HorizontalAlign>
<Behavior>Collapsible</Behavior>
<CollapsedRepresentationTitle>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Доп настройки3 строки в карточки задачи</v8:content>
</v8:item>
</CollapsedRepresentationTitle>
<Collapsed>true</Collapsed>
<Representation>None</Representation>
<ExtendedTooltip name="ГруппаДопНастройки3СтрокиВКарточкиЗадачиРасширеннаяПодсказка" id="549"/>
<ChildItems>
<CheckBoxField name="ПоказыватьПризнакЕстьФайлыПоЗадаче" id="527">
<DataPath>Объект.ПоказыватьПризнакЕстьФайлыПоЗадаче</DataPath>
<ToolTipRepresentation>ShowRight</ToolTipRepresentation>
<CheckBoxType>Tumbler</CheckBoxType>
<EditFormat>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>БЛ=Нет; БИ=Да</v8:content>
</v8:item>
</EditFormat>
<ContextMenu name="ПоказыватьПризнакЕстьФайлыПоЗадачеКонтекстноеМеню" id="528"/>
<ExtendedTooltip name="ПоказыватьПризнакЕстьФайлыПоЗадачеРасширеннаяПодсказка" id="529"/>
<Events>
<Event name="OnChange">ПоказыватьПризнакЕстьФайлыПоЗадачеПриИзменении</Event>
</Events>
</CheckBoxField>
<CheckBoxField name="ПоказыватьПризнакЕстьПисьмаПоЗадаче" id="530">
<DataPath>Объект.ПоказыватьПризнакЕстьПисьмаПоЗадаче</DataPath>
<ToolTipRepresentation>ShowRight</ToolTipRepresentation>
<CheckBoxType>Tumbler</CheckBoxType>
<EditFormat>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>БЛ=Нет; БИ=Да</v8:content>
</v8:item>
</EditFormat>
<ContextMenu name="ПоказыватьПризнакЕстьПисьмаПоЗадачеКонтекстноеМеню" id="531"/>
<ExtendedTooltip name="ПоказыватьПризнакЕстьПисьмаПоЗадачеРасширеннаяПодсказка" id="532"/>
<Events>
<Event name="OnChange">ПоказыватьПризнакЕстьПисьмаПоЗадачеПриИзменении</Event>
</Events>
</CheckBoxField>
<CheckBoxField name="ПоказыватьЗаказчика" id="533">
<DataPath>Объект.ПоказыватьЗаказчика</DataPath>
<ToolTipRepresentation>ShowRight</ToolTipRepresentation>
<CheckBoxType>Tumbler</CheckBoxType>
<EditFormat>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>БЛ=Нет; БИ=Да</v8:content>
</v8:item>
</EditFormat>
<ContextMenu name="ПоказыватьЗаказчикаКонтекстноеМеню" id="534"/>
<ExtendedTooltip name="ПоказыватьЗаказчикаРасширеннаяПодсказка" id="535"/>
<Events>
<Event name="OnChange">ПоказыватьЗаказчикаПриИзменении</Event>
</Events>
</CheckBoxField>
<CheckBoxField name="ПоказыватьВыполнениеЧеклистаДробь" id="536">
<DataPath>Объект.ПоказыватьВыполнениеЧеклистаДробь</DataPath>
<ToolTipRepresentation>ShowRight</ToolTipRepresentation>
<CheckBoxType>Tumbler</CheckBoxType>
<EditFormat>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>БЛ=Нет; БИ=Да</v8:content>
</v8:item>
</EditFormat>
<ContextMenu name="ПоказыватьВыполнениеЧеклистаДробьКонтекстноеМеню" id="537"/>
<ExtendedTooltip name="ПоказыватьВыполнениеЧеклистаДробьРасширеннаяПодсказка" id="538"/>
<Events>
<Event name="OnChange">ПоказыватьВыполнениеЧеклистаДробьПриИзменении</Event>
</Events>
</CheckBoxField>
<CheckBoxField name="ПоказыватьВыполнениеЧеклистаПроцент" id="539">
<DataPath>Объект.ПоказыватьВыполнениеЧеклистаПроцент</DataPath>
<ToolTipRepresentation>ShowRight</ToolTipRepresentation>
<CheckBoxType>Tumbler</CheckBoxType>
<EditFormat>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>БЛ=Нет; БИ=Да</v8:content>
</v8:item>
</EditFormat>
<ContextMenu name="ПоказыватьВыполнениеЧеклистаПроцентКонтекстноеМеню" id="540"/>
<ExtendedTooltip name="ПоказыватьВыполнениеЧеклистаПроцентРасширеннаяПодсказка" id="541"/>
<Events>
<Event name="OnChange">ПоказыватьВыполнениеЧеклистаПроцентПриИзменении</Event>
</Events>
</CheckBoxField>
</ChildItems>
</UsualGroup>
</ChildItems>
</Page>
</ChildItems>
@ -590,5 +698,20 @@
</Picture>
<Action>КомандаОткрытьПапкуЗадачиНаДиске</Action>
</Command>
<Command name="КомандаОтобразитьДополнительныеНастройки" id="11">
<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>

337
src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl
View File

@ -85,6 +85,7 @@
ПодключитьОбработчикОжидания("ЗаполнитьЗадачиНаКлиенте", 180);
УбратьИзКонтекстногоМенюЛишниеКнопкиНаСервере();
КонецПроцедуры
#КонецОбласти
@ -340,7 +341,9 @@
// ****** Группа формы "Нижняя часть 3 строка" ***********
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
Если Объект.Показывать3СтрокуВКарточкеЗадачи Тогда
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
пЭлементКарточкаЗадачи_НижняяЧасть3Строка = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяКарточкаЗадачи_НижняяЧасть3Строка,
@ -351,50 +354,101 @@
пЭлементКарточкаЗадачи_НижняяЧасть3Строка.Группировка = ГруппировкаКолонок.ВЯчейке;
//// ****** Поле формы "Есть файлы в карточке задачи 3 строка" ***********
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяПоляЕстьФайлыВКарточкеЗадачи,
Тип("ПолеФормы"),
пЭлементКарточкаЗадачи_НижняяЧасть3Строка,
);
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл.ПутьКДанным = "Объект.ТЧЗадачи.ЕстьФайлы";
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл.Ширина = 1;
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
Если Объект.ПоказыватьПризнакЕстьФайлыПоЗадаче Тогда
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяПоляЕстьФайлыВКарточкеЗадачи,
Тип("ПолеФормы"),
пЭлементКарточкаЗадачи_НижняяЧасть3Строка,
);
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл.ПутьКДанным = "Объект.ТЧЗадачи.ЕстьФайлы";
пЭлементПолеЗадачиВКарточкеЗадачиЕстьФайл.Ширина = 1;
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
КонецЕсли;
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
//// ****** Поле формы "Есть письма в карточке задачи 3 строка" ***********
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяПоляЕстьПисьмаВКарточкеЗадачи,
Тип("ПолеФормы"),
пЭлементКарточкаЗадачи_НижняяЧасть3Строка,
);
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма.ПутьКДанным = "Объект.ТЧЗадачи.ЕстьПисьма";
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма.Ширина = 1;
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
Если Объект.ПоказыватьПризнакЕстьПисьмаПоЗадаче Тогда
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяПоляЕстьПисьмаВКарточкеЗадачи,
Тип("ПолеФормы"),
пЭлементКарточкаЗадачи_НижняяЧасть3Строка,
);
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма.ПутьКДанным = "Объект.ТЧЗадачи.ЕстьПисьма";
пЭлементПолеЗадачиВКарточкеЗадачиЕстьПисьма.Ширина = 1;
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
КонецЕсли;
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
//// ****** Поле формы "Заказчик в карточке задачи 3 строка" ***********
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи = пЭлементыФормы.Вставить(
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
Если Объект.ПоказыватьЗаказчика Тогда
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяПоляЗаказчикВКарточкеЗадачи,
Тип("ПолеФормы"),
пЭлементКарточкаЗадачи_НижняяЧасть3Строка,
);
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи.ПутьКДанным = "Объект.ТЧЗадачи.КороткоеИмяЗаказчик";
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи.Ширина = 3;
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи.ПутьКДанным = "Объект.ТЧЗадачи.КороткоеИмяЗаказчик";
пЭлементПолеЗаказчикПредставлениеВКарточкеЗадачи.Ширина = 3;
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
КонецЕсли;
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
//+ #58 Дзеса Ігор (capitoshko)
//// ****** Поле формы "Процент выполнения согласно чек - листу" ***********
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи = пЭлементыФормы.Вставить(
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
Если Объект.ПоказыватьВыполнениеЧеклистаДробь Тогда
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
//// ****** Поле формы "Процент выполнения согласно чек - листу" ***********
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяПоляЧекЛистВыполнение,
Тип("ПолеФормы"),
пЭлементКарточкаЗадачи_НижняяЧасть3Строка,
);
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи.ПутьКДанным = "Объект.ТЧЗадачи.ЧекЛистВыполнение";
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи.Ширина = 5;
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи.ПутьКДанным = "Объект.ТЧЗадачи.ЧекЛистВыполнение";
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачи.Ширина = 5;
//- #58 Дзеса Ігор (capitoshko)
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
КонецЕсли;
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
//+ #108 Дзеса Ігор (capitoshko) 05.10.2018
Если Объект.ПоказыватьВыполнениеЧеклистаПроцент Тогда
//// ****** Поле формы "Процент выполнения согласно чек - листу в процентах" ***********
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачиПроцент = пЭлементыФормы.Вставить(
ИменаЭлементов.ИмяПоляЧекЛистВыполнениеПроцент,
Тип("ПолеФормы"),
пЭлементКарточкаЗадачи_НижняяЧасть3Строка,
);
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачиПроцент.Вид = ВидПоляФормы.ПолеВвода;
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачиПроцент.ПутьКДанным = "Объект.ТЧЗадачи.ЧекЛистВыполнениеПроцент";
пЭлементПоляЧекЛистВыполнениеВКарточкеЗадачиПроцент.Ширина = 5;
КонецЕсли;
//- #108 Дзеса Ігор (capitoshko) 05.10.2018
Конецесли;
////Павлюков - конец
@ -436,6 +490,9 @@
//+ #58 Дзеса Ігор (capitoshko)
ИмяПоляЧекЛистВыполнение = ИмяКолонки +"_ТЧЗадачи_НижняяЧасть3Строка_ЧекЛистВыполнение";
//- #58 Дзеса Ігор (capitoshko)
//+ #106 Дзеса Ігор (capitoshko) 05.10.2018
ИмяПоляЧекЛистВыполнениеПроцент = ИмяКолонки +"_ТЧЗадачи_НижняяЧасть3Строка_ЧекЛистВыполнениеПроцент";
//- #106 Дзеса Ігор (capitoshko) 05.10.2018
РезультатФункции = Новый Структура();
РезультатФункции.Вставить("ИмяГруппыКолонки",ИмяГруппыКолонки);
@ -465,6 +522,9 @@
//+ #58 Дзеса Ігор (capitoshko)
РезультатФункции.Вставить("ИмяПоляЧекЛистВыполнение",ИмяПоляЧекЛистВыполнение);
//- #58 Дзеса Ігор (capitoshko)
//+ #106 Дзеса Ігор (capitoshko) 05.10.2018
РезультатФункции.Вставить("ИмяПоляЧекЛистВыполнениеПроцент",ИмяПоляЧекЛистВыполнениеПроцент);
//- #106 Дзеса Ігор (capitoshko) 05.10.2018
Возврат РезультатФункции;
КонецФункции
@ -636,7 +696,24 @@
Конецесли;
Если СохраненныеНастройки.Свойство("Показывать3СтрокуВКарточкеЗадачи") Тогда
Объект.Показывать3СтрокуВКарточкеЗадачи = СохраненныеНастройки.Показывать3СтрокуВКарточкеЗадачи;
Конецесли;
//+ #108 Дзеса Ігор (capitoshko) 04.10.2018
Если СохраненныеНастройки.Свойство("ПоказыватьПризнакЕстьФайлыПоЗадаче") Тогда
Объект.ПоказыватьПризнакЕстьФайлыПоЗадаче = СохраненныеНастройки.ПоказыватьПризнакЕстьФайлыПоЗадаче;
Конецесли;
Если СохраненныеНастройки.Свойство("ПоказыватьПризнакЕстьПисьмаПоЗадаче") Тогда
Объект.ПоказыватьПризнакЕстьПисьмаПоЗадаче = СохраненныеНастройки.ПоказыватьПризнакЕстьПисьмаПоЗадаче;
Конецесли;
Если СохраненныеНастройки.Свойство("ПоказыватьЗаказчика") Тогда
Объект.ПоказыватьЗаказчика = СохраненныеНастройки.ПоказыватьЗаказчика;
Конецесли;
Если СохраненныеНастройки.Свойство("ПоказыватьВыполнениеЧеклистаДробь") Тогда
Объект.ПоказыватьВыполнениеЧеклистаДробь = СохраненныеНастройки.ПоказыватьВыполнениеЧеклистаДробь;
Конецесли;
Если СохраненныеНастройки.Свойство("ПоказыватьВыполнениеЧеклистаПроцент") Тогда
Объект.ПоказыватьВыполнениеЧеклистаПроцент = СохраненныеНастройки.ПоказыватьВыполнениеЧеклистаПроцент;
Конецесли;
//- #108 Дзеса Ігор (capitoshko) 04.10.2018
Иначе
ЗаполнитьТЧНастройкиКолонокНаСервере();
Конецесли;
@ -756,7 +833,13 @@
ДопПараметры.Вставить("ТЧНастройкиКолонок",Объект.ТЧНастройкиКолонок.Выгрузить());
ДопПараметры.Вставить("НастройкиКомпоновщикаХранилище",НастройкиКомпоновщикаХранилище);
ДопПараметры.Вставить("Показывать3СтрокуВКарточкеЗадачи",Объект.Показывать3СтрокуВКарточкеЗадачи);
//+ #108 Дзеса Ігор (capitoshko) 04.10.2018
ДопПараметры.Вставить("ПоказыватьПризнакЕстьФайлыПоЗадаче",Объект.ПоказыватьПризнакЕстьФайлыПоЗадаче);
ДопПараметры.Вставить("ПоказыватьПризнакЕстьПисьмаПоЗадаче",Объект.ПоказыватьПризнакЕстьПисьмаПоЗадаче);
ДопПараметры.Вставить("ПоказыватьЗаказчика",Объект.ПоказыватьЗаказчика);
ДопПараметры.Вставить("ПоказыватьВыполнениеЧеклистаДробь",Объект.ПоказыватьВыполнениеЧеклистаДробь);
ДопПараметры.Вставить("ПоказыватьВыполнениеЧеклистаПроцент",Объект.ПоказыватьВыполнениеЧеклистаПроцент);
//- #108 Дзеса Ігор (capitoshko) 04.10.2018
ХранилищеОбщихНастроек.Сохранить(КлючНастроек,КлючНастроек,ДопПараметры);
КонецПроцедуры
@ -842,44 +925,36 @@
&НаСервере
Функция ДобавитьУбратьВСпринтЗадачи(КодОперации,пСпринт,МассивЗадач)
ЭтоДобавление = КодОперации = 1;
ЭтоУдаление = КодОперации = -1;
Перем ТЗТекущиеСпринтыДляЗадач;
РезультатФункции = Новый Структура();
МассивСообщений = Новый Массив();
МассивСообщений = Новый Массив();
ЭтоДобавление = КодОперации = 1;
ЭтоУдаление = КодОперации = -1;
Если ЭтоДобавление
И НЕ ЗначениеЗаполнено(пСпринт) Тогда
ВызватьИсключение "Ошибка! Не заполнен пСпринт при вызове метода ДобавитьУбратьВСпринтЗадачи(КодОперации,пСпринт,МассивЗадач)";
Конецесли;
Если ЭтоУдаление Тогда
ТЗТекущиеСпринтыДляЗадач = Справочники.узСпринты.ПолучитьТЗТекущиеСпринтыДляЗадач(КонецДня(ТекущаяДата()),МассивЗадач);
Конецесли;
Для каждого ЭлМассиваЗадач из МассивЗадач цикл
пЗадачаСсылка = ЭлМассиваЗадач;
НомерЗадачи = Формат(пЗадачаСсылка.Код,"ЧГ=0");
пЗадачаСсылка = ЭлМассиваЗадач;
Если ЭтоДобавление Тогда
Если пЗадачаСсылка.Удалить_Спринт <> пСпринт Тогда
ЗадачаОбъект = пЗадачаСсылка.ПолучитьОбъект();
ЗадачаОбъект.Удалить_Спринт = пСпринт;
ЗадачаОбъект.Записать();
МассивСообщений.Добавить("Добавлена"
+" в спринт ["+пСпринт+"] "
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Иначе
МассивСообщений.Добавить("Уже указана"
+" в спринте ["+пСпринт+"] "
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Конецесли;
ДобавитьЗадачуВСпринт(пЗадачаСсылка,пСпринт,МассивСообщений);
ИначеЕсли ЭтоУдаление Тогда
пСпринт = пЗадачаСсылка.Удалить_Спринт;
Если ЗначениеЗаполнено(пСпринт) Тогда
ЗадачаОбъект = пЗадачаСсылка.ПолучитьОбъект();
ЗадачаОбъект.Удалить_Спринт = Неопределено;
ЗадачаОбъект.Записать();
МассивСообщений.Добавить("Убрана"
+" из спринта ["+пСпринт+"] "
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Иначе
МассивСообщений.Добавить("Не указана в спринте"
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Конецесли;
УбратьЗадачуИзСпринта(пЗадачаСсылка,ТЗТекущиеСпринтыДляЗадач,МассивСообщений);
Иначе
ВызватьИсключение "Неизвестный код операции " + КодОперации;
КонецЕсли;
Конеццикла;
РезультатФункции.Вставить("МассивСообщений",МассивСообщений);
РезультатФункции.Вставить("КомандаДобавитьУбратьВыполнена",Истина);
Возврат РезультатФункции;
@ -938,8 +1013,8 @@
&НаСервере
Функция ДобавитьУбратьВСпринтНаСервере(КодОперации,МассивВыделенныхСтрок,пСпринт = Неопределено)
МассивЗадач = ПолучитьМассивЗадачПоВыделеннымСтрокам(МассивВыделенныхСтрок);
РезультатФункцииТекущийСпринт = Справочники.узСпринты.ПолучитьТекущийСпринт();
ТекстОшибки = РезультатФункцииТекущийСпринт.ТекстОшибки;
РезультатФункцииСпринтКоторыйНеЗавершен = Справочники.узСпринты.ПолучитьСпринтКоторыйНеЗавершен();
ТекстОшибки = РезультатФункцииСпринтКоторыйНеЗавершен.ТекстОшибки;
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
МассивСообщений = Новый Массив();
МассивСообщений.Добавить(ТекстОшибки);
@ -960,9 +1035,9 @@
Возврат РезультатФункции;
Конецесли;;
Только1АктивныйСпринт = РезультатФункцииТекущийСпринт.Только1АктивныйСпринт;
Только1АктивныйСпринт = РезультатФункцииСпринтКоторыйНеЗавершен.Только1АктивныйСпринт;
Если Только1АктивныйСпринт Тогда
пСпринт = РезультатФункцииТекущийСпринт.Спринт;
пСпринт = РезультатФункцииСпринтКоторыйНеЗавершен.Спринт;
РезультатФункции = ДобавитьУбратьВСпринтЗадачи(КодОперации,пСпринт,МассивЗадач);
Возврат РезультатФункции;
Конецесли;
@ -1360,14 +1435,146 @@
Возврат Новый ФиксированнаяСтруктура(Виды);
КонецФункции
//+ #108 Дзеса Ігор (capitoshko) 04.10.2018
&НаКлиенте
Процедура Показывать3СтрокуВКарточкеЗадачиПриИзменении(Элемент)
Процедура ПоказыватьПризнакЕстьФайлыПоЗадачеПриИзменении(Элемент)
СгенирироватьФормуЗаново = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ПоказыватьПризнакЕстьПисьмаПоЗадачеПриИзменении(Элемент)
СгенирироватьФормуЗаново = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ПоказыватьЗаказчикаПриИзменении(Элемент)
СгенирироватьФормуЗаново = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ПоказыватьВыполнениеЧеклистаДробьПриИзменении(Элемент)
СгенирироватьФормуЗаново = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ПоказыватьВыполнениеЧеклистаПроцентПриИзменении(Элемент)
СгенирироватьФормуЗаново = Истина;
КонецПроцедуры
&НаСервере
Функция Удалить_ДобавитьУбратьВСпринтЗадачи(КодОперации,пСпринт,МассивЗадач)
//ЭтоДобавление = КодОперации = 1;
//ЭтоУдаление = КодОперации = -1;
//
//РезультатФункции = Новый Структура();
//МассивСообщений = Новый Массив();
//Для каждого ЭлМассиваЗадач из МассивЗадач цикл
// пЗадачаСсылка = ЭлМассиваЗадач;
// НомерЗадачи = Формат(пЗадачаСсылка.Код,"ЧГ=0");
// Если ЭтоДобавление Тогда
// Если пЗадачаСсылка.Удалить_Спринт <> пСпринт Тогда
// ЗадачаОбъект = пЗадачаСсылка.ПолучитьОбъект();
// ЗадачаОбъект.Удалить_Спринт = пСпринт;
// ЗадачаОбъект.Записать();
// МассивСообщений.Добавить("Добавлена"
// +" в спринт ["+пСпринт+"] "
// +" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
// Иначе
// МассивСообщений.Добавить("Уже указана"
// +" в спринте ["+пСпринт+"] "
// +" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
// Конецесли;
// ИначеЕсли ЭтоУдаление Тогда
// пСпринт = пЗадачаСсылка.Удалить_Спринт;
// Если ЗначениеЗаполнено(пСпринт) Тогда
// ЗадачаОбъект = пЗадачаСсылка.ПолучитьОбъект();
// ЗадачаОбъект.Удалить_Спринт = Неопределено;
// ЗадачаОбъект.Записать();
// МассивСообщений.Добавить("Убрана"
// +" из спринта ["+пСпринт+"] "
// +" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
// Иначе
// МассивСообщений.Добавить("Не указана в спринте"
// +" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
// Конецесли;
// Иначе
// ВызватьИсключение "Неизвестный код операции " + КодОперации;
// КонецЕсли;
//Конеццикла;
//РезультатФункции.Вставить("МассивСообщений",МассивСообщений);
//РезультатФункции.Вставить("КомандаДобавитьУбратьВыполнена",Истина);
//Возврат РезультатФункции;
КонецФункции
&НаСервере
Процедура УбратьЗадачуИзСпринта(пЗадачаСсылка,ТЗТекущиеСпринтыДляЗадач,МассивСообщений)
НомерЗадачи = Формат(пЗадачаСсылка.Код,"ЧГ=0");
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("Задача",пЗадачаСсылка);
НайденныеСтрокиТЗТекущиеСпринтыДляЗадач = ТЗТекущиеСпринтыДляЗадач.НайтиСтроки(ПараметрыОтбора);
Если НайденныеСтрокиТЗТекущиеСпринтыДляЗадач.Количество() = 0 Тогда
МассивСообщений.Добавить("Не указана в спринте"
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Возврат;
Конецесли;
Для каждого СтрокаТЗТекущиеСпринтыДляЗадач из НайденныеСтрокиТЗТекущиеСпринтыДляЗадач цикл
пСпринт = СтрокаТЗТекущиеСпринтыДляЗадач.Спринт;
СпринтОбъект = пСпринт.ПолучитьОбъект();
СтрокаСпринтТЧЗадачи = СпринтОбъект.ТЧЗадачи.Найти(пЗадачаСсылка,"Задача");
Если СтрокаСпринтТЧЗадачи = Неопределено Тогда
МассивСообщений.Добавить("Не указана в спринте"
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Продолжить;
Конецесли;
СпринтОбъект.ТЧЗадачи.Удалить(СтрокаСпринтТЧЗадачи);
СпринтОбъект.Записать();
МассивСообщений.Добавить("Убрана из спринта ["+пСпринт+"] "
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Конеццикла;
КонецПроцедуры
&НаСервере
Процедура ДобавитьЗадачуВСпринт(пЗадачаСсылка,пСпринт,МассивСообщений)
НомерЗадачи = Формат(пЗадачаСсылка.Код,"ЧГ=0");
Если пСпринт.ТЧЗадачи.Найти(пЗадачаСсылка,"Задача") <> Неопределено Тогда
МассивСообщений.Добавить("Уже указана в спринте ["+пСпринт+"] "
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
Возврат;
Конецесли;
СпринтОбъект = пСпринт.ПолучитьОбъект();
СтрокаТЧЗадачи = СпринтОбъект.ТЧЗадачи.Добавить();
СтрокаТЧЗадачи.Задача = пЗадачаСсылка;
СпринтОбъект.Записать();
МассивСообщений.Добавить("Добавлена в спринт ["+пСпринт+"] "
+" задача [#"+НомерЗадачи+" "+пЗадачаСсылка+"]");
КонецПроцедуры
&НаКлиенте
Процедура Показывать3СтрокуВКарточкеЗадачиПриИзменении(Элемент)
ПоказыватьПризнакЕстьФайлыПоЗадаче = Истина;
ПоказыватьПризнакЕстьПисьмаПоЗадаче = Истина;
ПоказыватьЗаказчика = Истина;
СгенирироватьФормуЗаново = Истина;
КонецПроцедуры
//- #108 Дзеса Ігор (capitoshko) 04.10.2018
#КонецОбласти