IStandardDimLevels.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dim: IStandardDimension;
    DimLevels: IStandardDimLevels;
    DimLevel: IStandardDimLevel;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("TAB_DIM").Edit;
    Dim:=MObj As IStandardDimension;
    DimLevels:=Dim.Levels;
    DimLevel:=DimLevels.Add;
    DimLevel.Name:="Новый уровень";
    DimLevel.Id:="NEW_LEVEL";
    MObj.Save;
End Sub UserProc;