В место такого кода

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

&НаКлиенте
Процедура ОбработатьОтвет(РезультатВопроса, ДополнительныеПараметры) Экспорт
    
    Если РезультатВопроса <> КодВозвратаДиалога.Нет Тогда
        ЗавершитьРаботуСистемы(Ложь);
        Закрыть();
    КонецЕсли;
    

КонецПроцедуры


Писать более простой

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