Настороженность понятна.
Но на данном этапе функционал Перехватчика стабилен, за исключением пары извращенных случаев его использования (привет, Артур  )
1. У меня ночник в боевой базе. Проблем НЕТ!
2. "Перестает работать то, что работало" - давно такого не припомню, за исключением последних событий с формексом.
3. Почти все охвачено тестами. Ребята хорошо все организовали.
4. Большой минус - отсутствие примеров использования. Много чего можно почерпнуть с спец.конфе что выложена Артуром в репозитарии.

Артуру огромное спасибо за Перехватчика!
Просто ураганная вещь!

А ты думал!
Вот если б уважаемый Артур еще умудрился перенаправить в Перехватчик:
Записать()
Провести()
Удалить()
Установить()
Тоди было бы вообще ЖИРНО!

Arta писал(а) 11. Октября 2007 :: 12:41:


Вот примерно так я планировал сделать, но только не один класс на все формы а вообще один ОКОП на все формы, висит себе в глобальной переменной, да подглядывает за всеми. Но задумался вот над чем :

Обормотчики событий получают только стандартные параметры события, контекста они не получают.

Таким образом, идея с одним классом ещё реализуема, а с одним объектом - нет.

При множественности обработчиков (по одному на каждую форму), если я не хочу трогать модули форм, мне нужен некий менеджер обработчиков, который

• ловит новые формы, создает и запускает им обработчики
• держит список обработчиков
• уничтожает обработчики закрытых форм (или обработчики в своих ПриЗакрытии передают менеджеру сообщение, что пора..)

В правильном направлении движусь?

Пот какой у меня порядок подключения перехватчика:
1. ГМ

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

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

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


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

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

и класс перехвата ВСЕХ!!!!!! форм

Перехват::
Перем _Перехватчик;
Перем _КонтФормы;
Перем рФорма;
Перем СпНеИзменять;

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

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



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


СпНеИзменять=СоздатьОбъект("СписокЗначений");
СпНеИзменять.ДобавитьЗначение("ПериферийныеБазы");
СпНеИзменять.ДобавитьЗначение("ПравилаЗагрузки");
СпНеИзменять.ДобавитьЗначение("ПравилаВыгрузки");

Вот и все.
А дальше уже извращается в этих классах как тебе хочется.

varelchik писал(а) 08. Ноября 2007 :: 06:53:


Ты имел ввиду Один Класс обрабатывающий все формы, я имел ввиду один объект этого класса. Идея с одним объектом - лажовая. Забыли.

varelchik писал(а) 08. Ноября 2007 :: 06:53:


Как я понял,

1. Специально запоминать СистемныйПерехватчик (который = СоздатьОбъект( "Перехватчик" ) ) действительно не обязательно. При выходе из зоны видимости или при прямом обнулении переменной, перехват продолжает работать. При следующем создании всю инфу по перехватам можно получить. Запоминать можно для оптимизации (сэкономить на частых созданиях\уничтожениях).

2. Запоминать свой ОКОП, перехватывающий события ГМ и включающий для них перехват - тоже не нужно, его помнит СистемныйПерехватчик.

3. И даже обработчики каждой формы - тоже не нужно запоминать, они тоже сидят в СистемныйПерехватчик, и уничтожаются при закрытии их формы.

Может я что-то делаю неправильно?
Вот тест:

ЗЫ: В этом тесте вообще всё срезал, оставил только сам перехват глобальника...