Вывод диалогового окна перед закрытием, если документ не проведён

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