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 89ade85a5..de51776fb 100644 --- a/src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl +++ b/src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl @@ -256,7 +256,7 @@ Выборка = РезультатЗапроса.Выбрать(); Пока Выборка.Следующий() Цикл - МассивНомеровСвязанныхЗадач.Добавить(Выборка.НомерЗадачи); + МассивНомеровСвязанныхЗадач.Добавить(Формат(Выборка.НомерЗадачи,"ЧГ=0")); КонецЦикла; Возврат МассивНомеровСвязанныхЗадач; 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/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl index d7f739af9..3c0eb6a48 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 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 @@ СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДата(); СтрокаТЧТекущиеДела.ДатаТекущегоДела = СтрокаТЧТекущиеДела.ДатаСоздания; СтрокаТЧТекущиеДела.Порядок = СтрокаТЧТекущиеДела.НомерСтроки; + СтрокаТЧТекущиеДела.ГруппаТекущегоДела = ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня"); Конецесли; КонецПроцедуры