IStandardDimAttributes.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dimens: IStandardDimension;
    DimAtrrs: IStandardDimAttributes;
    DimAtribut: IStandardDimAttribute;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("TAB_DIM").Edit;
    Dimens:=MObj As IStandardDimension;
    DimAtrrs:=Dimens.Attributes;
    DimAtribut:=DimAtrrs.Add;
    DimAtribut.Id:="New_Atribut";
    DimAtribut.Name:="Дополнительный атрибут";
    DimAtribut.DataType:=DbDataType.Integer;
    MObj.Save;
End Sub UserProc;