IUserDimIndexes.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    UsDim: IUserDimension;
    UsDimInds: IUserDimIndexes;
    UsDimIndex: IUserDimIndex;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("USER_DIM").Edit;
    UsDim:=MObj As IUserDimension;
    UsDimInds:=UsDim.Indexes;
    UsDimIndex:=UsDimInds.Add;
    UsDimIndex.Name:="Индекс по идентификаторам";
    UsDimIndex.Id:="Index_Id";
    UsDimIndex.Attributes.Add(UsDim.Attributes.Id);
    MObj.Save;
End Sub UserProc;