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