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

• 🔲 Установите Модальность = Истина
• 🔲 Задайте Заголовок = "Ввод данных пользователя"

Код обработчика кнопки "Сохранить" может выглядеть так:

Процедура Сохранить(Команда)
Если ИмяПользователя = "" Тогда
Предупреждение("Введите имя пользователя!");
Возврат;
КонецЕсли;

// Сохраняем данные в базу или передаём их дальше
Сообщить("Данные сохранены: " + ИмяПользователя + ", " + Формат(ДатаРождения, "ДФ=dd.MM.yyyy"));

Закрыть();
КонецПроцедуры

Важный нюанс: если вы открываете форму из серверного кода (например, из модуля документа), используйте метод ОткрытьФормуМодально():

Перем Результат;
ОткрытьФормуМодально("ОбщаяФорма.МояФорма", Результат, ЭтотОбъект);

3. Передача параметров в диалог и возвращение результатов

Часто диалоговое окно нужно не просто показать, а передать в него начальные данные и получить результат после закрытия. Для этого в 1С используется механизм параметров формы.

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

1. Объявляем параметры формы в свойствах формы (закладка "Параметры"):

• 👤 ТекущийПользователь (тип "Строка")

2. Добавляем реквизит для возврата результата:

• 📅 ВыбраннаяДата (тип "Дата")

3. Код открытия формы с параметрами:

Перем РезультатФормы;
ПараметрыФормы = Новый Структура("ТекущийПользователь", ПользователиИнформационнойБазы.ТекущийПользователь());
ОткрытьФормуМодально("ОбщаяФорма.МояФорма", РезультатФормы, ЭтотОбъект, ПараметрыФормы);

Если РезультатФормы.ВыбраннаяДата <> Неопределено Тогда
Сообщить("Пользователь " + РезультатФормы.ТекущийПользователь + " выбрал дату: " + РезультатФормы.ВыбраннаяДата);
КонецЕсли;

4. В модуле формы обрабатываем параметры при создании:

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.ТекущийПользователь <> Неопределено Тогда
ИмяПользователя = Параметры.ТекущийПользователь;
КонецЕсли;
КонецПроцедуры

И возвращаем результат при закрытии:

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Результат = Новый Структура("ВыбраннаяДата, ТекущийПользователь", ДатаРождения, ИмяПользователя);
Возврат Результат;
КонецПроцедуры

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

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

Рассмотрим пример формы с динамической логикой:

• 🔘 Чекбокс "Я согласен с условиями"
• 🔒 Кнопка "Продолжить", которая активна только при установленном чекбоксе
• 📋 Поле "Комментарий", которое становится обязательным, если выбрана определённая опция

Код для управления видимостью и доступностью элементов:

Процедура ФлагСогласияПриИзменении(Элемент)
КнопкаПродолжить.Доступность = ФлагСогласия;
КонецПроцедуры

Процедура ТипОперацииПриИзменении(Элемент)
Если ТипОперации = Перечисления.ТипыОпераций.Срочная Тогда
Комментарий.Видимость = Истина;
Комментарий.Обязательное = Истина;
Иначе
Комментарий.Видимость = Ложь;
Комментарий.Обязательное = Ложь;
КонецЕсли;
КонецПроцедуры

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

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

Критическая особенность: в управляемых формах 1С 8.3 все изменения свойств элементов (например, Видимость или Доступность) должны выполняться на клиенте. Если вы попробуете изменить их на сервере, получите ошибку "Операция не разрешена в серверном контексте".

5. Использование внешних обработок для диалогов

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

Алгоритм создания диалога во внешней обработке:

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

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

4. Подключите обработку к основной конфигурации через ВнешниеОбработки.Подключить().

Пример вызова внешней обработки из кода:

ПутьКФайлу = "C:\Dialogs\ParamForm.epf";
Обработка = ВнешниеОбработки.Создать(ПутьКФайлу);
Параметры = Новый Структура("Заголовок, МинимальнаяДата", "Выберите период", ТекущаяДата());
Результат = Обработка.ОткрытьДиалогПараметров(Параметры);

Если Результат <> Неопределено Тогда
Сообщить("Выбрано: " + Результат.НачалоПериода + " - " + Результат.КонецПериода);
КонецЕсли;

6. Распространённые ошибки и их решение

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

Ещё одна распространённая проблема — утечка памяти при частом открытии модальных форм. Чтобы избежать этого:

• 🗑️ Всегда закрывайте формы явно через Закрыть().
• 🔄 Не создавайте формы в циклах без контроля.
• 📉 Используйте ОчиститьЗначение() для больших коллекций данных после работы.

7. Продвинутые техники: асинхронность и интеграция с API

Для сложных сценариев может потребоваться асинхронное взаимодействие с диалогами или интеграция с внешними системами через HTTP-сервисы и REST API.

Пример 1: Асинхронный запрос данных в диалоге

Допустим, при открытии формы нужно загрузить справочник контрагентов из внешней системы. Чтобы не блокировать интерфейс, используем ВыполнитьОбработкуНаСервереБезКонтекста():

Процедура ПриОткрытии(Отказ)
ЗапросДанныхНаСервере();
КонецПроцедуры

Процедура ЗапросДанныхНаСервере()
ВыполнитьОбработкуНаСервереБезКонтекста("ПолучитьКонтрагентовИзAPI", Структура);
КонецПроцедуры

Процедура ПолучитьКонтрагентовИзAPI(Параметры) Экспорт
HTTPСоединение = Новый HTTPСоединение("api.example.com");
Ответ = HTTPСоединение.Получить("/contractors");
// Обработка ответа и обновление формы
ОповеститьОбИзменении("Контрагенты");
КонецПроцедуры

