IEtlTask.ShowInfoBox

Copy example

// Event handler for setting ETL task execution result
Public Class MyClass: Object, IEtlExecutionCallback
    Sub OnObject(Object: IEtlObject);
    Begin
        Debug.WriteLine("Object is being executed: " + Object.Id);
    End Sub OnObject;

    Sub OnProgress(Progress: Integer);
    Begin
        Debug.WriteLine("Executed: " + Progress.ToString + "%");
    End Sub OnProgress;
    
    Sub OnSetResult(nTotalRec: Integer; nErrorRec: Integer);
    Begin
        Debug.WriteLine("Total records handled: " + nTotalRec.ToString);
        Debug.WriteLine("Records skipped: " + nErrorRec.ToString);
    End Sub OnSetResult;
End Class MyClass;

Sub UserProc;
Var
    MB: IMetabase;
    Etltask: IEtlTask;
    C: MyClass;
Begin
    // Get repository
    MB := MetabaseClass.Active;
    // Get ETL task
    Etltask := MB.ItemById("ETL_TASK").Edit As IEtlTask;
    // Start ETL task
    C := New MyClass.Create;
    Etltask.Execute(C);
    // Stop task
    Etltask.StopExecute;
    // Information window with result does not appear
    Etltask.ShowInfoBox := False;
    // Save changes
    (Etltask As IMetabaseObject).Save
End Sub UserProc;