Установить свойства профиля безопасности. Устанавливает свойства для существующего профиля безопасности по переданному описанию.
// Устанавливает свойства для существующего профиля безопасности по переданному описанию.
//
// Параметры:
// ПараметрыАдминистрированияКластера - Структура - структура, описывающая параметры подключения к кластеру серверов,
// описание см. АдминистрированиеКластера.ПараметрыАдминистрированияКластера().
// СвойстваПрофиляБезопасности - Структура - структура, описывающая устанавливаемые для профиля безопасности свойства,
// описание см. АдминистрированиеКластера.СвойстваПрофиляБезопасности().
//
Процедура УстановитьСвойстваПрофиляБезопасности(Знач ПараметрыАдминистрированияКластера, Знач СвойстваПрофиляБезопасности) Экспорт
ИмяПрофиля = СвойстваПрофиляБезопасности.Имя;
Фильтр = Новый Структура("Имя", ИмяПрофиля);
ИдентификаторКластера = ИдентификаторКластера(ПараметрыАдминистрированияКластера);
ПрофилиБезопасности = ПолучитьПрофилиБезопасности(ИдентификаторКластера, ПараметрыАдминистрированияКластера, Фильтр);
Если ПрофилиБезопасности.Количество() <> 1 Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'В кластере серверов %1 не зарегистрирован профиль безопасности %2'"), ИдентификаторКластера, ИмяПрофиля);
КонецЕсли;
СтарыеСвойства = ПрофильБезопасности(ПараметрыАдминистрированияКластера, ИмяПрофиля, ИдентификаторКластера);
ОбновитьСвойстваПрофиляБезопасности(ПараметрыАдминистрированияКластера, СвойстваПрофиляБезопасности, СтарыеСвойства);
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////