29 июля 2015 г.

1С Вопрос со своими ответами ОП

Как создать вопрос пользователю все знаю, но не каждый читал в СП как создать вопрос со своими кнопками/ответами



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


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




1 комментарий: