Не модальные версии диалогов
Не модальный диалог вопроса с заголовком и кнопками в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
&НаКлиенте Процедура ДиалогСВопросом() Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса", ЭтотОбъект); ПоказатьВопрос(Оповещение, "Закрыть окно редактирования?", РежимДиалогаВопрос.ДаНетОтмена, 0, // таймаут в секундах КодВозвратаДиалога.Да, // (необ.) кнопка по умолчанию "Я выбираю это" // (необ.) заголовок ); КонецПроцедуры &НаКлиенте Процедура ПослеЗакрытияВопроса(Результат, Параметры) Экспорт Если Результат = КодВозвратаДиалога.Да Тогда Сообщить("Закрываю"); КонецЕсли; КонецПроцедуры |
Не модальное предупреждение в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
&НаКлиенте Процедура ПредупреждениеПользователю() Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияПредупреждение", ЭтотОбъект); ПоказатьПредупреждение( Оповещение, "Что то пошло не так", // предупреждение 0, // (необ.) таймаут в секундах "Платформа должна предупредить" // (необ.) заголовок ); КонецПроцедуры &НаКлиенте Процедура ПослеЗакрытияПредупреждение(Параметры) Экспорт КонецПроцедуры |
Не модально открыть значение, для интерактивной работы с ним в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 |
&НаКлиенте Процедура ПоказЗначенияДляИнтерактивнойРаботыСНим() Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияЗначения", ЭтотОбъект); ПоказатьЗначение(Оповещение, 45.87); КонецПроцедуры &НаКлиенте Процедура ПослеЗакрытияЗначения(Параметры) Экспорт КонецПроцедуры |
Не модально ввести дату от пользователя в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
&НаКлиенте Процедура КакИнтерактивноВвестиДатуОтПользователя() Оповещение = Новый ОписаниеОповещения("ПослеВводыДаты", ЭтотОбъект); ПоказатьВводДаты( Оповещение, , // пропускаем начальное значение даты "Введите дату регистрации", ЧастиДаты.Дата ); КонецПроцедуры &НаКлиенте Процедура ПослеВводыДаты(Дата, Параметры) Экспорт Если Не Дата = Неопределено Тогда Сообщить("Регистрация проведена " + Дата); КонецЕсли; КонецПроцедуры |
Не модально ввести значение определенного типа от пользователя в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
&НаКлиенте Процедура КакИнтерактивноВвестиЗначениеОпределенногоТипа() Оповещение = Новый ОписаниеОповещения("ПослеВводаЗначения", ЭтотОбъект); ПоказатьВводЗначения( Оповещение, , // пропускаем начальное значение "Введите значение", "Число" ); КонецПроцедуры &НаКлиенте Процедура ПослеВводаЗначения(Результат, Параметры) Экспорт Если Не Результат = Неопределено Тогда Сообщить(Результат); КонецЕсли; КонецПроцедуры |
Не модально ввести строку от пользователя в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
&НаКлиенте Процедура КакНемодальноВвестиСтроку() Оповещение = Новый ОписаниеОповещения("ПослеВводаСтроки", ЭтотОбъект); ПоказатьВводСтроки( Оповещение, , // пропускаем начальное значение "Введите строку", 0, // (необ.) длина Истина // (необ.) многострочность ); КонецПроцедуры &НаКлиенте Процедура ПослеВводаСтроки(Результат, Параметры) Экспорт Если Не Результат = Неопределено Тогда Сообщить(Результат); КонецЕсли; КонецПроцедуры |
Не модально ввести число определенного типа от пользователя в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
&НаКлиенте Процедура КакНемодальноВвестиЧислоОпределенногоТипа() Оповещение = Новый ОписаниеОповещения("ПослеВводаЧисла", ЭтотОбъект); ПоказатьВводЧисла( Оповещение, , // пропускаем начальное значение "Введите число", 3, // длина числа, включая дробную часть без разделителя 1 // длина дробной части ); КонецПроцедуры &НаКлиенте Процедура ПослеВводаЧисла(Результат, Параметры) Экспорт Если Не Результат = Неопределено Тогда Сообщить(Результат); КонецЕсли; КонецПроцедуры |
Модальные версии диалогов
Модальный диалог вопроса с заголовком и кнопками в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 |
Ответ = Вопрос("Закрыть окно редактирования?", РежимДиалогаВопрос.ДаНетОтмена, 0, // таймаут в секундах КодВозвратаДиалога.Да, // (необ.) кнопка по умолчанию "Я выбираю это" // (необ.) заголовок ); Если Ответ = КодВозвратаДиалога.Да Тогда Сообщить("Закрываю"); КонецЕсли; |
Обработка прерывания операции от пользователя (нажатие Break)
|
1 2 3 4 5 |
Пока Истина Цикл // если пользователь нажал break, чтобы прервать выполнение кода // прервется не только цикл, но и весь поток кода ОбработкаПрерыванияПользователя(); КонецЦикла; |
Вывод модального предупреждения пользователю в 1с 8.3, 8.2
|
1 2 3 4 5 |
Предупреждение( "Что то пошло не так", // предупреждение 0, // (необ.) таймаут в секундах "Платформа должна предупредить" // (необ.) заголовок ); |
Открыть значение модально для интерактивной работы с ним в 1с 8
|
1 2 3 |
ОткрытьЗначение(48.87); // откроет элемент справочника с кодом 8 ОткрытьЗначение(Справочники.Номенклатура.НайтиПоКоду("8")); |
Очистить служебные сообщения и вывести предупреждающий сигнал
|
1 2 3 4 5 6 7 |
Для Индекс = 1 По 100 Цикл Сообщить(Индекс); КонецЦикла; Предупреждение("Удаляем все сообщения", 5); ОчиститьСообщения(); Сигнал(); |
Указать статус сообщения при выводе в 1с 8.3, 8.2
|
1 2 3 4 |
Сообщить( "Это очень важно!", СтатусСообщения.ОченьВажное //по умолчанию статус Обычное ); |
Модально ввести дату от пользователя в 1с 8.3, 8.2
|
1 2 3 4 5 |
Если ВвестиДату(Дата, "Введите дату регистрации", ЧастиДаты.Дата) = Истина Тогда Сообщить("Регистрация проведена " + Дата); КонецЕсли; |
Модально ввести значение определенного типа от пользователя в 1С 8.3, 8.2
|
1 2 3 |
Если ВвестиЗначение(Ч, "Введите значение", "Число") Тогда Сообщить(Ч); КонецЕсли; |
Модально ввести строку от пользователя в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 |
Если ВвестиСтроку( Стр, "Введите строку", 0, // (необ.) длина Истина // (необ.) многострочность ) Тогда Сообщить(Стр); КонецЕсли; |
Модально ввести число определенного типа от пользователя в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 |
Если ВвестиЧисло( Ч, "Введите число", 4, // длина числа, включая дробную часть без разделителя 2 // длина дробной части ) Тогда Сообщить(Ч); КонецЕсли; |