Имя: Пароль:
1C
1С v8
ПередЗаписью выводом вопроса если нет то Отказ = Истина;
0 Радим1987
 
03.10.17
12:36
передаю в Отказ если не устанавливаю Отказ = Истина . но после выполненея процедуры ПередЗаписьюЗавершение Отказ = ложь. Как можно решить эту проблему, или есть другие варианты?

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

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

    Если Ответ <> КодВозвратаДиалога.Да Тогда
        ДополнительныеПараметры.Отказ = Истина;
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Документ не проведен";
        Сообщение.Сообщить();         
    Иначе
        Возврат;
    КонецЕсли;  
        
КонецПроцедуры
1 Радим1987
 
03.10.17
12:37
Функция Вопрос() не подходит в конфигурации свойство РежимИспользованияМодальности установлен в НеИспользовать,
2 vicof
 
03.10.17
12:38
Потому что ДополнительныеПараметры.Отказ не равно Отказ
3 Радим1987
 
03.10.17
12:39
(2) Не понял
4 Радим1987
 
03.10.17
12:39
ДополнительныеПараметры.Вставить("Отказ",Отказ);
5 Радим1987
 
03.10.17
12:40
в процедуре ПередЗаписьюЗавершение в начале ДополнительныеПараметры.отказ = ложь
6 Радим1987
 
03.10.17
12:42
Все понял именно в теле процедурвы надо установить
7 Радим1987
 
03.10.17
12:42
а есть другие варианты?
8 Филиал-msk
 
03.10.17
12:48
9 Радим1987
 
03.10.17
12:56
(8) Спасибо
10 Радим1987
 
03.10.17
13:00
пришлось свою кнопку добавить
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн