IEtlPlainDataProvider.FillDefault

Syntax

FillDefault;

Description

The FillDefault method fills output fields based on data about fields of source. When possible, size or precision of fields are set automatically.

Example

Executing this example requires an ETL task with the ETL identifier and a table with the Table identifier in repository. This table represents data source.

Sub UserProc;

Var

Metabase : IMetabase;

MObj: IMetabaseObject;

EtlTask: IEtlTask;

EtlProvider: IEtlPlainDataProvider;

MBProvider: IDtMetabaseProvider;

i, j : integer;

Tab: IDatasetModel;

Begin

//ETL task search. Repository object with the ETL identifier

Metabase := MetabaseClass.Active;

MObj := Metabase.ItemById("ETL").Edit;

EtlTask := MObj As IEtlTask;

Tab := Metabase.ItemById("Table").Bind As IDatasetModel;

//Create an object Repository Source

EtlProvider := EtlTask.Create(EtlObjectType.PlainDataMetabaseProvider) As IEtlPlainDataProvider;

EtlProvider := EtlProvider.Edit;

EtlProvider.Id := "MB_Provider";

EtlProvider.Name := "Repository data source";

//Configuration of data source

MBProvider := EtlProvider.Provider As IDtMetabaseProvider;

MBProvider.FieldsFromFile;

MBProvider.Dataset := Tab;

EtlProvider.FillDefault;

EtlProvider.Save;

//Creation of visual object

CreateWX(EtlProvider, EtlTask);

MObj.Save;

End Sub UserProc;

Sub CreateWX(CopyObj: IEtlPlainDataProvider ; Etltask: IEtltask);

Var

WxDataTrans : IWxRectangle;

WxETLDataTrans : IWxEtlObject;

Begin

WxDataTrans := EtlTask.Workspace.CreateRectangle;

WxDataTrans.Id := CopyObj.Id;

WxETLDataTrans := New WxEtlObject.Create;

WxETLDataTrans.EtlObject := CopyObj;

WxDataTrans.Style.TextPosition := WxTextPosition.Bottom;

WxDataTrans.Style.PictureMarginTop := -10;

WxDataTrans.PinPosition := New GxPointF.Create(20, 20);

WxDataTrans.Extension := WxETLDataTrans As IWxShapeExtension;

End Sub CreateWX;

After executing this example (UserProc) repository data source is created for ETL task, input fields are identical to fields of specified source (Table).