Уж не знаю - глюк или нет... мож просто я че не так делаю...
Если в перехваченных процедурах класса - перехватчика установить статус возврата в 0 - то отмена процедуры не происходит

Хочется обломать перехватываемую форму "ПриОткрытии" или "ВводНового" к примеру

ИМХО Можно и просто
КонтФормы.СтатусВозврата(0);

Лады, сделаю спец. метод
Перехватчик.УстановитьСтатусВозвратаГК(КонтФормы, НовыйСтатус)

Кстати и вариант
"ВызватьОригинальноеСобытиеГК(КонтФормы,"СтатусВозврата",СписПарам)"
не всегда прокатывает.
В частности, в процедуре "ПриЗаписи", в случае когда она инициализируется путем закрытия окна с подтверждением записи
Пришлось добавить в формы процедуру

Процедура глСтатусВозврата(Статус)
     СтатусВозврата(Статус);
КонецПроцедуры

и использовать

"ВызватьОригинальноеСобытиеГК(КонтФормы,"глСтатусВозврата",СписПарам)"

artbear писал(а) 21. Февраля 2007 :: 13:29:


В принципе работает, но ситуация в 8 посте также не срабатывает... да и не тема в каждом модуле добавлять процедуру

Проскочило сообщение про реализацию "СтатусВозврата" http://www.1cpp.ru/forum/YaBB.pl?num=1173778761/9#9.
Описалово будет как енто использовать?

То есть вместо "Процедура" ставить "Функция" и возвращать 0 или 1?

Тогда спасибо за доработку

Не верю
Тест давай.
Мои тесты как раз работают с событием "ПриОткрытии"

В классе производится контроль доступа к объектам.
Если доступ полностью не закрыт в процедуру "ПриОткрытии" передается "Предопределенный" параметр - уровень доступа к объекту.
А там уже анализируется для запрета к реквизитам окна

В форме элемента или списка справочника:

// При открытии формы
Процедура ПриОткрытии(УровеньДоступа)
КонецПроцедуры      // ПриОткрытии

В модуле реализации класса

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

artbear писал(а) 22. Марта 2007 :: 12:15:

Еще раз изучи - это стандартное поведение 1С и его никто не менял !!

И еще - как ты устанавливаешь перехват на конкретную форму?
В каком месте?

Система простая:
В каждом модуле определяется переменная "СервисФормы" и создается объект в теле модуля: "СервисФормы"=СоздатьОбъект("СервисФормы")

Идет полная замена строки действия формы, т.е. на кнопках формулы типа СервисФормы.ВыполнитьСтрокуДействияФормы("Записать Закрыть")
Также производится контроль прав пользователей и записывается лог изменений в объектах

В конструкторе

КонтФормы=Сам(Контекст).ПолучитьКонтекстОкружения();
ОбъектПерехватчик=СоздатьОбъект("Перехватчик");
ОбъектПерехватчик.ПерехватитьСобытияГК(КонтФормы,Сам(Контекст));

Ладно, ща нарисую

Chieftain писал(а) 22. Марта 2007 :: 10:11:

Не подтверждаю, все работает.
Форма

Процедура ПриОткрытии(УровеньДоступа)
КонецПроцедуры	// ПриОткрытии
 

Класс

Функция ПриОткрытии() Экспорт
	Сообщить("ПриОткрытии");

	СписПарам			= СоздатьОбъект("СписокЗначений");
	СписПарам.ДобавитьЗначение("ВсеМожно");
	Сам(Контекст).ВызватьОригинальноеСобытиеГК(КонтФормы,"ПриОткрытии",СписПарам);
	Возврат 1;
КонецФункции
 

Все нормально открывается вне зависимости от наличия/присутствия/заполненности метода ПриОткрытии в модуле формы.

Исправил баг.
Будет завтра в ночной сборке.

ЗЫ (0) Вот видишь, как быстро можно решить проблему при наличии теста

Э... рано обрадовался - все равно не каждый раз срабатывает...

При перезапуске 1С то работает, то нет...
Или при открытии элемента справочника несколько раз не отработает, а потом все нормально...

Ладно, буду ждать ночную сборку

Все эти баги исправлены, как я уже сказал.
Жди завтра.

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

Chieftain писал(а) 26. Марта 2007 :: 07:05:

Это событие как раз для этой цели и предназначено.
Фактически это перехват события ПриОткрытии для обычного контекста.

Посмотри в ФормЕксе - там Алексей добавлял какие-то события специально для подобных задач.
А события ФормЕкс перехватчик также ловит

Лады, сделаю перехват типа "СобытиеГМ_ВводНового"

Этого пока не будет, т.к. ни АльФ, ни я пока такой способ не нашли

Еще один баг нашел:
Если из процедуры "ПриНачалеВыбораЗначения" открывать модально форму, на которой есть реквизит для выбора элемента справочника, то перехват не работает.

При проверке обранужил, что объект сразу удаляется, т.е. срабатывает "Конструктор" и сразу "Деструктор"

Если в классе перехватывается событие ""ПослеОткрытия"", то она отрабатывает дважды, если вызывается оригинальное событие




ЗЫ.. что-то я разошелся, проверяя как это все работает

Это в моих интересах - чем проще писать, тем больше времени для отдыха останется 

А где ты пишешь "СобытиеГМ_ПриОткрытии()"

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

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

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



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



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

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

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

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


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

Цитата:

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

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

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

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


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

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



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

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

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

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

Цитата:


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

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

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

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

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

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

	КонецЕсли;

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

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

artbear писал(а) 09. Апреля 2007 :: 05:25:


Это я уже давно заметил, но считал что так и было задумано 

Да, так будет значительно наглядней

Обнаружился еще один баг при использовании Перехватчике.
Но это системный баг, т.к. он связан с примененным механизмом перехвата методов 1С, т.е. я пока даже не представляю как его обойти

Например, если при двойном щелчке на печатной форме в ячейке с расшифровкой работает код по открытию какой-то новой формы (ОткрытьФорму), в этом случае не будет вызван перехват событий 1С.
Это относится ко всем типовым отчетам, в которых есть кнопка Настройка - для формы, открытой путем ее нажатия, перехват не вызываетс я.

Связано это с тем, что при обработке нажатия на ячейку таблицы управление передается перехватчику, который возвращает управление 1С, восстанавливая код перехваченной функции CBLModule7::ExecProc. Эта исходная функция 1С вызывает код 1С по обработке расшифровки, который в свою очередь и вызывает ОткрытьФорму. При открытии формы 1С вызывает указанную функцию CBLModule7::ExecProc, перехват на которую не установлен и получается труба

Жду когда можно будет попробовать...

ЗЫ.. кстати - про "ПриНачалеВыбораЗначения" не смотрел?

artbear писал(а) 12. Апреля 2007 :: 03:07:


Ладно, с этим понятно - попробовал последнюю сборку и все вроде заработало!


А в связи с новыми исследованиями не нашлось места для вызова какого-либо метода после компиляции модуля?

Еще один небольшой баг нарисовался
Цитата:


и был исправлен.

Брать завтра в ночной сборке.

Думаю, в ближайшие дни.
Самому его не хватает .

ЗЫ и такое впечатление, что данное событие вызывается перед ПриОткрытии почти для любых форм, а не только справочников и документов - например, для отчетов и обработок вызывается точно !!