Cерверные вызовы при завершении работы запрещены 1с

У меня есть модуль управляемого приложение :

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

_________________________________________________
Создана константа (Булево)
______________________________________________
Общий модуль

Функция ПрочитатьКонстантуПідтвердженняЗакриття() Экспорт
    Результат = Константы.ПідтвердженняЗакриття.Получить();
    Возврат(Результат);
КонецФункции
______________________________________________
Режим использование модальности - Использовать
Но есть ошыбка.