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