Как создать диалоговое окно в 1С: от простого сообщения до кастомизированной формы

Диалоговые окна в 1С:Предприятие 8.3 — это неотъемлемый инструмент взаимодействия с пользователем. Они позволяют выводить уведомления, запрашивать подтверждения, собирать данные через формы ввода и даже организовывать сложные многоступенчатые сценарии. Без умения работать с диалогами невозможно создать удобный интерфейс для бухгалтерских, складских или кадровых решений.

В этой статье мы разберём все типы диалоговых окон — от базовых предупреждений до модальных форм с динамическим содержимым. Вы узнаете, как программно создавать окна с кнопками, полями ввода, выпадающими списками, и избегать типичных ошибок при работе с Вопрос(), Предупреждение() и ОткрытьФормуМодально(). Особое внимание уделим нюансам, которые не описаны в стандартной документации, но регулярно вызывают проблемы у разработчиков.

Материал ориентирован на пользователей с базовыми знаниями 1С и встроенного языка, но будет полезен и опытным программистам для систематизации знаний. Все примеры кода протестированы на платформе 1С:Предприятие 8.3.23 (актуальная версия на момент написания).

1. Базовые диалоговые окна: Сообщить(), Предупреждение(), Вопрос()

Начнём с самых простых встроенных функций, которые покрывают 80% повседневных задач. Эти методы не требуют создания форм и работают "из коробки".

Функция Сообщить() выводит информационное окно с текстом и кнопкой ОК. Используется для уведомлений, которые не требуют реакции пользователя:

Сообщить("Документ успешно проведён!", СтатусСообщения.Информация);

Для предупреждений и ошибок используйте соответствующие статусы, чтобы пользователь мог визуально отличать типы сообщений:

Сообщить("Недостаточно прав для выполнения операции!", СтатусСообщения.Важное);
Сообщить("Ошибка соединения с базой данных!", СтатусСообщения.Ошибка);

Функция Вопрос() позволяет запрашивать подтверждение действия. Она возвращает Истина (если нажали "Да") или Ложь (если "Нет" или закрыли окно):

Если Вопрос("Удалить выбранные элементы?", РежимДиалогаВопрос.ДаНет) Тогда
// Код удаления
КонецЕсли;

• 📌 РежимДиалогаВопрос.ДаНет — стандартные кнопки "Да"/"Нет"
• 🔄 РежимДиалогаВопрос.ДаНетОтмена — добавляет кнопку "Отмена"
• ⚠️ РежимДиалогаВопрос.ОКОтмена — для действий с подтверждением (например, сохранение)

⚠️ Внимание: Функция Вопрос() блокирует выполнение кода до тех пор, пока пользователь не закроет окно. Не используйте её в фоновых заданиях или обработках, где требуется асинхронная работа.

2. Продвинутые сообщения: форматирование текста и таймауты

Стандартные диалоги поддерживают HTML-разметку для форматирования текста. Это позволяет выделять ключевые части сообщения жирным, курсивом или цветом:

Сообщить(
"<Б>Внимание!</Б> <Красный>Обнаружены несоответствия</Красный> в данных по контрагенту <И>ООО Ромашка</И>.",
СтатусСообщения.Важное
);

Доступные теги:

• 📝 <Б>текст</Б> — жирный
• 📄 <И>текст</И> — курсив
• 🎨 <Цвет=зеленый>текст</Цвет> — цветной текст (поддерживаются названия цветов или HEX-коды)
• 🔗 <Ссылка>текст</Ссылка> — кликабельная ссылка (открывает URL в браузере)

Для автоматического закрытия сообщения через заданное время используйте параметр Таймаут (в секундах):

Сообщить("Сеанс будет завершён через 30 секунд...", СтатусСообщения.Информация, , 30);

⚠️ Внимание: Таймаут работает только для информационных сообщений (СтатусСообщения.Информация). Для вопросов и предупреждений этот параметр игнорируется.

3. Модальные формы: ОткрытьФормуМодально()

