IUserDimAttributes.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    UsDim: IUserDimension;
    UsDimAts: IUserDimAttributes;
    UsDimAttr: IUserDimAttribute;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("USER_DIM").Edit;
    UsDim:=MObj As IUserDimension;
    UsDimAts:=UsDim.Attributes;
    UsDimAttr:=UsDimAts.Add;
    UsDimAttr.DataType:=DbDataType.String;
    UsDimAttr.Id:="New_Attr";
    UsDimAttr.Name:="Новый атрибут";
    MObj.Save;
End Sub UserProc;