Помогите пжлст разобраться до конца.
1. в Глобальнике:
[code]
лУправлениеНастройками = СоздатьОбъект("УправлениеНастройками");
лУправлениеНастройками.Включить("ПерехватитьСобытияГК");
ПерехватГМ = СоздатьОбъект("ПерехватГМ");
Перехватчик = СоздатьОбъект("Перехватчик");
Перехватчик.ПерехватитьСобытияГлобальногоМодуля(ПерехватГМ);[/code]
2. в классе ПерехватГМ
[code]
Функция СобытиеГМ_ПриОткрытии(Конт) Экспорт
     Если ПустоеЗначение(Конт) = 0 Тогда
           Перехватчик = СоздатьОбъект("Перехватчик");
           ПерехватчикСобытий = Перехватчик.ПолучитьПерехватчикСобытийГК(Конт);
           Если ПустоеЗначение(ПерехватчикСобытий) = 1 Тогда
                 ПерехватчикСобытий = СоздатьОбъект("ПерехватГК"); //твой класс перехвата всех форм
                 Перехватчик.ПерехватитьСобытияГК(Конт, ПерехватчикСобытий);
           КонецЕсли;
     КонецЕсли;
     Возврат 1;
КонецФункции[/code]
3. в классе ПерехватГК
[code]
Процедура Событие_ПриОткрытии(Конт) Экспорт
     Сообщить("ПриОткрытии");
     Перехватчик = СоздатьОбъект("Перехватчик");
     Перехватчик.ВыполнитьОригинальноеСобытиеГК(Конт, "ПриОткрытии");
КонецПроцедуры[/code]

1С падает при выполнении (субъективное мнение)
[code]
Перехватчик.ВыполнитьОригинальноеСобытиеГК(Конт, "ПриОткрытии");[/code]

[color=#cc0000][b]Что не так? Подскажите пжлст.[/b][/color]

Уважаемый!
Вы наступили на теже грабли что и я.
Все намного проще.
Глобальный:
     глПерехватчикСобытий=СоздатьОбъект("ПерехватГМ");
     глПерехватчикСобытий.ВключитьПерехватСобытий();

Реализация дву классов:
ПерехватГМ::
Процедура ВключитьПерехватСобытий() Экспорт
     
     лУправлениеНастройками = СоздатьОбъект("УправлениеНастройками");
     лУправлениеНастройками.Включить("ПерехватитьСобытияГК");

     _Перехватчик = СоздатьОбъект("Перехватчик");   
     _Перехватчик.ПерехватитьСобытияГлобальногоМодуля(Контекст);
     
     _фПерехватВключен = 1;
КонецПроцедуры      // ВключитьПерехватСобытий


Функция СобытиеГМ_ПриОткрытии(Конт, ФлагЧтенияНастройки) Экспорт
     Если ПустоеЗначение(Конт) = 0 Тогда
           _Перехватчик = СоздатьОбъект("Перехватчик");
           ПерехватчикСобытий = _Перехватчик.ПолучитьПерехватчикСобытийГК(Конт);
           Если ПустоеЗначение(ПерехватчикСобытий) = 1 Тогда
                 ПерехватчикСобытий = СоздатьОбъект("Перехват"); //твой класс перехвата всех форм
                 ПерехватчикСобытий.Инициализация(Конт);
           КонецЕсли;
     КонецЕсли;
     Возврат 1; // Можно открывать форму
КонецФункции

Перехват::
Перем _Перехватчик;
Перем _КонтФормы;
Перем рФорма;

Процедура Инициализация(пКонт) Экспорт
     _КонтФормы=пКонт;
     _Перехватчик=СоздатьОбъект("Перехватчик");
     _Перехватчик.ПерехватитьСобытияГК(_КонтФормы,Контекст);
     рФорма=СоздатьОбъект("РасширениеФормы");
КонецПроцедуры      // Инициализация


Функция Событие_ПриОткрытии(Флаг) Экспорт
     рФорма.УстановитьФорму(_КонтФормы.Форма);
     тип=рФорма.ТипОбъекта();
     Если тип="Документ" Тогда
           //Возврат 0;
     КонецЕсли;
     Возврат _Перехватчик.ВыполнитьОригинальноеСобытиеГК(_КонтФормы,"ПриОткрытии");
КонецФункции      // гл


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


//Функция Событие_ПриЗакрытии(Флаг) Экспорт
//      //Сообщить(Конт);
//      //Сообщить("Перехват::ПриЗакрытии");
//      Возврат 1;
//КонецФункции      // Событие_ПриЗакрытии

Функция Событие_ПриПереносеЭлементаВДругуюГруппу(Спр, Группа) Экспорт
     Сообщить("Перехват::ПриПереносеЭлементаВДругуюГруппу");
     Возврат 1;
КонецФункции      // Событие_ПриПереносеЭлементаВДругуюГруппу(Спр, Группа)

varelchik писал(а) 17. Октября 2007 :: 05:47:

Понял. Заработало. Спасибо.
Думаю, что можно по перехватчику немного доделать документацию - просто вставить ваш пост в качестве примера реализации и станет меньше таких тупых вопросов как мой.