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