MoveAllTo(Attributes: IMetaAttributesSet; LevelTo: IMetaHierarchyLevel; [IndexTo: Integer = -1);
Attributes - attributes set that should be moved.
LevelTo - hierarchy level that the attributes set should be moved to.
IndexTo - hierarchy position index that the attributes set should be moved to. Optional parameter.
The MoveAllTo method moves the attributes set to the specified level.
Executing the example requires that the repository contains a time series database with the OBJ_FC identifier.
Add links to the Cubes, Metabase, Rds system assemblies.
Sub UserProc;
Var
Mb: Imetabase;
Rubr: IRubricator;
Facts: IMetaDictionary;
Hierarchy: IMetaHierarchy;
HAttributes: IMetaHierarchyAttributes;
Begin
Mb := MetabaseClass.Active;
Rubr := MB.ItemById("OBJ_FC").Bind As IRubricator;
Facts := Rubr.Facts;
Hierarchy := Facts.DefaultHierarchy;
HAttributes := Hierarchy.Attributes;
HAttributes.MoveAllTo(HAttributes, Hierarchy.Levels.Item(0));
End Sub UserProc;
After executing the example all attributes are moved to the upper level of the hierarchy.
See also: