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

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

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