Диалоговое окно в 1С
Можно реализовать стандартным способом, что-то типа:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
&НаКлиенте Процедура ВыключитьИнтернет(Команда) Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса",ЭтотОбъект); ПоказатьВопрос(Оповещение, "Вы убеждены что хотите отключить несчастного контрагента?", РежимДиалогаВопрос.ДаНет, 0, // таймаут в секундах КодВозвратаДиалога.нет, // (необ.) кнопка по умолчанию "Хороший вопрос" // (необ.) заголовок ); КонецПроцедуры &НаКлиенте Процедура ПослеЗакрытияВопроса(Результат,Параметры) Экспорт если Результат=КодВозвратаДиалога.Да тогда сообщить("--жаль.."); иначе сообщить(""); конецесли; КонецПроцедуры |