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

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

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

View File

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

View File

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

View File

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

View File

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