&НаКлиенте
Перем ЗакрытиеРазрешено;

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

&НаКлиенте
Процедура ПередЗакрытиемЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт
	
    Если РезультатВопроса = КодВозвратаДиалога.Да Тогда
	ЗакрытиеРазрешено = Истина;
	Закрыть();			
    КонецЕсли;	
	
КонецПроцедуры