ПередЗаписью выводом вопроса если нет то Отказ = Истина;

передаю в Отказ если не устанавливаю Отказ = Истина . но после выполненея процедуры ПередЗаписьюЗавершение Отказ = ложь. Как можно решить эту проблему, или есть другие варианты?



&НаКлиенте

Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)

    

    Если ПараметрыЗаписи.РежимЗаписи = РежимЗаписиДокумента.Проведение Тогда

        ДополнительныеПараметры = Новый Структура;     

        ДополнительныеПараметры.Вставить("Отказ",Отказ);

        ТекстВопроса = НСтр("ru = 'Вы действительно провести документ? После проведения документ будет недоступен для редактирования'") + Символы.ПС + НСтр("ru = 'Продолжить?'"); 

        Оповещение = Новый ОписаниеОповещения("ПередЗаписьюЗавершение", ЭтотОбъект, ДополнительныеПараметры);

        ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);          

    КонецЕсли; 

    

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



&НаКлиенте

Процедура ПередЗаписьюЗавершение(Ответ, ДополнительныеПараметры) Экспорт 



    Если Ответ <> КодВозвратаДиалога.Да Тогда 

        ДополнительныеПараметры.Отказ = Истина;

        Сообщение = Новый СообщениеПользователю;

        Сообщение.Текст = "Документ не проведен";

        Сообщение.Сообщить();         

    Иначе

        Возврат;

    КонецЕсли;   

        

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