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