Provider Template: ETL

Provider template contains settings of custom provider object that is available to use on developing ETL tasks. Template settings enable the user to specify a macro in the Fore/Fore.NET language that contains implementation of the provider object. After creating and setup of the template, the corresponding object is available on the Providers tab. The same operations used for main ETL task objects are available for this object.

To open the dialog box with template parameters setup:

Select the Insert > Provider > Create New Template main menu item.
In the Providers panel area select the Edit item in the context menu of the required template.

Example of Class Code that Implements Custom Provider

Provider that implements the IDtRecordsetProvider interface:

Class DataProvider: Object, IDtRecordsetProvider
    Public Function Fetch: Array Of Variant;
    Var
        Result: Array Of Variant;
    Begin
        //...
        //Getting and saving data in the Result array
        //...
        Return Result;
    End Function Fetch;
End Class DataProvider;

Provider that implements the IDtCustomProvider interface:

Class DataProvider: Object, IDtCustomProvider
    _Metabase: IMetabase;
    _KeepCalcFields: Boolean;

    Public Function get_Eof: Boolean;
    Var
        Result: Boolean;
    Begin
        Return Result
    End Function get_Eof;

    Public Sub Fetch(Var Values: Array);
    Begin

    End Sub Fetch;

    Public Function FetchRows(Count: Integer; Var Values: Array): Integer;
    Var
        Result: Integer;
    Begin
        Return Result;
    End Function FetchRows;

    Public Function ImplementFetchRows: Boolean;
    Var
        Result: Boolean;
    Begin
        Return Result;
    End Function ImplementFetchRows;

    Public Function ReadingRowsCount: Integer;
    Var
        Result: Integer;
    Begin
        Return Result;
    End Function ReadingRowsCount;

    Public Sub Open;
    Begin

    End Sub Open;

    Public Sub Close;
    Begin

    End Sub Close;

    Public Sub Save(Element: IXMLDOMElement);
    Begin

    End Sub Save;

    Public Sub Load(Element: IXMLDOMElement);
    Begin

    End Sub Load;

    Public Sub FieldsFromFile;
    Begin

    End Sub FieldsFromFile;

    Public Sub ClearFields;
    Begin

    End Sub ClearFields;

    Public Function get_Active: boolean;
    Var
        Result: Boolean;
    Begin
        Return Result;
    End Function get_active;

    Public Function get_fields: IDtFieldDefinitions;
    Var
        Result: IDtFieldDefinitions;
    Begin
        Return Result;
    End Function get_fields;

    Public Function get_GetType: DtObjectType;
    Begin
        Return DtObjectType.TDtUserProviderEx
    End Function get_GetType;

    Public Function get_Metabase: IMetabase;
    Begin
        Return _Metabase;
    End Function get_Metabase;

    Public Sub set_Metabase(Value: IMetabase);
    Begin
        _Metabase := Value;
    End Sub set_Metabase;

    Public Function get_KeepCalcFields: Boolean;
    Begin
        Return _KeepCalcFields;
    End Function get_KeepCalcFields;

    Public Sub set_KeepCalcFields(Value: Boolean);
    Begin
        _KeepCalcFields := Value;
    End Sub set_KeepCalcFields;
End Class DataProvider;

Public Class DataProvider: IDtCustomProvider
    _Metabase: IMetabase;
    _Fields: DtFieldDefinitions;
    _Active: boolean;
    _Eof: boolean;
    _KeepCalcFields: boolean;

    Public Property Eof: boolean
        Get
        Begin
            Return _Eof;
        End Get
    End Property;

    Public Sub Fetch(Var Values: Array);
    Begin

    End Sub;

    Public Function FetchRows(Count: Integer; Var Values: Array): Integer;
    Var
        Result: Integer;
    Begin
        Return Result;
    End Function;

    Public Function ImplementFetchRows(): Boolean;
    Var
        Result: Boolean;
    Begin
        Return Result;
    End Function;

    Public Function ReadingRowsCount(): Integer;
    Var
        Result: Integer;
    Begin
        Return Result;
    End Function;

    Public Sub Open();
    Begin

    End Sub;

    Public Sub OpenO(Param: System.Int32);
    Begin

    End Sub;

    Public Sub Close();
    Begin

    End Sub;

    Public Sub Save(Element: IXMLDOMElement);
    Begin

    End Sub;

    Public Sub Load(Element: IXMLDOMElement);
    Begin

    End Sub;

    Public Sub SaveToSerializer(Serializer: IMetabaseSerializer);
    Begin

    End Sub;

    Public Sub LoadFromSerializer(Serializer: IMetabaseSerializer);
    Begin

    End Sub;

    Public Sub FieldsFromFile();
    Begin

    End Sub;

    Public Sub ClearFields();
    Begin

    End Sub;

    Public Property Active: Boolean
        Get
        Begin
            Return _Active;
        End Get
    End Property;

    Public Property Fields: DtFieldDefinitions
        Get
        Begin
            Return _Fields;
        End Get
    End Property;

    Public Property FieldsO[Param: System.Int32]: DtFieldDefinitions
        Get
        Begin
            Return _Fields;
        End Get
    End Property;

    Public Property GetType: DtObjectType
        Get
        Begin
            Return DtObjectType.TDtUserProviderEx
        End Get
    End Property;

    Public Property Metabase: IMetabase
        Get
        Begin
            Return _Metabase
        End Get
        Set
        Begin
            _Metabase := Value
        End Set
    End Property;

    Public Sub FieldsFromFileEx();
    Begin

    End Sub;

    Public Property KeepCalcFields: boolean
        Get
        Begin
            Return _KeepCalcFields;
        End Get
        Set
        Begin
            _KeepCalcFields := Value;
        End Set
    End Property KeepCalcFields;
End Class;