IUserDimIndex.Unique

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

Sub UserProc;
Var
    MB: IMetabase;
    UsDim: IUserDimension;
    UsDimInds: IUserDimIndexes;
    UsDimIndex: IUserDimIndex;
    s: String;
Begin
    MB:=MetabaseClass.Active;
    UsDim:=MB.ItemById("USER_DIM").Bind As IUserDimension;
    UsDimInds:=UsDim.Indexes;
    If UsDimInds.Count<>0 Then
        UsDimIndex:=UsDimInds.Item(0);
        If UsDimIndex.Unique Then
            s:="Unique";
        Else
            s:="Not unique";
        End If;
    End If;
End Sub UserProc;