Как запретить закрытие только окна документа, у которого срабатывает событие ПередЗакрытием?

[gulnyr]

Когда в событии ПередЗакрытием добавляю такую строчку код:

Код Выделить Развернуть

Если а>5 Тогда
Отказ=Истина;
КонецЕсли;
то при истине не закрывается не только окно документа, но и сама программа 1С.

Как сделать так, чтобы не закрывалась только окно документа, у которого срабатывает событие ПередЗакрытием? (А саму 1с-ку чтобы смогли закрывать)

[LexaK]

gulnyr, например для упр.форм использую такой код,
проверяйте параметр ЗавершениеРаботы

Код Выделить Развернуть

&НаКлиенте
Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка)

Если ЗавершениеРаботы = Ложь и Модифицированность Тогда
СохранитьФайлЗапросовНаКлиенте();
КонецЕсли;

Оповестить("ЗакрытьФормуКонсолиЗапроса",,ЭтаФорма);

КонецПроцедуры


[gulnyr]

LexaK, а для обычного как сделать? Там нет параметра ЗавершениеРаботы

[Kvark5d]

gulnyr, возможно так сработает
в Модуле обычного приложения (правой кнопкой мыши на заголовок конфигурации)
добавить (внести изменения):

Код Выделить Развернуть

Перем ЗакрытиеПриложения Экспорт;
Процедура ПередЗавершениемРаботыСистемы(Отказ)
    ЗакрытиеПриложения=истина;       
КонецПроцедуры
Процедура ПриЗавершенииРаботыСистемы()
    ЗакрытиеПриложения=ложь;       
КонецПроцедуры
ЗакрытиеПриложения=ложь;
в модуле формы:

Код Выделить Развернуть

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
    Если ЗакрытиеПриложения Тогда
        Отказ=НЕ ЗакрытиеПриложения;
    ИначеЕсли а>5 огда
        Отказ=истина;
    КонецЕсли;
КонецПроцедуры