IEtlTask.ShowInfoBox

Синтаксис Fore

ShowInfoBox: Boolean;

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

ShowInfoBox: boolean;

Описание

Свойство ShowInfoBox определяет, будет ли выводиться информационное окно с результатом выполнения задачи ETL.

Комментарии

Возможные значения:

• True. По умолчанию. Окно с результатами выполнения будет выводиться;

• False. Окно с результатами выполнения выводиться не будет.

Пример Fore

Для выполнения примера в репозитории необходимо наличие задачи ETL с идентификатором «ETL_TASK». Задача ETL содержит источник репозитория, приемник репозитория и преобразователь между ними.

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

// Обработчик событий для установки результата выполнения задачи ETL
Public Class MyClass: Object, IEtlExecutionCallback
    Sub OnObject(Object: IEtlObject);
    Begin
        Debug.WriteLine("Выполняется объект: " + Object.Id);
    End Sub OnObject;

    Sub OnProgress(Progress: Integer);
    Begin
        Debug.WriteLine("Выполнено: " + Progress.ToString + "%");
    End Sub OnProgress;
    
    Sub OnSetResult(nTotalRec: Integer; nErrorRec: Integer);
    Begin
        Debug.WriteLine("Всего записей обработано: " + nTotalRec.ToString);
        Debug.WriteLine("Записей пропущено: " + nErrorRec.ToString);
    End Sub OnSetResult;
End Class MyClass;

Sub UserProc;
Var
    MB: IMetabase;
    Etltask: IEtlTask;
    C: MyClass;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим задачу ETL
    Etltask := MB.ItemById("ETL_TASK").Edit As IEtlTask;
    // Запустим задачу ETL
    C := New MyClass.Create;
    Etltask.Execute(C);
    // Остановим задачу
    Etltask.StopExecute;
    // Информационное окно с результатом выводиться не будет
    Etltask.ShowInfoBox := False;
    // Сохраним изменения
    (Etltask As IMetabaseObject).Save
End Sub UserProc;

После выполнения примера информационное окно с результатом выполнения задачи ETL выводиться не будет.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Etl;
…
// Обработчик событий для установки результата выполнения задачи ETL
Public Class MyClass: Object, IEtlExecutionCallback
    Public Sub OnSetResult(nTotalRec: Integer; nErrorRec: Integer);
    Begin
        System.Diagnostics.Debug.WriteLine("Всего записей обработано: " + nTotalRec.ToString());
        System.Diagnostics.Debug.WriteLine("Записей пропущено: " + nErrorRec.ToString());
    End Sub OnSetResult;
    
    Public Sub OnObject(Object: IEtlObject);
    Begin
        System.Diagnostics.Debug.WriteLine("Выполняется объект: " + Object.Id);
    End Sub OnObject;

    Public Sub OnProgress(Progress: Integer);
    Begin
        System.Diagnostics.Debug.WriteLine("Выполнено: " + Progress.ToString() + "%");
    End Sub OnProgress;
End Class MyClass;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Etltask: IEtlTask;
    C: MyClass;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим задачу ETL
    Etltask := MB.ItemById["ETL_TASK"].Edit() As IEtlTask;
    // Запустим задачу ETL
    C := New MyClass.Create();
    Etltask.Execute(C);
    // Остановим задачу
    Etltask.StopExecute();
    // Информационное окно с результатом выводиться не будет
    Etltask.ShowInfoBox := False;
    // Сохраним изменения
    (Etltask As IMetabaseObject).Save();
End Sub;

См. также:

IEtlTask