среда, 5 июля 2017 г.

Блокировка сеансов

Чтобы заблокировать ИС для входящих сеансов нужно использовать параметр УстановитьБлокировкуСеансов().

(используется только на сервере)

Листиг:
Блокировка = ПолучитьБлокировкуСеансов();
Блокировка.Установлена = Истина; //Установка блокировки

Блокировка.КодРазрешения = КодРазрешения;//используется для запуска ИС во время блокировки (устанавливаем в параметры запуска)
Блокировка.Конец = ВремяОкончанияБлокировки; //Время когда блокировка автоматически снимется

Если ВремяОкончанияБлокировки  = Дата("00010101") Тогда
Блокировка.Сообщение = "На входящие сеансы наложена блокировка! доступ в ИС запрещен!";
Иначе 
Блокировка.Сообщение = "На входящие сеансы наложена блокировка! доступ в ИС запрещен! Дата/Время окончания блокировки: " + Строка(ВремяОкончанияБлокировки);
КонецЕсли;

ПараметрЗапускаСОкончаниемБлокировки = "/UC " + Строка(КодРазрешения);

УстановитьБлокировкуСеансов(Блокировка);



Пример внешней обработки блокировки сеансов.

Комментариев нет:

Отправить комментарий