Отправка сообщений пользователям

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

Нашел более подходящее //infostart.ru/public/74444/. Но пришлось немного попотеть что-бы работало на 8.2.

Итак приступим:

В модуле обычного приложения в процеду ПриНачалеРаботыСистемы добавляем текст

Форма = Обработки.ОповещенияПользователя.ПолучитьФорму(«Форма»);
Форма.Открыть();

2. Создаем ОбщийМодуль под названием «опМодуль» в модуле вставляем текст

Функция ВывестиОповещение(ИмяОтчета);
ИмяФайла = ПолучитьИмяВременногоФайла();
Отчет = Справочники.ВнешниеОбработки.НайтиПоНаименованию(ИмяОтчета);
ДвоичныеДанные = Отчет.ХранилищеВнешнейОбработки.Получить();
ДвоичныеДанные.Записать(ИмяФайла);
опФорма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);
опФорма.Открыть();
УдалитьФайлы(ИмяФайла);
КонецФункции

Процедура ПроверкаНовыхОповещений() Экспорт

ОтборПользователей = Новый Структура(«Пользователь»);
ОтборПользователей.Пользователь = ПараметрыСеанса.ТекущийПользователь;
Оповещения = РегистрыСведений.ОповещениеПользователей.Выбрать(ОтборПользователей);
КолОп = 0;
Пока Оповещения.Следующий() Цикл
Если Оповещения.Просмотрено Тогда
Продолжить;
КонецЕсли;
КолОп = КолОп + 1;
КонецЦикла;
Если (КолОп>0) Тогда
ВывестиОповещение(«Оповещения пользователя»);
КонецЕсли;
КонецПроцедуры

Процедура ЗадатьИнтервал(Интервал) Экспорт
ПодключитьОбработчикОжидания(«ПроверкаНовыхОповещений»,Интервал,5);
КонецПроцедуры

Процедура ОчиститьИнтервал() Экспорт
ОтключитьОбработчикОжидания(«ПроверкаНовыхОповещений»);
КонецПроцедуры

3. Создаем регистр сведений «ОповещениеПользователей». Добавляем измерения: «Пользователь» Тип:»СправочникСсылка.Пользователи», «Дата» Тип:»Дата», «Владелец» Тип:»СправочникСсылка.Пользователи», Ресурсы: «Просмотрено» Тип: «Булево», «Оповещение» Тип: «Строка»

4. Добавляем в конфигурацию Обработки из файла и пользуемся.

Принцип Работы:

При запуске 1с справой стороны в трее открыто оповещение пользователей. Открываем обработку Оповестить, пишим текст сообщения и отметив получателей отправляем сообщение.

Когда сообщение приходит получателю, то форма оповещени появляется с правой стороны. Что бы сообщение считалось прочитаным, его необходимо открыть двойным щелчком правой клавиши мыши и оно откроется в новом окне как показао на третем изображении. В дальнейшем эти сообщения можно будет просматривать во вкладке «Просмотреные»

PS Так же в архиве добавлен отчет для просмотра ознакомления с сообщением пользователей(спасибо за шаблон отчета //infostart.ru/public/20333/)

53 Comments

mtv:) 14.01.2012 at 18:14

(0) Идея заслуживает внимания.

Reply ↓
kojinandrej 15.01.2012 at 12:38

(1) Спасибо

Reply ↓
_LEV_ 16.01.2012 at 09:50

Нужно будет посмотреть. Спасибо.

Reply ↓
kojinandrej 16.01.2012 at 11:07

(3) _LEV_, не зачто пользуйтесь и не забудьте плюсовать

Reply ↓
fomix 17.01.2012 at 09:28

Ломать ради оповещения типовую конфу — О-Д-Н-А-К-О!!!

Reply ↓
kojinandrej 17.01.2012 at 10:55

(5) fomix, а у тебя есть другие варианты???

Reply ↓
fomix 17.01.2012 at 10:57

(6) Да хотя бы через стандартный механизм оповещений

Reply ↓
kojinandrej 17.01.2012 at 13:22

(7) fomix, пользуйся стандартом, если не хочишь пилять. Я выложил для тех, кого стандарт не устраивает!!!!

Reply ↓
fomix 17.01.2012 at 13:24

(8) Так я не против )))

Reply ↓
105raz 18.01.2012 at 06:29

У кого замочек на конфе снят — конечно полезно. Меня, например, заколебало уже обзванивать пользователей с просьбой выйти из базы!

Reply ↓
ADM1NZ 18.01.2012 at 16:24

Спасибо! Полезно

