IStandardDimIndexes.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dim: IStandardDimension;
    DimInds: IStandardDimIndexes;
    DimIndex: IStandardDimIndex;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("TAB_DIM").Edit;
    Dim:=MObj As IStandardDimension;
    DimInds:=Dim.Indexes;
    DimIndex:=DimInds.Add;
    DimIndex.Name:="Индекс идентификаторов";
    DimIndex.Id:="Index_Id";
    DimIndex.Attributes.Add(Dim.Attributes.Id);
    MObj.Save;
End Sub UserProc;