IStandardDimIndex.Primary

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

Sub UserProc;
Var
    MB: IMetabase;
    Dim: IStandardDimension;
    DimInds: IStandardDimIndexes;
    DimIndex: IStandardDimIndex;
    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);
        If DimIndex.Primary Then
            s:="Primary";
        Else
            s:="Not primary";
        End If;
    End If;
End Sub UserProc;