Reply ↓
bahcha8 19.01.2012 at 09:13

Попробовала в УПП, работает хорошо, но если в списке Новые есть уже оповещение — то следующее новое пользователь не получает — никогда не получает.А так оч удобно

Reply ↓
SergDi 19.01.2012 at 12:01

8.2 я правильно понял, управляемые формы тоже поддерживаются?

Reply ↓
bahcha8 19.01.2012 at 12:10

8.2, управляемые формы поддерживаются, работаем в толстом клиенте

Reply ↓
bahcha8 19.01.2012 at 12:27

Да, и время отправки всегда 00:00:00 — не удобно

Reply ↓
kojinandrej 19.01.2012 at 13:29

Так, при получении показывает время отправления сообщения

Reply ↓
Aleksey-29 19.01.2012 at 13:59

можно и так, только использовать типовое решение правильнее.

Прикрути шаблоны оповещений, будет удобнее.

Reply ↓
bahcha8 19.01.2012 at 14:46

так время отправление всегда разное, а показывает всегда нули

Reply ↓
kojinandrej 19.01.2012 at 18:21

(18) bahcha8, не знаю как у тебя у меня показывает нормальное время не нули. проверял через какую либо консоль дата и время в регистр записуется?

Reply ↓
MOHAX1905 20.01.2012 at 13:54

Конфа всёравно правленная, поэтому воспользуюсь. Спасибо)

Reply ↓
Гость 20.01.2012 at 14:32

Спасибо. пригодится

Reply ↓
Volga1904 24.01.2012 at 19:43

нужная вещь

Reply ↓
Zoba 25.01.2012 at 00:45

Спасибо. Пригодится.

Reply ↓
white125 25.01.2012 at 02:09

не знаю насколько целесообразно отправлять пользователям сообщения именно через 1с

Reply ↓
white125 25.01.2012 at 02:10

а шаблоны сообщений можно добавить?

Reply ↓
liveAp4u 25.01.2012 at 13:49

Обработка понравилась.

Есть ряд минусов:

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

2. Соответсвенно у пользователя та же проблема, что в пункте 1.

Можно как-то решить?

Reply ↓
rumik007 25.01.2012 at 14:32

мы у себя используем IChat v1.21 b6 + сервер(хотя мона и без него) для локальной сети уже очень давно, очень довольны.

Есть вопросик, если пользователь не в базе, то как с ним связаться ???

Reply ↓
asg1975 01.02.2012 at 09:58

На мой взгляд проще использовать для этого сторонние программы. Тот же IChat. Саму идею плюсую!

Reply ↓
yalo 01.02.2012 at 10:26

Надо попробовать

Reply ↓
Uncore 07.02.2012 at 17:37

(18) проверьте у измерения Дата в регистре сведений должен стоять состав даты: Дата и время. По умолчанию ставится просто Дата, поэтому и нули во времени.

По поводу проблемы, описанной в (26), предлагаю автору добавить в регистр еще одно измерение НомерСообщения. При записи нового сообщения если уже существует для данного пользователя сообщение, увеличивать номер на 1. И тогда можно отправлять пользователям сколько угодно сообщений, ничего не пропадет 🙂

Reply ↓
itar59 07.02.2012 at 18:35

обычный лив мессенджер прекрасно держит под 7 виндой.

Reply ↓
bahcha8 07.02.2012 at 21:24

(30) Uncore, Про дату — Да, я уже поправила, а вот НомерСообщение — попробую, Спасибо

Reply ↓
commo 10.02.2012 at 14:27

Спасибо. Буду пугать пользователей )

Reply ↓
dryms 04.06.2012 at 15:01

Здравствуйте. обработка, конечно интересная, но зачем так ломать типовую конфу. Можно сделать внешнюю обработку, которая рассылает письма пользователям (в справочнике пользователи можно указать е-майл).

Reply ↓
alma-soft 04.06.2012 at 16:38

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

Reply ↓
SPonomareff 08.06.2012 at 11:37

День добрый.

У меня вопрос по поводу следующей ошибки:

{Обработка.ОповещенияПользователя.Форма.Форма.Форма(6)}: Ошибка при вызове метода контекста (Выбрать)

Оповещения = РегистрыСведений.ОповещениеПользователей.Выбрать(ОтборПользователей);

Что делать?

Reply ↓
Al-77 27.06.2012 at 17:27

Я так понимаю если пользователь закроет форму тогда он не увидит сообщение?

Reply ↓
slelvi 27.06.2012 at 23:05

Как раз нужно подобное реализовать у клиента! возьму идею на заметочку!!!

Reply ↓
Altair777 02.07.2012 at 13:33

Интересно, кто автор этой разработки? Складывается впечатление что не автор публикации.

Ни одного пожелания за полгода не было выполнено. И описание не вполне соответствует действительности.

В частности, измерение «Дата» регистра сведений «ОповещениеПользователей» должен быть не просто «Дата», а «Дата и время».

Reply ↓

Altair777 05.07.2012 at 14:39

Автор! Я тащусь с кода 🙂

 КолОп = 0;
Пока Оповещения.Следующий() Цикл
Если Оповещения.Просмотрено Тогда
Продолжить;
КонецЕсли;
КолОп = КолОп + 1;
КонецЦикла;
Если (КолОп>0) Тогда
ВывестиОповещение(«Оповещения пользователя»);
КонецЕсли;

Показать

Найдите 10 отличий:

 ЕстьОповещение = Ложь;
Пока Оповещения.Следующий() Цикл
Если Не Оповещения.Просмотрено Тогда
ЕстьОповещение = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если ЕстьОповещение Тогда
ВывестиОповещение(«Оповещения пользователя»);
КонецЕсли;

Показать

Reply ↓

Altair777 05.07.2012 at 15:11
0 > Создаем регистр сведений «ОповещениеПользователей». Добавляем измерения: «Пользователь» Тип:»СправочникСсылка.Пользователи»

Автор не знает что для того чтобы сработал метод:
```
 ОтборПользователей = Новый Структура(«Пользователь»);
ОтборПользователей.Пользователь = ПараметрыСеанса.ТекущийПользователь;
Оповещения = РегистрыСведений.ОповещениеПользователей.Выбрать(ОтборПользователей);
```
должно быть так: в качестве полей для отбора могут задаваться измерения или реквизиты, для которых в конфигураторе признак индексирования установлен в значение «Индексировать» или установлен признак «Ведущее».

Reply ↓
Dr.DragoN 05.07.2012 at 15:18

А корпоративная почта нынче не почёте?)))

Reply ↓
Altair777 05.07.2012 at 15:49

(43) Dr.DragoN, почта — это долго и не факт что будет прочитана. Ведь 1С может быть открыта в терминале, а почтовая программа на локальном компе. И у юзеров будет отмазка.

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

И сообщения хочу принципиально выводить в 1С. Если пользоватль увидел сообщение и не отреагировал — это его проблемы.

А если не увидел, значит он в этот момент не работал в базе и, опять же, это его проблемы 🙂

Reply ↓
k352 10.09.2012 at 13:32

Вообще то хотелось бы не просто рассылать сообщения, а и закрывать корректно сеансы в 1С.

Reply ↓
k352 12.12.2012 at 11:23

Так есть механизм закрытия сеансов?

Reply ↓
kojinandrej 12.12.2012 at 12:00

http://infostart.ru/public/65484/ рекомендую

Reply ↓
Tom1 24.03.2013 at 14:01

Проще для этих целей было бы использовать net send.

Reply ↓
luchyk007 30.04.2013 at 08:14

Спасибо, оценим Вашу обработку.

Reply ↓
Vovus 21.08.2013 at 12:10

А где <<?>>опМодуль.ОчиститьИнтервал();

{Форма.Форма.Форма(74,2)}: Переменная не определена (опМодуль)

<<?>>опМодуль.ЗадатьИнтервал(600);

{Форма.Форма.Форма(79,2)}: Переменная не определена (опМодуль)

<<?>>опМодуль.ЗадатьИнтервал(1200);

Reply ↓
nail_90 13.09.2013 at 13:04

Добрый день! При отправлении массового сообщения сервер нагружается на 100 процентов пока большая часть пользователей не прочитает новое сообщение, как можно от этого избавиться ?

Reply ↓
kojinandrej 25.09.2013 at 13:39

Надо время от времени чистить регистр, тогда не будет грузить

Reply ↓
rom-x 15.11.2013 at 09:40

Есть ли какое-нибудь решение для РИБ ? я так понимаю данное не будет работать, просто у нас в справочнике пользователей 1044 записи, я думаю система нехило подвиснет.

Reply ↓
yurets86 25.11.2013 at 15:59

можно попробывать снизить нагрузку на сервер путем чистки кеша, сделать обработку которая через 1 минуту после отправки сообщение -> очистит кеш базы, имхо, может помочь

Reply ↓

Отправка сообщений пользователям

Related Posts

53 Comments

Leave a Comment Отменить ответ