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