IEtlTask.CreatePlainLink

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MbObj: IMetabaseObject;
    EtlTask: IEtlTask;
    Link: IEtlPlainLink;
    Provider: IEtlPlainDataProvider;
    Consumer: IEtlPlainDataConsumer;
    WLink: IWxLink;
    Style: IWxStyle;
    WxETLLink: IWxEtlObject;
    WxProvider, WxConsumer: IWxShape;
Begin
    MB := MetabaseClass.Active;
    MbObj := MB.ItemById("ETL").Edit;
    EtlTask := (MbObj) As IEtlTask;
    //Create a new linking object
    Link := EtlTask.CreatePlainLink;
    //Set data provider and data consumer
    Provider := EtlTask.Item(0) As IEtlPlainDataProvider;
    Consumer := EtlTask.Item(1) As IEtlPlainDataConsumer;
    Link.SourceObjectOutput := Provider.PlainOutput;
    Link.DestinationObjectInput := Consumer.PlainInput;
    Link.FillDefault;
    //Create a visual link
    //Source rectangle
    WxProvider := EtlTask.Workspace.Shapes.Item(0);
    //Consumer rectangle
    WxConsumer := EtlTask.Workspace.Shapes.Item(1);
    WLink := EtlTask.Workspace.AutoLinkShapes(WxProvider, WxConsumer);
    WxETLLink := New WxEtlObject.Create;
    WxETLLink.EtlObject := Link;
    WLink.Extension := WxETLLink As IWxShapeExtension;
    //End of visual link creation (provider-consumer)
    MbObj.Save;
End Sub UserProc;