Автоматическое оповещение пользователей при проведении документа Поступление товаров, с возможностью дублировать сообщения другому сотруднику

26.02.18

Задачи пользователя - Адаптация типовых решений

Данная разработка автоматически оповещает пользователя о поступлении товара по заказу клиента. Схема работы : Заказ клиента > Заказ поставщику > Поступление товаров. Оповещается пользователь, который создавал заказ клиента (менеджер). Оповещение выводится на экран и ждет подтверждения о прочтении. После подтверждения - фиксируется время прочтения оповещения. Есть возможность просматривать все сообщения по пользователю за любой период. Есть возможность дублировать сообщение другим пользователям. Например, если менеджер в отпуске, и его заменяет другой менеджер, и оповещения будут отправляться второму (третьему и т.д.).

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Автоматическое оповещение пользователей при проведении документа поступление товаров, с возможностью дублировать сообщения другому сотруднику.:
.cf 373,55Kb
48
48 Скачать (1 SM) Купить за 1 850 руб.

Принцип работы: При проведении документа Поступление товаров по заказу поставщику, который создан на основании заказа клиента - делается запись в регистр. Записывается сообщение о поступлении товара для пользователя, который ответственный за заказ клиента. Каждые 10 минут срабатывает обработчик ожидания, проверяет, есть ли неотправленные сообщения, и отправляет их пользователю. Весь механизм можно отключить, это делается перед групповым перепроведением или при закрытии месяца, чтобы на пользователя не сыпались сообщения. Время проверки сообщений можно уменьшить (например, каждую минуту) или увеличить (например, один раз в день).

Описание:

1. Создан справочник: ОП_ДублированиеОповещенийПользователям

Пользователь = Спр Пользователи 

ДублироватьОповещения = Булево

2. Создан Регистр Сведений :

Документ Событие - Любой документ , при проведении которого делается запись в регистр (У меня поступление товаров)

Дополнительный Документ - Любой документ, при необходимости (У меня Заказ клиента)

Справочник Событие - Любой справочник (на всякий случай, можно этот механизм реализовать например при записи элемента справочника, только код доработать) 

Пользователь - Тут  все понятно

Оповещение выполнено - булево

Дата Доставки Оповещения - ДатаиВремя

Текст - то что будете выводить пользователю

 

3. Создана константа, которая включает механизм оповещения. Если константа - ложь, запись в регистр не делается.

4. Созданы две подписки на событие: При проведении документа поступление делается запись в регистр, а при удалении проведения - запись удаляется

5. Созданы 3 общих модуля. См скрины и код

5.1

Процедура ОП_ОповещениеПользователей() Экспорт    
    ОП_ОповещениеПользователейКлиент.ОП_ОповещениеПользователейКлиент()
КонецПроцедуры

 

5.2 

Процедура ОП_ОповещениеПользователейКлиент() Экспорт
        Пользователь = "";    
        ТекстСообщения = ""; //Если документов будет несколько текст будет общий для всех документов
        ДокументСобытие = Новый Массив;   //Если документов будет несколько создадим массив, для корректоного формирования записи в регистр
   ОП_ОповещениеПользователейСервер.СформироватьСообщение(ТекстСообщения,ДокументСобытие,Пользователь);     
        Параметры = Новый Структура;
        Параметры.Вставить("Пользователь",Пользователь);
        Параметры.Вставить("ДокументСобытие",ДокументСобытие);        
        Если  ТекстСообщения<>"" Тогда
            Оповещение = Новый ОписаниеОповещения("СделатьЗаписьВРегистр",ОП_ОповещениеПользователейКлиент,Параметры);
            ПоказатьВопрос(Оповещение,ТекстСообщения,РежимДиалогаВопрос.ОК);
        КонецЕсли;
КонецПроцедуры



Процедура  СделатьЗаписьВРегистр(Результат, ДополнительныеПараметры) Экспорт       
 ОП_ОповещениеПользователейСервер.СделатьЗаписьВРегистрОТомЧтоОповещениеПолучено(ДополнительныеПараметры);             
КонецПроцедуры

 

5.3

Процедура ОП_ОповещениеПользователейОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
  ИспользоватьОповещение = Константы.ОП_ОповещениеПользователей.Получить();    
    Если ИспользоватьОповещение Тогда    
        ЗаказКлиента = Источник.Ссылка.ЗаказПоставщику.ДокументОснование;
        //сообщения в регистр должны записываться только если поступление формируется на основании заказа поставщику, 
        //а заказ поставщику  формируется по заказу клиента.
        Если ЗначениеЗаполнено(ЗаказКлиента) Тогда
            Пользователь = Источник.Ссылка.ЗаказПоставщику.ДокументОснование.Менеджер;    
            Запрос = Новый Запрос;
            Запрос.УстановитьПараметр("Пользователь",Пользователь);
            Запрос.Текст =      "ВЫБРАТЬ
            |    ОП_ДублированиеОповещенийПользователям.Ссылка КАК Ссылка
            |ИЗ
            |    Справочник.ОП_ДублированиеОповещенийПользователям КАК ОП_ДублированиеОповещенийПользователям
            |ГДЕ
            |    ОП_ДублированиеОповещенийПользователям.Пользователь = &Пользователь
            |    И ОП_ДублированиеОповещенийПользователям.Ссылка.ПометкаУдаления = ЛОЖЬ";
            
            Результат = Запрос.Выполнить().Выбрать();
            
            
            Пока Результат.Следующий() Цикл
                //Если записи есть в регистре тогда их нужно удалить и записать новые, т.к. документ мог быть изменен 
                //и пользователь должен снова получить сообщение для перепроверки документа (своего рода подстраховка от изменений документа)
                НаборЗаписей = РегистрыСведений.ОП_ОповещениеПользователей.СоздатьНаборЗаписей(); 
                
                НаборЗаписей.Отбор.ДокументСобытие.Установить(Источник.Ссылка); 
                НаборЗаписей.Прочитать();
                НаборЗаписей.Очистить(); 
                
                Если Результат.Ссылка.ДублироватьОповещения = Ложь Тогда  //Сделаем только одну запись для данного пользователя
                    
                    НоваяЗапись = НаборЗаписей.Добавить(); 
                    НоваяЗапись. ДокументСобытие = Источник.Ссылка;     
                    НоваяЗапись.ДополнительныйДокумент = ЗаказКлиента; 
                    НоваяЗапись.Период = Источник.Ссылка.Дата;
                    НоваяЗапись.Пользователь = Пользователь;
                    НоваяЗапись.ТекстСообщения = "Поступил товар по заказу клиента № " + ЗаказКлиента.Номер + " , от "+ ЗаказКлиента.Дата +    " . "+ Источник.Ссылка;
                    НаборЗаписей.Записать(); 
                    
                Иначе //Если нужно дублировать записи, тогда делаем записи только для тех пользователей, которым нужно дублировать
                    
                    //Здесь записи для дублирования
                    Для Каждого Строка Из Результат.Ссылка.ТабличнаяЧасть Цикл
                        
                        НоваяЗапись = НаборЗаписей.Добавить(); 
                        НоваяЗапись. ДокументСобытие = Источник.Ссылка;     
                        НоваяЗапись.ДополнительныйДокумент = ЗаказКлиента; 
                        НоваяЗапись.Период = Источник.Ссылка.Дата;
                        НоваяЗапись.Пользователь = Строка.ПользовательДляДублирования;
                        НоваяЗапись.ТекстСообщения = "Поступил товар по заказу клиента № " + ЗаказКлиента.Номер + " , от "+ ЗаказКлиента.Дата +    " . "+ Источник.Ссылка;
                        
                        НаборЗаписей.Записать();       
                        
                    КонецЦикла;
                КонецЕсли;    
            КонецЦикла;
        КонецЕсли; //Если ЗначениеЗаполнено(ЗаказКлиента)
    КонецЕсли; //Константа "Включить оповещение пользователей" = истина
КонецПроцедуры

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

КонецПроцедуры

Процедура СформироватьСообщение(ТекстСообщения,ДокументСобытие,Пользователь) Экспорт
    
    ТекстСообщения = "";
    Пользователь = Пользователи.ТекущийПользователь();
    
    //Период берем за 3 месяца, при желании можно увеличить
    НачалоПериода = ДобавитьМесяц(ТекущаяДата(),-3);
    КонецПериода =  ТекущаяДата();
    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("НачалоПериода",НачалоПериода);
    Запрос.УстановитьПараметр("КонецПериода",КонецПериода);
    Запрос.УстановитьПараметр("Пользователь",Пользователь);
    Запрос.Текст = "ВЫБРАТЬ
    |    ОП_ОповещениеПользователей.ДокументСобытие КАК ДокументСобытие,
    |    ОП_ОповещениеПользователей.ДополнительныйДокумент КАК ДополнительныйДокумент,
    |    ОП_ОповещениеПользователей.Пользователь КАК Пользователь,
    |    ОП_ОповещениеПользователей.ТекстСообщения КАК ТекстСообщения
    |ИЗ
    |    РегистрСведений.ОП_ОповещениеПользователей КАК ОП_ОповещениеПользователей
    |ГДЕ
    |    ОП_ОповещениеПользователей.Период МЕЖДУ &НачалоПериода И &КонецПериода
    |    И ОП_ОповещениеПользователей.ОповещениеВыполнено = ЛОЖЬ
    |    И ОП_ОповещениеПользователей.Пользователь = &Пользователь" ;
    
    Результат =  Запрос.Выполнить().Выбрать();    
    
    Пока Результат.Следующий() Цикл
        Попытка            
            ТекстСообщения = Результат.ТекстСообщения + Символы.ПС+ ТекстСообщения;      
            ДокументСобытие.Добавить(Результат.ДокументСобытие);
        Исключение
        КонецПопытки;
    КонецЦикла;
                
КонецПроцедуры

Процедура СделатьЗаписьВРегистрОТомЧтоОповещениеПолучено(ДополнительныеПараметры) Экспорт
    
    Для Каждого Документ Из ДополнительныеПараметры.ДокументСобытие Цикл
        НаборЗаписей = РегистрыСведений.ОП_ОповещениеПользователей.СоздатьНаборЗаписей();             
        НаборЗаписей.Отбор.ДокументСобытие.Установить(Документ); 
        НаборЗаписей.Отбор.Пользователь.Установить(ДополнительныеПараметры.Пользователь);
        НаборЗаписей.Прочитать();
        СтрокаЗаписи = НаборЗаписей[0];
        СтрокаЗаписи.ОповещениеВыполнено = Истина;
        СтрокаЗаписи.ДатаДоставкиОповещения = ТекущаяДата();
        НаборЗаписей.Записать();
    КонецЦикла;
    
КонецПроцедуры    

 

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

  
  

 //\\ Рассылка оповещения менеджерам о поступлении по заказу клиента
    ПодключитьОбработчикОжидания("ОП_ОповещениеПользователей",600,Ложь);
    //\\

7. Создана подсистема, которая соединила все новые объекты конфигурации

 

Ну вот и всё!!!!  Может, кому пригодится.  Сильно за код не ругаться )))) . Не спорю, что можно и улучшить, можно доработать систему, чтобы оповещала пользователей при нескольких событиях. Всё в ваших руках.

Разрабатывалась для Управление торговлей, редакция 11 (11.4.2.123). На других конфигурациях не тестировалась, но думаю, что при небольших доработках будет работать везде. Кому неохота возиться - есть cf-ник, только при объединении не нужно объединять справочник пользователи и документ Приобретение товаров. Они созданы фиктивно для целостности ссылок.


 

См. также

Логистика, склад и ТМЦ Адаптация типовых решений Пользователь Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Россия Управленческий учет Платные (руб)

Чтобы не допустить путаницы с обещаниями клиентам и для четкого контроля исполнения заказов мы используем резервирование товаров. Мы доработали УНФ, чтобы она автоматически отменяла старые резервы и не мешала эффективно продавать.

7200 руб.

02.08.2023    4089    14    1    

32

Адаптация типовых решений Платформа 1С v8.3 1С:Документооборот Россия Платные (руб)

Расширение конфигурации для «1С:Документооборот КОРП», редакция 3.0. позволяет: 1.использовать произвольные табличные части в качестве дополнительных реквизитов к документу; 2 использовать произвольные табличные части в шаблонах в формате docx для автоматического заполнения таблиц.

29400 руб.

29.06.2023    5881    14    5    

24

