IMetabaseAuditPolicy.TrackClassHistory

Синтаксис

TrackClassHistory(ClassID: Integer): Integer;

TrackClassHistory[System.Int32]: System.Int32;

Параметры

ClassId. Класс объекта. Для указания класса объекта используйте перечисление MetabaseObjectClass.

Описание

Свойство TrackClassHistory определяет маску операций, для которых будет вестись история.

Комментарии

Ведение истории доступно только по трем операциям: изменение, изменение прав и удаление. Для формирования и проверки значения маски используйте перечисление MetabaseObjectPredefinedRights. Для разбора значения маски реализуйте пользовательскую функцию, которая позволит сопоставить отдельные биты маски соответствующим значениям перечислений. Пример работы с маской доступа представлен в разделе «Работа с маской доступа».

Пример

Для выполнения примера добавьте системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AuditPolicy: IMetabaseAuditPolicy;
    MBClass: Integer;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    AuditPolicy := MS.Policy.AuditPolicy;
    MBClass := MetabaseObjectClass.KE_CLASS_FOLDER;
    Debug.WriteLine(AuditPolicy.TrackClassHistory(MBClass));
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params : StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AuditPolicy: IMetabaseAuditPolicy;
    MBClass: Integer;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    AuditPolicy := MS.Policy.AuditPolicy;
    MBClass := MetabaseObjectClass.KE_CLASS_FOLDER As Integer;
    System.Diagnostics.Debug.WriteLine(AuditPolicy.TrackClassHistory[MBClass]);
End Sub;

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

См. также:

IMetabaseAuditPolicy