IUserDimLevels.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    UsDim: IUserDimension;
    UsDimLevs: IUserDimLevels;
    UsDimLevel: IUserDimLevel;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("USER_DIM").Edit;
    UsDim:=MObj As IUserDimension;
    UsDimLevs:=UsDim.Levels;
    UsDimLevel:=UsDimLevs.Add;
    UsDimLevel.Id:="New_Level";
    UsDimLevel.Name:="Дополнительный уровень";
    MObj.Save;
End Sub UserProc;