1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-21 21:17:24 +02:00
Code Issues Releases Activity

Реализована возможность создания повторяющихся (регламентных) текущих дел по произвольному расписанию.

Browse Source
This commit is contained in:
Anton Ivanov 2019-05-15 08:35:49 +03:00
parent c5aabafead
commit 534ad8f034
4 changed files with 99 additions and 19 deletions
src/cf
Catalogs/узТекущиеДела/Ext
ObjectModule.bsl
DataProcessors/узТекущиеДела
Ext
ObjectModule.bsl
Forms/Форма/Ext
Form.xml
Form
Module.bsl

27
src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl Normal file

@ -0,0 +1,27 @@

Процедура ПередЗаписью(Отказ)
ЗаполнитьТекстСодержанияСтарое(Отказ);
КонецПроцедуры
Процедура ЗаполнитьТекстСодержанияСтарое(Отказ)
Если ЭтоНовый() Тогда
Возврат;
Конецесли;
Если СокрЛП(Ссылка.ТекстСодержания) = СокрЛП(ТекстСодержания) Тогда
Возврат;
Конецесли;
пТекстСодержанияСтарое =
"----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
+ Символы.ПС
+ ТекстСодержания
+ Символы.ПС
+ ТекстСодержанияСтарое
;
ТекстСодержанияСтарое = пТекстСодержанияСтарое;
КонецПроцедуры

22
src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl

@ -150,20 +150,20 @@
ТекущееДелоОбъект = ПолучитьТекущееДелоОбъект(СтрокаТЧТекущиеДела);
Если НЕ ТекущееДелоОбъект.Ссылка.Пустая()
И СокрЛП(ТекущееДелоОбъект.ТекстСодержания) <> СокрЛП(СтрокаТЧТекущиеДела.ТекстСодержания) Тогда
пТекстСодержанияСтарое =
"----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
+ Символы.ПС
+ ТекущееДелоОбъект.ТекстСодержания
+ Символы.ПС
+ ТекущееДелоОбъект.ТекстСодержанияСтарое
;
Конецесли;
//Если НЕ ТекущееДелоОбъект.Ссылка.Пустая()
// И СокрЛП(ТекущееДелоОбъект.Ссылка.ТекстСодержания) <> СокрЛП(СтрокаТЧТекущиеДела.ТекстСодержания) Тогда
// пТекстСодержанияСтарое =
// "----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
// + Символы.ПС
// + ТекущееДелоОбъект.ТекстСодержания
// + Символы.ПС
// + ТекущееДелоОбъект.ТекстСодержанияСтарое
// ;
//Конецесли;
ЗаполнитьЗначенияСвойств(ТекущееДелоОбъект,СтрокаТЧТекущиеДела,,"Автор,ДатаСоздания,Порядок");
ТекущееДелоОбъект.ТекстСодержанияСтарое = пТекстСодержанияСтарое;
//ТекущееДелоОбъект.ТекстСодержанияСтарое = пТекстСодержанияСтарое;
ТекущееДелоОбъект.Наименование = ТекущееДелоОбъект.ТекстСодержания;
//Если ЭтоСегодня Тогда
ТекущееДелоОбъект.Порядок = СтрокаТЧТекущиеДела.НомерСтроки;

7
src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form.xml

@ -120,6 +120,7 @@
<ExtendedTooltip name="ТЧТекущиеДелаУправлениеПоискомРасширеннаяПодсказка" id="13"/>
</SearchControlAddition>
<Events>
<Event name="OnEditEnd">ТЧТекущиеДелаПриОкончанииРедактирования</Event>
<Event name="ValueChoice">ТЧТекущиеДелаВыборЗначения</Event>
<Event name="Selection">ТЧТекущиеДелаВыбор</Event>
<Event name="BeforeDeleteRow">ТЧТекущиеДелаПередУдалением</Event>
@ -151,6 +152,9 @@
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ТЧТекущиеДелаГруппаТекущегоДелаКонтекстноеМеню" id="87"/>
<ExtendedTooltip name="ТЧТекущиеДелаГруппаТекущегоДелаРасширеннаяПодсказка" id="88"/>
<Events>
<Event name="OnChange">ТЧТекущиеДелаГруппаТекущегоДелаПриИзменении</Event>
</Events>
</InputField>
<ColumnGroup name="ТЧТекущиеДелаГруппаЗадачаНомерЗадачи" id="53">
<Title>
@ -327,6 +331,9 @@
<DataPath>Items.ТЧТекущиеДела.CurrentData.ГруппаТекущегоДела</DataPath>
<ContextMenu name="ТЧТекущиеДелаГруппаТекущегоДела1КонтекстноеМеню" id="133"/>
<ExtendedTooltip name="ТЧТекущиеДелаГруппаТекущегоДела1РасширеннаяПодсказка" id="134"/>
<Events>
<Event name="OnChange">ТЧТекущиеДелаГруппаТекущегоДела1ПриИзменении</Event>
</Events>
</InputField>
<UsualGroup name="ГруппаЗадачаВопрос" id="128">
<Title>

