IScheduledTaskAuditAlert.ObjectId

Синтаксис Fore

ObjectId: String;

Синтаксис Fore.NET

ObjectId: string;

Описание

Свойство ObjectId определяет идентификатор объекта репозитория.

Пример Fore

Для выполнения примера предполагается наличие:

контейнера запланированных задач с идентификатором «TASK_CONTAINER», содержащего задачу;
объекта репозитория с идентификатором «R_DATA».

Для задачи должны быть заданы настройки на вкладке «Расписание»:

установлен флажок «Выполнять задачу»;
выбран вариант периодичности выполнения задачи «Не задано».

Добавьте ссылки на системные сборки Metabase, Fore.

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; // Сохранение данных
    AuditAlert.Result := ScheduledAlertAuditResult.Succeeded;
    AuditAlert.UserName := "UserName";
    AuditAlert.Station := "Station";
    AuditAlert.UserNameOS := "UserNameOS";
    (task As IMetabaseObject).Save;
End Sub UserProc;

В результате выполнения примера для задачи будет установлен вариант периодичности выполнения задачи «По наступлению системного события» и заданы следующие параметры:

по заданному идентификатору выбран объект репозитория, генерирующий событие;
операция, генерирующая событие - «Сохранение данных»;
результат выполнения операции - «успешно»;
заданы пользователь репозитория, пользователь операционной системы, генерирующие событие;
задана рабочая станция, на которой было сгенерировано событие.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо системной сборки Fore подключите системную сборку KeFore.

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; // Сохранение данных
    AuditAlert.Result := ScheduledAlertAuditResult.staarSucceeded;
    AuditAlert.UserName := "UserName";
    AuditAlert.Station := "Station";
    AuditAlert.UserNameOS := "UserNameOS";
    (task As IMetabaseObject).Save();
End Sub;

См. также: