IEtlUserDataContainer.UserData

Добавьте ссылки на системные сборки: Collections, Dt, Etl, MathFin, Metabase, Xml.

{ Класс описания формы }
Class FormUserProvForm: Form, IEtlForeWizardPage
    Memo1: Memo;
    Button1: Button;
    Model: IEtlUserDataContainer;

    {IEtlForeWizardPage}
    Public Function OnSetActive: Boolean;
    Begin
        memo1.Clear;
        memo1.Lines.Add(Model.UserData.xml);
        Return True;
    End Function OnSetActive;

    Public Function OnWizardNext: Integer;
    Begin
        Return 0;
    End Function OnWizardNext;
    
    Public Function OnWizardBack: Integer;
    Begin
        Return 0;
    End Function OnWizardBack;
    
    Public Function IsLeaveAllowed: Boolean;
    Begin
        Return True;
    End Function IsLeaveAllowed;
    
    Public Function IsDoneAllowed: Boolean;
    Begin
        Return False;
    End Function IsDoneAllowed;
    
    Public Sub set_Model(m: IEtlUserDataContainer);
    Begin
        Model := m;
    End Sub set_Model;
    
    Public Function get_Title: String;
    Begin
        Return "CrPage";
    End Function get_Title;
    
    Public Sub set_Title(t: String);
    Begin
    End Sub set_Title;

    Sub Set_ModelData;
    Begin
    End Sub Set_ModelData;
    
    {Щелчок по кнопке}
    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If Not Model.IsDirty Then
            Model.SetDirty(True);
        End If;
        Model.UserData.setAttribute("NewValue", "Value");
        memo1.Lines.Add("------------------------------");
        memo1.Lines.Add(Model.UserData.xml);
    End Sub Button1OnClick;
    
End Class FormUserProvForm;

{ Класс для подключения формы в качестве одной из страниц мастера редактирования
  источника пользователя }
Class MyProvider: Object, IDtRecordsetProvider, IEtlForeWizardPages, IDtRecordsetUserData
    userD: IXmlDomElement;
    randMax: integer;
    meta: IMetabase;
    
    {IDtRecordsetProvider}
    Public Function Fetch: Array Of Variant;
    Var
        ResArray: Array[0..1, 0..100] Of Variant;
        i, j: integer;
    Begin
        For j := 0 To 100 Do
            For i := 0 To 1 Do
                If i = 0 Then
                    ResArray[i, j] := "Код-" + j.ToString;
                Else
                    ResArray[i, j] := Math.RandBetween(0, randMax);
                End If;
            End For;
        End For;
    Return ResArray;
    End Function Fetch;

    {IEtlForeWizardPages}
    Public Function Item(index: Integer): IMetabaseObjectDescriptor;
    Begin
        Return meta.ItemById("FORMUSERPROV");
    End Function Item;
    
    Public Function get_Count: Integer;
    Begin
        Return 1;
    End Function get_Count;
    
    Public Function get_Metabase: IMetabase;
    Begin
        Return meta;
    End Function get_Metabase;

    Public Sub set_Metabase(metabase: IMetabase);
    Begin
        meta := metabase;
    End Sub set_Metabase;

    {IDtRecordsetUserData}
    Public Function get_userData: IXmlDomElement;
    Begin
    Return UserD;
    End Function get_userData;
    
    Public Sub set_userData(value: IXmlDomElement);
    Begin
        UserD := value;
    End Sub set_userData;
    
End Class MyProvider;

