IAuditLog.OpenChangesHistoryLog

Copy example

Sub UserProc;
Var
    Mb: IMetabase;
    Security: IMetabaseSecurity;
    AL: IAuditLog;
    History: IChangesHistoryAuditLog;
    Lic: Object;
Begin
    Mb := MetabaseClass.Active;
    // Get license to be able to work with the security manager
    Lic := Mb.RequestLicense(UiLicenseFeatureType.Adm);
    Security := Mb.Security;
    // Open access protocol
    AL := Security.OpenAuditLog;
    // Get object version log
    History := AL.OpenChangesHistoryLog;
    // Display information from the log in the development environment console
    While Not History.Eof Do
        Debug.WriteLine(History.ObjectName + '(' + History.ObjectId + ", class: " + History.ObjectClass.ToString + ')' + " - " + History.Name + ". " +
            DateTime.FromDouble(History.Stamp).ToString + '|' +
            History.Station + '|' +
            History.UserIP + '|' + History.UserName + '|' + History.UserOS);
        History.Next;
    End While;
    // Check in license
    Lic := Null;
End Sub UserProc;