Интересное замечание:

Процедура НазначитьКонтекст(Конт) Экспорт
	рез = Сам(Контекст).ЗаменитьБазовыйОбъект("Документ", Конт);

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

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

Выделенная Попытка-Исключение нужны, чтоб отсечь вылет, если групповой контекст представляет собой не открытую форму документа, а контекст модуля проведения документа
(в этом случае Перехватчик.ПерехватитьСобытияГК() становится плохо).
А есть ли еще какой-нить способ различить эти 2 типа групповых контекстов?

PS я знаю, что у меня есть идеологическая ошибка в использовании перехватчика. Если придет время, когда я всерьез примусь за документы - будет большой рефакторинг классов. ОЧЕНЬ большой.

Используй асинхронный вызов нужного тебе кода, например. через посылку внешнего события или через Таймер (ФормЕкс).
Т.е. если рез = 0, то посылаешь событие с минимальным таймаутом и твой обработчик вызовется уже после отмены проведения.

ЗЫ На всякий случай проверь работу таймаута при групповом перепроведении документов.

artbear писал(а) 17. Февраля 2011 :: 09:35:


Ухххх, блин - тогда при Рез = 0 надо будет сначала выдрать инсертнутые данные, а потом (вместо апдейта) целиком инсертнуть подготовленную строку.

На самом деле, есть еще вариант выполнять запросы отдельным соединением, а таблицу хранить в соседней базе.
Учитывая наличие "заботливо" прикрученного прошлым программистом ТойСКЛ - наверное, даже особо извращаться не придется.
Правда, кажется, в монопольном режиме Той использует родное соединение - но монопольный режим используется крайне-крайне-крайне редко (т.е. практически никогда).


Цитата:

Про информатор не догадался, ага.

А про классы - знаю, да. Там надо хорошенько сесть и продумать структуру классов.
Ибо а) должен быть управляющий класс, который создается как в форме, так и в модуле (в которм всякие алгоритмы проверок заполнения, ввода на основании и ты ды) и в виде

оДок = СоздатьОбъект("ТДокумент.<вид>");
оДок.НазначитьКонтекст(СоздатьОбъект("Документ.<Вид>")); 

который наследует от общего ТДокумент; и б) должен быть класс-перехватчик, который на штатные события (ВводНового(), ВводНаОсновании(), ПриЗаписи()) вызывал бы соответствующие методы управляющего класса. Ну и при этом количество копипастного кода должно быть минимальным.
В целом, оно примерно понятно, как все должно быть. Но в тот момент, когда это писалось, с перехватчиком только начал разбираться... в общем - получилось так, как получилось. Ркуи дойдут - сделаю большой рефакторинг структуры классов.

---

PS с этой багой еще не разбирался? http://www.1cpp.ru/bugs/show_bug.cgi?id=4524

Обнаружен глобальный косяк в функции ВыполнитьОригинальноеСобытиеГК!
Если в оригинальном обработчике возникла ошибка - перехватчик об этом не узнает, а это вызывает зависание при перехвате событий типа "ПриЗакрытии", т.е. невозможно закрыть форму.
Мною предполагалось, что возможен

	Если Рез > 0 Тогда
		Попытка
			Рез = Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтОбъекта, "ПриЗакрытии");
		Исключение
			Сообщить("Ошибка при вызове оригинального события ПриЗакрытии: " + ОписаниеОшибки());
			Рез = 1;
		КонецПопытки;
	КонецЕсли; 

Однако, исключения нет. есть только сообщение: Цитата:

Вопрос: я что-то делаю не так? или это глобальный баг?

Satans Claws писал(а) 17. Февраля 2011 :: 06:47:

Функция Событие_ОбработкаПроведения(КонтДок, ПарамПроведения) Экспорт
	Старт = ЗапросСКЛ.ВыполнитьСкалярный("SELECT convert(Char(23), GetDate(), 126)");

	Рез = Перехватчик.ВыполнитьСобытиеГК(, КонтДок, "ОбработкаПроведения", ПарамПроведения);

	Если Рез = 0 Тогда
		ЗапросСКЛ.Выполнить("Rollback Tran");
	КонецЕсли;

	ЗапросСКЛ.УстановитьТекстовыйПараметр("Документ", КонтДок.ТекущийДокумент());
	ЗапросСКЛ.УстановитьТекстовыйПараметр("Старт", Старт);
	ЗапросСКЛ.УстановитьТекстовыйПараметр("Статус", Рез);
	ЗапросСКЛ.ВыполнитьСкалярный(тзп_ПроведениеКонец);
	Если Рез = 0 Тогда
		ЗапросСКЛ.Выполнить("Commit Tran");
	КонецЕсли;

	глМенеджерСобытийДокументов.ПослатьСобытие(КонтДок, "Запись");

	Возврат Рез;
КонецФункции	// Событие_ОбработкаПроведения
 

Вроде, работает как нужно.
Внимание - вопрос: какие грабли я мог не заметить?

Проведение нового документа проверил - как минимум, не вылетает и обходится без веселых шизофрений (как, например, если открыть в событии ПриЗаписи() транзакцию, внутри тразакции сказать Записать(), а потом сделать откат транзации).
Единственно, что не могу сообразить: как штатно ведет себя 1Ска, если в новом документе нажимаем Провести, а в проведении возникает СтатусВозврата = 0;

У меня документ получается записан, не проведен.
В штатной 1С8 в такой ситуации он остается новым.
В штатных клюшках - ???

Dmitry The Wing писал(а) 29. Августа 2011 :: 08:20:

Ну, все сходится к тому.
Значит, можно выпускать в релиз.

Тоже верно.