From d9346d81a244ce095bbc4eaa4e8e53224c9eb07b Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Sun, 12 Aug 2018 16:11:36 +0300 Subject: [PATCH 1/3] =?UTF-8?q?=D0=9F=D0=BE=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?= =?UTF-8?q?=D0=BB=20=D1=84=D0=BE=D1=80=D0=BC=D1=83=20=D1=82=D0=B5=D0=BA?= =?UTF-8?q?=D1=83=D1=89=D0=B8=D0=B5=20=D0=B4=D0=B5=D0=BB.=20=D0=94=D0=BE?= =?UTF-8?q?=D0=B1=D0=B0=D0=B2=D0=B8=D0=BB=20=D0=BF=D0=BE=D1=80=D1=8F=D0=B4?= =?UTF-8?q?=D0=BE=D0=BA=20=D0=B4=D0=BB=D1=8F=20=D0=B3=D1=80=D1=83=D0=BF?= =?UTF-8?q?=D0=BF=D1=8B=20=D1=82=D0=B5=D0=BA=D1=83=D1=89=D0=B8=D1=85=20?= =?UTF-8?q?=D0=B4=D0=B5=D0=BB.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cf/Catalogs/узГруппыТекущихДел.xml | 47 ++++++++++++++++++- .../узТекущиеДела/Ext/ManagerModule.bsl | 15 ++++++ .../узТекущиеДела/Ext/ObjectModule.bsl | 40 ++++++++-------- .../узТекущиеДела/Forms/Форма/Ext/Form.xml | 18 ++++--- .../Forms/Форма/Ext/Form/Module.bsl | 45 +++++++++++------- 5 files changed, 121 insertions(+), 44 deletions(-) diff --git a/src/cf/Catalogs/узГруппыТекущихДел.xml b/src/cf/Catalogs/узГруппыТекущихДел.xml index 34d091e9c..2e07939b8 100644 --- a/src/cf/Catalogs/узГруппыТекущихДел.xml +++ b/src/cf/Catalogs/узГруппыТекущихДел.xml @@ -310,6 +310,51 @@ Use Auto - + + + + Порядок + + + ru + Порядок + + + + + xs:decimal + + 10 + 0 + Any + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + \ No newline at end of file diff --git a/src/cf/Catalogs/узТекущиеДела/Ext/ManagerModule.bsl b/src/cf/Catalogs/узТекущиеДела/Ext/ManagerModule.bsl index 6849210c2..39589be7e 100644 --- a/src/cf/Catalogs/узТекущиеДела/Ext/ManagerModule.bsl +++ b/src/cf/Catalogs/узТекущиеДела/Ext/ManagerModule.bsl @@ -56,3 +56,18 @@ Конеццикла; КонецПроцедуры +Функция ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату) Экспорт + пПорядокДоп = 0; + Возврат пПорядокДоп; + //пПорядокДоп = 10; + //Если НЕ пВыполнено Тогда + // пПорядокДоп = 0; + //Иначе + // Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда + // пПорядокДоп = 1; + // Иначе + // пПорядокДоп = 2; + // Конецесли; + //Конецесли; + //Возврат пПорядокДоп; +КонецФункции \ No newline at end of file diff --git a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl index b5f2dced0..b61c802c5 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl +++ b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl @@ -36,6 +36,7 @@ | |УПОРЯДОЧИТЬ ПО | Выполнено, + | ГруппаТекущегоДела.Порядок, | Порядок |"; @@ -58,13 +59,13 @@ РезультатЗапроса = Запрос.Выполнить(); ТЗРезультат = РезультатЗапроса.Выгрузить(); - ТЗРезультат.Колонки.Добавить("ПорядокДоп",Новый ОписаниеТипов("Число")); - Для каждого СтрокаТЗРезультат из ТЗРезультат цикл - пПорядокДоп = ПолучитьПорядоДоп(СтрокаТЗРезультат.Выполнено,СтрокаТЗРезультат.ДатаВыполнения,НаДату); - СтрокаТЗРезультат.ПорядокДоп = пПорядокДоп; - Конеццикла; - - ТЗРезультат.Сортировать("ПорядокДоп,Порядок"); + //ТЗРезультат.Колонки.Добавить("ПорядокДоп",Новый ОписаниеТипов("Число")); + //Для каждого СтрокаТЗРезультат из ТЗРезультат цикл + // пПорядокДоп = ПолучитьПорядоДоп(СтрокаТЗРезультат.Выполнено,СтрокаТЗРезультат.ДатаВыполнения,НаДату); + // СтрокаТЗРезультат.ПорядокДоп = пПорядокДоп; + //Конеццикла; + // + //ТЗРезультат.Сортировать("ПорядокДоп,Порядок"); Для каждого СтрокаТЗРезультат из ТЗРезультат цикл СтрокаТЧТекущиеДела = ТЧТекущиеДела.Добавить(); @@ -74,18 +75,19 @@ КонецПроцедуры Функция ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату) Экспорт - //Такая же функция есть в форме обработки - пПорядокДоп = 10; - Если НЕ пВыполнено Тогда - пПорядокДоп = 0; - Иначе - Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда - пПорядокДоп = 1; - Иначе - пПорядокДоп = 2; - Конецесли; - Конецесли; - Возврат пПорядокДоп; + Возврат Справочники.узТекущиеДела.ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату); + ////Такая же функция есть в форме обработки + //пПорядокДоп = 10; + //Если НЕ пВыполнено Тогда + // пПорядокДоп = 0; + //Иначе + // Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда + // пПорядокДоп = 1; + // Иначе + // пПорядокДоп = 2; + // Конецесли; + //Конецесли; + //Возврат пПорядокДоп; КонецФункции Процедура СохранитьТекущиеДела() Экспорт diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml index ff3c6c801..c4134e412 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml @@ -76,6 +76,11 @@ Form.Command.КомандаСледующийПериод + @@ -115,12 +120,6 @@ - - Объект.ТЧТекущиеДела.ГруппаТекущегоДела - EnterOnInput - - - Объект.ТЧТекущиеДела.ТекстСодержания EnterOnInput @@ -132,6 +131,13 @@ ТЧТекущиеДелаТекстСодержанияПриИзменении + + Объект.ТЧТекущиеДела.ГруппаТекущегоДела + true + EnterOnInput + + + InCell diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl index 6433f03e9..7103d9c5b 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl @@ -150,28 +150,36 @@ СтрокаТЧТекущиеДела.Выполнено = Истина; Конеццикла; - Для каждого СтрокаТЧТекущиеДела из Объект.ТЧТекущиеДела цикл - пПорядокДоп = ПолучитьПорядоДопНаКлиенте(СтрокаТЧТекущиеДела.Выполнено,СтрокаТЧТекущиеДела.ДатаВыполнения,Объект.НаДату); - СтрокаТЧТекущиеДела.ПорядокДоп = пПорядокДоп; - Конеццикла; - - Объект.ТЧТекущиеДела.Сортировать("ПорядокДоп,Порядок"); + ОбновитьТекущиеДелаНаСервере(); + // + //Для каждого СтрокаТЧТекущиеДела из Объект.ТЧТекущиеДела цикл + // пПорядокДоп = ПолучитьПорядоДопНаКлиенте(СтрокаТЧТекущиеДела.Выполнено,СтрокаТЧТекущиеДела.ДатаВыполнения,Объект.НаДату); + // СтрокаТЧТекущиеДела.ПорядокДоп = пПорядокДоп; + //Конеццикла; + // + //Объект.ТЧТекущиеДела.Сортировать("ПорядокДоп,Порядок"); КонецПроцедуры &НаКлиенте Функция ПолучитьПорядоДопНаКлиенте(пВыполнено,пДатаВыполнения,пНаДату) - //Такая же функция есть в модуле обработки - пПорядокДоп = 10; - Если НЕ пВыполнено Тогда - пПорядокДоп = 0; - Иначе - Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда - пПорядокДоп = 1; - Иначе - пПорядокДоп = 2; - Конецесли; - Конецесли; - Возврат пПорядокДоп; + Возврат ПолучитьПорядоДопНаСервере(пВыполнено,пДатаВыполнения,пНаДату); + ////Такая же функция есть в модуле обработки + //пПорядокДоп = 10; + //Если НЕ пВыполнено Тогда + // пПорядокДоп = 0; + //Иначе + // Если НачалоДня(пДатаВыполнения) <> пНаДату Тогда + // пПорядокДоп = 1; + // Иначе + // пПорядокДоп = 2; + // Конецесли; + //Конецесли; + //Возврат пПорядокДоп; +КонецФункции + +&НаСервереБезКонтекста +Функция ПолучитьПорядоДопНаСервере(пВыполнено,пДатаВыполнения,пНаДату) + Возврат Справочники.узТекущиеДела.ПолучитьПорядоДоп(пВыполнено,пДатаВыполнения,пНаДату); КонецФункции &НаКлиенте @@ -252,6 +260,7 @@ СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДата(); СтрокаТЧТекущиеДела.ДатаТекущегоДела = СтрокаТЧТекущиеДела.ДатаСоздания; СтрокаТЧТекущиеДела.Порядок = СтрокаТЧТекущиеДела.НомерСтроки; + СтрокаТЧТекущиеДела.ГруппаТекущегоДела = ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня"); Конецесли; КонецПроцедуры From 8cf2b9abb3c68d6ff8d0a6aa2fe89d8629cc6a17 Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Sun, 12 Aug 2018 16:12:19 +0300 Subject: [PATCH 2/3] =?UTF-8?q?=D0=A1=D0=B2=D1=8F=D0=B7=D0=B0=D0=BD=D0=BD?= =?UTF-8?q?=D1=8B=D0=B5=20=D0=B7=D0=B0=D0=B4=D0=B0=D1=87=D0=B8=20=D0=BF?= =?UTF-8?q?=D0=BE=D0=BF=D1=80=D0=B0=D0=B2=D0=B8=D0=BB=20=D0=BE=D1=88=D0=B8?= =?UTF-8?q?=D0=B1=D0=BA=D1=83=20=D0=BA=D0=BE=D0=B3=D0=B4=D0=B0=20=D0=BD?= =?UTF-8?q?=D0=BE=D0=BC=D0=B5=D1=80=20=D0=B7=D0=B0=D0=B4=D0=B0=D1=87=D0=B8?= =?UTF-8?q?=20=D0=B1=D0=BE=D0=BB=D1=8C=D1=88=D0=B5=201000?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl b/src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl index 89ade85a5..de51776fb 100644 --- a/src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl +++ b/src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl @@ -256,7 +256,7 @@ Выборка = РезультатЗапроса.Выбрать(); Пока Выборка.Следующий() Цикл - МассивНомеровСвязанныхЗадач.Добавить(Выборка.НомерЗадачи); + МассивНомеровСвязанныхЗадач.Добавить(Формат(Выборка.НомерЗадачи,"ЧГ=0")); КонецЦикла; Возврат МассивНомеровСвязанныхЗадач; From 13e1c66441dc08509cb14772b31c5d1741e6e531 Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Sun, 12 Aug 2018 16:12:45 +0300 Subject: [PATCH 3/3] =?UTF-8?q?=D0=92=D1=8B=D0=BF=D1=83=D1=81=D0=BA=20?= =?UTF-8?q?=D0=BF=D1=80=D0=BE=D0=BC=D0=B5=D0=B6=D1=83=D1=82=D0=BE=D1=87?= =?UTF-8?q?=D0=BD=D0=BE=D0=B3=D0=BE=20=D1=80=D0=B5=D0=BB=D0=B8=D0=B7=D0=B0?= =?UTF-8?q?=201.0.4.012?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Module.bsl | 24 ++++++++++++++++++- src/cf/Configuration.xml | 2 +- 2 files changed, 24 insertions(+), 2 deletions(-) diff --git a/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl index f74f7eedf..761ffa537 100644 --- a/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl +++ b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl @@ -1,6 +1,6 @@ Процедура ПриДобавленииПодсистемы(Описание) Экспорт Описание.Имя = "УправлениеЗадачами"; - Описание.Версия = "1.0.4.010"; + Описание.Версия = "1.0.4.012"; // Требуется библиотека стандартных подсистем. Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы"); КонецПроцедуры @@ -167,6 +167,13 @@ Обработчик.ОбщиеДанные = Истина; Обработчик.Комментарий = "Обновление на версию 1.0.4.010"; + Обработчик = Обработчики.Добавить(); + Обработчик.Версия = "1.0.4.012"; + Обработчик.НачальноеЗаполнение = Ложь; + Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_4_012"; + Обработчик.ОбщиеДанные = Истина; + Обработчик.Комментарий = "Обновление на версию 1.0.4.012"; + КонецПроцедуры Процедура ПередОбновлениемИнформационнойБазы() Экспорт КонецПроцедуры @@ -672,6 +679,21 @@ КонецЦикла; КонецПроцедуры +Процедура ОбновлениеНаВерсию_1_0_4_012() Экспорт + + ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня"),1); + ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.НаНеделе"),2); + ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Позже"),3); + +КонецПроцедуры + +Процедура ЗаполнитьПорядокВГруппеТекущихДел(пГруппыТекущихДел,пПорядок) + СпрОбъект = пГруппыТекущихДел.ПолучитьОбъект(); + СпрОбъект.Порядок = пПорядок; + СпрОбъект.Записать(); +КонецПроцедуры + + Процедура узНачальноеЗаполнение() Экспорт узДобавитьАдминистраторИБ(); diff --git a/src/cf/Configuration.xml b/src/cf/Configuration.xml index c63cfd2c8..d03ed5188 100644 --- a/src/cf/Configuration.xml +++ b/src/cf/Configuration.xml @@ -49,7 +49,7 @@ Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок Управление задачами - 1.0.4.010 + 1.0.4.012 false false