IUserDimIndexAttributes.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    UsDim: IUserDimension;
    UsDimInds: IUserDimIndexes;
    UsDimIndex: IUserDimIndex;
    IndexAtr: IUserDimIndexAttributes;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("USER_DIM").Edit;
    UsDim := MObj As IUserDimension;
    UsDimInds := UsDim.Indexes;
    If UsDimInds.Count <> 0 Then
        UsDimIndex := UsDimInds.Item(0);
        IndexAtr := UsDimIndex.Attributes;
        If IndexAtr.FindByKey(UsDim.Attributes.Order.Key) = Null Then
            IndexAtr.Add(UsDim.Attributes.Order);
        End If;
    End If;
    MObj.Save;
End Sub UserProc;