Печатные формы Адаптация типовых решений Бухгалтер Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение позволяет вывести в табличном документе факсимиле печати и подписей и/или вывести произвольную картинку из прикреплённых файлов организации для 1С УТ 11.5, КА 2.5, ERP 2.5, УНФ 3, Розница 3. Вывод факсимиле возможен в табличные документы УПД, УКД, Счёт-фактура, ТОРГ-12 и другие. Возможно настроить вывод для любых типовых макетов (Акт сверки, М-15, ТТН), для этого потребуется отредактировать макет и разместить на нём картинки с установленными именами. Редактирование осуществляется через типовой механизм в пользовательском интерфейсе.

3000 руб.

07.02.2023    6601    72    10    

29

Адаптация типовых решений Программист Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Абонемент ($m)

Каждый из нас сталкивается с ситуацией, когда какой-нибудь менеджер показывает свой Excel и рассказывает, как он что-то из 1С копирует в него, снабжает пояснениями, выделяет цветом и т.д. и т.п. Заканчивается все просьбой сделать вот чтобы также было в 1С. И оказывается такой человек (почти с гарантией) либо лучшим продажником, либо каким-то важным, за все отвечающим, - на ком все держится.

2 стартмани

22.04.2024    5241    dimanich70    15    

22

БСП (Библиотека стандартных подсистем) Адаптация типовых решений Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 Бесплатно (free)

Понадобилось в подменю "Создать на основании" добавить свою команду, которая открывает обработку. В процессе доработок появилась проблема двух подменю "Создать на основании". В статье о том, как решились проблемы.

01.03.2024    6458    dimanich70    9    

18
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Romarius 16 26.02.18 17:21 Сейчас в теме
Делал подобное, но сообщения выводились только тем менеджерам, по заказам которых есть приход с уведомлением в разрезе заказов и номенклатуры. Также учитывались перемещения. Менеджера остались доработкой довольны.
10. user1647665 26.08.21 10:33 Сейчас в теме
(1) Мне как раз и нужно сделать такое же. Чтобы оповещения (email) приходили тем менеджерам, по заказам которых есть приход.

Можно увидеть образец такого письма, оповещения?
2. Natali307192013 25 26.02.18 18:41 Сейчас в теме
Было задание разработать основу для оповещения пользователей, которую при необходимости можно дорабатывать. У клиента штучный дорогой товар, поэтому необходимости в разрезе номенклатуры нет. Хотя идея хорошая со временем можно доработать. Также хочу добавить возможность отложить сообщение на заданное время. Спасибо за идею.)))
11. user1647665 26.08.21 10:34 Сейчас в теме
(2) Наталья, а можно посмотреть вариант получаемого письма (оповещения) ?
3. пользователь 27.02.18 00:13
Сообщение было скрыто модератором.
...
4. BigB 193 27.02.18 11:44 Сейчас в теме
А не лучше ли было сделать на основе системы взаимодействия? Мне кажется она как раз для этого подойдет. https://wonderland.v8.1c.ru/blog/peredacha-informatsii-s-servera/
EvgeniusRusius; +1 Ответить
5. Natali307192013 25 28.02.18 16:53 Сейчас в теме
Не знаю , может и лучше, но с этим нужно разбираться. Я не претендую на крутость обработки , но мой вариант прост и понятен.
6. MarryJane 31 03.03.18 12:10 Сейчас в теме
А может посмотрите УНФ. Там как раз модуль "Обсуждения" хорошо сделан, что легко его дорабатывать.
7. 1Cappldev 30.10.19 22:30 Сейчас в теме
Наталья, спасибо за публикацию! Действительно, Ваш вариант довольно прост и понятен! Подскажите, почему дополнительный документ для оповещения выведен в отдельный реквизит, почему не стали использовать составной тип данных для реквизита "ДокументСобытия"?
8. Natali307192013 25 12.11.19 16:51 Сейчас в теме
(7) На тот момент, казалось что так удобнее в дальнейшем работать со списком оповещений )). Можно и одним реквизитом обойтись. ))
9. 1Cappldev 13.11.19 12:41 Сейчас в теме
(8)Так и подумал) Спасибо за ответ.
12. Kontakt 109 30.08.24 13:29 Сейчас в теме
На расширение будет работать?
Оставьте свое сообщение