To report a found bug,
please, select the text with the bug and click Report a Bug or
CTRL+ENTER.
Help
system 10.5 of 29/11/2024,
©
FORESIGHT
ClassId: Integer;
The ClassId property determines identifier of repository object type.
To check value of this property, use the MetabaseObjectClass.
To determine identifier of repository object, use the IScheduledTaskAuditAlert.ObjectId property.
Executing the example requires:
Scheduled tasks container with the TASK_CONTAINER identifier that contains a task
Event with the CUSTOM_EVENT 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.ClassId := 1281; // Standard cube
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:
An object of the Standard Cube type is selected that generates event.
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.
See also: