diff --git a/src/cf/Catalogs/узЗадачи.xml b/src/cf/Catalogs/узЗадачи.xml index c7be50d23..7af3c7669 100644 --- a/src/cf/Catalogs/узЗадачи.xml +++ b/src/cf/Catalogs/узЗадачи.xml @@ -2424,6 +2424,50 @@ Use + + + ПоследнийКомментарий + + + ru + Последний комментарий / Подзадача + + + + + xs:string + + 500 + Variable + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + Use + + diff --git a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl index 606541f7b..d6413151a 100644 --- a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl +++ b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl @@ -120,6 +120,12 @@ КоличествоВыполненныхЗадачЧекЛиста = ЭтотОбъект.Комментарии.Итог("Выполнено"); //- УрянскийД 2020-06-22 (окончание) + ПоследнийКомментарий = ""; + Если КоличествоЗадачЧекЛиста > 0 Тогда + СтрокаПоследнийКомментарий = ЭтотОбъект.Комментарии[КоличествоЗадачЧекЛиста - 1]; + ПоследнийКомментарий = СтрокаПоследнийКомментарий.Комментарий; + КонецЕсли; + КонецПроцедуры Процедура ЗаполнитьСтатусЗадачиЕслиОнНеЗаполнен(Отказ) diff --git a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml index 5fcce9cf6..ffdc74b0c 100644 --- a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml +++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml @@ -1810,6 +1810,12 @@ + + Объект.URLВнешнейЗаявки + EnterOnInput + + + Объект.ПоказыватьВОтчетахИКанбанДоске Tumbler @@ -1902,12 +1908,6 @@ - - Объект.URLВнешнейЗаявки - EnterOnInput - - - ЦветЗадачиНаФорме diff --git a/src/cf/DataProcessors/узКанбанДоска.xml b/src/cf/DataProcessors/узКанбанДоска.xml index 5499e3071..1ae654eaa 100644 --- a/src/cf/DataProcessors/узКанбанДоска.xml +++ b/src/cf/DataProcessors/узКанбанДоска.xml @@ -300,6 +300,84 @@ Auto + + + Показывать4СтрокуВКарточкеЗадачи + + + ru + Показывать последний комментарий в карточке задачи + + + + + xs:boolean + + false + + + + + ru + Включает показ последнего комментария по задаче + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ВысотаПоследнегоКомментария + + + ru + Высота строки последнего комментария + + + + + xs:decimal + + 10 + 0 + Nonnegative + + + false + + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + @@ -1119,6 +1197,46 @@ Auto + + + ПоследнийКомментарий + + + ru + Последний комментарий + + + + + xs:string + + 500 + Variable + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + diff --git a/src/cf/DataProcessors/узКанбанДоска/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узКанбанДоска/Ext/ObjectModule.bsl index 24bd71cd6..2d9ff01b1 100644 --- a/src/cf/DataProcessors/узКанбанДоска/Ext/ObjectModule.bsl +++ b/src/cf/DataProcessors/узКанбанДоска/Ext/ObjectModule.bsl @@ -72,6 +72,12 @@ КонецЕсли; // - #225 Урянский Д. 2020-07-06 + //ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария + Если Показывать4СтрокуВКарточкеЗадачи Тогда + Обработки.узКанбанДоска.ДобавитьВыбранноеПоле(ИсполняемыеНастройки, "ПоследнийКомментарий"); + КонецЕсли; + //ЬЬ- pva 29-03-2023 + КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанныхКонсоли, ИсполняемыеНастройки,,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); diff --git a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml index c0826f6de..fa8f50187 100644 --- a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml +++ b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml @@ -592,6 +592,37 @@ + + Usual + None + false + + + + Объект.Показывать4СтрокуВКарточкеЗадачи + Tumbler + + + ru + БЛ=Нет; БИ=Да + + + + + + Показывать4СтрокуВКарточкеЗадачиПриИзменении + + + + Объект.ВысотаПоследнегоКомментария + + + + ВысотаПоследнегоКомментарияПриИзменении + + + + diff --git a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl index 0a9d7764e..d7ddefed8 100644 --- a/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl +++ b/src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl @@ -537,6 +537,28 @@ Конецесли; ////Павлюков - конец + //ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария + Если Объект.Показывать4СтрокуВКарточкеЗадачи Тогда + + пЭлементКарточкаЗадачи_НижняяЧасть4Строка = пЭлементыФормы.Вставить( + ИменаЭлементов.ИмяКарточкаЗадачи_НижняяЧасть4Строка, + Тип("ГруппаФормы"),пЭлементКарточкаЗадачи,Неопределено); + пЭлементКарточкаЗадачи_НижняяЧасть4Строка.Вид = ВидГруппыФормы.ГруппаКолонок; + пЭлементКарточкаЗадачи_НижняяЧасть4Строка.Заголовок = "ТЧЗадачи "+ПредставлениеКолонки; + пЭлементКарточкаЗадачи_НижняяЧасть4Строка.Подсказка = "ТЧЗадачи "+ПредставлениеКолонки; + пЭлементКарточкаЗадачи_НижняяЧасть4Строка.Группировка = ГруппировкаКолонок.Вертикальная; + + пЭлементПоляКомментарийВКарточкеЗадачи = пЭлементыФормы.Добавить( + ИменаЭлементов.ИмяПоляКомментарийВКарточкеЗадачи, + Тип("ПолеФормы"), + пЭлементКарточкаЗадачи_НижняяЧасть4Строка); + + пЭлементПоляКомментарийВКарточкеЗадачи.Вид = ВидПоляФормы.ПолеВвода; + пЭлементПоляКомментарийВКарточкеЗадачи.ПутьКДанным = "Объект.ТЧЗадачи.ПоследнийКомментарий"; + пЭлементПоляКомментарийВКарточкеЗадачи.Высота = Объект.ВысотаПоследнегоКомментария; + + КонецЕсли; + //ЬЬ- pva 29-03-2023 КонецПроцедуры @@ -583,6 +605,11 @@ ИмяПоляКоличествоПисемВКарточкеЗадачи = ИмяКолонки + "_ТЧЗадачи_НижняяЧасть3Строка_КоличествоПисем"; // - #225 Урянский Д. 2020-07-06 + //ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария + ИмяКарточкаЗадачи_НижняяЧасть4Строка = ИмяКолонки + "_ТЧЗадачиКарточкаЗадачи_НижняяЧасть4Строка"; + ИмяПоляКомментарийВКарточкеЗадачи = ИмяКолонки + "_ТЧЗадачи_НижняяЧасть4Строка_Комментарий"; + //ЬЬ- pva 29-03-2023 + РезультатФункции = Новый Структура(); РезультатФункции.Вставить("ИмяГруппыКолонки",ИмяГруппыКолонки); РезультатФункции.Вставить("ИмяТЧЗадачи",ИмяТЧЗадачи); @@ -619,7 +646,12 @@ РезультатФункции.Вставить("ИмяПоляКоличествоФайловВКарточкеЗадачи",ИмяПоляКоличествоФайловВКарточкеЗадачи); РезультатФункции.Вставить("ИмяПоляКоличествоПисемВКарточкеЗадачи",ИмяПоляКоличествоПисемВКарточкеЗадачи); // - #225 Урянский Д. 2020-07-06 - + + //ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария + РезультатФункции.Вставить("ИмяКарточкаЗадачи_НижняяЧасть4Строка", ИмяКарточкаЗадачи_НижняяЧасть4Строка); + РезультатФункции.Вставить("ИмяПоляКомментарийВКарточкеЗадачи", ИмяПоляКомментарийВКарточкеЗадачи); + //ЬЬ- pva 29-03-2023 + Возврат РезультатФункции; КонецФункции @@ -752,28 +784,6 @@ Возврат КлючНастроек; КонецФункции -&НаСервере -Функция ПолучитьТекущийКлючНастроек() - - ТекущийКлючНастроекХранилище = "Обработка.узКД_ТекущийКлючНастроек"; - - Возврат ХранилищеОбщихНастроек.Загрузить( - ТекущийКлючНастроекХранилище, ТекущийКлючНастроекХранилище); - -КонецФункции - -&НаСервере -Процедура СохранитьТекущийКлючНастроек() - - ТекущийКлючНастроекХранилище = "Обработка.узКД_ТекущийКлючНастроек"; - - ХранилищеОбщихНастроек.Сохранить( - ТекущийКлючНастроекХранилище, - ТекущийКлючНастроекХранилище, - ТекущийКлючНастроек); - -КонецПроцедуры - &НаСервере Процедура ЗаполнитьЗадачиНаСервере() Объект.АдресВременногоХранилища = ПоместитьВоВременноеХранилище(КомпоновщикНастроекКомпоновкиДанных.Настройки,Новый УникальныйИдентификатор()); @@ -802,6 +812,8 @@ Объект.ОтображениеЧеклистаЗадач = Перечисления.узОтображениеЧеклистаЗадачНаДоске.Отсутствует; // - #225 Урянский Д. 2020-07-06 + Объект.ВысотаПоследнегоКомментария = 1; + // [+] #283 Мальков М.В. 2023-01-30 //КлючНастроек = ПолучитьКлючНастроек(); // [-] #283 Мальков М.В. 2023-01-30 @@ -836,7 +848,13 @@ Конецесли; Если СохраненныеНастройки.Свойство("Показывать3СтрокуВКарточкеЗадачи") Тогда Объект.Показывать3СтрокуВКарточкеЗадачи = СохраненныеНастройки.Показывать3СтрокуВКарточкеЗадачи; + Конецесли; + //ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария + Если СохраненныеНастройки.Свойство("Показывать4СтрокуВКарточкеЗадачи") Тогда + Объект.Показывать4СтрокуВКарточкеЗадачи = СохраненныеНастройки.Показывать4СтрокуВКарточкеЗадачи; + Объект.ВысотаПоследнегоКомментария = СохраненныеНастройки.ВысотаПоследнегоКомментария; Конецесли; + //ЬЬ+ pva 29-03-2023 // + #225 Урянский Д. 2020-07-06 Если СохраненныеНастройки.Свойство("ОтображениеФайловЗадач") Тогда Объект.ОтображениеФайловЗадач = СохраненныеНастройки.ОтображениеФайловЗадач; @@ -869,7 +887,7 @@ КонецПроцедуры &НаСервере -Процедура ОпределитьОтборНаСервере(пНастройкиКомпоновщика = Неопределено) +Процедура ОпределитьОтборНаСервере(пНастройкиКомпоновщика = Неопределено) Экспорт пОбъект = РеквизитФормыВЗначение("Объект"); МакетСКД = пОбъект.ПолучитьМакет("СхемаКомпоновкиДанных"); @@ -990,16 +1008,21 @@ //КлючНастроек = ПолучитьКлючНастроек(); // [-] #283 Мальков М.В. 2023-01-30 ДопПараметры = Новый Структура(); - ДопПараметры.Вставить("ТЧНастройкиКолонок",Объект.ТЧНастройкиКолонок.Выгрузить()); - ДопПараметры.Вставить("НастройкиКомпоновщикаХранилище",НастройкиКомпоновщикаХранилище); - ДопПараметры.Вставить("Показывать3СтрокуВКарточкеЗадачи",Объект.Показывать3СтрокуВКарточкеЗадачи); + ДопПараметры.Вставить("ТЧНастройкиКолонок", Объект.ТЧНастройкиКолонок.Выгрузить()); + ДопПараметры.Вставить("НастройкиКомпоновщикаХранилище", НастройкиКомпоновщикаХранилище); + ДопПараметры.Вставить("Показывать3СтрокуВКарточкеЗадачи", Объект.Показывать3СтрокуВКарточкеЗадачи); // + #225 Урянский Д. 2020-07-06 ДопПараметры.Вставить("ОтображениеПисемПоЗадачам", Объект.ОтображениеПисемПоЗадачам); ДопПараметры.Вставить("ОтображениеФайловЗадач", Объект.ОтображениеФайловЗадач); ДопПараметры.Вставить("ОтображениеЧеклистаЗадач", Объект.ОтображениеЧеклистаЗадач); - ДопПараметры.Вставить("ПоказыватьЗаказчика",Объект.ПоказыватьЗаказчика); + ДопПараметры.Вставить("ПоказыватьЗаказчика", Объект.ПоказыватьЗаказчика); // - #225 Урянский Д. 2020-07-06 + //ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария + ДопПараметры.Вставить("Показывать4СтрокуВКарточкеЗадачи", Объект.Показывать4СтрокуВКарточкеЗадачи); + ДопПараметры.Вставить("ВысотаПоследнегоКомментария", Объект.ВысотаПоследнегоКомментария); + //ЬЬ+ pva 29-03-2023 + // [+] #283 Мальков М.В. 2023-01-30 //ХранилищеОбщихНастроек.Сохранить(КлючНастроек,КлючНастроек,ДопПараметры); Если Пользователь = Неопределено Тогда @@ -1011,6 +1034,28 @@ КонецПроцедуры +&НаСервере +Функция ПолучитьТекущийКлючНастроек() + + ТекущийКлючНастроекХранилище = "Обработка.узКД_ТекущийКлючНастроек"; + + Возврат ХранилищеОбщихНастроек.Загрузить( + ТекущийКлючНастроекХранилище, ТекущийКлючНастроекХранилище); + +КонецФункции + +&НаСервере +Процедура СохранитьТекущийКлючНастроек() + + ТекущийКлючНастроекХранилище = "Обработка.узКД_ТекущийКлючНастроек"; + + ХранилищеОбщихНастроек.Сохранить( + ТекущийКлючНастроекХранилище, + ТекущийКлючНастроекХранилище, + ТекущийКлючНастроек); + +КонецПроцедуры + #КонецОбласти #Область КомандыФормы @@ -1724,7 +1769,21 @@ СгенирироватьФормуЗаново = Истина; КонецПроцедуры -//- #108 Дзеса Ігор (capitoshko) 04.10.2018 +//ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария +&НаКлиенте +Процедура Показывать4СтрокуВКарточкеЗадачиПриИзменении(Элемент) + + СгенирироватьФормуЗаново = Истина; + +КонецПроцедуры + +//ЬЬ+ pva 29-03-2023 добавляем вывод на форму последнего комментария +&НаКлиенте +Процедура ВысотаПоследнегоКомментарияПриИзменении(Элемент) + + СгенирироватьФормуЗаново = Истина; + +КонецПроцедуры // + #225 Урянский Д. 2020-07-06 &НаКлиенте diff --git a/src/cf/DataProcessors/узКанбанДоска/Templates/СхемаКомпоновкиДанных/Ext/Template.xml b/src/cf/DataProcessors/узКанбанДоска/Templates/СхемаКомпоновкиДанных/Ext/Template.xml index 35d1702ce..84832cfd4 100644 --- a/src/cf/DataProcessors/узКанбанДоска/Templates/СхемаКомпоновкиДанных/Ext/Template.xml +++ b/src/cf/DataProcessors/узКанбанДоска/Templates/СхемаКомпоновкиДанных/Ext/Template.xml @@ -226,6 +226,10 @@ + + ПоследнийКомментарий + ПоследнийКомментарий + ИсточникДанных1 ВЫБРАТЬ РАЗРЕШЕННЫЕ НаблюдателиЗаЗадачами.Задача КАК Задача, @@ -242,7 +246,7 @@ ; //////////////////////////////////////////////////////////////////////////////// -ВЫБРАТЬ РАЗРЕШЕННЫЕ +ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ узЗадачи.Ссылка КАК Задача, узЗадачи.Ссылка.Наименование КАК ЗадачаПредставление, узЗадачи.Ссылка.Код КАК НомерЗадачи, @@ -268,10 +272,12 @@ ЕСТЬNULL(ВзаимодействияПоЗадачам.КоличествоПрисоединенныхФайлов, 0) КАК КоличествоПрисоединенныхФайлов, ЕСТЬNULL(ВзаимодействияПоЗадачам.КоличествоВходящихПисем, 0) КАК КоличествоВходящихПисем, ЕСТЬNULL(ВзаимодействияПоЗадачам.КоличествоИсходящихПисем, 0) КАК КоличествоИсходящихПисем, - ЕСТЬNULL(ВзаимодействияПоЗадачам.ДатаПоследнегоВходящегоПисьма, ДАТАВРЕМЯ(1,1,1)) КАК ДатаПоследнегоВходящегоПисьма, - ЕСТЬNULL(ВзаимодействияПоЗадачам.ДатаПоследнегоИсходящегоПисьма, ДАТАВРЕМЯ(1,1,1)) КАК ДатаПоследнегоИсходящегоПисьма, + ЕСТЬNULL(ВзаимодействияПоЗадачам.ДатаПоследнегоВходящегоПисьма, ДАТАВРЕМЯ(1, 1, 1)) КАК ДатаПоследнегоВходящегоПисьма, + ЕСТЬNULL(ВзаимодействияПоЗадачам.ДатаПоследнегоИсходящегоПисьма, ДАТАВРЕМЯ(1, 1, 1)) КАК ДатаПоследнегоИсходящегоПисьма, ЕСТЬNULL(ВзаимодействияПоЗадачам.КоличествоВложенийПисем, 0) КАК КоличествоВложенийПисем, - ЕСТЬNULL(СпринтыЗадач.Спринт, ЗНАЧЕНИЕ(Справочник.узСпринты.ПустаяСсылка)) КАК Спринт + ЕСТЬNULL(СпринтыЗадач.Спринт, ЗНАЧЕНИЕ(Справочник.узСпринты.ПустаяСсылка)) КАК Спринт, + узЗадачи.ПоследнийКомментарий КАК ПоследнийКомментарий +ПОМЕСТИТЬ ВТ_Предварительная ИЗ Справочник.узЗадачи КАК узЗадачи {ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.узСостояниеВзаимодействийПоЗадачам КАК ВзаимодействияПоЗадачам @@ -282,13 +288,49 @@ узЗадачи.ПоказыватьВОтчетахИКанбанДоске И узЗадачи.Статус В(&МассивВыбранныхСтатусовКолонок) {ГДЕ - узЗадачи.Ссылка В - (ВЫБРАТЬ - ВТОтборЗадачПоНаблюдателю.Задача - ИЗ - ВТОтборЗадачПоНаблюдателю - ГДЕ - ВТОтборЗадачПоНаблюдателю.ИспользоватьОтборПоНаблюдателю = &ИспользоватьОтборПоНаблюдателю)} + (узЗадачи.Ссылка В + (ВЫБРАТЬ + ВТОтборЗадачПоНаблюдателю.Задача + ИЗ + ВТОтборЗадачПоНаблюдателю + ГДЕ + ВТОтборЗадачПоНаблюдателю.ИспользоватьОтборПоНаблюдателю = &ИспользоватьОтборПоНаблюдателю))} +; + +//////////////////////////////////////////////////////////////////////////////// +ВЫБРАТЬ + ВТ_Предварительная.Задача КАК Задача, + ВТ_Предварительная.ЗадачаПредставление КАК ЗадачаПредставление, + ВТ_Предварительная.НомерЗадачи КАК НомерЗадачи, + ВТ_Предварительная.Статус КАК Статус, + ВТ_Предварительная.РеквизитДопУпорядочивания КАК РеквизитДопУпорядочивания, + ВТ_Предварительная.Исполнитель КАК Исполнитель, + ВТ_Предварительная.КороткоеИмя КАК КороткоеИмя, + ВТ_Предварительная.ОсновнаяЗадачаПредставление КАК ОсновнаяЗадачаПредставление, + ВТ_Предварительная.СрокИсполнения КАК СрокИсполнения, + ВТ_Предварительная.Конфигурация КАК Конфигурация, + ВТ_Предварительная.Важность КАК Важность, + ВТ_Предварительная.НомерВнешнейЗаявки КАК НомерВнешнейЗаявки, + ВТ_Предварительная.ОсновнаяЗадача КАК ОсновнаяЗадача, + ВТ_Предварительная.ДатаНачалаРаботПоЗадаче КАК ДатаНачалаРаботПоЗадаче, + ВТ_Предварительная.ДатаПередачиИсполнителю КАК ДатаПередачиИсполнителю, + ВТ_Предварительная.ДатаПоследнегоИзменения КАК ДатаПоследнегоИзменения, + ВТ_Предварительная.ДатаВыполнения КАК ДатаВыполнения, + ВТ_Предварительная.ИзмененЦветПоУмолчанию КАК ИзмененЦветПоУмолчанию, + ВТ_Предварительная.Заказчик КАК Заказчик, + ВТ_Предварительная.КороткоеИмяЗаказчик КАК КороткоеИмяЗаказчик, + ВТ_Предварительная.ЧекЛистВсего КАК ЧекЛистВсего, + ВТ_Предварительная.ЧекЛистВыполнено КАК ЧекЛистВыполнено, + ВТ_Предварительная.КоличествоПрисоединенныхФайлов КАК КоличествоПрисоединенныхФайлов, + ВТ_Предварительная.КоличествоВходящихПисем КАК КоличествоВходящихПисем, + ВТ_Предварительная.КоличествоИсходящихПисем КАК КоличествоИсходящихПисем, + ВТ_Предварительная.ДатаПоследнегоВходящегоПисьма КАК ДатаПоследнегоВходящегоПисьма, + ВТ_Предварительная.ДатаПоследнегоИсходящегоПисьма КАК ДатаПоследнегоИсходящегоПисьма, + ВТ_Предварительная.КоличествоВложенийПисем КАК КоличествоВложенийПисем, + ВТ_Предварительная.Спринт КАК Спринт, + ВТ_Предварительная.ПоследнийКомментарий КАК ПоследнийКомментарий +ИЗ + ВТ_Предварительная КАК ВТ_Предварительная НомерЗадачиПредставление @@ -496,11 +538,6 @@ Конфигурация Equal - - false - Спринт - Equal - false ОсновнаяЗадача