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

17.09.14

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

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

Скачать файл

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

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

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

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

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

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

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

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

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

UPDATE

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

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

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

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

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

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

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

+11 –

См. также

Infostart Toolkit — Инструменты разработчика 1С 8.3

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

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

15500 руб.

02.09.2020 174976 973 403

931

Database Compression Tool: Инструмент для свертки и сжатия баз данных 1С

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

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

8400 руб.

20.08.2024 16570 114 52

115

Infostart PrintWizard (конструктор печатных форм)

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

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

22200 руб.

06.10.2023 18052 49 18

OneDebugger - инструмент для отладки кода в 1С без использования конфигуратора

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

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

9360 руб.

17.05.2024 28221 98 48

141

Infostart DataFormWizard: Управление данными и формами 1С 8.3

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

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

15000 руб.

10.11.2023 12385 49 33

SALE! %

PowerTools: Инструменты администратора 1С 8.3

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

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

~~4800~~ 3840 руб.

14.01.2013 192313 1153 0

920

Бустер Конвертации данных 3 (Infostart Toolkit)

Инструментарий разработчика Программист 8.3.14 Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

20000 руб.

07.10.2021 18364 7 32

Конструктор АРМ

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

Разработка Конструктор автоматизированных рабочих мест "Конструктор АРМ" реализована в виде расширения и является универсальным инструментом для создания АРМ любой сложности в пользовательском режиме.

3600 руб.

27.12.2024 1468 2 0

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

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 1441 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);
		
	КонецЕсли;
	
КонецПроцедуры

Показать

Прикрепленные файлы: