From f36b065037d0f44760e10516aa27b70903be9e02 Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Fri, 5 Oct 2018 12:51:49 +0300 Subject: [PATCH] =?UTF-8?q?#108=20@capitoshko=20=D0=94=D0=BE=D0=B1=D0=B0?= =?UTF-8?q?=D0=B2=D0=B8=D1=82=D1=8C=20=D0=BD=D0=B0=D1=81=D1=82=D1=80=D0=BE?= =?UTF-8?q?=D0=B9=D0=BA=D0=B8=203=20=D1=81=D1=82=D1=80=D0=BE=D0=BA=D0=B8?= =?UTF-8?q?=20=D0=BA=D0=B0=D1=80=D1=82=D0=BE=D1=87=D0=BA=D0=B8=20=D0=B7?= =?UTF-8?q?=D0=B0=D0=B4=D0=B0=D1=87=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cf/DataProcessors/узКанбанДоска.xml | 235 ++++++++++++ .../Forms/ФормаДинамическая/Ext/Form.xml | 133 ++++++- .../Forms/ФормаДинамическая/Ext/Form/Module.bsl | 337 ++++++++++++++---- 3 files changed, 635 insertions(+), 70 deletions(-) diff --git a/src/cf/DataProcessors/узКанбанДоска.xml b/src/cf/DataProcessors/узКанбанДоска.xml index f66dbfdbe..f00475d66 100644 --- a/src/cf/DataProcessors/узКанбанДоска.xml +++ b/src/cf/DataProcessors/узКанбанДоска.xml @@ -159,6 +159,201 @@ Auto + + + ПоказыватьПризнакЕстьФайлыПоЗадаче + + + ru + Показывать признак есть файлы по задаче + + + + + xs:boolean + + false + + + + + ru + * § - есть файлы по задаче; + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ПоказыватьПризнакЕстьПисьмаПоЗадаче + + + ru + Показывать признак есть письма по задаче + + + + + xs:boolean + + false + + + + + ru + * ✉ - есть письма по задаче; + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ПоказыватьЗаказчика + + + ru + Показывать заказчика + + + + + xs:boolean + + false + + + + + ru + * заказчик. + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ПоказыватьВыполнениеЧеклистаДробь + + + ru + Показывать выполнение чеклиста дробь + + + + + xs:boolean + + false + + + + + ru + * 2/3 - чеклиста + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ПоказыватьВыполнениеЧеклистаПроцент + + + ru + Показывать выполнение чеклиста процент + + + + + xs:boolean + + false + + + + + ru + * % - чеклиста + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + @@ -863,6 +1058,46 @@ Auto + + + ЧекЛистВыполнениеПроцент + + + ru + Чек лист выполнение процент + + + + + xs:string + + 20 + Variable + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + diff --git a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml index 45035670b..f78acbbcc 100644 --- a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml +++ b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml @@ -300,10 +300,8 @@ - + Объект.Показывать3СтрокуВКарточкеЗадачи - None - ShowLeft Tumbler @@ -311,12 +309,122 @@ БЛ=Нет; БИ=Да - - + + Показывать3СтрокуВКарточкеЗадачиПриИзменении + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Доп настройки3 строки в карточки задачи</v8:content> + </v8:item> + + + + ru + Группа доп настройки3 строки в карточки задачи + + + false + Left + Vertical + Left + Collapsible + + + ru + Доп настройки3 строки в карточки задачи + + + true + None + + + + Объект.ПоказыватьПризнакЕстьФайлыПоЗадаче + ShowRight + Tumbler + + + ru + БЛ=Нет; БИ=Да + + + + + + ПоказыватьПризнакЕстьФайлыПоЗадачеПриИзменении + + + + Объект.ПоказыватьПризнакЕстьПисьмаПоЗадаче + ShowRight + Tumbler + + + ru + БЛ=Нет; БИ=Да + + + + + + ПоказыватьПризнакЕстьПисьмаПоЗадачеПриИзменении + + + + Объект.ПоказыватьЗаказчика + ShowRight + Tumbler + + + ru + БЛ=Нет; БИ=Да + + + + + + ПоказыватьЗаказчикаПриИзменении + + + + Объект.ПоказыватьВыполнениеЧеклистаДробь + ShowRight + Tumbler + + + ru + БЛ=Нет; БИ=Да + + + + + + ПоказыватьВыполнениеЧеклистаДробьПриИзменении + + + + Объект.ПоказыватьВыполнениеЧеклистаПроцент + ShowRight + Tumbler + + + ru + БЛ=Нет; БИ=Да + + + + + + ПоказыватьВыполнениеЧеклистаПроцентПриИзменении + + + + @@ -590,5 +698,20 @@ КомандаОткрытьПапкуЗадачиНаДиске + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Отобразить дополнительные настройки</v8:content> + </v8:item> + + + + ru + Команда отобразить дополнительные настройки + + + КомандаОтобразитьДополнительныеНастройки + \ No newline at end of file diff --git a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl index 18f1dd31c..4ae4dd183 100644 --- a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl +++ b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl @@ -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 #КонецОбласти