MoveDown(Index: Integer);
Index — индекс примитива.
Метод MoveDown осуществляет перемещение примитива, индекс которого передается посредством параметра Index, на одну позицию вниз.
Sub UserProc;
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.MoveDown(0);
MObj.Save;
End If;
End If;
End Sub UserProc;
После выполнения примера первый примитив первой схемы отметки справочника, будет перемещен на одну позицию вниз. Идентификатор справочника - «TAB_DIM».
См. также: