MoveToParent(Parent: IMsCalculationChainEntries; Index: Integer);
Parent. Родительская коллекция элементов, в которой необходимо переместить элемент;
Index. Позиция, в которую необходимо переместить элемент.
Метод MoveToParent перемещает элемент цепочки расчёта метамодели.
Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором OBJ_CONT. В данном контейнере должна содержаться метамодель с идентификатором OBJ_META.
Добавьте ссылки на системные сборки: Metabase, Ms.
Sub UserProc;
Var
Mb: IMetabase;
ContKey: Integer;
MModel: IMsMetaModel;
Parent: IMsCalculationChainEntries;
ChainEntry: IMsCalculationChainEntry;
Begin
Mb := MetabaseClass.Active;
ContKey := Mb.GetObjectKeyById("OBJ_CONT");
MModel := Mb.ItemByIdNamespace("OBJ_META",ContKey).Edit As IMsMetaModel;
Parent := MModel.CalculationChain;
ChainEntry := Parent.Item(Parent.Count- 1);
ChainEntry.MoveToParent(Parent,0);
(MModel As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера последний элемент в цепочке расчёта метамодели будет перемещен в начальную позицию.
См. также: