Проверено на УПП
Для работы необходимо создать новый регистр сведений - Оповещение
В регистре должно быть следующее
Измерение: - "Пользователи" с типом данных - СправочникСсылка.Пользователи
Ресурсы:
Отправлять - тип булево
Сообщение - тип строка
Прочитан - тип булево
Выведен - тип булево
В модуле обычного приложения :
Процедура ПриНачалеРаботыСистемы() вставляем код
ПодключитьОбработчикОжидания("ОтправкаСообщений",30);
Добавляем процедуру
Процедура ОтправкаСообщений() Экспорт
Запрос=Новый Запрос;
Запрос.Текст="ВЫБРАТЬ
| Оповещение.Пользователь,
| Оповещение.Отправлять,
| Оповещение.Сообщение,
| Оповещение.Прочитан,
| Оповещение.Выведен
|ИЗ
| РегистрСведений.Оповещение КАК Оповещение
|ГДЕ
| Оповещение.Пользователь = &Пользователь";
Запрос.УстановитьПараметр("Пользователь",ПараметрыСеанса.ТекущийПользователь);
Строка=Запрос.Выполнить().Выбрать();
Если Строка.Следующий() тогда
Если Строка.Отправлять и не Строка.Прочитан тогда
Сигнал();
ПоказатьОповещениеПользователя(Строка.Сообщение,,, БиблиотекаКартинок.ИнтернетПоддержкаПользователейПредупреждение);
Если не Строка.Прочитан и не Строка.выведен тогда
МенеджерЗаписи=РегистрыСведений.Оповещение.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Пользователь=ПараметрыСеанса.ТекущийПользователь;
МенеджерЗаписи.Прочитать();
МенеджерЗаписи.выведен=истина;
МенеджерЗаписи.Записать();
Ответ=Вопрос(Строка.Сообщение,РежимДиалогаВопрос.ОК,,,"1С:Предприятие");
Если (Ответ=КодВозвратаДиалога.ОК или Ответ=КодВозвратаДиалога.Отмена) тогда
МенеджерЗаписи=РегистрыСведений.Оповещение.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Пользователь=ПараметрыСеанса.ТекущийПользователь;
МенеджерЗаписи.Прочитать();
Если МенеджерЗаписи.Отправлять тогда
МенеджерЗаписи.Прочитан=Истина;
МенеджерЗаписи.Записать();
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Описание кнопок:
1 - Выбрать все
2 - Отменить выбор
3 - Отмена рассылки
4 - Повтор рассылки
5 - Отключить выбранные сеансы (кроме Конфигуратора, фоновых заданий и пользователя открывшего обработку)
6 - Обновить
7 - открыть регистр сведений Оповещение
В первом случае (вкладка "Сеансы" сообщения отправляются выбранным пользователям, которые сейчас работают в базе
Во втором случае (вкладка "Дополнительно" сообщение отправляется всем пользователям ИБ, даже тем, которые в данный момент не в сети
Вступайте в нашу телеграмм-группу Инфостарт