Добавьте ссылки на системные сборки: Andy, Drawing, Dt, Etl, Metabase.
Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    EtlTask: IEtlTask;
    DataUserProvider: IEtlPlainDataUserProvider;
    UserProvider: IDtUserProvider;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим задачу ETL
    MObj := MB.ItemById("ETLT").Edit;
    EtlTask := MObj As IEtlTask;
    //Создадим объект "Источник пользователя"
    DataUserProvider := EtlTask.Create(EtlObjectType.PlainDataUserProvider) As IEtlPlainDataUserProvider;
    // Зададим наименование источника
    DataUserProvider.Name := "Источник пользователя";
    // Подключим модуль и класс для источника пользователя
    UserProvider := DataUserProvider.Provider As IDtUserProvider;
    UserProvider.ForeModule := MB.ItemById("FORMUSERPROV").Edit;
    UserProvider.ForeClass := "MyProvider";
    // Визуальное представление источника в задаче
    CreateWXP(DataUserProvider, EtlTask);
    // Сохраним изменения
    Mobj.Save;
End Sub UserProc;

{ Создание визуального объекта источника данных }
Sub CreateWXP(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 CreateWXP;

Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.Etl;
Imports Prognoz.Platform.Interop.MsXml2;
…
{ Класс описания формы }
Public Partial Class FORMUSERPROV_NETForm: Prognoz.Platform.Forms.Net.ForeNetForm, IEtlForeWizardPage
    Modell: IEtlUserDataContainer;
    
    Public Constructor FORMUSERPROV_NETForm();
    Begin
        InitializeComponent();
    End Constructor;
    
    {IEtlForeWizardPage}
    Public Function OnSetActive(): Boolean;
    Begin
        TextBox1.Clear();
        TextBox1.Text := Model.UserData.xml;
        Return True;
    End Function OnSetActive;
    
    Public Function OnWizardNext(): Integer;
    Begin
        Return 0;
    End Function OnWizardNext;
    
    Public Function OnWizardBack(): Integer;
    Begin
        Return 0;
    End Function OnWizardBack;
    
    Public Function IsLeaveAllowed(): Boolean;
    Begin
        Return True;
    End Function IsLeaveAllowed;
    
    Public Function IsDoneAllowed(): Boolean;
    Begin
        Return False;
    End Function IsDoneAllowed;

    Public Property Title: String
        Get
        Begin
            Return "CrPage";
        End Get
        Set
        Begin
        End Set
    End Property Title;
    
    Public Property Model: IEtlUserDataContainer
    Get
    Begin
        Return Modell;
    End Get
    Set
    Begin
        Modell := model;
    End Set
    End Property Model;
    
    {Button1OnClick}
    Public Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Begin
        If Not Model.IsDirty() Then
            Model.SetDirty(True);
        End If;
        TextBox1.Clear();
        Model.UserData.setAttribute("NewValue", "Value");
        TextBox1.Text := Model.UserData.xml;
    End Sub;
    
End Class;

{ Класс для подключения формы в качестве одной из страниц мастера редактирования
  источника пользователя }
Public Class MyUserProvider: IDtCustomProvider, IEtlForeWizardPages
    p: IDtTextProvider;
    m_active: boolean;
    meta: IMetabase;
    
    {IDtCustomProvider}
    Public Property Eof: Boolean
        Get
        Begin
            Return p.Eof;
        End Get
    End Property Eof;
    
    Public Sub Fetch(Var Values: Array);
    Begin
        p.Fetch(Var Values);
    End Sub Fetch;
    
    Public Function FetchRows(Count: Integer; Var Values: Array): Integer;
    Var
        i: Integer;
    Begin
        i := p.FetchRows(Count, Var Values);
        Return i;
    End Function FetchRows;
    
    Public Function ImplementFetchRows(): Boolean;
    Begin
        Return True;
    End Function ImplementFetchRows;
    
    Public Function ReadingRowsCount(): Integer;
    Begin
        Return p.ReadingRowsCount();
    End Function ReadingRowsCount;
    
    Public Sub Open();
    Begin
        m_Active := True;
        If p = Null Then
            p := New DtTextProvider.Create();
        End If;
        FieldsFromFile();
    End Sub Open;
    
    Public Sub Close();
    Begin
        m_Active := False;
    End Sub Close;
    
    Public Sub Save(Element: IXMLDOMElement);
    Begin
        p.Save(Element);
    End Sub Save;
    
    Public Sub Load(Element: IXMLDOMElement);
    Begin
        If p = Null Then
            p := New DtTextProvider.Create();
        End If;
    End Sub Load;
    
    Public Sub FieldsFromFile();
    Begin
        p.FieldsFromFile();
    End Sub FieldsFromFile;
    
    Public Sub ClearFields();
    Begin
        p.ClearFields();
    End Sub ClearFields;
    
    Public Sub SaveToSerializer(Serializer: IMetabaseSerializer);
    Begin
    End Sub SaveToSerializer;
    
    Public Sub LoadFromSerializer(Serializer: IMetabaseSerializer);
    Begin
    End Sub LoadFromSerializer;
    
    Public Sub FieldsFromFileEx();
    Begin
    End Sub FieldsFromFileEx;
    
    Public Sub OpenO(Options: Integer);
    Begin
    End Sub OpenO;
    
    Public Property Active: Boolean
    Get
    Begin
        Return m_Active;
    End Get
    End Property Active;
    
    Public Property GetType: DtObjectType
        Get
        Begin
            Return DtObjectType.TDtExcelProvider;
        End Get
    End Property GetType;
    
    Public Property FieldsO[Options: Integer]: DtFieldDefinitions
        Get
        Begin
            Return Null;
        End Get
    End Property FieldsO;
    
    Public Property KeepCalcFields: Boolean
    Get
    Begin
        Return p.KeepCalcFields;
    End Get
    Set
    Begin
        p.KeepCalcFields := value;
    End Set
    End Property KeepCalcFields;
    
    Public Property Fields: DtFieldDefinitions
    Get
    Begin
        If p = Null Then
            p := New DtTextProvider.Create();
            p.File := "C:\Data_Out.txt";
            p.RangeHasHeader := True;
            p.DelimitedColumnDelimiter := "#";
            p.Open();
        End If;
        Return p.Fields;
    End Get
    End Property Fields;
    
    {IEtlForeWizardPages}
    Public Property Count: Integer
        Get
        Begin
            Return 1;
        End Get
    End Property Count;
    
    Public Function Item(index: Integer): IMetabaseObjectDescriptor;
    Begin
        Return meta.ItemById["FORMUSERPROVNET"];
    End Function Item;
    
    Public Property Metabase: IMetabase
    Get
    Begin
        Return meta;
    End Get
    Set
    Begin
        meta := value;
    End Set
    End Property Metabase;
    
End Class MyUserProvider;

KEY#COUNTRY_NAME#OWNER

512#"Afganistan"#3

914#"Albania"#3

612#"Algeria"#2

1#"word1"#3

2#"word2"#4

3#"word3"#5

4#"word4"#6

5#"word5"#7

6#"word6"#8

7#"word7"#9

8#"word8"#10

9#"word9"#11

10#"word10"#12

11#"word11"#13

12#"word12"#14

13#"word13"#15

14#"word14"#16

15#"word15"#17

16#"word16"#18

17#"word17"#19

18#"word18"#20

19#"word19"#21

20#"word20"#22

21#"word21"#23

22#"word22"#24

23#"word23"#25

24#"word24"#26

25#"word25"#27

26#"word26"#28

27#"word27"#29

28#"word28"#30

29#"word29"#31

30#"word30"#32

31#"word31"#33

32#"word32"#34

33#"word33"#35

34#"word34"#36

35#"word35"#37

36#"word36"#38

incorrect#"word37"#39

incorrect#"word38"#40

incorrect#"word39"#41

incorrect#"word40"#42

incorrect#"word41"#43

incorrect#"word42"#44

incorrect#"word43"#45

incorrect#"word44"#46

incorrect#"word45"#47

incorrect#"word46"#48

incorrect#"word47"#49

incorrect#"word48"#50

incorrect#"word49"#51

incorrect#"word50"#52

incorrect#"word51"#53

incorrect#"word52"#54

incorrect#"word53"#55

incorrect#"word54"#56

incorrect#"word55"#57

incorrect#"word56"#58

incorrect#"word57"#59

incorrect#"word58"#60

incorrect#"word59"#61

incorrect#"word60"#62

incorrect#"word61"#63

incorrect#"word62"#64

incorrect#"word63"#65

incorrect#"word64"#66

incorrect#"word65"#67

incorrect#"word66"#68

incorrect#"word67"#69

incorrect#"word68"#70

incorrect#"word69"#71

incorrect#"word70"#72

incorrect#"word71"#73

incorrect#"word72"#74

incorrect#"word73"#75

incorrect#"word74"#76

incorrect#"word75"#77

incorrect#"word76"#78

incorrect#"word77"#79

incorrect#"word78"#80

incorrect#"word79"#81

incorrect#"word80"#82

incorrect#"word81"#83

incorrect#"word82"#84

incorrect#"word83"#85

incorrect#"word84"#86

incorrect#"word85"#87

incorrect#"word86"#88

incorrect#"word87"#89

incorrect#"word88"#90

incorrect#"word89"#91

incorrect#"word90"#92

incorrect#"word91"#93

incorrect#"word92"#94

incorrect#"word93"#95

incorrect#"word94"#96

incorrect#"word95"#97

incorrect#"word96"#98

incorrect#"word97"#99

incorrect#"word98"#100

incorrect#"word99"#101

incorrect#"word100"#102

incorrect#"word101"#103

incorrect#"word102"#104

incorrect#"word103"#105

incorrect#"word104"#106

incorrect#"word105"#107

incorrect#"word106"#108

incorrect#"word107"#109

incorrect#"word108"#110

incorrect#"word109"#111

incorrect#"word110"#112

incorrect#"word111"#113

incorrect#"word112"#114

incorrect#"word113"#115

incorrect#"word114"#116

incorrect#"word115"#117

incorrect#"word116"#118

incorrect#"word117"#119

incorrect#"word118"#120

incorrect#"word119"#121

incorrect#"word120"#122

incorrect#"word121"#123

incorrect#"word122"#124

incorrect#"word123"#125

incorrect#"word124"#126

incorrect#"word125"#127

incorrect#"word126"#128

incorrect#"word127"#129

incorrect#"word128"#130

incorrect#"word129"#131

incorrect#"word130"#132

incorrect#"word131"#133

incorrect#"word132"#134

incorrect#"word133"#135

incorrect#"word134"#136

incorrect#"word135"#137

incorrect#"word136"#138

incorrect#"word137"#139

incorrect#"word138"#140

incorrect#"word139"#141

incorrect#"word140"#142

incorrect#"word141"#143

incorrect#"word142"#144

incorrect#"word143"#145

incorrect#"word144"#146

incorrect#"word145"#147

incorrect#"word146"#148

incorrect#"word147"#149

incorrect#"word148"#150

incorrect#"word149"#151

incorrect#"word150"#152

incorrect#"word151"#153

incorrect#"word152"#154

incorrect#"word153"#155

incorrect#"word154"#156

incorrect#"word155"#157

incorrect#"word156"#158

incorrect#"word157"#159

incorrect#"word158"#160

incorrect#"word159"#161

incorrect#"word160"#162

incorrect#"word161"#163

incorrect#"word162"#164

incorrect#"word163"#165

incorrect#"word164"#166

incorrect#"word165"#167

incorrect#"word166"#168

incorrect#"word167"#169

incorrect#"word168"#170

incorrect#"word169"#171

incorrect#"word170"#172

incorrect#"word171"#173

incorrect#"word172"#174

incorrect#"word173"#175

incorrect#"word174"#176

incorrect#"word175"#177

incorrect#"word176"#178

incorrect#"word177"#179

incorrect#"word178"#180

incorrect#"word179"#181

incorrect#"word180"#182

incorrect#"word181"#183

incorrect#"word182"#184

incorrect#"word183"#185

incorrect#"word184"#186

incorrect#"word185"#187

incorrect#"word186"#188

incorrect#"word187"#189

incorrect#"word188"#190

incorrect#"word189"#191

incorrect#"word190"#192

incorrect#"word191"#193

incorrect#"word192"#194

incorrect#"word193"#195

incorrect#"word194"#196

incorrect#"word195"#197

incorrect#"word196"#198

incorrect#"word197"#199

incorrect#"word198"#200

incorrect#"word199"#201

incorrect#"word200"#202

incorrect#"word201"#203

incorrect#"word202"#204

incorrect#"word203"#205

incorrect#"word204"#206

incorrect#"word205"#207

incorrect#"word206"#208

incorrect#"word207"#209

incorrect#"word208"#210

incorrect#"word209"#211

incorrect#"word210"#212

incorrect#"word211"#213

incorrect#"word212"#214

incorrect#"word213"#215

incorrect#"word214"#216

incorrect#"word215"#217

incorrect#"word216"#218

incorrect#"word217"#219

incorrect#"word218"#220

incorrect#"word219"#221

incorrect#"word220"#222

incorrect#"word221"#223

incorrect#"word222"#224

incorrect#"word223"#225

incorrect#"word224"#226

incorrect#"word225"#227

incorrect#"word226"#228

incorrect#"word227"#229

incorrect#"word228"#230

incorrect#"word229"#231

incorrect#"word230"#232

incorrect#"word231"#233

incorrect#"word232"#234

incorrect#"word233"#235

incorrect#"word234"#236

incorrect#"word235"#237

incorrect#"word236"#238

incorrect#"word237"#239

incorrect#"word238"#240

incorrect#"word239"#241

incorrect#"word240"#242

incorrect#"word241"#243

incorrect#"word242"#244

incorrect#"word243"#245

incorrect#"word244"#246

incorrect#"word245"#247

incorrect#"word246"#248

incorrect#"word247"#249

incorrect#"word248"#250

incorrect#"word249"#251

incorrect#"word250"#252

incorrect#"word251"#253

incorrect#"word252"#254

incorrect#"word253"#255

incorrect#"word254"#256

incorrect#"word255"#257

incorrect#"word256"#258

incorrect#"word257"#259

incorrect#"word258"#260

incorrect#"word259"#261

incorrect#"word260"#262

incorrect#"word261"#263

incorrect#"word262"#264

incorrect#"word263"#265

incorrect#"word264"#266

incorrect#"word265"#267

incorrect#"word266"#268

incorrect#"word267"#269

incorrect#"word268"#270

incorrect#"word269"#271

incorrect#"word270"#272

incorrect#"word271"#273

incorrect#"word272"#274

incorrect#"word273"#275

incorrect#"word274"#276

incorrect#"word275"#277

incorrect#"word276"#278

incorrect#"word277"#279

incorrect#"word278"#280

incorrect#"word279"#281

incorrect#"word280"#282

incorrect#"word281"#283

incorrect#"word282"#284

incorrect#"word283"#285

incorrect#"word284"#286

incorrect#"word285"#287

incorrect#"word286"#288

incorrect#"word287"#289

incorrect#"word288"#290

incorrect#"word289"#291

incorrect#"word290"#292

incorrect#"word291"#293

incorrect#"word292"#294

incorrect#"word293"#295

294#"word294"#296

295#"word295"#297

296#"word296"#298

297#"word297"#299

298#"word298"#300

299#"word299"#301

300#"word300"#302

301#"word301"#303

302#"word302"#304

303#"word303"#305

304#"word304"#306

305#"word305"#307

306#"word306"#308

307#"word307"#309

308#"word308"#310

309#"word309"#311

310#"word310"#312

311#"word311"#313

312#"word312"#314

313#"word313"#315

314#"word314"#316

315#"word315"#317

316#"word316"#318

317#"word317"#319

318#"word318"#320

319#"word319"#321

320#"word320"#322

321#"word321"#323

322#"word322"#324

323#"word323"#325

324#"word324"#326

325#"word325"#327

326#"word326"#328

327#"word327"#329

328#"word328"#330

329#"word329"#331

330#"word330"#332

331#"word331"#333

332#"word332"#334

333#"word333"#335

334#"word334"#336

335#"word335"#337

336#"word336"#338

337#"word337"#339

338#"word338"#340

339#"word339"#341

340#"word340"#342

341#"word341"#343

342#"word342"#344

343#"word343"#345

344#"word344"#346

345#"word345"#347

346#"word346"#348

347#"word347"#349

348#"word348"#350

349#"word349"#351

350#"word350"#352

351#"word351"#353

352#"word352"#354

353#"word353"#355

354#"word354"#356

355#"word355"#357

356#"word356"#358

357#"word357"#359

358#"word358"#360

359#"word359"#361

360#"word360"#362

361#"word361"#363

362#"word362"#364

363#"word363"#365

364#"word364"#366

365#"word365"#367

366#"word366"#368

367#"word367"#369

368#"word368"#370

369#"word369"#371

370#"word370"#372

371#"word371"#373

372#"word372"#374

373#"word373"#375

374#"word374"#376

375#"word375"#377

376#"word376"#378

377#"word377"#379

378#"word378"#380

379#"word379"#381

380#"word380"#382

381#"word381"#383

382#"word382"#384

383#"word383"#385

384#"word384"#386

385#"word385"#387

386#"word386"#388

387#"word387"#389

388#"word388"#390

389#"word389"#391

390#"word390"#392

391#"word391"#393

392#"word392"#394

393#"word393"#395

394#"word394"#396

395#"word395"#397

396#"word396"#398

397#"word397"#399

398#"word398"#400

399#"word399"#401

400#"word400"#402

401#"word401"#403

402#"word402"#404

403#"word403"#405

404#"word404"#406

405#"word405"#407

406#"word406"#408

407#"word407"#409

408#"word408"#410

409#"word409"#411

410#"word410"#412

411#"word411"#413

412#"word412"#414

413#"word413"#415

414#"word414"#416

415#"word415"#417

416#"word416"#418

417#"word417"#419

418#"word418"#420

419#"word419"#421

420#"word420"#422

421#"word421"#423

422#"word422"#424

423#"word423"#425

424#"word424"#426

425#"word425"#427

426#"word426"#428

427#"word427"#429

428#"word428"#430

429#"word429"#431

430#"word430"#432

431#"word431"#433

432#"word432"#434

433#"word433"#435

434#"word434"#436

435#"word435"#437

436#"word436"#438

437#"word437"#439

438#"word438"#440

439#"word439"#441

440#"word440"#442

441#"word441"#443

442#"word442"#444

443#"word443"#445

444#"word444"#446

445#"word445"#447

446#"word446"#448

447#"word447"#449

448#"word448"#450

449#"word449"#451

450#"word450"#452

451#"word451"#453

452#"word452"#454

453#"word453"#455

454#"word454"#456

455#"word455"#457

456#"word456"#458

457#"word457"#459

458#"word458"#460

459#"word459"#461

460#"word460"#462

461#"word461"#463

462#"word462"#464

463#"word463"#465

464#"word464"#466

465#"word465"#467

466#"word466"#468

467#"word467"#469

468#"word468"#470

469#"word469"#471

470#"word470"#472

471#"word471"#473

472#"word472"#474

473#"word473"#475

474#"word474"#476

475#"word475"#477

476#"word476"#478

477#"word477"#479

478#"word478"#480

479#"word479"#481

480#"word480"#482

481#"word481"#483

482#"word482"#484

483#"word483"#485

484#"word484"#486

485#"word485"#487

486#"word486"#488

487#"word487"#489

488#"word488"#490

489#"word489"#491

490#"word490"#492

491#"word491"#493

492#"word492"#494

493#"word493"#495

494#"word494"#496

495#"word495"#497

496#"word496"#498

497#"word497"#499

498#"word498"#500

499#"word499"#501

500#"word500"#502

501#"word501"#503

502#"word502"#504

503#"word503"#505

504#"word504"#506

505#"word505"#507

506#"word506"#508

507#"word507"#509

508#"word508"#510

509#"word509"#511

510#"word510"#512

511#"word511"#513

512#"word512"#514

513#"word513"#515

514#"word514"#516

515#"word515"#517

516#"word516"#518

517#"word517"#519

518#"word518"#520

519#"word519"#521

520#"word520"#522

521#"word521"#523

522#"word522"#524

523#"word523"#525

524#"word524"#526

525#"word525"#527

526#"word526"#528

527#"word527"#529

528#"word528"#530

529#"word529"#531

530#"word530"#532

531#"word531"#533

532#"word532"#534

533#"word533"#535

534#"word534"#536

535#"word535"#537

536#"word536"#538

537#"word537"#539

538#"word538"#540

539#"word539"#541

540#"word540"#542

541#"word541"#543

542#"word542"#544

543#"word543"#545

544#"word544"#546

545#"word545"#547

546#"word546"#548

547#"word547"#549

548#"word548"#550

549#"word549"#551

550#"word550"#552

551#"word551"#553

552#"word552"#554

553#"word553"#555

554#"word554"#556

555#"word555"#557

556#"word556"#558

557#"word557"#559

558#"word558"#560

559#"word559"#561

560#"word560"#562

561#"word561"#563

562#"word562"#564

563#"word563"#565

564#"word564"#566

565#"word565"#567

566#"word566"#568

567#"word567"#569

568#"word568"#570

569#"word569"#571

570#"word570"#572

571#"word571"#573

572#"word572"#574

573#"word573"#575

574#"word574"#576

575#"word575"#577

576#"word576"#578

577#"word577"#579

578#"word578"#580

579#"word579"#581

580#"word580"#582

581#"word581"#583

582#"word582"#584

583#"word583"#585

584#"word584"#586

585#"word585"#587

586#"word586"#588

587#"word587"#589

588#"word588"#590

589#"word589"#591

590#"word590"#592

591#"word591"#593

592#"word592"#594

593#"word593"#595

594#"word594"#596

595#"word595"#597

596#"word596"#598

597#"word597"#599

598#"word598"#600

599#"word599"#601

600#"word600"#602

601#"word601"#603

602#"word602"#604

603#"word603"#605

604#"word604"#606

605#"word605"#607

606#"word606"#608

607#"word607"#609

608#"word608"#610

609#"word609"#611

610#"word610"#612

611#"word611"#613

612#"word612"#614

613#"word613"#615

614#"word614"#616

615#"word615"#617

616#"word616"#618

617#"word617"#619

618#"word618"#620

619#"word619"#621

620#"word620"#622

621#"word621"#623

622#"word622"#624

623#"word623"#625

624#"word624"#626

625#"word625"#627

626#"word626"#628

627#"word627"#629

628#"word628"#630

629#"word629"#631

630#"word630"#632

631#"word631"#633

632#"word632"#634

633#"word633"#635

634#"word634"#636

635#"word635"#637

636#"word636"#638

637#"word637"#639

638#"word638"#640

639#"word639"#641

640#"word640"#642

641#"word641"#643

642#"word642"#644

643#"word643"#645

644#"word644"#646

645#"word645"#647

646#"word646"#648

647#"word647"#649

648#"word648"#650

649#"word649"#651

650#"word650"#652

651#"word651"#653

652#"word652"#654

653#"word653"#655

654#"word654"#656

655#"word655"#657

656#"word656"#658

657#"word657"#659

658#"word658"#660

659#"word659"#661

660#"word660"#662

661#"word661"#663

662#"word662"#664

663#"word663"#665

664#"word664"#666

665#"word665"#667

666#"word666"#668

667#"word667"#669

668#"word668"#670

incorrect#"word669"#671

incorrect#"word670"#672

incorrect#"word671"#673

incorrect#"word672"#674

incorrect#"word673"#675

incorrect#"word674"#676

incorrect#"word675"#677

incorrect#"word676"#678

incorrect#"word677"#679

incorrect#"word678"#680

incorrect#"word679"#681

incorrect#"word680"#682

incorrect#"word681"#683

incorrect#"word682"#684

incorrect#"word683"#685

incorrect#"word684"#686

incorrect#"word685"#687

incorrect#"word686"#688

incorrect#"word687"#689

incorrect#"word688"#690

incorrect#"word689"#691

incorrect#"word690"#692

incorrect#"word691"#693

incorrect#"word692"#694

incorrect#"word693"#695

incorrect#"word694"#696

incorrect#"word695"#697

incorrect#"word696"#698

incorrect#"word697"#699

incorrect#"word698"#700

incorrect#"word699"#701

incorrect#"word700"#702

incorrect#"word701"#703

incorrect#"word702"#704

incorrect#"word703"#705

incorrect#"word704"#706

incorrect#"word705"#707

incorrect#"word706"#708

incorrect#"word707"#709

incorrect#"word708"#710

incorrect#"word709"#711

incorrect#"word710"#712

incorrect#"word711"#713

incorrect#"word712"#714

incorrect#"word713"#715

incorrect#"word714"#716

incorrect#"word715"#717

incorrect#"word716"#718

incorrect#"word717"#719

incorrect#"word718"#720

incorrect#"word719"#721

incorrect#"word720"#722

incorrect#"word721"#723

incorrect#"word722"#724

incorrect#"word723"#725

incorrect#"word724"#726

incorrect#"word725"#727

incorrect#"word726"#728

727#"word727"#729

728#"word728"#730

729#"word729"#731

730#"word730"#732

731#"word731"#733

732#"word732"#734

733#"word733"#735

734#"word734"#736

735#"word735"#737

736#"word736"#738

737#"word737"#739

738#"word738"#740

739#"word739"#741

740#"word740"#742

741#"word741"#743

742#"word742"#744

743#"word743"#745

744#"word744"#746

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.Etl;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    EtlTask: IEtlTask;
    DataUserProvider: IEtlPlainDataUserProvider;
    UserProvider: IDtUserProviderEx;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим задачу ETL
    MObj := MB.ItemById["ETLT"].Edit();
    EtlTask := MObj As IEtlTask;
    //Создадим объект "Источник пользователя"
    DataUserProvider := EtlTask.Create(EtlObjectType.eotPlainDataUserProvider) As IEtlPlainDataUserProvider;
    DataUserProvider := DataUserProvider.Edit() As IEtlPlainDataUserProvider;
    // Установим ExMode
    DataUserProvider.ExMode := True;
    // Зададим наименование источника
    DataUserProvider.Name := "Источник пользователя";
    // Подключим модуль и класс для источника пользователя
    UserProvider := DataUserProvider.Provider As IDtUserProviderEx;
    UserProvider.Metabase := Params.Metabase;
    UserProvider.ImplClass := "FORMUSERPROVNET.MyUserProvider";
    DataUserProvider.Save();
    // Визуальное представление источника в задаче
    CreateWXP(DataUserProvider, EtlTask);
    // Сохраним изменения
    Mobj.Save();
End Sub;

{ Создание визуального объекта источника данных }
Public Shared Sub CreateWXP(CopyObj: IEtlPlainDataProvider; Etltask: IEtltask);
Var
    WxDataTrans: IWxRectangle;
    WxETLDataTrans: WxEtlObject = New WxEtlObjectClass();
    OutPoint: GxPointF = New GxPointFClass();
Begin
    WxDataTrans := EtlTask.Workspace.CreateRectangle();
    WxDataTrans.Id := CopyObj.Id;
    WxETLDataTrans.EtlObject := CopyObj;
    WxDataTrans.Style.TextPosition := WxTextPosition.wtpBottom;
    WxDataTrans.Style.PictureMarginTop := -10;
    OutPoint := WxDataTrans.PinPosition;
    OutPoint.Create(20, 20);
    WxDataTrans.Extension := WxETLDataTrans As IWxShapeExtension;
End Sub CreateWXP;