По теме из базы знаний
- Активные пользователи: посмотреть, оповестить, выгнать из базы (updated)
- Отправка сообщений активным пользователям (во время работы)
- Отправка письма активным пользователям кластера сервера 1С
- Обзор полезных методов БСП 3.1.4
- Взаимодействие с сотрудниками и клиентами из одного окна конфигурации 1С (Телеграм, ВКонтакте, Facebook, Discord). Преимущества, технические особенности, подводные камни
Найденные решения
(1)Нашла решение "Напоминание". Создаю запись в регистре сведении НапоминанияПользователя с активными пользователями:
МенеджерЗаписиНапоминания = РегистрыСведений.НапоминанияПользователя.СоздатьМенеджерЗаписи();
МенеджерЗаписиНапоминания.ВремяСобытия = ТекущаяДата() + 10;
МенеджерЗаписиНапоминания.СрокНапоминания = ТекущаяДата() + 10;
МенеджерЗаписиНапоминания.СпособУстановкиВремениНапоминания = Перечисления.СпособыУстановкиВремениНапоминания.ВУказанноеВремя;
МенеджерЗаписиНапоминания.Пользователь = АктивныйПользователь;
МенеджерЗаписиНапоминания.Источник = Стр.Ссылка;
МенеджерЗаписиНапоминания.Описание = "Проверка";
МенеджерЗаписиНапоминания.ИнтервалВремениНапоминания = 5;
Расписание = Неопределено;
//КонецЕсли;
МенеджерЗаписиНапоминания.Расписание = Новый ХранилищеЗначения(Расписание, Новый СжатиеДанных(9));
НаборЗаписей = РегистрыСведений.НапоминанияПользователя.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Пользователь.Установить(МенеджерЗаписиНапоминания.Пользователь);
НаборЗаписей.Отбор.Источник.Установить(МенеджерЗаписиНапоминания.Источник);
НаборЗаписей.Прочитать();
Если НаборЗаписей.Количество() > 0 Тогда
ЗанятоеВремя = НаборЗаписей.Выгрузить(,"ВремяСобытия").ВыгрузитьКолонку("ВремяСобытия");
Пока ЗанятоеВремя.Найти(МенеджерЗаписиНапоминания.ВремяСобытия) <> Неопределено Цикл
МенеджерЗаписиНапоминания.ВремяСобытия = МенеджерЗаписиНапоминания.ВремяСобытия + 1;
КонецЦикла;
КонецЕсли;
МенеджерЗаписиНапоминания.Записать();
ПоказатьПрикрепленные файлы:

Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Дополню.
Сейчас можно через систему взаимодействия, а в 8.3.26 обещают и без нее
https://wonderland.v8.1c.ru/blog/otpravka-uvedomleniy-s-servera-v-klientskoe-prilozhenie/
А так да, пишете в регистр сообщения, в каждом сеансе обработчик ожидания, который периодически проверяет этот регистр.
Если в конфигурации есть БСП, можно использовать ее подсистему уведомлений
Сейчас можно через систему взаимодействия, а в 8.3.26 обещают и без нее
А так да, пишете в регистр сообщения, в каждом сеансе обработчик ожидания, который периодически проверяет этот регистр.
Если в конфигурации есть БСП, можно использовать ее подсистему уведомлений
(1)Нашла решение "Напоминание". Создаю запись в регистре сведении НапоминанияПользователя с активными пользователями:
МенеджерЗаписиНапоминания = РегистрыСведений.НапоминанияПользователя.СоздатьМенеджерЗаписи();
МенеджерЗаписиНапоминания.ВремяСобытия = ТекущаяДата() + 10;
МенеджерЗаписиНапоминания.СрокНапоминания = ТекущаяДата() + 10;
МенеджерЗаписиНапоминания.СпособУстановкиВремениНапоминания = Перечисления.СпособыУстановкиВремениНапоминания.ВУказанноеВремя;
МенеджерЗаписиНапоминания.Пользователь = АктивныйПользователь;
МенеджерЗаписиНапоминания.Источник = Стр.Ссылка;
МенеджерЗаписиНапоминания.Описание = "Проверка";
МенеджерЗаписиНапоминания.ИнтервалВремениНапоминания = 5;
Расписание = Неопределено;
//КонецЕсли;
МенеджерЗаписиНапоминания.Расписание = Новый ХранилищеЗначения(Расписание, Новый СжатиеДанных(9));
НаборЗаписей = РегистрыСведений.НапоминанияПользователя.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Пользователь.Установить(МенеджерЗаписиНапоминания.Пользователь);
НаборЗаписей.Отбор.Источник.Установить(МенеджерЗаписиНапоминания.Источник);
НаборЗаписей.Прочитать();
Если НаборЗаписей.Количество() > 0 Тогда
ЗанятоеВремя = НаборЗаписей.Выгрузить(,"ВремяСобытия").ВыгрузитьКолонку("ВремяСобытия");
Пока ЗанятоеВремя.Найти(МенеджерЗаписиНапоминания.ВремяСобытия) <> Неопределено Цикл
МенеджерЗаписиНапоминания.ВремяСобытия = МенеджерЗаписиНапоминания.ВремяСобытия + 1;
КонецЦикла;
КонецЕсли;
МенеджерЗаписиНапоминания.Записать();
ПоказатьПрикрепленные файлы:

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот