Универсальный механизм обработки событий записи объектов

Комплект поставки: конфигурация, содержащая:

1. Общий модуль «Обработчики событий» — главный модуль

2. Глобальный общий модкль System (библиотека универсальных функций //infostart.ru/public/319157/)

3. Подписки на события перед записью: справочников, документов, задач и др.

Описание работы:

В модуле объекта, перед его записью, можно в дополнительные свойства добавить следующие значения:

1. «ОбязательныеРеквизиты» — Строка реквизитов, разделенных запятой, которые должны быть заполнены. Если хотя бы один из таких реквизитов будет незаполнен, то объект не будет записан (помеченные на удаление объекты не проверяются)

2. «КлючиУникальности» — Строка реквизитов, разделенных запятой, которые должны уникально идентифицировать объект. Если в базе уже будет объект с такими же значениями реквизитов, то объект не будет записан (помеченные на удаление объекты не проверяются и при поиске игнорируются)

3. «ТолькоПредопределенные» — флаг, установка которого запрещает запись непредопределенных элементов (используется для справочников, планов видов характеристик и т.п.; помеченные на удаление объекты не проверяются)

4. «СообщенияПользователю» — массив сообщений, которые нужно показать пользователю

5. «НеВыводитьСообщения» — флаг, запрещающий вывод пользователю сообщений массива «СообщенияПользователю».

Текст модуля:

Процедура ПередЗаписьюСправочника(Источник, Отказ) Экспорт
ТолькоПредопределенные = ПолучитьЗначениеПоКлючу(Источник.ДополнительныеСвойства,"ТолькоПредопределенные",Тип("Булево"));
Если ТолькоПредопределенные и не (Источник.Предопределенный или Источник.ПометкаУдаления) Тогда
Сообщить("Ошибка! В справочнике доступна запись только предопределенных элементов!");
Отказ = Истина;
Иначе
ОбработатьЗаписьОбъекта(Источник,Отказ,"Справочник");
КонецЕсли;
КонецПроцедуры

Процедура ПередЗаписьюДокумента(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
ОбработатьЗаписьОбъекта(Источник,Отказ,"Документ");
КонецПроцедуры

Процедура ПередЗаписьюЗадачи(Источник, Отказ) Экспорт
ОбработатьЗаписьОбъекта(Источник,Отказ,"Задача");
КонецПроцедуры

Процедура ОбработатьЗаписьОбъекта(Источник,Отказ,Класс)
ВыводитьСообщения = не ПолучитьЗначениеПоКлючу(Источник.ДополнительныеСвойства,"НеВыводитьСообщения",Тип("Булево"));
Если ВыводитьСообщения Тогда
СообщенияПользователю = Новый Массив;
Если Источник.ДополнительныеСвойства.Свойство("СообщенияПользователю",СообщенияПользователю) Тогда
Для каждого ЭлементМассива Из СообщенияПользователю Цикл
Сообщить(ЭлементМассива);
КонецЦикла;
КонецЕсли;
КонецЕсли;
ОбязательныеРеквизиты = Неопределено;
Если Источник.ДополнительныеСвойства.Свойство("ОбязательныеРеквизиты",ОбязательныеРеквизиты) Тогда
ДанныеПроверки = ПроверитьЗаполнениеРеквизитов(Источник,ОбязательныеРеквизиты,,ВыводитьСообщения);
Если не ДанныеПроверки.РезультатПроверки Тогда
Отказ = Истина;
Возврат;
КонецЕсли;
КонецЕсли;
КлючиУникальности = Неопределено;
Если Источник.ДополнительныеСвойства.Свойство("КлючиУникальности",КлючиУникальности) Тогда
ЭтоЗадача = Класс = "Задача";
ПутьТаблицы = Источник.Метаданные().ПолноеИмя();
ИмяТаблицы = СтрЗаменить(ПутьТаблицы,".","");
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка",Источник.Ссылка);
МассивКлючей = ПолучитьМассивКлючей(КлючиУникальности);
ТекстЗапроса =
"ВЫБРАТЬ
| "+ИмяТаблицы+".Ссылка
|ИЗ "+ПутьТаблицы+" КАК "+ИмяТаблицы+"
|ГДЕ
| (НЕ "+ИмяТаблицы+".ПометкаУдаления)"+?(ЭтоЗадача,"
| И (НЕ "+ИмяТаблицы+".Выполнена)","")+"
| И "+ИмяТаблицы+".Ссылка <> &Ссылка";
Для каждого ЭлементМассива Из МассивКлючей Цикл
Если ЗначениеЗаполнено(Источник[ЭлементМассива]) Тогда
Запрос.УстановитьПараметр(ЭлементМассива,Источник[ЭлементМассива]);
ТекстЗапроса = ТекстЗапроса+"
| И "+ИмяТаблицы+"."+ЭлементМассива+" = &"+ЭлементМассива;
КонецЕсли;
КонецЦикла;
Запрос.Текст = ТекстЗапроса;
Если Запрос.Выполнить().Выбрать().Следующий() Тогда
Отказ = Истина;
Если ВыводитьСообщения Тогда
Сообщить("Ошибка! Объект не прошел проверку на уникальность!");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры