IEtlPlainIndex.AddField

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Object: IMetabaseObject;
    EtlTask: IEtlTask;
    Join: IEtlPlainDataJoin;
    Index: IEtlPlainIndex;
Begin
    MB := MetabaseClass.Active;
    Object := MB.ItemById("ETL").Edit;
    EtlTask := Object As IEtlTask;
    Join := EtlTask.Item(0) As IEtlPlainDataJoin;
    Index := Join.Index;
    Index.AddField;
    Index.PlainInputField(0,0):=Join.PlainInputs.Item(0).Fields.Item(0);
    Index.PlainInputField(0,1):=Join.PlainInputs.Item(1).Fields.Item(0);
    Object.Save;
End Sub UserProc;