Процедура ПередЗавершениемРаботыСистемы(Отказ, ТекстПредупреждения)
Результат = СерверныеПроцедуры.ПрочитатьКонстантуПідтвердженняЗакриття();
Если Результат = Истина Тогда
Если Вопрос("Завершити роботу програми?",РежимДиалогаВопрос.ДаНет,,,"Увага",) = КодВозвратаДиалога.Нет Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
_________________________________________________
Создана константа (Булево)
______________________________________________
Общий модуль
Функция ПрочитатьКонстантуПідтвердженняЗакриття() Экспорт
Результат = Константы.ПідтвердженняЗакриття.Получить();
Возврат(Результат);
КонецФункции
______________________________________________
Режим использование модальности - Использовать
Но есть ошыбка.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший