diff --git a/src/cf/Catalogs/узТекущиеДела.xml b/src/cf/Catalogs/узТекущиеДела.xml new file mode 100644 index 000000000..aa5875a77 --- /dev/null +++ b/src/cf/Catalogs/узТекущиеДела.xml @@ -0,0 +1,474 @@ + + + + + + 2086c32e-7f97-45f8-ba75-74030903e485 + 0a5d5f74-04df-4148-ad3f-65144f16cd36 + + + cb014a33-2eb9-4861-a8d2-cd6a151ad711 + 411ed1ac-41ac-4955-a6ae-5b329056f57b + + + 1011459b-0c1b-4394-9800-c948d7c15e39 + 71e9a986-ac32-4365-9d9c-2c8fe67f6159 + + + e92fde3a-43df-49f4-87d3-c84f963719c0 + 3af7f337-0c39-4e85-a7d6-70a52a787705 + + + d39662b0-fcfd-489f-8721-f9bb2de66ff5 + 579da458-c68d-4996-b7a3-565a9e791a95 + + + + узТекущиеДела + + + ru + Текущие дела (справочник) + + + en + Current case (Reference) + + + ro + Current case (Reference) + + + + true + HierarchyOfItems + false + 2 + true + true + + ToItems + 9 + 150 + String + Variable + WholeCatalog + true + true + AsDescription + + Auto + InDialog + false + BothWays + + Catalog.узТекущиеДела.StandardAttribute.Description + Catalog.узТекущиеДела.StandardAttribute.Code + + Begin + DontUse + Directly + + + + + + + + + + + false + + + Managed + Use + + + + + + Use + Auto + + + + + Выполнено + + + ru + Выполнено + + + en + Done + + + + + xs:boolean + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + + + ТекстСодержания + + + ru + Cодержания + + + en + Content + + + ro + Content + + + + + xs:string + + 0 + Variable + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + + + Автор + + + ru + Автор + + + en + Author + + + ro + Autor + + + Автор бизнес-процесса, который сформировал задачу + + cfg:CatalogRef.ВнешниеПользователи + cfg:CatalogRef.Пользователи + + false + + + + + ru + Автор задачи + + + false + + false + false + + + false + Catalog.Пользователи.EmptyRef + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + + + ДатаСоздания + + + ru + Дата создания + + + en + Date created + + + ro + Data creării + + + + + xs:dateTime + + DateTime + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + + + ДатаВыполнения + + + ru + Дата выполнения + + + en + Execution date + + + ro + Data de execuție + + + + + xs:dateTime + + DateTime + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + + + Задача + + + ru + Задача + + + en + Task + + + ro + Task + + + + + cfg:CatalogRef.узЗадачи + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + + + Вопрос + + + ru + Вопрос + + + + + cfg:CatalogRef.узВопросыОтветы + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + + + + Порядок + + + 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/CommonPictures/узВыполнил.xml b/src/cf/CommonPictures/узВыполнил.xml new file mode 100644 index 000000000..b72f24df2 --- /dev/null +++ b/src/cf/CommonPictures/узВыполнил.xml @@ -0,0 +1,15 @@ + + + + + узВыполнил + + + ru + Уз выполнил + + + + + + \ No newline at end of file diff --git a/src/cf/CommonPictures/узВыполнил/Ext/Picture.xml b/src/cf/CommonPictures/узВыполнил/Ext/Picture.xml new file mode 100644 index 000000000..8072d7cb6 --- /dev/null +++ b/src/cf/CommonPictures/узВыполнил/Ext/Picture.xml @@ -0,0 +1,7 @@ + + + + Picture.png + false + + \ No newline at end of file diff --git a/src/cf/CommonPictures/узВыполнил/Ext/Picture/Picture.png b/src/cf/CommonPictures/узВыполнил/Ext/Picture/Picture.png new file mode 100644 index 000000000..6e6aa7a8d Binary files /dev/null and b/src/cf/CommonPictures/узВыполнил/Ext/Picture/Picture.png differ diff --git a/src/cf/DataProcessors/узТекущиеДела.xml b/src/cf/DataProcessors/узТекущиеДела.xml new file mode 100644 index 000000000..de4af91a8 --- /dev/null +++ b/src/cf/DataProcessors/узТекущиеДела.xml @@ -0,0 +1,533 @@ + + + + + + 409e8433-85a9-4d7f-9069-d4448488eb0b + 7687341a-42b6-42e4-98e6-721e4e34b7bf + + + 497fa697-467a-4fc2-a2e7-0306ff8b682e + b5b705f3-bf11-483e-a4a0-d1d91487fbc3 + + + + узТекущиеДела + + + ru + Текущие дела + + + + true + DataProcessor.узТекущиеДела.Form.Форма + + false + + + + + + + НаДату + + + ru + На дату + + + + + xs:dateTime + + Date + + + false + + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + + 22262484-ee95-4885-9436-37f6e83a98a1 + 41cb8c66-e4b3-43c2-89b7-ca64625215bb + + + 83ec5136-c9c5-487a-8b6c-e3edfd2d9e52 + b1cf847d-a321-4a63-96a1-53b53616b8f4 + + + + ТЧТекущиеДела + + + ru + Текущие дела + + + + + DontCheck + + + + DontCheck + false + false + Auto + + + false + + + Auto + Auto + + false + false + + + + Use + + + + + + + + + + + Выполнено + + + ru + Выполнено + + + en + Done + + + + + xs:boolean + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ТекстСодержания + + + ru + Cодержания + + + en + Content + + + ro + Content + + + + + xs:string + + 0 + Variable + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + Автор + + + ru + Автор + + + en + Author + + + ro + Autor + + + Автор бизнес-процесса, который сформировал задачу + + cfg:CatalogRef.ВнешниеПользователи + cfg:CatalogRef.Пользователи + + false + + + + + ru + Автор задачи + + + false + + false + false + + + false + Catalog.Пользователи.EmptyRef + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ДатаСоздания + + + ru + Дата создания + + + en + Date created + + + ro + Data creării + + + + + xs:dateTime + + DateTime + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ДатаВыполнения + + + ru + Дата выполнения + + + en + Execution date + + + ro + Data de execuție + + + + + xs:dateTime + + DateTime + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + Задача + + + ru + Задача + + + en + Task + + + ro + Task + + + + + cfg:CatalogRef.узЗадачи + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + Вопрос + + + ru + Вопрос + + + + + cfg:CatalogRef.узВопросыОтветы + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + Порядок + + + ru + Порядок + + + + + xs:decimal + + 10 + 0 + Any + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + + ТекущееДело + + + ru + Текущее дело + + + + + cfg:CatalogRef.узТекущиеДела + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + + + + +
Форма
+ + + КомандаОткрытьТекущиеДела + + + ru + Текущие дела + + + + NavigationPanelOrdinary + + Single + false + Auto + + + + + +
+
+
\ No newline at end of file diff --git a/src/cf/DataProcessors/узТекущиеДела/Commands/КомандаОткрытьТекущиеДела/Ext/CommandModule.bsl b/src/cf/DataProcessors/узТекущиеДела/Commands/КомандаОткрытьТекущиеДела/Ext/CommandModule.bsl new file mode 100644 index 000000000..e4cde1021 --- /dev/null +++ b/src/cf/DataProcessors/узТекущиеДела/Commands/КомандаОткрытьТекущиеДела/Ext/CommandModule.bsl @@ -0,0 +1,5 @@ + +&НаКлиенте +Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) + ОткрытьФорму("Обработка.узТекущиеДела.Форма.Форма"); +КонецПроцедуры diff --git a/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl new file mode 100644 index 000000000..d309e51a6 --- /dev/null +++ b/src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl @@ -0,0 +1,101 @@ +Процедура ЗаполнитьТекущиеДела() Экспорт + ТЧТекущиеДела.Очистить(); + + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ + | узТекущиеДела.Ссылка КАК ТекущееДело, + | узТекущиеДела.Выполнено КАК Выполнено, + | узТекущиеДела.ТекстСодержания, + | узТекущиеДела.Автор, + | узТекущиеДела.ДатаСоздания, + | узТекущиеДела.ДатаВыполнения, + | узТекущиеДела.Задача, + | узТекущиеДела.Вопрос, + | узТекущиеДела.Порядок КАК Порядок + |ИЗ + | Справочник.узТекущиеДела КАК узТекущиеДела + |ГДЕ + | узТекущиеДела.Автор = &Автор + | И ВЫБОР + | КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаСоздания, ДЕНЬ) > &НаДату ТОГДА + | ЛОЖЬ + | КОГДА узТекущиеДела.ДатаВыполнения = ДАТАВРЕМЯ(1, 1, 1) + | ТОГДА ИСТИНА + | КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаВыполнения, ДЕНЬ) = &НаДату + | ТОГДА ИСТИНА + | КОГДА НАЧАЛОПЕРИОДА(узТекущиеДела.ДатаСоздания, ДЕНЬ) = &НаДату + | ТОГДА ИСТИНА + | ИНАЧЕ ЛОЖЬ + | КОНЕЦ + | + |УПОРЯДОЧИТЬ ПО + | Выполнено, + | Порядок"; + + Запрос.УстановитьПараметр("Автор", ПараметрыСеанса.ТекущийПользователь); + Запрос.УстановитьПараметр("НаДату", НаДату); + + РезультатЗапроса = Запрос.Выполнить(); + + Выборка = РезультатЗапроса.Выбрать(); + + Пока Выборка.Следующий() Цикл + СтрокаТЧТекущиеДела = ТЧТекущиеДела.Добавить(); + ЗаполнитьЗначенияСвойств(СтрокаТЧТекущиеДела,Выборка); + КонецЦикла; +КонецПроцедуры + +Процедура СохранитьТекущиеДела() Экспорт + Для каждого СтрокаТЧТекущиеДела из ТЧТекущиеДела цикл + СтрокаТЧТекущиеДела.ТекстСодержания = СокрЛП(СтрокаТЧТекущиеДела.ТекстСодержания); + Если НЕ ЗначениеЗаполнено(СтрокаТЧТекущиеДела.ТекстСодержания) Тогда + Продолжить; + Конецесли; + + ТекущееДелоОбъект = ПолучитьТекущееДелоОбъект(СтрокаТЧТекущиеДела); + ЗаполнитьЗначенияСвойств(ТекущееДелоОбъект,СтрокаТЧТекущиеДела,,"Автор,ДатаСоздания"); + ТекущееДелоОбъект.Наименование = ТекущееДелоОбъект.ТекстСодержания; + ТекущееДелоОбъект.Порядок = СтрокаТЧТекущиеДела.НомерСтроки; + Если СтрокаТЧТекущиеДела.Выполнено = Ложь Тогда + ТекущееДелоОбъект.ДатаВыполнения = Дата(1,1,1); + Конецесли; + + ТекущееДелоОбъект.Записать(); + Конеццикла; +КонецПроцедуры + +Функция ПолучитьТекущееДелоОбъект(СтрокаТЧТекущиеДела) + Перем ТекущееДелоОбъект; + + пТекущееДело = СтрокаТЧТекущиеДела.ТекущееДело; + + Если ЗначениеЗаполнено(пТекущееДело) Тогда + ТекущееДелоОбъект = пТекущееДело.ПолучитьОбъект(); + Возврат ТекущееДелоОбъект; + Конецесли; + + ТекущееДелоОбъект = СоздатьТекущееДело(СтрокаТЧТекущиеДела); + + Возврат ТекущееДелоОбъект; +КонецФункции + +Функция СоздатьТекущееДело(СтрокаТЧТекущиеДела) + ТекущееДелоОбъект = Справочники.узТекущиеДела.СоздатьЭлемент(); + ТекущееДелоОбъект.Автор = ПараметрыСеанса.ТекущийПользователь; + ТекущееДелоОбъект.ДатаСоздания = ТекущаяДата(); + + Возврат ТекущееДелоОбъект; +КонецФункции + +Процедура УбратьТекущееДело(МассивТекущихДел) Экспорт + Для каждого пТекущееДело из МассивТекущихДел цикл + ТекущееДелоОбъект = пТекущееДело.ПолучитьОбъект(); + ТекущееДелоОбъект.Удалить(); + Конеццикла; +КонецПроцедуры + +Процедура ОбновитьНаСервере() Экспорт + СохранитьТекущиеДела(); + ЗаполнитьТекущиеДела(); +КонецПроцедуры diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма.xml b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма.xml new file mode 100644 index 000000000..3513e95fd --- /dev/null +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма.xml @@ -0,0 +1,22 @@ + + +
+ + Форма + + + ru + Форма + + + + Managed + false + + PersonalComputer + MobileDevice + + + +
+
\ No newline at end of file diff --git a/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml new file mode 100644 index 000000000..1d79da635 --- /dev/null +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml @@ -0,0 +1,365 @@ + +
+ + false + + + ПриОткрытии + ПриСозданииНаСервере + ПриЗакрытии + + + + List + true + true + true + Объект.ТЧТекущиеДела + + + false + + + + + + + + + + + + + + + + + + + + ТЧТекущиеДела + SearchStringRepresentation + + + + + + + ТЧТекущиеДела + ViewStatusRepresentation + + + + + + + ТЧТекущиеДела + SearchControl + + + + + + ТЧТекущиеДелаПередУдалением + ТЧТекущиеДелаПриИзменении + + + + Объект.ТЧТекущиеДела.LineNumber + EnterOnInput + + + + + Объект.ТЧТекущиеДела.ТекстСодержания + EnterOnInput + true + true + + + + ТЧТекущиеДелаТекстСодержанияПриИзменении + + + + InCell + + + + Объект.ТЧТекущиеДела.Задача + true + EnterOnInput + + + + + Объект.ТЧТекущиеДела.Задача.Code + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Номер задачи</v8:content> + </v8:item> + + EnterOnInput + + + + + + + Объект.ТЧТекущиеДела.Вопрос + true + EnterOnInput + + + + + false + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>ТЧТекущие дела доп сведения</v8:content> + </v8:item> + + + + ru + ТЧТекущие дела доп сведения + + + Horizontal + + + + Объект.ТЧТекущиеДела.Выполнено + EnterOnInput + Auto + + + + + Объект.ТЧТекущиеДела.ДатаСоздания + EnterOnInput + + + + + Объект.ТЧТекущиеДела.ДатаВыполнения + EnterOnInput + + + + + Объект.ТЧТекущиеДела.Автор + EnterOnInput + + + + + Объект.ТЧТекущиеДела.Порядок + EnterOnInput + + + + + + +
+
+ + + + cfg:DataProcessorObject.узТекущиеДела + + true + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Показывать доп сведения</v8:content> + </v8:item> + + + xs:boolean + + + + + + + ТЧТекущиеДела + + + + + Объект.ТЧТекущиеДела.Выполнено + Equal + true + + + + + false + ЦветФона + #00A600 + + + Шрифт + + + + + + + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Сделал</v8:content> + </v8:item> + + + + ru + Команда сделал + + + + CommonPicture.узВыполнил + true + + КомандаВыполнил + TextPicture + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Обновить</v8:content> + </v8:item> + + + + ru + Команда обновить + + + Ctrl+S + + StdPicture.Refresh + true + + КомандаОбновить + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Доп сведения</v8:content> + </v8:item> + + + + ru + Команда показать доп сведения + + + КомандаПоказатьДопСведения + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Предыдущий период</v8:content> + </v8:item> + + + + ru + Команда предыдущий период + + + + StdPicture.MoveLeft + true + + КомандаПредыдущийПериод + Picture + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>На дату</v8:content> + </v8:item> + + + + ru + Команда на дату + + + КомандаНаДату + + + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Следующий период</v8:content> + </v8:item> + + + + ru + Следующий период + + + + StdPicture.MoveRight + true + + КомандаСледующийПериод + Picture + + +
\ 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 new file mode 100644 index 000000000..ef3f2c7ec --- /dev/null +++ b/src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl @@ -0,0 +1,170 @@ + +&НаКлиенте +Процедура КомандаОбновить(Команда) + ОбновитьТекущиеДелаНаСервере(); +КонецПроцедуры + +&НаСервере +Процедура ОбновитьТекущиеДелаНаСервере() + пОбъект = РеквизитФормыВЗначение("Объект"); + пОбъект.ОбновитьНаСервере(); + ЗначениеВРеквизитФормы(пОбъект,"Объект"); +КонецПроцедуры + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + Объект.НаДату = ТекущаяДата(); + ЗаполнитьТекущиеДелаНаСервере(); + УстановитьВидимостьДоступность(); +КонецПроцедуры + +&НаСервере +Процедура УстановитьВидимостьДоступность() + Элементы.ТЧТекущиеДелаДопСведения.Видимость = Ложь; + Если ПоказыватьДопСведения Тогда + Элементы.ТЧТекущиеДелаДопСведения.Видимость = Истина; + КонецЕсли; +КонецПроцедуры + +&НаСервере +Процедура ЗаполнитьТекущиеДелаНаСервере() + пОбъект = РеквизитФормыВЗначение("Объект"); + пОбъект.ЗаполнитьТекущиеДела(); + ЗначениеВРеквизитФормы(пОбъект,"Объект"); +КонецПроцедуры + +&НаСервере +Процедура СохранитьТекущиеДелаНаСервере() + пОбъект = РеквизитФормыВЗначение("Объект"); + пОбъект.СохранитьТекущиеДела(); + ЗначениеВРеквизитФормы(пОбъект,"Объект"); +КонецПроцедуры + +&НаКлиенте +Процедура ПриЗакрытии() + ПриЗакрытииНаСервере(); +КонецПроцедуры + + +&НаСервере +Процедура ПриЗакрытииНаСервере() + СохранитьТекущиеДелаНаСервере(); +КонецПроцедуры + + +&НаКлиенте +Процедура ТЧТекущиеДелаПриИзменении(Элемент) + СтрокаТЧТекущиеДела = Элемент.ТекущиеДанные; + СтрокаТЧТекущиеДела.Порядок = СтрокаТЧТекущиеДела.НомерСтроки; +КонецПроцедуры + + +&НаКлиенте +Процедура НаДатуПриИзменении(Элемент) + ЗаполнитьТекущиеДелаНаСервере(); +КонецПроцедуры + + +&НаСервере +Процедура ТЧТекущиеДелаПередУдалениемНаСервере(МассивТекущихДел) + пОбъект = РеквизитФормыВЗначение("Объект"); + пОбъект.УбратьТекущееДело(МассивТекущихДел); +КонецПроцедуры + + +&НаКлиенте +Процедура ТЧТекущиеДелаПередУдалением(Элемент, Отказ) + МассивВыделенныхСтрок = Элемент.ВыделенныеСтроки; + МассивТекущихДел = ПолучитьМассивТекущихДелПоВыделеннымСтрокам(МассивВыделенныхСтрок); + ТЧТекущиеДелаПередУдалениемНаСервере(МассивТекущихДел); +КонецПроцедуры + +&НаКлиенте +Функция ПолучитьМассивТекущихДелПоВыделеннымСтрокам(МассивВыделенныхСтрок) + МассивТекущихДел = Новый Массив(); + Для каждого ЭлМассиваВыделенныхСтрок из МассивВыделенныхСтрок цикл + ИдентификаторСтроки = ЭлМассиваВыделенныхСтрок; + + СтрокаТЧТекущиеДела = Объект.ТЧТекущиеДела.НайтиПоИдентификатору(ИдентификаторСтроки); + пТекущееДело = СтрокаТЧТекущиеДела.ТекущееДело; + МассивТекущихДел.Добавить(пТекущееДело); + Конеццикла; + Возврат МассивТекущихДел; +КонецФункции + + +&НаКлиенте +Процедура КомандаВыполнил(Команда) + МассивВыделенныхСтрок = Элементы.ТЧТекущиеДела.ВыделенныеСтроки; + Для каждого ЭлМассиваВыделенныхСтрок из МассивВыделенныхСтрок цикл + ИдентификаторСтроки = ЭлМассиваВыделенныхСтрок; + + СтрокаТЧТекущиеДела = Объект.ТЧТекущиеДела.НайтиПоИдентификатору(ИдентификаторСтроки); + СтрокаТЧТекущиеДела.ДатаВыполнения = ТекущаяДата(); + СтрокаТЧТекущиеДела.Выполнено = Истина; + Конеццикла; + + Объект.ТЧТекущиеДела.Сортировать("Выполнено, ДатаВыполнения УБЫВ"); +КонецПроцедуры + + +&НаКлиенте +Процедура КомандаПоказатьДопСведения(Команда) + ПоказыватьДопСведения = НЕ ПоказыватьДопСведения; + УстановитьВидимостьДоступность(); +КонецПроцедуры + + +&НаКлиенте +Процедура ТЧТекущиеДелаТекстСодержанияПриИзменении(Элемент) + +КонецПроцедуры + +&НаКлиенте +Процедура КомандаПредыдущийПериод(Команда) + НаДатуНовая = ПолучитьНаДатуНовая(-1); + ИзменитьНаДату(НаДатуНовая); +КонецПроцедуры + +&НаКлиенте +Процедура КомандаНаДату(Команда) + НаДатуНовая = НачалоДня(ТекущаяДата()); + ИзменитьНаДату(НаДатуНовая); +КонецПроцедуры + +&НаКлиенте +Процедура ОбновитьЗаголовокКомандаНаДату() + Элементы.ТЧТекущиеДелаКомандаНаДату.Заголовок = Формат(Объект.НаДату,"ДФ=dd.MM.yy"); +КонецПроцедуры + +&НаКлиенте +Процедура ПриОткрытии(Отказ) + ОбновитьЗаголовокКомандаНаДату(); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьНаДату(НаДатуНовая) + Объект.НаДату = НаДатуНовая; + ОбновитьТекущиеДелаНаСервере(); + ОбновитьЗаголовокКомандаНаДату(); +КонецПроцедуры + +&НаКлиенте +Функция ПолучитьНаДатуНовая(Сдвиг) + Если Сдвиг = 1 Тогда + НаДатуНовая = НачалоДня(КонецДня(Объект.НаДату) + 1); + Иначе + НаДатуНовая = НачалоДня(Объект.НаДату - 1); + Конецесли; + Если НаДатуНовая > ТекущаяДата() Тогда + НаДатуНовая = Объект.НаДату; + Конецесли; + + Возврат НаДатуНовая; +КонецФункции + +&НаКлиенте +Процедура КомандаСледующийПериод(Команда) + НаДатуНовая = ПолучитьНаДатуНовая(1); + ИзменитьНаДату(НаДатуНовая); +КонецПроцедуры diff --git a/src/cf/Ext/MainSectionCommandInterface.xml b/src/cf/Ext/MainSectionCommandInterface.xml index 3d13163e0..139058a96 100644 --- a/src/cf/Ext/MainSectionCommandInterface.xml +++ b/src/cf/Ext/MainSectionCommandInterface.xml @@ -1,6 +1,11 @@  + + + true + + true @@ -38,6 +43,10 @@ + + NavigationPanelOrdinary + Manual + NavigationPanelOrdinary Manual @@ -68,6 +77,9 @@ + + NavigationPanelOrdinary + NavigationPanelOrdinary diff --git a/src/cf/Roles/ПолныеПрава/Ext/Rights.xml b/src/cf/Roles/ПолныеПрава/Ext/Rights.xml index d0eb8fe31..e00be8d6c 100644 --- a/src/cf/Roles/ПолныеПрава/Ext/Rights.xml +++ b/src/cf/Roles/ПолныеПрава/Ext/Rights.xml @@ -838,6 +838,25 @@ false + + Catalog.узТекущиеДела + + InteractiveDelete + false + + + InteractiveDeleteMarked + false + + + InteractiveDeletePredefinedData + false + + + InteractiveDeleteMarkedPredefinedData + false + + Catalog.ПредопределенныеВариантыОтчетовРасширений diff --git a/src/cf/Roles/узПолныеПрава/Ext/Rights.xml b/src/cf/Roles/узПолныеПрава/Ext/Rights.xml index f23da1b3d..5144b22c9 100644 --- a/src/cf/Roles/узПолныеПрава/Ext/Rights.xml +++ b/src/cf/Roles/узПолныеПрава/Ext/Rights.xml @@ -1965,6 +1965,57 @@ true + + Catalog.узТекущиеДела + + Read + true + + + Insert + true + + + Update + true + + + Delete + true + + + View + true + + + InteractiveInsert + true + + + Edit + true + + + InteractiveSetDeletionMark + true + + + InteractiveClearDeletionMark + true + + + InputByString + true + + + InteractiveSetDeletionMarkPredefinedData + true + + + InteractiveClearDeletionMarkPredefinedData + true + + Constant.НастройкиВыполненияРегламентныхЗаданий @@ -3339,6 +3390,13 @@ true + + DataProcessor.узТекущиеДела.Command.КомандаОткрытьТекущиеДела + + View + true + + SessionParameter.ВидыДоступаСОднойГруппойДляЗначенияДоступа @@ -9041,6 +9099,17 @@ true + + DataProcessor.узТекущиеДела + + Use + true + + + View + true + + Constant.ИдентификаторИнформационнойБазы diff --git a/src/cf/Roles/узПользователь/Ext/Rights.xml b/src/cf/Roles/узПользователь/Ext/Rights.xml index d2c77e2d0..3e373c621 100644 --- a/src/cf/Roles/узПользователь/Ext/Rights.xml +++ b/src/cf/Roles/узПользователь/Ext/Rights.xml @@ -1418,6 +1418,57 @@ true + + Catalog.узТекущиеДела + + Read + true + + + Insert + true + + + Update + true + + + Delete + true + + + View + true + + + InteractiveInsert + true + + + Edit + true + + + InteractiveSetDeletionMark + true + + + InteractiveClearDeletionMark + true + + + InputByString + true + + + InteractiveSetDeletionMarkPredefinedData + true + + + InteractiveClearDeletionMarkPredefinedData + true + + Constant.НастройкиВыполненияРегламентныхЗаданий @@ -2149,6 +2200,13 @@ true + + DataProcessor.узТекущиеДела.Command.КомандаОткрытьТекущиеДела + + View + true + + SessionParameter.ВидыДоступаСОднойГруппойДляЗначенияДоступа @@ -5716,6 +5774,17 @@ true + + DataProcessor.узТекущиеДела + + Use + true + + + View + true + + Constant.ИдентификаторИнформационнойБазы diff --git a/src/cf/Subsystems/узУправлениеЗадачами.xml b/src/cf/Subsystems/узУправлениеЗадачами.xml index 2d531b2f7..d5502448c 100644 --- a/src/cf/Subsystems/узУправлениеЗадачами.xml +++ b/src/cf/Subsystems/узУправлениеЗадачами.xml @@ -90,6 +90,11 @@ Constant.узРегистрироватьАктивностьПользователей Constant.узПоказыватьАктивностьПользователяНаРабочемСтоле InformationRegister.узСловарь + Catalog.узТекущиеДела + CommonPicture.узВыполнил + DataProcessor.узТекущиеДела + FunctionalOption.узПоказыватьАктивностьПользователяНаРабочемСтоле + CommonTemplate.узСловарьПоУмолчанию