diff --git a/src/cf/Catalogs/узТекущиеДела.xml b/src/cf/Catalogs/узТекущиеДела.xml index aa5875a77..37894f07b 100644 --- a/src/cf/Catalogs/узТекущиеДела.xml +++ b/src/cf/Catalogs/узТекущиеДела.xml @@ -70,7 +70,7 @@ Directly - + Catalog.узТекущиеДела.Form.ФормаСписка @@ -339,6 +339,56 @@ Use + + + ДатаТекущегоДела + + + ru + Дата текущего дела + + + en + Date current + + + ro + Date current + + + + + xs:dateTime + + DateTime + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + Задача @@ -469,6 +519,7 @@ Use +
ФормаСписка
\ No newline at end of file diff --git a/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка.xml b/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка.xml new file mode 100644 index 000000000..39e167c24 --- /dev/null +++ b/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка.xml @@ -0,0 +1,21 @@ + + +
+ + ФормаСписка + + + ru + Форма списка + + + + Managed + false + + PersonalComputer + MobileDevice + + +
+ \ No newline at end of file diff --git a/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form.xml b/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form.xml new file mode 100644 index 000000000..19ad74388 --- /dev/null +++ b/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form.xml @@ -0,0 +1,157 @@ + +
+ + + ПриСозданииНаСервере + + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Группа пользовательских настроек</v8:content> + </v8:item> + + false + Vertical + false + + + + None + true + true + ExpandTopLevel + true + true + Список + Список.DefaultPicture + false + 60 + + Custom + 0001-01-01T00:00:00 + 0001-01-01T00:00:00 + + Items + false + + true + false + Auto + СписокКомпоновщикНастроекПользовательскиеНастройки + + + false + + + + + Список + SearchStringRepresentation + + + + + + + Список + ViewStatusRepresentation + + + + + + + Список + SearchControl + + + + + + + Список.Description + true + + + + + Список.Code + + + + + Список.Выполнено + Auto + + + + + Список.ТекстСодержания + + + + + Список.Автор + + + + + Список.ДатаСоздания + + + + + Список.ДатаВыполнения + + + + + Список.Задача + + + + + Список.Вопрос + + + + + Список.Порядок + + + + +
+ + + + + cfg:DynamicList + + true + + false + true + Catalog.узТекущиеДела + + + Normal + dfcece9d-5077-440b-b6b3-45a5cb4538eb + + + Normal + 88619765-ccb3-46c6-ac52-38e9c992ebd4 + + + Normal + b75fecce-942b-4aed-abc9-e6a02e460fb3 + + Normal + 911b6018-f537-43e8-a417-da56b22f9aec + + + + + \ No newline at end of file diff --git a/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form/Module.bsl b/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form/Module.bsl new file mode 100644 index 000000000..759c60f5e --- /dev/null +++ b/src/cf/Catalogs/узТекущиеДела/Forms/ФормаСписка/Ext/Form/Module.bsl @@ -0,0 +1,18 @@ + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + //Перем ЭлементОтбораАвтор; + // + //ПолеКомпоновкиДанных_Автор = Новый ПолеКомпоновкиДанных("Автор"); + //Для каждого ЭлементОтбора из Список.Отбор.Элементы цикл + // Если ЭлементОтбора.ЛевоеЗначение = ПолеКомпоновкиДанных_Автор Тогда + // ЭлементОтбораАвтор = ЭлементОтбора; + // Конецесли; + //Конеццикла; + //Если ЭлементОтбораАвтор = Неопределено Тогда + // ЭлементОтбораАвтор = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + // ЭлементОтбораАвтор.ЛевоеЗначение = ПолеКомпоновкиДанных_Автор; + //Конецесли; + //ЭлементОтбораАвтор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + //ЭлементОтбораАвтор.ПравоеЗначение = ПараметрыСеанса.ТекущийПользователь; +КонецПроцедуры diff --git a/src/cf/DataProcessors/узТекущиеДела.xml b/src/cf/DataProcessors/узТекущиеДела.xml index de4af91a8..bef4e579b 100644 --- a/src/cf/DataProcessors/узТекущиеДела.xml +++ b/src/cf/DataProcessors/узТекущиеДела.xml @@ -254,6 +254,53 @@ Auto + + + ДатаТекущегоДела + + + ru + Дата текущего дела + + + en + Date current + + + ro + Date current + + + + + xs:dateTime + + DateTime + + + 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 d309e51a6..b23d4fa2c 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl +++ b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl @@ -8,6 +8,7 @@ | узТекущиеДела.Выполнено КАК Выполнено, | узТекущиеДела.ТекстСодержания, | узТекущиеДела.Автор, + | узТекущиеДела.ДатаТекущегоДела, | узТекущиеДела.ДатаСоздания, | узТекущиеДела.ДатаВыполнения, | узТекущиеДела.Задача, @@ -18,14 +19,14 @@ |ГДЕ | узТекущиеДела.Автор = &Автор | И ВЫБОР - | КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаСоздания, ДЕНЬ) > &НаДату ТОГДА - | ЛОЖЬ | КОГДА узТекущиеДела.ДатаВыполнения = ДАТАВРЕМЯ(1, 1, 1) - | ТОГДА ИСТИНА + | ТОГДА ВЫБОР + | КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаТекущегоДела, ДЕНЬ) <= &НаДату + | ТОГДА ИСТИНА + | ИНАЧЕ ЛОЖЬ + | КОНЕЦ | КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаВыполнения, ДЕНЬ) = &НаДату | ТОГДА ИСТИНА - | КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаСоздания, ДЕНЬ) = &НаДату - | ТОГДА ИСТИНА | ИНАЧЕ ЛОЖЬ | КОНЕЦ | @@ -60,6 +61,9 @@ Если СтрокаТЧТекущиеДела.Выполнено = Ложь Тогда ТекущееДелоОбъект.ДатаВыполнения = Дата(1,1,1); Конецесли; + Если НЕ ЗначениеЗаполнено(ТекущееДелоОбъект.ДатаТекущегоДела) Тогда + ТекущееДелоОбъект.ДатаТекущегоДела = ТекущееДелоОбъект.ДатаСоздания; + Конецесли; ТекущееДелоОбъект.Записать(); Конеццикла; @@ -84,6 +88,7 @@ ТекущееДелоОбъект = Справочники.узТекущиеДела.СоздатьЭлемент(); ТекущееДелоОбъект.Автор = ПараметрыСеанса.ТекущийПользователь; ТекущееДелоОбъект.ДатаСоздания = ТекущаяДата(); + ТекущееДелоОбъект.ДатаТекущегоДела = ТекущееДелоОбъект.ДатаСоздания; Возврат ТекущееДелоОбъект; КонецФункции diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml index 1d79da635..36ad0c4e1 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml @@ -175,6 +175,12 @@ + + Объект.ТЧТекущиеДела.ДатаТекущегоДела + EnterOnInput + + + Объект.ТЧТекущиеДела.ДатаСоздания EnterOnInput @@ -336,7 +342,7 @@ ru - Команда на дату + Указать сегодня КомандаНаДату diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl index ef3f2c7ec..d9da4e878 100644 --- a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl @@ -111,6 +111,7 @@ &НаКлиенте Процедура КомандаПоказатьДопСведения(Команда) ПоказыватьДопСведения = НЕ ПоказыватьДопСведения; + Элементы.ТЧТекущиеДелаКомандаПоказатьДопСведения.Пометка = ПоказыватьДопСведения; УстановитьВидимостьДоступность(); КонецПроцедуры @@ -134,7 +135,13 @@ &НаКлиенте Процедура ОбновитьЗаголовокКомандаНаДату() - Элементы.ТЧТекущиеДелаКомандаНаДату.Заголовок = Формат(Объект.НаДату,"ДФ=dd.MM.yy"); + пЗаголовок = ""; + Если НачалоДня(Объект.НаДату) = НачалоДня(ТекущаяДата()) Тогда + пЗаголовок = "Сегодня"; + Иначе + пЗаголовок = Формат(Объект.НаДату,"ДФ='dd.MM ддд'"); + Конецесли; + Элементы.ТЧТекущиеДелаКомандаНаДату.Заголовок = пЗаголовок; КонецПроцедуры &НаКлиенте @@ -156,9 +163,9 @@ Иначе НаДатуНовая = НачалоДня(Объект.НаДату - 1); Конецесли; - Если НаДатуНовая > ТекущаяДата() Тогда - НаДатуНовая = Объект.НаДату; - Конецесли; + //Если НаДатуНовая > ТекущаяДата() Тогда + // НаДатуНовая = Объект.НаДату; + //Конецесли; Возврат НаДатуНовая; КонецФункции