IAuditOperations.IsObjectLabelSupported

Syntax

IsObjectLabelSupported: Boolean;

IsObjectLabelSupported: System.Boolean;

Description

The IsObjectLabelSupported property returns whether a criticality label, corresponding to an access level, is set for the object, on which the operation is executed.

Comments

If the criticality label is selected for an object property returns True, otherwise - False.

Example

To execute the example, add links to the Metabase, ForeSystem (for the Fore.NET example) system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogon: IAuditLogons;
    Operat: IAuditOperations;
    Lic: Object;
Begin 
    MB := MetabaseClass.Active;
    
// Check out license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    
// Open access protocol
    Al:=MS.OpenAuditLog;
    ALogon:= AL.OpenLogons(
False);
    ALogon.Next;
    Operat:=Al.OpenOperations(ALogon.Session);
    
If Operat.IsObjectLabelSupported Then
        Debug.Writeline (
"Criticality label is set");
        
Else
        Debug.Writeline (
"Criticality label is not set");
    
End If;
    
// Check in license
    Lic := Null;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogon: IAuditLogons;
    Operat: IAuditOperations;
    Lic: Object;
Begin 
    MB := Params.Metabase;
    
// Check out license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    
// Open access protocol
    Al:=MS.OpenAuditLog();
    ALogon:= AL.OpenLogons(
False);
    ALogon.Next();
    Operat:=Al.OpenOperations(ALogon.Session);
    
If Operat.IsObjectLabelSupported Then
        System.Diagnostics.Debug.Writeline (
"Criticality label is set");
        
Else
        System.Diagnostics.Debug.Writeline (
"Criticality label is not set");
    
End If;
    
// Check in license
    Lic := Null;
End Sub;

After executing the example, the console displays the result of criticality label definition that was used for the last operation.

See also:

IAuditOperations