Настройка обработки событий

На странице «Обработка событий» указывается объект среды разработки и класс, содержащий реализацию обработчиков событий для задачи ETL.

Для вызова свойств задачи ETL выполните одно из следующих действий:

В главном меню задачи ETL выполните команду «Задача > Свойства».
Нажмите сочетание горячих клавиш CTRL+P.

Нажимая кнопку «Далее», перейдите к странице мастера «Обработка событий».

В раскрывающемся списке «Модуль» выберите объект среды разработки, а в списке «Класс» выберите класс, содержащий реализацию обработчиков событий задачи ETL. Список классов-обработчиков содержит все классы, унаследованные от класса EtlTaskExecutionEvents.

При необходимости обработчик событий можно создать автоматически, нажав кнопку «Создать». При этом создается Fore-модуль или Fore.NET-сборка с модулем. Код модуля будет сгенерирован автоматически и открыт в среде разработки.

Класс для обработки событий может иметь конструктор, который будет вызываться при каждой инициализации класса. Конструктор должен быть без параметров. Если в классе несколько конструкторов без параметров, то будет вызываться самый первый (расположенный в коде выше других). При использовании для обработки событий .NET-сборки конструктор должен быть объявлен с модификатором доступа Public.

Примечание. Инициализация класс-обработчика происходит каждый раз, когда происходит выполнение задачи ETL.

Class EventsClass: EtlTaskExecutionEvents
    Constructor Create;
    Begin

    End Constructor Create;

    Public Sub OnStartTask(Task: IEtlTask);
    Begin
    End Sub OnStartTask;

    Public Sub OnEndTask(Task: IEtlTask; Duration, TotalRec, ErrorRec: Integer);
    Begin
    End Sub OnEndTask;

    Public Sub OnStartBlock(Task: IEtlTask; Object: IEtlObject);
    Begin
    End Sub OnStartBlock;

    Public Sub OnEndBlock(Task: IEtlTask; Object: IEtlObject; Duration: Integer; TotalRecIn, TotalRecOut, ErrorRec: IDictionary);
    Begin
    End Sub OnEndBlock;

    Public Sub OnProgress(Task: IEtlTask; Progress: Integer);
    Begin
    End Sub OnProgress;

    Public Sub OnError(Task: IEtlTask; Object: IEtlObject; Excep: IException);
    Begin
    End Sub OnError;
End Class EventsClass;

Imports Prognoz.Platform.Interop.Etl;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports System.Collections;

Public Class EventsClass: EtlTaskExecutionEventsClass
    Public Constructor Create();
    Begin
    End Constructor;

    Public Override Sub OnStartTask(Task: IEtlTask);
    Begin
    End Sub OnStartTask;

    Public Override Sub OnEndTask(Task: IEtlTask; Duration, TotalRec, ErrorRec: Integer);
    Begin
    End Sub OnEndTask;

    Public Override Sub OnStartBlock(Task: IEtlTask; Object: IEtlObject);
    Begin
    End Sub OnStartBlock;

    Public Override Sub OnEndBlock(Task: IEtlTask; Object: IEtlObject; Duration: Integer; RecIn, RecOut, ErrorRec: IDictionary);
    Begin
    End Sub OnEndBlock;

    Public Override Sub OnProgress(Task: IEtlTask; Progress: Integer);
    Begin
    End Sub OnProgress;

    Public Override Sub OnError(Task: IEtlTask; Object: IEtlObject; Excep: Exception);
    Begin
    End Sub OnError;
End Class EventsClass;