IDimSelectionSchema.MoveUp

Синтаксис

MoveUp(Index: Integer);

Параметры

Index — индекс примитива.

Описание

Метод MoveUp осуществляет перемещение примитива, индекс которого передается посредством параметра Index, на одну позицию вверх.

Пример

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;

После выполнения примера последний примитив первой схемы отметки справочника, будет перемещен на одну позицию вверх. Идентификатор справочника - «TAB_DIM».

См. также:

IDimSelectionSchema