IDtRdsProvider.Dataset

Dataset: IDatasetModel;

Dataset: Prognoz.Platform.Interop.Db.IDatasetModel;

Sub UserProc;
Var
    MB: IMetabase;
    ETLTask: IEtlTask;
    EtlProvider: IEtlPlainDataProvider;
    DtRds: IDtRdsProvider;
Begin
    MB := MetabaseClass.Active;
    ETLTask := MB.ItemById("ETL_Task").Edit As IEtlTask;
    //Создание нового источника - табличного справочника НСИ
    EtlProvider := ETLTask.Create(EtlObjectType.PlainDataRdsProvider) As IEtlPlainDataProvider;
    EtlProvider := EtlProvider.Edit;
    EtlProvider.Id := "RDS_Provider";
    EtlProvider.Name := "Источник - Табличный справочник НСИ";
    //Создаем визуальный объект источника
    CreateWX(ETLTask, EtlProvider, 0, 0);
    //Настраиваем источник
    DtRds := EtlProvider.Provider As IDtRdsProvider;
    DtRds.Dataset := Mb.ItemById("RDS_DICT").Bind As IDatasetModel;
    //Сохранение источника
    EtlProvider.Save;
    //Сохранение задачи
    (ETLTask As IMetabaseObject).Save;
End Sub UserProc;

//Создание визуального объекта
Sub CreateWX(ETLTask: IEtlTask; ETLObject: IEtlObject; XPosition: Integer; YPosition: Integer);
Var
    WxRect: IWxRectangle;
    WxETLObj: IWxEtlObject;
Begin
    WxRect := ETLTask.Workspace.CreateRectangle;
    WxRect.Id := ETLObject.Id;
    WxETLObj := New WxEtlObject.Create;
    WxETLObj.EtlObject := ETLObject;
    WxRect.Style.TextPosition := WxTextPosition.Bottom;
    WxRect.Style.PictureMarginTop := -10;
    WxRect.PinPosition := New GxPointF.Create(XPosition, YPosition);
    WxRect.Extension := WxETLObj As IWxShapeExtension;
End Sub CreateWX;

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.Etl;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    ETLTask: IEtlTask;
    EtlProvider: IEtlPlainDataProvider;
    DtRds: IDtRdsProvider;
Begin
    MB := Params.Metabase;
    ETLTask := MB.ItemById["ETL_Task"].Edit() As IEtlTask;
    //Создание нового источника - табличного справочника НСИ
    EtlProvider := ETLTask.Create(EtlObjectType.eotPlainDataRdsProvider) As IEtlPlainDataProvider;
    EtlProvider := EtlProvider.Edit();
    EtlProvider.Id := "RDS_Provider";
    EtlProvider.Name := "Источник - Табличный справочник НСИ";
    //Создаем визуальный объект источника
    CreateWX(ETLTask, EtlProvider, 0, 0);
    //Настраиваем источник
    DtRds := EtlProvider.Provider As IDtRdsProvider;
    DtRds.Dataset := Mb.ItemById["RDS_DICT"].Bind() As IDatasetModel;
    //Сохранение источника
    EtlProvider.Save();
    //Сохранение задачи
    (ETLTask As IMetabaseObject).Save();
End Sub;

//Создание визуальных объектов
Public Shared Sub CreateWX(ETLTask: IEtlTask; ETLObject: IEtlObject; XPosition: Integer; YPosition: Integer);
Var
    GxPointFCls: GxPointF = New GxPointFClass();
    WxRect: IWxRectangle;
    WxETLObj: IWxEtlObject = New WxEtlObject();
Begin
    WxRect := ETLTask.Workspace.CreateRectangle();
    WxRect.Id := ETLObject.Id;
    WxETLObj.EtlObject := ETLObject;
    WxRect.Style.TextPosition := WxTextPosition.wtpBottom;
    WxRect.Style.PictureMarginTop := -10;
    GxPointFCls.Create(XPosition, YPosition);
    WxRect.PinPosition := GxPointFCls;
    WxRect.Extension := WxETLObj As IWxShapeExtension;
End Sub;