1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-01-12 03:19:41 +02:00
Code Issues Releases Activity

#73 поправил вызов метода следить за задачей

Browse Source
This commit is contained in:
Anton Ivanov 2018-01-08 13:59:14 +03:00
parent 1c12046079
commit 06db955f91
4 changed files with 33 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl
View File

@ -247,7 +247,15 @@
Если НЕ ЗначениеЗаполнено(Выборка.КлючСтрокиСтарый) Тогда
пТекстСообщения = узОбщийМодульСервер.ПолучитьТекстСообщения("Новый комментарий: %1",14);
ТекстИзменения = СтрШаблон(пТекстСообщения,Выборка.КомментарийНовый);
узОбщийМодульСервер.ДобавитьАвтораКомментарияВНаблюдателиЗаЗадачей(Объект.Ссылка, Пользователи.ТекущийПользователь());
МассивЗадач = Новый Массив;
МассивЗадач.Добавить(Ссылка);
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("Пользователь",Выборка.АвторНовый);
ДопПараметры.Вставить("МассивЗадач", МассивЗадач);
РегистрыСведений.узНаблюдателиЗаЗадачами.СледитьЗаЗадачей(ДопПараметры);
ЕстьДобавленныеКомментарии = Истина;
ИначеЕсли СокрЛП(Выборка.КомментарийСтарый) <> СокрЛП(Выборка.КомментарийНовый) Тогда
@ -263,7 +271,9 @@
МассивИзмененнийПоКомментариям.Добавить(ТекстИзменения);
КонецЦикла;
Если ЕстьИзмененныеКомментарии Тогда
ВидСобытия = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ИзмененКомментарий");

8
src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -151,8 +151,15 @@
// Конец СтандартныеПодсистемы.Взаимодействие
Оповестить("СправочникЗадачаЗаписана");
КонецПроцедуры
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
УстановитьВидимостьДоступность();
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
@ -966,5 +973,6 @@
#КонецОбласти

23
src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
View File

@ -615,29 +615,6 @@
////API.CreateTask();
КонецПроцедуры
Процедура ДобавитьАвтораКомментарияВНаблюдателиЗаЗадачей(Задача, Автор) Экспорт
ДобавитьПользователяВНаблюдателиЗаЗадачей(Задача, Автор);
КонецПроцедуры
Процедура ДобавитьПользователяВНаблюдателиЗаЗадачей(Задача, Пользователь)
Если РегистрыСведений.узНаблюдателиЗаЗадачами.ЕстьЛиСлежениеЗаЗадачейУТекущегоПользователя(Задача) Тогда
Возврат;
КонецЕсли;
МассивЗадач = Новый Массив;
МассивЗадач.Добавить(Задача);
ДополнительныеПараметры = Новый Структура();
ДополнительныеПараметры.Вставить("Пользователь",Пользователи);
ДополнительныеПараметры.Вставить("МассивЗадач", МассивЗадач);
РегистрыСведений.узНаблюдателиЗаЗадачами.СледитьЗаЗадачей(ДополнительныеПараметры);
КонецПроцедуры
Функция ОпределитьНастройкиИзПравилОбработки(УчетнаяЗапись,Письмо)
РезультатФункции = Новый Структура();

17
src/cf/InformationRegisters/узНаблюдателиЗаЗадачами/Ext/ManagerModule.bsl
View File

@ -9,8 +9,15 @@
Процедура ДобавитьУдалитьНаблюдателя(ДопПараметры,ЭтоДобавление)
Пользователь = ДопПараметры.Пользователь;
МассивЗадач = ДопПараметры.МассивЗадач;
Для каждого ЭлМассиваЗадач из МассивЗадач цикл
Если ЭтоДобавление
И ЕстьЛиСлежениеЗаЗадачейУПользователя(ЭлМассиваЗадач, Пользователь) Тогда
Продолжить;
Конецесли;
МенеджерЗаписи = РегистрыСведений.узНаблюдателиЗаЗадачами.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Пользователь = Пользователь;
МенеджерЗаписи.Задача = ЭлМассиваЗадач;
@ -24,7 +31,7 @@
Конеццикла;
КонецПроцедуры
Функция ЕстьЛиСлежениеЗаЗадачейУТекущегоПользователя(Задача) Экспорт
Функция ЕстьЛиСлежениеЗаЗадачейУПользователя(Задача, Пользователь) Экспорт
ЕстьСлежение = Ложь;
Запрос = Новый Запрос;
@ -39,12 +46,16 @@
| И узНаблюдателиЗаЗадачами.Пользователь = &Пользователь";
Запрос.УстановитьПараметр("Задача", Задача);
Запрос.УстановитьПараметр("Пользователь", Пользователи.ТекущийПользователь());
Запрос.УстановитьПараметр("Пользователь", Пользователь);
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
ЕстьСлежение = Истина;
Конецесли;
Возврат ЕстьСлежение;
Возврат ЕстьСлежение;
КонецФункции
Функция ЕстьЛиСлежениеЗаЗадачейУТекущегоПользователя(Задача) Экспорт
Возврат ЕстьЛиСлежениеЗаЗадачейУПользователя(Задача, Пользователи.ТекущийПользователь());
КонецФункции