Шаблон источника: ETL

Шаблон источника содержит настройки пользовательского объекта-источник, который будет доступен для использования при разработке задач ETL. В настройках шаблона указывается макрос на Fore/Fore.NET, содержащий реализацию объекта-источника. После создания и настройки шаблона, на вкладке «Источники» будет доступен соответствующий объект. Для объекта доступны те же операции, какие доступны для основных объектов задачи ETL.

Для открытия диалогового окна настройки параметров шаблона:

выполните команду главного меню «Вставка > Источник > Создать новый шаблон»;
в области панели «Источники» выполните команду «Редактировать» в контекстном меню для необходимого шаблона.

Пример кода класса, реализующего пользовательский источник

Источник, реализующий интерфейс IDtRecordsetProvider:

Class DataProvider: Object, IDtRecordsetProvider
    Public Function Fetch: Array Of Variant;
    Var
        Result: Array Of Variant;
    Begin
        //...
        //Получение данных и сохранение их в массиве Result
        //...
        Return Result;
    End Function Fetch;
End Class DataProvider;

Источник, реализующий интерфейс IDtCustomProvider:

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;