Оповещение пользователей

17.09.14

Разработка - Инструментарий разработчика

Оповещение всех активных пользователей базы с минимальной доработкой конфигурации (Клиент-серверный вариант)

Файлы

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

Наименование Скачано Купить файл
(только для физ. лиц)
Оповещение_пользователей.epf
.epf 6,84Kb
46 1 850 руб. Купить
ОповещениеПользователейФормой.epf
.epf 40,40Kb
33 1 850 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Решается в 3 шага:

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

ПодключитьОбработчикОжидания("глОбработкиОжидания",60);

2) Создаём новую Константу "ОповещениеПользователей" (тип - строка, длина - 200) с доступностью просмотра и чтения у всех рабочих ролей базы (либо только у роли "Пользователь", если она стоит у всех пользователей)

3) Создаём новый Общий модуль "ОповещениеПользователей" (галки в свойствах у: Глобальный, Сервер, Внешнее соединение, Клиент-обычное приложение, Вызов сервера) с кодом:

&НаКлиенте 
Процедура глОбработкиОжидания() Экспорт 
Если СокрЛП(Константы.ОповещениеПользователей.Получить())<>"" Тогда 
Предупреждение(СокрЛП(Константы.ОповещениеПользователей.Получить()), 0, "Сообщение от Администратора 1С !"); 
КонецЕсли; 
КонецПроцедуры

Это всё. Далее в 1С-ке открываем форму Оповещение_пользователей.epf и пишем сообщение. Раз в минуту (значение из кода: "глОбработкиОжидания",60) у всех активных пользователей будет выскакивать предупреждение с заданным сообщением. После выполнения оповещения нажимаем кнопку "Прекратить Вывод сообщения". Будет полезно для информирования пользователей, чтобы вышли из базы на время тех. работ. Раньше приходилось обзванивать :)
__________________________________________________________________________________________________________________________

UPDATE 


Кому недостаточно серого оповещения для пользователей, предлагаю красочное дополнение с бегущей строкой, скриншот прилагается ;)

Доп. инструкция по обновлению:

1) Закидываем файл ОповещениеПользователейФормой.epf в обработки нашей конфигурации, ставим право просмотра (как у Константы "ОповещениеПользователей") 

2) Заменяем весь текст Общего модуля "ОповещениеПользователей" на:

&НаКлиенте 
Процедура глОбработкиОжидания() Экспорт 
Если СокрЛП(Константы.ОповещениеПользователей.Получить())<>"" Тогда  
Форма = Обработки.ОповещениеПользователей.ПолучитьФорму("Форма");  
Если Форма.Открыта() = Ложь 
Тогда  Форма.ОткрытьМодально();  
КонецЕсли; 
КонецЕсли; 
КонецПроцедуры

Готово, теперь пользователи вряд ли не заметят Ваше сообщение :)

Вступайте в нашу телеграмм-группу Инфостарт

Оповещение Пользователь Клиент-сервер

См. также

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта 1С v8.3 Управляемые формы Запросы Система компоновки данных Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

15500 руб.

02.09.2020    203916    1124    410    

1025

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

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку одновременно в несколько потоков. А так же автоматически, без непосредственного участия пользователя. Решение в Реестре отечественного ПО

8400 руб.

20.08.2024    36083    208    104    

197

Инструменты администратора БД Инструментарий разработчика Роли и права Программист 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

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

16000 руб.

10.11.2023    16598    72    39    

89

Пакетная печать Печатные формы Инструментарий разработчика Программист 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Расширение для создания и редактирования печатных форм в системе 1С:Предприятие 8.3. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и прозрачность разработки, а также навести порядок в многообразии корпоративных печатных форм.

22200 руб.

06.10.2023    24157    63    28    

92

Инструментарий разработчика Программист 1С v8.3 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

9360 руб.

17.05.2024    34927    125    53    

167

SALE! 30%

Инструментарий разработчика WEB-интеграция 1С v8.3 1C v8.2 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x Платные (руб)

Инструмент для генерации OpenApi (Swagger) спецификаций на основании файлов конфигураций 1С. Это консольное и десктопное приложение на языке Rust с полноценным редактором кода, содержащим автозамену и подсвечивание ошибок для быстрого и безошибочного написания документирующего комментария.

18000 12600 руб.

22.11.2024    1881    1    0    

8

Инструментарий разработчика Программист 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

6000 руб.

07.02.2018    107415    249    100    

313
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. makas 44 01.07.14 10:32 Сейчас в теме
Вопрос: почему нельзя было сосдать это как внешнюю обработку?
2. VovkaPutin 31 01.07.14 10:51 Сейчас в теме
(1) makas, это и есть внешняя)
вмешиваться в конфигурацию в любом случае придется, насколько я понял.
открывать форму можно через Файл - Открыть
3. AlX0id 01.07.14 14:36 Сейчас в теме
Во многих типовых конфигурациях все уже включено ;)
Обработка звать БлокировкаСоединенийСИнформационнойБазой - далее все интуитивно просто.
4. VovkaPutin 31 01.07.14 14:41 Сейчас в теме
(3) AlX0id, информируешь пользователей блокировкой?:)
5. ShantinTD 91 01.07.14 23:15 Сейчас в теме
(4) VovkaPutin, а почему бы и нет? Там же настраивается время завершения (или до него). Просто уведомлять нужно не за 2 минуты, а минут за 15-20. Конечно - если есть такая возможность; в экстра-форс-мажорных ситуациях можно этот интервал очень сильно сократить.

А вообще вариант с блокировкой не самый плохой: сообщение есть, констант лишних нет, обработчик уже подключенный. Да и при желании можно подшаманить чтобы помягче выкидывало.
6. VovkaPutin 31 02.07.14 09:36 Сейчас в теме
(5) ShantinTD, посмотрел стандартную обработку "БлокировкаСоединенийСИнформационнойБазой" - так там тупо выводит сообщение при попытке соединения. Никакого оповещения там нет :)
Прикрепленные файлы:
7. nixel 1459 02.07.14 18:29 Сейчас в теме
(6) VovkaPutin, посмотрите управляемую "Блокировку работы пользователей". Там выводится оповещение.
8. VovkaPutin 31 02.07.14 22:14 Сейчас в теме
(7) nixel,
посмотрите управляемую "Блокировку работы пользователей". Там выводится оповещение.
не нашёл такой обработки ни в одной конфигурации)
10. Ulus 294 26.09.14 13:59 Сейчас в теме
(3) AlX0id,
согласен.
Более того сама схема работы примерно такая же как у автора. Но сделано более все красивее технически.
И те же 60 сек. интервал опроса.
Автор же добавляет еще один обработчик ожидания.
И к тому же всегда идет обращение к константе.
Пример, Математика: 100 пользователей активных и раз в минуту будет 100 раз обращение к таблице Констант.
Так быстро можно базу заспамить ненужноми "долбежками"к базе .
В типовой же работа идет с объектом БлокировкаСеансов.
11. VovkaPutin 31 26.09.14 15:56 Сейчас в теме
(10) Ulus, посмотри сколько таких "долбежек" существует в типовых конфах и подумай еще раз :)
в масштабах базы эти долбежки просто ничтожны.
+ таймер можно и побольше поставить
9. VovkaPutin 31 06.07.14 20:46 Сейчас в теме
12. Mullakaev1992 12.05.17 12:00 Сейчас в теме
Есть для управляемых приложений?
13. VovkaPutin 31 12.05.17 13:44 Сейчас в теме
(12), как писали выше:
посмотрите управляемую "Блокировку работы пользователей"
14. Mullakaev1992 12.05.17 14:31 Сейчас в теме
(13)Спасибо, да быстрее глядя на вашу обработку сделал для УП. Спасибо!
15. timeforlive 16 19.02.19 07:56 Сейчас в теме
Типовая обработка БлокировкаСоединенийСИнформационнойБазой частично справляется со своей задачей:
• до начала блокировки - пользователи получают сообщение каждую минуту: "Работа системы будет завершена в ..."
• при начале блокировки - если пользователь не записал документ, то ему будет предложен выход из 1С (можно отказаться), в ином случае 1Ска закроется.
• в период блокировки - никто не сможет войти в 1С и получит предупреждение (с вашим сообщением) при запуске 1С

Проверял на 8.3.10, УПП 1.3

Чтобы пользователи получали сообщение (предупреждение) я внес пару изменений:
1. Добавил константу "СообщениеБлокировкиИБ" (тип "Строка", 1024 символа)
2. Добавил запись и загрузку константы в обработке БлокировкаСоединенийСИнформационнойБазой - в модуле формы:
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
		Элементы.ПараметрыАдминистрированияИнформационнойБазы.Видимость = Ложь;
	КонецЕсли;
	
	Обработка = РеквизитФормыВЗначение("Объект");
	Обработка.ПолучитьПараметрыБлокировки();
	
	ЗначениеВРеквизитФормы(Обработка, "Объект");
	Объект.Сообщение = Константы.СообщениеБлокировкиИБ.Получить();
	
КонецПроцедуры
Показать

и
&НаСервере
Процедура УстановитьСнятьБлокировку()
	
	РеквизитФормыВЗначение("Объект").ВыполнитьУстановку();
	Константы.СообщениеБлокировкиИБ.Установить(Объект.Сообщение);
	
КонецПроцедуры
Показать


3. Добавил код в процедуру "КонтрольРежимаЗавершенияРаботыПользователей" общего модуля "СоединенияИБГлобальный":
	Процедура КонтрольРежимаЗавершенияРаботыПользователей() Экспорт

	// Получим текущее значение параметров блокировки
	ТекущийРежим = СоединенияИБ.ПараметрыБлокировкиСеансов();
	БлокировкаУстановлена = ТекущийРежим.Установлена;
	
	Если НЕ БлокировкаУстановлена Тогда
		Возврат;	
	КонецЕсли;
		
	ВремяНачалаБлокировки = ТекущийРежим.Начало;
	ВремяОкончанияБлокировки = ТекущийРежим.Конец;
	
	ИнтервалПредупреждения    = ТекущийРежим.ИнтервалОжиданияЗавершенияРаботыПользователей;
	ИнтервалЗакрытьСЗапросом  = 0;
	ИнтервалЗакрытьБезЗапроса = - ИнтервалПредупреждения / 5;
	ИнтервалПрекратить        = - ИнтервалПредупреждения / 2.5;
	ТекущийМомент             = ТекущаяДата();
	
	Если ВремяОкончанияБлокировки <> '00010101' И ТекущийМомент > ВремяОкончанияБлокировки Тогда
		Возврат;
	КонецЕсли;
	
	ТекстСообщения = СоединенияИБКлиентСервер.ИзвлечьСообщениеБлокировки(ТекущийРежим.Сообщение);
	
	Если НЕ ЗначениеЗаполнено(ВремяНачалаБлокировки)
	 ИЛИ ВремяНачалаБлокировки - ТекущийМомент <= ИнтервалПрекратить Тогда
		
		ПропуститьПредупреждениеПередЗавершениемРаботыСистемы = Истина;
		ЗавершитьРаботуСистемы(Истина, Истина);
		
	ИначеЕсли ВремяНачалаБлокировки - ТекущийМомент <= ИнтервалЗакрытьБезЗапроса Тогда
		
		Предупреждение(НСтр("ru = 'Работа системы завершается." + Символы.ПС + Константы.СообщениеБлокировкиИБ.Получить()+"'"), 30);
		ПропуститьПредупреждениеПередЗавершениемРаботыСистемы = Истина;
		ЗавершитьРаботуСистемы(Ложь, Истина);
		
	ИначеЕсли ВремяНачалаБлокировки - ТекущийМомент <= ИнтервалЗакрытьСЗапросом Тогда
		
		Предупреждение(НСтр("ru = 'Работа системы завершается." + Символы.ПС + Константы.СообщениеБлокировкиИБ.Получить()+"'"), 30);
		ПропуститьПредупреждениеПередЗавершениемРаботыСистемы = Истина;
		ЗавершитьРаботуСистемы(Истина, Истина);
		
	ИначеЕсли ВремяНачалаБлокировки - ТекущийМомент <= ИнтервалПредупреждения Тогда
		
		ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
		                   НСтр("ru = 'Работа системы будет завершена в %1." + Символы.ПС + Константы.СообщениеБлокировкиИБ.Получить()+"'"),
		                   ВремяНачалаБлокировки);
		Предупреждение(ТекстСообщения, 30);
		
	КонецЕсли;
	
КонецПроцедуры

Показать
Прикрепленные файлы:
VovkaPutin; +1 Ответить
16. user1378882 16.03.20 11:39 Сейчас в теме
Всем, добрый день! Кто-нибудь может поделиться epf - файлом данного автора. Я - стажер ).
Оставьте свое сообщение