Глобальный контекст.ОчиститьСообщения

Очистить учебную панель сообщений, не путая её с журналом регистрации

ОчиститьСообщения убирает сообщения клиентского сеанса, не строки базы и не журнал регистрации. Упражнение выполняется только в новом сеансе отдельной учебной базы.

Подготовка

1. Создайте отдельную учебную внешнюю обработку с пустой управляемой основной формой. Каждую задачу запускайте в своей копии формы.

2. Не добавляйте вручную реквизит ЗначениеПримера, поле ПолеПримера и команду УчебноеДействие: их создаст код.

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

4. Сохраните учебную EPF и откройте через Файл → Открыть в тонком или толстом клиенте Windows. Рабочие данные не читаются и не записываются.

5. Используйте новую пустую учебную базу и отдельную копию EPF для каждой задачи. Команды не должны обращаться к рабочим данным, внешним сервисам или процедурам записи.

6. Основной пример выполняется в тонком/толстом клиенте Windows. Доступность веб-клиента оговаривается отдельно; наличие Асинх в имени не гарантирует веб-доступность.

7. ОБЯЗАТЕЛЬНО новый сеанс отдельной пустой учебной базы. Очистка панели сообщений необратима для её старого содержимого.

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Новые = Новый Массив;
    ТипРеквизита = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
    Новые.Добавить(Новый РеквизитФормы("ЗначениеПримера", ТипРеквизита));
    ЭтаФорма.ИзменитьРеквизиты(Новые);
    ЭтаФорма.ЗначениеПримера = 3;
    Поле = Элементы.Добавить("ПолеПримера", Тип("ПолеФормы"));
    Поле.Вид = ВидПоляФормы.ПолеВвода;
    Поле.ПутьКДанным = "ЗначениеПримера";
    Поле.Заголовок = "Учебное количество";


    КомандаДействия = ЭтаФорма.Команды.Добавить("УчебноеДействие");
    КомандаДействия.Действие = "УчебноеДействие";
    КомандаДействия.Заголовок = "Учебная очистка сообщений";
    КомандаДействия.Подсказка = "Действие только над данными учебной формы";
    КомандаДействия.ИзменяетСохраняемыеДанные = Ложь;
    Кнопка = Элементы.Добавить("КнопкаУчебноеДействие", Тип("КнопкаФормы"));
    Кнопка.ИмяКоманды = КомандаДействия.Имя;
    Кнопка.Заголовок = КомандаДействия.Заголовок;
КонецПроцедуры

&НаКлиенте
Процедура УчебноеДействие(Команда)
    Сообщить("Первое собственное учебное сообщение");
    Сообщить("Второе собственное учебное сообщение");
    ПоказатьПредупреждение(Новый ОписаниеОповещения("ОчиститьУчебнуюПанель", ЭтаФорма),
        "После закрытия будут очищены ВСЕ сообщения этого учебного сеанса.", 0, "Только отдельная учебная база");
КонецПроцедуры

&НаКлиенте
Процедура ОчиститьУчебнуюПанель(ДополнительныеПараметры) Экспорт
    ОчиститьСообщения();
    Сообщить("Старая панель сообщений очищена; это новое собственное сообщение");
КонецПроцедуры

Разбор по шагам

1. Запускайте в новом сеансе собственной пустой базы, где нет нужных чужих диагностических сообщений.

2. Добавляем два собственных сообщения, чтобы результат очистки было видно.

3. После закрытия предупреждения одноаргументный callback очищает ВСЮ панель сеанса.

4. Затем добавляем новое сообщение: оно не удалено предшествующей очисткой.

5. Никаких методов ОчиститьЖурналРегистрации или удаления данных здесь нет.

Как проверить результат

1. До закрытия предупреждения видны два собственных сообщения, после — только новое сообщение об очистке.

2. Собственные документы/справочники не изменились; журнал регистрации не очищался.

Ожидаемый результат

На видимом результате разделены клиентские сообщения и постоянная диагностика базы.

На что обратить внимание

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

2. Не запускайте упражнение в рабочем сеансе: нужные сообщения исчезнут и не восстановятся этой командой.

3. Оповещения пользователя, журнал регистрации и сообщения панели — разные механизмы.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.