Как задать вопрос пользователю перед выполнением кода?

Материал из largespace
Перейти к навигации Перейти к поиску

Вопрос:

Как задать вопрос пользователю программно перед выполнением кода, например когда нужно предупредить о наличии данных перед очисткой и заполнением?

Ответ:

Чтобы задать вопрос программно, используется механизм ОписаниеОповещений.

Для формирования вопроса необходимо добавить кнопку и определить у нее команду. Затем заполнить по примеру ниже:

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

&НаКлиенте 
Процедура МояКнопкаЗавершение(Результат, ДополнительныеПараметры) Экспорт 
    Если Результат = КодВозвратаДиалога.Да Тогда 
        ДальнейшееДействие(); 
    КонецЕсли; 
КонецПроцедуры

Такой метод формирования вопроса не блокирует интерфейс пользователя, код после выполнения процедуры "ПоказатьВопрос" продолжает выполняться дальше, если необходимо. После нажатия на кнопку управление перейдет к процедуре "МояКнопкаЗавершение", где в поле "Результат" будет указан ответ пользователя.