- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
&НаКлиенте
Процедура ПриЗакрытии()
ПроверитьНаОткрытие()
КонецПроцедуры
&НаСервере
Процедура ПроверитьНаОткрытие()
Если Объект.Исполнитель =ПараметрыСеанса.ТекущийПользователь() И Не Объект.Просмотрено = Истина Тогда
Задача = Объект.Ссылка.ПолучитьОбъект();
Задача.Просмотрено = Истина;
Задача.Записать();
КонецЕсли;
КонецПроцедуры
единственное смущает НЕ Объект.Просмотрено = Истина
Вот там были извраты...