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