IStandardDimIndexAttributes.Item

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

Sub UserProc;
Var
    MB: IMetabase;
    Dim: IStandardDimension;
    DimInds: IStandardDimIndexes;
    DimIndex: IStandardDimIndex;
    DimIndAttrs: IStandardDimIndexAttributes;
    DimIndAttr: IStandardDimIndexAttribute;
    s: String;
Begin
    MB:=MetabaseClass.Active;
    Dim:=MB.ItemById("TAB_DIM").Bind As IStandardDimension;
    DimInds:=Dim.Indexes;
    If DimInds.Count<>0 Then
        DimIndex:=DimInds.Item(0);
        DimIndAttrs:=DimIndex.Attributes;
        DimIndAttr:=DimIndAttrs.Item(0);
        s:=DimIndAttr.Id;
    End If;
End Sub UserProc;