IEtlPlainOutput.Fields

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

Sub UserProc;
Var
    MB: IMetabase;
    EtlTask: IEtlTask;
    ALLLinks: IEtlPlainLinks;
    Link: IEtlPlainLink;
    Output: IEtlPlainOutput;
    Fields: IEtlPlainFields;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    EtlTask := MB.ItemById("ETL").Bind As IEtlTask;
    ALLLinks := EtlTask.Links;
    Link := ALLLinks.Item(7);
    Output := Link.SourceObjectOutput;
    Fields := Output.Fields;
    i := Fields.Count;
End Sub UserProc;