IScheduledTaskAuditAlert.ObjectId

Fore Syntax

ObjectId: String;

Fore.NET Syntax

ObjectId: string;

Description

The ObjectId property determines repository object identifier.

Comments

To determine identifier of repository object type, use the IScheduledTaskAuditAlert.ObjectId property.

Fore Example

Executing the example requires:

Scheduled tasks container with the TASK_CONTAINER identifier that contains a task.
Repository object with the R_DATA identifier.

Task settings must be determined on the Schedule tab:

The Perform Task checkbox is selected.
The None option of task performing frequency is selected.

Add links to the Metabase, Fore system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    cont: IScheduledTasksContainer;
    task: IScheduledTask;
    prop: IScheduledTaskProperties;
    alerts: IScheduledTaskAlerts;
    alert: IScheduledTaskAlert;
    AuditAlert: IScheduledTaskAuditAlert;
Begin
    MB := metabaseClass.Active;
    cont := MB.ItemById("TASK_CONTAINER").Edit As IScheduledTasksContainer;
    task := cont.Tasks.Item(0).Edit As IScheduledTask;
    prop := task.Properties;
    alerts := prop.Alerts;
    alerts.Clear;
    alert := alerts.Add(ScheduledTaskAlertType.Audit);
    AuditAlert := alert As IScheduledTaskAuditAlert;
    AuditAlert.ObjectId := "R_DATA";
    AuditAlert.Operation := 2097152; // Save data
    AuditAlert.Result := ScheduledAlertAuditResult.Succeeded;
    AuditAlert.UserName := "UserName";
    AuditAlert.Station := "Station";
    AuditAlert.UserNameOS := "UserNameOS";
    (task As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the After System Event task performing frequency option is set, and the following parameters are set:

The repository object that generates the event is selected by the specified identifier.
The task that generates the Save Data event.
Task execution result is successful.
The repository user and operating system user who generate the event.
The workstation used to generate the event is set.

Fore.NET Example

The requirements and result of the Fore.NET Example execution match with those in the Fore Example. Connect the KeFore system assembly instead of the Fore system assembly.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.KeFore;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    cont: IScheduledTasksContainer;
    task: IScheduledTask;
    prop: IScheduledTaskProperties;
    alerts: IScheduledTaskAlerts;
    alert: IScheduledTaskAlert;
    AuditAlert: IScheduledTaskAuditAlert;
Begin
    MB := Params.Metabase;
    cont := MB.ItemById["TASK_CONTAINER"].Edit() As IScheduledTasksContainer;
    task := cont.Tasks.Item[0].Edit() As IScheduledTask;
    prop := task.Properties;
    alerts := prop.Alerts;
    alerts.Clear();
    alert := alerts.Add(ScheduledTaskAlertType.statAudit);
    AuditAlert := alert As IScheduledTaskAuditAlert;
    AuditAlert.ObjectId := "R_DATA";
    AuditAlert.Operation := 2097152; // Save data
    AuditAlert.Result := ScheduledAlertAuditResult.staarSucceeded;
    AuditAlert.UserName := "UserName";
    AuditAlert.Station := "Station";
    AuditAlert.UserNameOS := "UserNameOS";
    (task As IMetabaseObject).Save();
End Sub;