MoveUp(Index: Integer);
Index — primitive index.
The MoveUp method moves the primitive index of which is passed in the Index parameter one position up.
Sub Main;
Var
MB: IMetabase;
ObjDesc: IMetabaseObjectDescriptor;
DimSelSchema: IDimSelectionSchema;
MObj: IMetabaseObject;
Begin
MB:=MetabaseClass.Active;
ObjDesc:=MB.ItemById("TAB_DIM");
If ObjDesc.Children.Count<>0 Then
If ObjDesc.Children.Item(0).ClassId=1030 Then
MObj:=ObjDesc.Children.Item(0).Edit;
DimSelSchema:=MObj As IDimSelectionSchema;
DimSelSchema.MoveUp(DimSelSchema.Count-1);
MObj.Save;
End If;
End If;
End Sub Main;
After executing the example the last primitive of the first schema of dictionary selection is moved one position up. Dictionary identifier: TAB_DIM.
See also: