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

17.09.14

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

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

Скачать файлы

Наименование Файл Версия Размер
Оповещение_пользователей.epf
.epf 6,84Kb
43
.epf 6,84Kb 43 Скачать
ОповещениеПользователейФормой.epf
.epf 40,40Kb
31
.epf 40,40Kb 31 Скачать

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

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

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

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

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

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

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

UPDATE 


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

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

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

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

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

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

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

См. также

SALE! 20%

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

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

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 10400 руб.

02.09.2020    122171    670    389    

714

SALE! 25%

Infostart PrintWizard

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

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

18000 15300 руб.

06.10.2023    7294    21    6    

39

SALE! 20%

Infostart УДиФ: Управление данными и формами

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

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

10000 8000 руб.

10.11.2023    3541    11    1    

34

SALE! 30%

PowerTools

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

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

3600 2520 руб.

14.01.2013    177753    1073    0    

849

Многопоточность. Универсальный «Менеджер потоков» 2.1

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

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

5000 руб.

07.02.2018    99347    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

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

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    18116    6    8    

39

1С HTML Шаблоны / HTML Templates

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

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    28110    3    10    

15

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

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

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23604    15    15    

32
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
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 1403 02.07.14 18:29 Сейчас в теме
(6) VovkaPutin, посмотрите управляемую "Блокировку работы пользователей". Там выводится оповещение.
8. VovkaPutin 31 02.07.14 22:14 Сейчас в теме
(7) nixel,
посмотрите управляемую "Блокировку работы пользователей". Там выводится оповещение.
не нашёл такой обработки ни в одной конфигурации)
10. Ulus 288 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 15 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 - файлом данного автора. Я - стажер ).
Оставьте свое сообщение