Пример 2: Диалог с ожиданием фонового задания

Если операция занимает много времени (например, формирование большого отчёта), покажите пользователю диалог с прогресс-баром:

Процедура СформироватьОтчетНаСервере()
Прогресс = Новый ПрогрессИндикатор("Формирование отчёта...", 100);

ФоновоеЗадание = ФоновыеЗадания.Выполнить(
"ОбщийМакет.МодульСФормированиемОтчета.СформироватьДанные",
Структура,
Новый ОписаниеОповещения("ПослеФормированияОтчета", ЭтотОбъект)
);

Прогресс.Закрыть();
КонецПроцедуры

Процедура ПослеФормированияОтчета(Результат, ДополнительныеПараметры) Экспорт
Если Результат.Успех Тогда
ОткрытьФормуМодально("ОбщаяФорма.ПросмотрОтчета", Результат.Данные);
Иначе
Предупреждение("Ошибка формирования: " + Результат.ОписаниеОшибки);
КонецЕсли;
КонецПроцедуры

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

Процедура СохранитьИОтправитьУведомление()
// Сохраняем данные
Объект.Записать();

// Формируем сообщение
ТекстСообщения = "Пользователь " + ПользователиИнформационнойБазы.ТекущийПользователь() + "%0A";
ТекстСообщения = ТекстСообщения + "Сохранён документ №" + Объект.Номер + " от " + Объект.Дата;

// Отправляем в Telegram
HTTPЗапрос = Новый HTTPЗапрос("https://api.telegram.org/bot{TOKEN}/sendMessage");
HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/json");
HTTPЗапрос.УстановитьТекст(
JSON.Записать(
Новый Структура(
"chat_id", "{CHAT_ID}",
"text", ТекстСообщения
)
)
);
HTTPСоединение = Новый HTTPСоединение();
Ответ = HTTPСоединение.ПослатьДляОбработки(HTTPЗапрос);
КонецПроцедуры

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

Плохо оптимизированные диалоги могут тормозить работу 1С, особенно в режиме тонкого клиента или веб-клиента. Вот ключевые рекомендации по оптимизации:

1. Минимизируйте данные в формах:

• 📉 Не загружайте в форму все поля объекта — только те, что нужны для диалога.
• 🔄 Используйте Отбор и Порядок при загрузке справочников в выпадающие списки.
• 🗃️ Для больших табличных частей применяйте постраничную загрузку.

2. Оптимизируйте серверные вызовы:

• 🔌 Объединяйте несколько запросов к серверу в один.
• 📡 Используйте ПоместитьВоВременноеХранилище() для передачи больших данных.
• ⚡ Для часто используемых диалогов кэшируйте данные на клиенте.

3. Управляйте обновлениями интерфейса:

• 🔄 Отключайте автоматическое обновление формы (АвтоОбновление = Ложь) при массовых изменениях.
• 🎨 Используйте ПриостановитьОтрисовку() и ВозобновитьОтрисовку() для пакетных операций.

Пример оптимизированного кода для загрузки данных в форму:

Процедура ЗагрузитьДанныеНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 100
|   Номенклатура.Ссылка КАК Ссылка,
|   Номенклатура.Артикул КАК Артикул
|ИЗ
|   Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|   Номенклатура.ПометкаУдаления = ЛОЖЬ
|УПОРЯДОЧИТЬ ПО
|   Артикул";

Результат = Запрос.Выполнить();
Возврат Результат.Выгрузить();
КонецПроцедуры

Процедура ПриОткрытии(Отказ)
Данные = ВыполнитьНаСервере("ЗагрузитьДанныеНаСервере");
ЭлементыФормы.СписокНоменклатуры.Список = Данные;
КонецПроцедуры

Критический совет: если ваш диалог содержит таблицу с более чем 500 строками, обязательно реализуйте ленту прокрутки или постраничный просмотр. В противном случае пользователи с медленным интернетом будут испытывать задержки при открытии формы.

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

Перем ТаймерЗакрытия;

Процедура ПриОткрытии(Отказ)
ТаймерЗакрытия = ЗапуститьОбработкуОжидания("ЗакрытьПоТаймауту", 10000); // 10 секунд
КонецПроцедуры

Процедура ЗакрытьПоТаймауту()
Закрыть();
КонецПроцедуры

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если ТаймерЗакрытия <> Неопределено Тогда
ПрерватьОбработкуОжидания(ТаймерЗакрытия);
КонецЕсли;
КонецПроцедуры

Имя = ВводСтроки("Введите ваше имя:", , "Иван Иванов");
Если Имя <> Неопределено Тогда
Возраст = ВводЧисла("Введите ваш возраст:", 18);
Сообщить("Здравствуйте, " + Имя + "! Вам " + Возраст + " лет.");
КонецЕсли;

Форма
├── ГруппаПанелей (Вкладки)
│   ├── Группа1 (Заголовок = "Основные данные")
│   │   ├── ПолеВвода1
│   │   └── ПолеВвода2
│   └── Группа2 (Заголовок = "Дополнительно")
│       ├── Флажок1
│       └── Таблица1
└── КнопкаСохранить

ЭтотОбъект.ПоложениеОкна = ПоложениеОкна.ЦентрЭкрана;

ЭтотОбъект.ИзменениеРазмера = Ложь;
ЭтотОбъект.Границы = Новый Границы(0, 0, 0, 0);

ЭтотОбъект.МинимальнаяШирина = ЭтотОбъект.Ширина;
ЭтотОбъект.МинимальнаяВысота = ЭтотОбъект.Высота;