IDimIndexInstanceLookup.Index

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

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    InstLook: IDimIndexInstanceLookup;
    IndexInst: IDimIndexInstance;
    s: String;
Begin
    MB:=MetabaseClass.Active;
    Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
    If Dimen.Indexes.Count<>0 Then
        InstLook:=Dimen.Indexes.Item(0).CreateDimIndexLookup;
        IndexInst:=InstLook.Index;
        s:=IndexInst.Index.Name;
    End If;
End Sub UserProc;