Код

// Создан и унаследован от ПерехватчикСобытий только для переопределения методов Событие_ПриОткрытии() и Событи_ВводНового()
// Первый из них имеет параметр "ФлагЧтенияНастроек" которого нету и Документов, Справочников, Журналов и др форм
// А для второго не должно вызываться оригинальное событие, т.к. его для отчетов просто нету....(avgreen)
 

Код

	Если (ФормаРасш.ТипОбъекта() = "ВнешнийОтчет") Тогда
		//Сообщить("ВнешнийОтчет" + СокрЛП());
		НазваниеКлассаПерехватчика = "ПерехватчикСобытийОтчет";
		//Возврат 1;
	ИначеЕсли (ФормаРасш.ТипОбъекта() = "Отчет") Или (ФормаРасш.ТипОбъекта() = "Обработка") ИЛИ (ФормаРасш.ТипОбъекта() = "ВнешнийОтчет") Тогда
		НазваниеКлассаПерехватчика = "ПерехватчикСобытийОтчет";
	ИначеЕсли ФормаРасш.ТипОбъекта() = "Справочник" Тогда
		НазваниеКлассаПерехватчика = "ПерехватчикСобытийСпр";
	Иначе
		НазваниеКлассаПерехватчика = ТипЗначенияСтр(Сам());
	КонецЕсли;
	ПерехватчикСобытий = СоздатьОбъект(НазваниеКлассаПерехватчика);
	ПерехватчикСобытий.Инициализация(КонтФормы);
 

Код

// Создан и унаследован от ПерехватчикСобытий только для переопределения единственного метода Событие_ПриЗаписи()
// Причина - для справочников, предопредеоенная процедура ПриЗаписи(), которую собственно и перехватывает Событие_ПриЗаписи()
// имеет один параметр СписокПериодическихРекв, а для Документа, Операции и т.п. этого параметра нету. И если
// попытаться перехватить запись Документа Событием_ПриЗаписи с параметром то 1С падает нафиг, причем не успев даже ругануться
// (что в принципе и не удивительно). Определить-же метод Событие_ПриЗаписи как метод с неопределенным количеством параметров
// и потом вызвать Сам().ПолучитьСписокПараметров("Событие_ПриЗаписи") у меня почему-то не получилось....
// Вот и пришлось так извратиться! Походу пришлось экспортнуть из родительского класса свойство КонтекстПерехваченнойФормы
// (avgreen)
 

Код

//============================выполняет оригинальные события Контекста или ГМ и далее вызывает выполнение всех подписчиков
Функция ВыполнитьСобытиеКонт(ИмяСобытия, флГлобальное, асПараметры="", МенеджерСобытий, ПараметрыМенеджера="")
	Перехватчик = Перехватчик();

	ВЗ = 1;
	Если флГлобальное=1 Тогда
		Если Врег(Лев(ИмяСобытия,10))=Врег("СобытиеГМ_") Тогда
			ИмяСобытия = Сред(ИмяСобытия,11);
		КонецЕсли;
		ВЗ = ъекта", "обБлокировки");
		Если ВЗ=0 Тогда
			Возврат 0;
		КонецЕсли;
	Иначе
		Если Врег(Лев(ИмяСобытия,8))=Врег("Событие_") Тогда
			ИмяСобытия = Сред(ИмяСобытия,9);
		КонецЕсли;

		Если ПустоеЗначение(асПараметры)=0 Тогда
			//асПараметры //:АссоциативныйВектор
			КолПараметров = асПараметры.Количество();
			Если КолПараметров=0 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия);
			ИначеЕсли КолПараметров=1 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия, асПараметры.Получить(0));
			ИначеЕсли КолПараметров=2 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия, асПараметры.Получить(0), асПараметры.Получить(1));
			ИначеЕсли КолПараметров=3 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия, асПараметры.Получить(0), асПараметры.Получить(1), асПараметры.Получить(2));
			ИначеЕсли КолПараметров=4 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия, асПараметры.Получить(0), асПараметры.Получить(1), асПараметры.Получить(2), асПараметры.Получить(3));
			ИначеЕсли КолПараметров=5 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия, асПараметры.Получить(0), асПараметры.Получить(1), асПараметры.Получить(2), асПараметры.Получить(3), асПараметры.Получить(4));
			ИначеЕсли КолПараметров=6 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия, асПараметры.Получить(0), асПараметры.Получить(1), асПараметры.Получить(2), асПараметры.Получить(3), асПараметры.Получить(4), асПараметры.Получить(5));
			ИначеЕсли КолПараметров=7 Тогда
				ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия, асПараметры.Получить(0), асПараметры.Получить(1), асПараметры.Получить(2), асПараметры.Получить(3), асПараметры.Получить(4), асПараметры.Получить(5), асПараметры.Получить(6));
			КонецЕсли;
		Иначе
			ВЗ = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,ИмяСобытия);
		КонецЕсли;
	КонецЕсли;

	ВЗ = ВЗ * ВыполнитьСобытиеМенеджеров(МенеджерСобытий, ПараметрыМенеджера);

	Возврат ВЗ;
КонецФункции // ВыполнитьСобытиеКонт

//*****************************************************
Функция Событие_ПриОткрытии(ФлагЧтенияНастройки) Экспорт
	//ТипОбъекта = РасширениеФормы.ТипОбъекта()
	Параметры = СоздатьОбъект("АссоциативныйВектор");
	ЕстьПараметры			= ?(Найти("|ВнешнийОтчет|Обработка|Отчет|","|"+ТипОбъекта+"|")=0,0,1);
	Если ЕстьПараметры=1 Тогда
		Параметры.Добавить(ФлагЧтенияНастройки);
	Иначе
	КонецЕсли;
	Менеджер = ДобавитьМенеджераСобытий(МенеджерСобытий() ,"ЛоггированиеИзменений", "Событие_ПриОткрытии");
	Возврат ВыполнитьСобытиеКонт("Событие_ПриОткрытии", 0, Параметры, Менеджер, Параметры);
КонецФункции// Событие_ПриОткрытии 

Код

//======================================================================
Функция Событие_ПриЗаписи(СписокПериодРекв) Экспорт
	//Сообщить("Зашли в при записи ");
	Параметры = СоздатьОбъект("АссоциативныйВектор");
	ЕстьПараметры		= ?(Найти("|ПланСчетов|Справочник|","|"+ТипОбъекта+"|")=0,0,1);
	Если ЕстьПараметры=0 Тогда
	Иначе
		Параметры.Добавить(СписокПериодРекв);
	КонецЕсли;
	Менеджер = ДобавитьМенеджераСобытий(МенеджерСобытий() ,"ЛоггированиеИзменений", "Событие_ПриЗаписи");
	Возврат ВыполнитьСобытиеКонт("Событие_ПриЗаписи", 0,Параметры,Менеджер,Параметры);
КонецФункции // Событие_ПриЗаписи