Вывод оповещения к документу через систему взаимодействия

09.04.20

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

Часто требуется оповестить пользователя о работе с документом и, система взаимодействия для этого очень сильно подходит. В данной статье я приведу пример организации вывода оповещения автору документа. Легенда: Пользователь делает Запрос в отдел закупок специальным нетиповым документом. Отдел закупок отвечает, и у пользователя в правом нижнем углу всплывает ответ, и далее пользователи могут переписываться в чате документа, или пользователь, получив ответ, оперативно двигается дальше

Появление всплывающих оповещений, через Систему взаимодействия

Покажу на следующем примере:

Пользователь делает Запрос в Отдел закупок специальным нетиповым документом.
Отдел закупок отвечает и у пользователя в правом нижнем углу всплывает ответ.

1. В документе Запрос в Отдел закупок создается специальный реквизит - ИдентификаторБеседы, если документ типовой, то надо через Регистр сведений делать

В процедуру формы После записи вносится следующий код:

&НаСервере
Процедура ПослеЗаписиСервер()
	
	Если СокрЛП(Объект.ИденификаторОбсуждения) = "" Тогда 
		КонтекстДляОбсуждения = Новый КонтекстОбсужденияСистемыВзаимодействия(ПолучитьНавигационнуюСсылку(Объект.Ссылка));

		Обсуждение = СистемаВзаимодействия.СоздатьОбсуждение();
		Обсуждение.Заголовок = "По документу";
		Обсуждение.КонтекстОбсуждения = КонтекстДляОбсуждения;
		Обсуждение.Отображаемое = Истина;
		Обсуждение.Записать();
		
		Объект.ИденификаторОбсуждения = СокрЛП(Обсуждение.Идентификатор); 
		Записать();
	КонецЕсли;

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

2. В документ Ответ, который инициирует появление оповещения вносится этот код:

&НаСервере
Процедура ПослеЗаписиСервер()
	
	ТекстСообщения= "По документу получен ответ";

	Если не СтрДлина(ТекстСообщения) = Объект.ДлиннаОтвета Тогда
		Обсуждение = СистемаВзаимодействия.ПолучитьОбсуждение(Новый ИдентификаторОбсужденияСистемыВзаимодействия(Объект.ДокументОснование.ИденификаторОбсуждения));
		Сообщение = СистемаВзаимодействия.СоздатьСообщение(Обсуждение.Идентификатор);
		Сообщение.Текст = ТекстСообщения;
		
		ИдентификаторПользователяСВ = СистемаВзаимодействия.ПолучитьИдентификаторПользователя(Объект.ДокументОснование.Автор.ИдентификаторПользователяИБ);
		Сообщение.Получатели.Добавить(ИдентификаторПользователяСВ); 
		Сообщение.Записать();
		Объект.ДлиннаОтвета = СтрДлина(ТекстСообщения);
		
		Записать();
	КонецЕсли;

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

 

См. также

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

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

29400 руб.

29.06.2023    6151    15    5    

24

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

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

7200 руб.

02.08.2023    4273    15    1    

33

Печатные формы Адаптация типовых решений Бухгалтер Пользователь Платформа 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    6822    73    10    

30

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

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

2 стартмани

22.04.2024    5328    dimanich70    15    

22

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

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

01.03.2024    7285    dimanich70    10    

19

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

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

1 стартмани

27.10.2023    3681    30    TempTablesManager    14    

54
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. TreeDogNight 22 18.05.20 15:29 Сейчас в теме
Интересная задумка, но можно обойтись без добавления реквизита "ИденификаторОбсуждения", просто заполняйте Ключ обсуждения Уникальным идентификатором документа, а потом получайте нужное обсуждение по этому же ключу. Вот пример функции для получения обсуждения по ключу.

Функция ПолучитьОбсуждениеПоКлючу(Ключ) Экспорт 
	
	ОтборСВ = Новый ОтборОбсужденийСистемыВзаимодействия;
	ОтборСВ.Ключ = Ключ;
	
	МассивОбсуждений = СистемаВзаимодействия.ПолучитьОбсуждения(ОтборСВ);	
	
	Если МассивОбсуждений.Количество() Тогда
		Возврат МассивОбсуждений[0];	
	Иначе
		Возврат Неопределено;	
	КонецЕсли; 
	
КонецФункции
Показать
2. Sangre1999 51 18.05.20 20:28 Сейчас в теме
(1) Главное, что бы работало. Конечно не совсем удобно с идентификатором возиться, у меня по другому не взлетело - просто ничего не происходило, ни ошибок, ни оповещений)
TreeDogNight; +1 Ответить
3. TreeDogNight 22 18.05.20 20:32 Сейчас в теме
(2) Просто я предложил вариант, не требующий доработки структуры конфигурации. А как именно по-другому вы пробовали?
Оставьте свое сообщение