IUserDimBlocks.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    UsDim: IUserDimension;
    UsDimBlocks: IUserDimBlocks;
    UsDimBlock: IUserDimBlock;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("USER_DIM").Edit;
    UsDim:=MObj As IUserDimension;
    UsDimBlocks:=UsDim.Blocks;
    UsDimBlock:=UsDimBlocks.Add;
    UsDimBlock.Id:="New_block";
    UsDimBlock.Name:="Новый блок";
    MObj.Save;
End Sub UserProc;