62
src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl

@ -236,7 +236,19 @@
Процедура КомандаПоказатьДопСведения(Команда)
ПоказыватьДопСведения = НЕ ПоказыватьДопСведения;
Элементы.ТЧТекущиеДелаКомандаПоказатьДопСведения.Пометка = ПоказыватьДопСведения;
УстановитьВидимостьДоступность();
УстановитьВидимостьДоступностьНаКлиенте();
////УстановитьВидимостьДоступность();
//СтрокаТЧТекущиеДела = Элементы.ТЧТекущиеДела.ТекущиеДанные;
//
//СтруктураСтрокаТЧТекущиеДела = Новый Структура();
//СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела);
//
//ВТДопПараметры = Новый Структура();
//ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела);
//
//УстановитьВидимостьДоступность(ВТДопПараметры);
КонецПроцедуры
@ -325,7 +337,8 @@
&НаКлиенте
Процедура КомандаСохранить(Команда)
СохранитьТекущиеДелаНаКлиенте();
//СохранитьТекущиеДелаНаКлиенте();
ОбновитьТекущиеДелаНаСервере();
КонецПроцедуры
&НаКлиенте
@ -435,13 +448,15 @@
СтрокаТЧТекущиеДелаТекущееДело = пТекущееДело;
СтруктураСтрокаТЧТекущиеДела = Новый Структура();
СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела);
//СтруктураСтрокаТЧТекущиеДела = Новый Структура();
//СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела);
//
//ВТДопПараметры = Новый Структура();
//ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела);
//
//УстановитьВидимостьДоступность(ВТДопПараметры);
ВТДопПараметры = Новый Структура();
ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела);
УстановитьВидимостьДоступность(ВТДопПараметры);
УстановитьВидимостьДоступностьНаКлиенте();
КонецПроцедуры
@ -659,3 +674,34 @@
Процедура КомандаСохранитьРегламентноеТекущееДело(Команда)
СохранитьТекущееДелоРегламентноеНаКлиенте();
КонецПроцедуры
&НаКлиенте
Процедура ТЧТекущиеДелаГруппаТекущегоДела1ПриИзменении(Элемент)
УстановитьВидимостьДоступностьНаКлиенте();
КонецПроцедуры
&НаКлиенте
Процедура УстановитьВидимостьДоступностьНаКлиенте()
СтрокаТЧТекущиеДела = Элементы.ТЧТекущиеДела.ТекущиеДанные;
СтруктураСтрокаТЧТекущиеДела = Новый Структура();
СтруктураСтрокаТЧТекущиеДела.Вставить("ГруппаТекущегоДела",СтрокаТЧТекущиеДела.ГруппаТекущегоДела);
ВТДопПараметры = Новый Структура();
ВТДопПараметры.Вставить("СтрокаТЧТекущиеДела",СтруктураСтрокаТЧТекущиеДела);
УстановитьВидимостьДоступность(ВТДопПараметры);
КонецПроцедуры
&НаКлиенте
Процедура ТЧТекущиеДелаПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования)
КонецПроцедуры
&НаКлиенте
Процедура ТЧТекущиеДелаГруппаТекущегоДелаПриИзменении(Элемент)
УстановитьВидимостьДоступностьНаКлиенте();
КонецПроцедуры