Установить блокировку сеансов заданий информационной базы. Устанавливает новое состояние блокировки сеансов и регламентных заданий для информационной базы.
// Устанавливает новое состояние блокировки сеансов и регламентных заданий для информационной базы.
//
// Параметры:
// ПараметрыАдминистрированияКластера - Структура, описывающая параметры подключения к кластеру серверов,
// описание - см. АдминистрированиеКластераКлиентСервер.ПараметрыАдминистрированияКластера(),
// ПараметрыАдминистрированияИБ - Структура, описывающая параметры подключения к информационной базе,
// описание - см. АдминистрированиеКластераКлиентСервер.ПараметрыАдминистрированияИнформационнойБазыКластера(),
// СвойстваБлокировкиСеансовИЗаданий - Структура, описывающая состояние блокировки сеансов и регламентных заданий,
// описание - см. АдминистрированиеКластераКлиентСервер.СвойстваБлокировкиСеансовИРегламентныхЗаданий().
//
Процедура УстановитьБлокировкуСеансовИЗаданийИнформационнойБазы(Знач ПараметрыАдминистрированияКластера, Знач ПараметрыАдминистрированияИБ, Знач СвойстваБлокировкиСеансовИЗаданий) Экспорт
УстанавливаемаяБлокировка = Новый Структура();
Для Каждого КлючИЗначение Из СвойстваБлокировкиСеансовИЗаданий Цикл
УстанавливаемаяБлокировка.Вставить(КлючИЗначение.Ключ, КлючИЗначение.Значение);
КонецЦикла;
Если Не ЗначениеЗаполнено(УстанавливаемаяБлокировка.ДатаС) Тогда
УстанавливаемаяБлокировка.ДатаС = АдминистрированиеКластераКлиентСервер.ПустаяДата();
КонецЕсли;
Если Не ЗначениеЗаполнено(УстанавливаемаяБлокировка.ДатаПо) Тогда
УстанавливаемаяБлокировка.ДатаПо = АдминистрированиеКластераКлиентСервер.ПустаяДата();
КонецЕсли;
COMСоединитель = COMСоединитель();
СоединениеСАгентомСервера = СоединениеСАгентомСервера(
COMСоединитель,
ПараметрыАдминистрированияКластера.АдресАгентаСервера,
ПараметрыАдминистрированияКластера.ПортАгентаСервера);
Кластер = ПолучитьКластер(
СоединениеСАгентомСервера,
ПараметрыАдминистрированияКластера.ПортКластера,
ПараметрыАдминистрированияКластера.ИмяАдминистратораКластера,
ПараметрыАдминистрированияКластера.ПарольАдминистратораКластера);
СоединениеСРабочимПроцессом = СоединениеСРабочимПроцессом(COMСоединитель, СоединениеСАгентомСервера, Кластер);
ИнформационнаяБаза = ПолучитьИБ(
СоединениеСРабочимПроцессом,
Кластер,
ПараметрыАдминистрированияИБ.ИмяВКластере,
ПараметрыАдминистрированияИБ.ИмяАдминистратораИнформационнойБазы,
ПараметрыАдминистрированияИБ.ПарольАдминистратораИнформационнойБазы);
ЗаполнитьСвойстваОбъектаОбъектнойМоделиCOMАдминистратораПоОписанию(
ИнформационнаяБаза,
УстанавливаемаяБлокировка,
СловарьСвойствБлокировкиСеансовИРегламентныхЗаданий());
СоединениеСРабочимПроцессом.UpdateInfoBase(ИнформационнаяБаза);
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
УстановитьБлокировкуСеансовИЗаданийИнформационнойБазы (БСП)