IMetabaseObjectDescriptor.CheckAndAuditOperationLabel

Синтаксис

CheckAndAuditOperationLabel(Operation: Integer; Comment: String; State: MetabaseObjectAuditOperationState; Var Label: ISecurityDocumentLabel): Decimal;

CheckAndAuditOperationLabel(Operation: integer; Comment: string; State: Prognoz.Platform.Interop.Metabase.MetabaseObjectAuditOperationState; Var Label: Prognoz.Platform.Interop.Metabase.ISecurityDocumentLabel): decimal;

Параметры

Operation. Маска проверяемой/протоколируемой операции, наличие прав на которые, необходимо проверить для текущего пользователя. Для формирования значения маски необходимо использовать значения перечисления MetabaseObjectPredefinedRights. В этом перечислении содержатся основные и дополнительные операции, на которые можно раздавать права и вести аудит доступа. Для определенных классов объектов доступны специфические операции. Для использования специфических операций, в зависимости от класса объекта, в маске можно использовать значения следующих перечислений:

Comment. Комментарий, который заносится в протокол доступа;

State. Вариант аудита операции;

Label. Переменная, в которую будут помещены параметры метки безопасности.

Описание

Метод CheckAndAuditOperationLabel проверяет права доступа текущего пользователя на указанные операции и протоколирует результат проверки в соответствии с выбранным вариантом аудита, а также вычисляет параметры метки безопасности, используемой при печати и экспорте объектов репозитория.

Комментарии

Метка безопасности вычисляется при включенном мандатном доступе к объектам.

Если у текущего пользователя отсутствуют права хотя бы на одну из проверяемых операций или выбран вариант аудита, запрещающий выполнение операции (ForceDeny, ForceDenyAndAudit), то будет сгенерирована исключительная ситуация. В зависимости от имеющихся настроек аудита схемы и выбранного варианта аудита проверяемой операции (State) в протокол доступа может быть добавлена запись с неуспешным результатом.

Метод возвращает уникальный ключ записи, который вместе с записью заносится в протокол доступа.

Если необходимо проверить права доступа на операцию пользовательского класса, то используйте метод IMetabaseCustomObject.CheckAndAuditOperationLabel.

Пример

Для выполнения примера предполагается наличие формы и расположенной на ней кнопки с наименованием «Button1». В репозитории имеется регламентный отчет с идентификатором «Report_11».

Добавьте ссылки на системные сборки: Metabase, Ui.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    mb: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Label: ISecurityDocumentLabel;
Begin
    mb := MetabaseClass.Active;
    MObj := mb.ItemById("Report_11");
    Try
        MObj.CheckAndAuditOperationLabel(MetabaseObjectPredefinedRights.Write Or
        MetabaseObjectPredefinedRights.Print,
        "Проверка прав пользователя" ,
        MetabaseObjectAuditOperationState.ForceAudit,
        Label);
        Except
        On E: Exception Do
        WinApplication.InformationBox(E.message);
    End Try;
    If Label.IsON Then
        Debug.WriteLine(Label.Label);
        Debug.WriteLine(Label.LabelDescription);
        Debug.WriteLine(Label.TreatSectionAsDocument);
        Debug.WriteLine(Label.User.Name);
    End If;
End Sub Button1OnClick;

Imports Prognoz.Platform.Interop.Ui;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    mb: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Label: ISecurityDocumentLabel;
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    mb := Self.Metabase;
    MObj := mb.ItemById["Report_11"];
    Try
        MObj.CheckAndAuditOperationLabel((MetabaseObjectPredefinedRights.moprWrite Or
        MetabaseObjectPredefinedRights.moprPrint) As Integer,
        "Проверка прав пользователя" ,
        MetabaseObjectAuditOperationState.meobauopstForceAudit,
        Var Label);
        Except
        On Ef: Exception Do
        WinAppCls.InformationBox(Ef.message, New IWin32WindowForeAdapter(Self));
    End Try;
    If Label.IsON Then
        System.Diagnostics.Debug.WriteLine(Label.Label);
        System.Diagnostics.Debug.WriteLine(Label.LabelDescription);
        System.Diagnostics.Debug.WriteLine(Label.TreatSectionAsDocument);
        System.Diagnostics.Debug.WriteLine(Label.User.Name);
    End If;
End Sub;

После выполнения примера будет осуществлена проверка наличия прав у текущего пользователя на изменение и печать объекта «Report_11». В протокол доступа будет добавлена запись о возможности выполнения операции. Если в репозитории включен мандатный контроль доступа и для объекта выставлен уровень доступа, для которого включена маркировка объектов при экспорте и печати, то в переменной «Label» будут содержаться параметры метки безопасности, используемой для маркировки. Данные параметры будут выведены в консоль среды разработки.

См. также:

IMetabaseObjectDescriptor