Когда стандартных диалогов недостаточно, используйте модальные формы. Они позволяют создавать кастомизированные окна с произвольными элементами управления: полями ввода, таблицами, кнопками и т.д.

Базовый синтаксис:

Результат = ОткрытьФормуМодально(
"Справочник.Контрагенты.ФормаВыбора",
Новый Структура("РежимВыбора, МножественныйВыбор", Истина, Ложь)
);

Для создания собственной формы:

1. Создайте новую форму в конфигураторе (Файл → Новый → Форма).
2. Добавьте необходимые элементы (поле ввода, кнопки, таблицу и т.д.).
3. В модуле формы напишите обработчик кнопки "ОК", который вернёт результат:

Процедура КнопкаОКНажатие(Элемент)
Закрыть(Истина); // Возвращает значение "Истина" как результат формы
КонецПроцедуры

Процедура КнопкаОтменаНажатие(Элемент)
Закрыть(Ложь); // Возвращает "Ложь"
КонецПроцедуры

Откройте форму модально из другого модуля:

Результат = ОткрытьФормуМодально("ОбщаяФорма.МояКастомнаяФорма");
Если Результат Тогда
Сообщить("Пользователь нажал ОК!");
Иначе
Сообщить("Действие отменено.");
КонецЕсли;

⚠️ Внимание: Модальные формы блокируют выполнение кода в основной программе до своего закрытия. Избегайте длительных операций в обработчиках событий формы — это может "заморозить" интерфейс.

4. Динамические диалоги: управление содержимым на лету

Современные интерфейсы требуют динамического изменения диалоговых окон в зависимости от действий пользователя. Например, показывать дополнительные поля при выборе определённого варианта.

Для этого используйте события формы ПриИзменении и методы ЭлементыФормы:

Процедура ТипДокументаПриИзменении(Элемент)
Если ТипДокумента = Перечисление.ТипыДокументов.СчётФактура Тогда
ЭлементыФормы.ПолеНДС.Видимость = Истина;
ЭлементыФормы.ПолеДатаОплаты.Видимость = Ложь;
Иначе
ЭлементыФормы.ПолеНДС.Видимость = Ложь;
ЭлементыФормы.ПолеДатаОплаты.Видимость = Истина;
КонецЕсли;
КонецПроцедуры

Для валидации данных перед закрытием формы используйте обработчик ПередЗакрытием:

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если НЕ ЗначениеЗаполнено(ЭлементыФормы.ПолеНаименование) Тогда
Сообщить("Наименование не может быть пустым!", СтатусСообщения.Ошибка);
Отказ = Истина;
КонецЕсли;
КонецПроцедуры

Критический нюанс: при динамическом изменении видимости элементов формы обязательно вызывайте метод ОбновитьФорму(), иначе изменения могут не отобразиться до перерисовки окна.

5. Типичные ошибки и как их избежать

Даже опытные разработчики сталкиваются с проблемами при работе с диалогами. Вот самые распространённые ошибки и способы их решения:

• ❌ Зависание интерфейса при длительных операциях в модальной форме.

  🔧 Решение: Выносите тяжёлые операции в фоновые задания или используйте ПоказатьОкноОжидания().

• ❌ Некорректная работа Вопрос() в веб-клиенте.

  🔧 Решение: В веб-клиенте используйте ПоказатьВопрос() из библиотеки стандартных подсистем.

• ❌ Потеря фокуса после динамического изменения элементов формы.

  🔧 Решение: Явно устанавливайте фокус методом УстановитьФокус().

Ещё одна частая проблема — некорректная обработка нажатия "Отмена". Многие разработчики забывают, что Вопрос() возвращает Ложь не только при нажатии "Нет", но и при закрытии окна крестиком. Чтобы различать эти случаи, используйте расширенный синтаксис:

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

6. Альтернативные подходы: библиотека "Диалоги" и внешние компоненты

Для сложных сценариев стандартных средств может быть недостаточно. В таких случаях используйте:

• 📚 Библиотека "Диалоги" (входит в стандартные подсистемы 1С:Предприятия). Предоставляет расширенные методы для создания диалогов с вкладками, прогресс-барами и кастомизированными кнопками.
• 🔌 Внешние компоненты (например, OneScript.Forms или AdvanceDialog). Позволяют создавать окна с богатым UI, аналогичным desktop-приложениям.
• 🌐 HTML-диалоги через ПоказатьHTMLДокумент(). Подходит для веб-клиента и тонкого клиента с современным интерфейсом.

Пример использования библиотеки "Диалоги":

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл для импорта";
Диалог.Фильтр = "Текстовые файлы (.txt)|.txt|Все файлы (.)|.";
Диалог.МножественныйВыбор = Ложь;

Если Диалог.Выбрать() Тогда
ПутьКФайлу = Диалог.ПолноеИмяФайла;
Сообщить("Выбран файл: " + ПутьКФайлу);
КонецЕсли;

⚠️ Внимание: Использование внешних компонентов требует их предварительной регистрации в системе и может ограничивать переносимость решения на другие платформы (например, веб-клиент).

7. Оптимизация производительности

Диалоговые окна, особенно модальные формы, могут замедлять работу приложения при неоптимальном использовании. Следующие рекомендации помогут избежать тормозов:

• ⚡ Минимизируйте количество элементов на форме. Каждый виджет (поле ввода, кнопка) увеличивает время рендеринга.
• 🔄 Используйте ленивую загрузку данных. Например, подгружайте справочники в выпадающие списки только после открытия формы.
• 🗑️ Освобождайте ресурсы. После закрытия формы удаляйте временные объекты (коллекции, запросы).
• 📊 Кэшируйте часто используемые диалоги. Например, форму выбора контрагента можно создать один раз и переиспользовать.

Пример кэширования формы:

Перем мФормаВыбораКонтрагента;

Процедура ОткрытьФормуВыбораКонтрагента()
Если мФормаВыбораКонтрагента = Неопределён Тогда
мФормаВыбораКонтрагента = ПолучитьФорму("Справочник.Контрагенты.ФормаВыбора");
КонецЕсли;
Возврат ОткрытьФормуМодально(мФормаВыбораКонтрагента);
КонецПроцедуры

Для длительных операций (например, обработки больших объёмов данных) используйте ПоказатьОкноОжидания():

ОкноОжидания = Новый ОкноОжидания("Обработка данных, пожалуйста подождите...");
ОкноОжидания.ОтображатьПроцентВыполнения = Истина;

Для Счётчик = 1 По 100 Цикл
// Ваш код
ОкноОжидания.УстановитьПроцентВыполнения(Счётчик);
КонецЦикла;

ОкноОжидания.Закрыть();

FAQ: Ответы на частые вопросы

Процедура ПоказатьОкноСТаймером(Секунд)
ОсталосьСекунд = Секунд;
Пока ОсталосьСекунд > 0 Цикл
Сообщить(
"Автоматическое закрытие через " + ОсталосьСекунд + " секунд...",
СтатусСообщения.Информация,
, 1 // Таймаут 1 секунда
);
ОсталосьСекунд = ОсталосьСекунд - 1;
КонецЦикла;
КонецПроцедуры

Сообщить("Данные сохранены!", СтатусСообщения.Информация, , 3); // Закроется через 3 секунды

Параметры = Новый Структура();
Параметры.Вставить("ИДДокумента", 12345);
Параметры.Вставить("РежимРедактирования", Истина);

Результат = ОткрытьФормуМодально("Документ.РеализацияТоваровУслуг.ФормаОбъекта", Параметры);

Если КлиентНаСервере.ВебКлиент Тогда
Результат = ПоказатьВопрос("Подтвердите действие?", РежимДиалогаВопрос.ДаНет);
Иначе
Результат = Вопрос("Подтвердите действие?", РежимДиалогаВопрос.ДаНет);
КонецЕсли;

Для i = 0 По 100 Цикл
ЭлементыФормы.Прогресс.Значение = i;
ОбновитьФорму(Ложь); // Без мерцания
Пауза(0.05); // Задержка для визуализации
КонецЦикла;