8.х УТ При выходе хоть бы спросили нужно ли выйти

Здравствуйте, уважаемые!

Подскажите, пожалуйста, что сделать чтобы при нажатии на закрытие главного окна системы программа спрашивала "Вы действительно хотите выйти из программы?" А то пользователь говорит нажму случайно и все закрывается не спрашивая...

найти модуль приложения и процедуру призавершенииработы() - как-то так называется. точно не помню.

Заходим в модуль управляемого приложения. Находим там процедуру:

Код:

Процедура ПередЗавершениемРаботыСистемы(Отказ)

//РаботаСВнешнимОборудованием
МенеджерОборудованияКлиент.ПередЗавершениемРаботыСистемы();
//Конец РаботаСВнешнимОборудованием

Если глКомпонентаОбменаСМобильнымиПриложениями <> Неопределено Тогда
Попытка
глКомпонентаОбменаСМобильнымиПриложениями.Отключить(0);
Исключение
ИмяСобытия = НСтр("ru='Ошибка при отключении компоненты обмена данными'");
ОбщегоНазначения.ВыполнитьЗаписьВЖурналРегистрации(ИмяСобытия, "Ошибка",,ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;

глКомпонентаОбменаСМобильнымиПриложениями = Неопределено;
КонецЕсли;

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

И пишем в ней типа того:

Код:

Ответ = Вопрос("Завершить работу с программой?", РежимДиалогаВопрос.ДаНет);
Отказ = (Ответ = КодВозвратаДиалога.Нет);

Если НЕ Отказ Тогда

// тут чёнить делаем перед закрытием , если нужно! Ну или вообще без этого условия. Главное чёб это было - Отказ = (Ответ = КодВозвратаДиалога.Нет);

КонецЕсли;

И получаем рабочий вариант:

Код:

// Burbon ->
Процедура ПередЗавершениемРаботыСистемы(Отказ)

//РаботаСВнешнимОборудованием
МенеджерОборудованияКлиент.ПередЗавершениемРаботыСистемы();
//Конец РаботаСВнешнимОборудованием

// Burbon ->
Ответ = Вопрос("Завершить работу с программой?", РежимДиалогаВопрос.ДаНет);
Отказ = (Ответ = КодВозвратаДиалога.Нет);

Если НЕ Отказ Тогда

Если глКомпонентаОбменаСМобильнымиПриложениями <> Неопределено Тогда
Попытка
глКомпонентаОбменаСМобильнымиПриложениями.Отключить(0);
Исключение
ИмяСобытия = НСтр("ru='Ошибка при отключении компоненты обмена данными'");
ОбщегоНазначения.ВыполнитьЗаписьВЖурналРегистрации(ИмяСобытия, "Ошибка",,ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;

глКомпонентаОбменаСМобильнымиПриложениями = Неопределено;
КонецЕсли;
КонецЕсли;

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

Вот где искать!