вот еще, как вариант
Блокировка = Новый БлокировкаСеансов;
Блокировка.КодРазрешения = Настройки["КодРазрешения"];
Блокировка.Начало = НачалоДня(ТекущаяДата()) + Число(Настройки["ВремяНачалаБлокировки"] - Дата(1,1,1));
Блокировка.Конец = НачалоДня(ТекущаяДата()) + Число(Настройки["ВремяОкончанияБлокировки"] - Дата(1,1,1));
Блокировка.Сообщение = Настройки["ТекстСообщения"];
Блокировка.Установлена = Истина;
УстановитьБлокировкуСеансов(Блокировка);