код класса-обработчика перехвата : ОбработчикСобытийГлобальногоМодуля

Функция Этот(Конт) Возврат Конт; КонецФункции

Функция Сам() Возврат Этот(Контекст) КонецФункции



Функция СобытиеГМ_ПриОткрытии(КонтФормы) Экспорт
     Попытка
     Сообщить("СобытиеГМ_ПриОткрытии(КонтФормы) ОбрСобГлМод");
     Сообщить(""+КонтФормы.Вид());
     Исключение
     КонецПопытки;
     
     Возврат 1;
КонецФункции



Было 2 варианта Либо во внешнем отчете Переменные все локальные

     Перехватчик=СоздатьОбъект("Перехватчик");
     дуля");
     ля);

Либо в глобальном модуле Переменная глОбработчикСобытийГлобальногоМодуля глобальная экспортная

     Перехватчик=СоздатьОбъект("Перехватчик");
     Модуля");
     дуля);


Управление настройками включил перехват и все остальное

Цитата:

Просьба - оформляй свой код, плиз.
Например, изучи кнопку "Диез" (черная решетка")

Хорошо изучу. Только сегодня страшно некогда

Сегодняшняя ночная сборка. Возможно дело в журнале документов. У меня есть Процедура

Процедура ПриВыбореСтроки()
    глПриВыбореСтрокиЖурналаДокументов(Контекст);
КонецПроцедуры


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

           Иначе
                 ОткрытьФорму(ТД);
           КонецЕсли;
     Иначе
           ОткрытьФорму(ТД);
     КонецЕсли;
КонецПроцедуры



Короче в глобальнике применяеться ОткрытьФорму(ТД);

Возможно вот изза этого

Хм. Попробую вечерком. Спасибо. А разве так как у меня не должно работать. Ведь фактически документ то открываеться?

Скачайте завтра ночную сборку и проверьте на своем коде.
Потом сообщите в ветку, ок?

Цитата:


Я просто принимаю как факт:
Если ты заменяешь действие предопределенной процедуры, то ты должен указать одинесине, что ты сам обработаешь. А для этого существует "СтатусВозврата" и "ФлагСтандартнойОбработки"

Нашлась одна неявная фича/баг при использовании перехватчика.
При вызове из класса-перехватчика оригинальных обработчиков глобальника или группового контекста через "ВызватьОригинальноеСобытие..." для обработки значений, передаемых по ссылке, нужно после вызова "ВызватьОригинальноеСобытие..." восстанавливать нужное значение из переданного списка.
Например, я на днях обнаружил, что при перехвате события ГМ "ОбработкаЯчейкиТаблицы" у меня не всегда работала расшифровка.
Т.е. нужно использовать следующий код

Функция СобытиеГМ_ОбработкаЯчейкиТаблицы(Значение, ФлагСтандОбраб, Таблица, Адрес) Экспорт

	// если поставить ФлагСтандОбраб = 1, тогда в большинстве случаев на экран при расшифровке будет выдаваться ненужное предупреждение типа "СписокЗначений"

	Результат = , "{Значение, ФлагСтандОбраб, Таблица, Адрес}", Значение, ФлагСтандОбраб, Таблица, Адрес);
	Если Результат = 1 Тогда
		СписокАргументов = СоздатьОбъект("СписокЗначений");
		СписокАргументов.ДобавитьЗначение(Значение);
		СписокАргументов.ДобавитьЗначение(ФлагСтандОбраб);
		СписокАргументов.ДобавитьЗначение(Таблица);
		СписокАргументов.ДобавитьЗначение(Адрес);
		Результат = ", СписокАргументов);

// !!!!!! вот оно
		ФлагСтандОбраб = СписокАргументов.ПолучитьЗначение(2);
// !!!!!! вот оно

	КонецЕсли;

	Возврат Результат;
КонецФункции
 

Без использования подобной установки ( ФлагСтандОбраб =  СписокАргументов.ПолучитьЗначение(2) ) не будет работать стандартная обработка, например, справочников и документов