IScheduledTaskAuditAlert.ClassId

Синтаксис Fore

ClassId: Integer;

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

ClassId: integer;

Описание

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

Комментарии

Для проверки значения данного свойства используйте перечисление MetabaseObjectClass.

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

Пример Fore

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

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

• события с идентификатором «CUSTOM_EVENT».

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

• установлен флажок «Выполнять задачу»;

• выбран вариант периодичности выполнения задачи «Не задано».

Добавьте ссылки на системные сборки 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.ClassId := 1281; // Стандартный куб
    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.ClassId := 1281; // Стандартный куб
    AuditAlert.Operation := 2097152; // Сохранение данных
    AuditAlert.Result := ScheduledAlertAuditResult.staarSucceeded;
    AuditAlert.UserName := "UserName";
    AuditAlert.Station := "Station";
    AuditAlert.UserNameOS := "UserNameOS";
    (task As IMetabaseObject).Save();
End Sub;

См. также:

IScheduledTaskAuditAlert