Moving Dimension from Shared to Private

On working with the express report, which is built on several sources, shared dimensions for all sources are displayed as separate dimensions. The dimensions that are unique for the sources are united into a separate dimensions and are displayed on the Private Dimensions tab. Sometimes it may require to move one of shared dimensions to Private Dimensions. Consider an example of such moving by means of the Fore and Fore.NET languages.

Executing the example requires a form with the Button1 button, the TabSheetBox, ErAnalyzerDimPanel component and the UiErAnalyzer component named UiErAnalyzer1 that is a data source for the mentioned visual components. For the Fore.NET Example - existing of the .NET form and similar .NET components. An express report built on several sources is connected to UiErAnalyzer1. A dimension with the Country identifier is among shared dimensions.

Apart from the assemblies that will be connected automatically, it is also required to add links to the Cubes, Dimensions, Express, Metabase, Pivot repository system assemblies.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs); Var     Analyzer: IEaxAnalyzer;     Pivot: IPivot;     Selection, NewSel: IDimSelection;     DataSources: IEaxDataSources;     FixInfo: ICubeDimensionFixInfo;     VirtualCube: IVirtualCube;     CompoundSelection: ICompoundSelection;     SourcesSelection: IDimSelectionSet;     SourceSelection: ICompoundSelection;     DimFix: ICubeDimensionFix;     DimKey, CompoundDimKey, i: Integer; Begin     Analyzer := UiErAnalyzer1.ErAnalyzer;     Pivot := Analyzer.Pivot;     //Selection of dimension that will be moved into private ones     //This dimension is contained in all express report sources     //Selection is required for its further restoring in a composite selection of a private dimension     Selection := Pivot.Selection.FindById("COUNTRY");     //Key of a moved dimension     DimKey := Selection.Dimension.Key;     //Fixation of dimension in a virtual cube, which is created under express report     DataSources := Analyzer.DataSources;     For i := 0 To DataSources.Count - 1 Do         FixInfo := DataSources.Item(i).VirtualCubeSource.FixInfo;         DimFix := FixInfo.FindByKey(DimKey);         DimFix.Fixed := True;     End For;     //Getting of composite selection, which includes all selections of private dimensions     VirtualCube := (Pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;     CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;     CompoundSelection := Pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;     //Collection of selections of private dimensions     //Each selection private dimension in its turn is a composite selection of dimensions, which are unique for     //a certain data source     SourcesSelection := CompoundSelection.Selection;     Pivot.BeginSelectionUpdate;     For Each SourceSelection In SourcesSelection Do         //Adding&nbspto selection of a private dimension a selection of moved dimension         NewSel := SourceSelection.Selection.Add(Selection.Dimension);         //Restoring of its selection, in according to the one, which was before moving         Selection.CopyTo(NewSel, True);     End For;     Pivot.EndSelectionUpdate;     //Refreshing of data sources     DataSources.Refresh; End Sub Button1OnClick;

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Pivot;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs); Var     Analyzer: EaxAnalyzer;     Pivot: IPivot;     Selection, NewSel: IDimSelection;     DataSources: IEaxDataSources;     FixInfo: ICubeDimensionFixInfo;     VirtualCube: IVirtualCube;     CompoundSelection: ICompoundSelection;     SourcesSelection: IDimSelectionSet;     SourceSelection: ICompoundSelection;     DimFix: ICubeDimensionFix;     DimKey, CompoundDimKey: UInteger;     i: Integer; Begin     Analyzer := UiErAnalyzerNet1.ErAnalyzer.ErAnalyzer;     Pivot := Analyzer.Pivot;     //Selection of dimension, which will be moved into private ones     //This dimension is contained in all express report sources     //Selection is required for its further restoring in composite selection of private dimension     Selection := Pivot.Selection.FindById("COUNTRY");     //Key of a moved dimension     DimKey := Selection.Dimension.Key;     //Fixation of dimension in the virtual cube, which is created under express report     DataSources := Analyzer.DataSources;     For i := 0 To DataSources.Count - 1 Do         FixInfo := DataSources.Item[i].VirtualCubeSource.FixInfo;         DimFix := FixInfo.FindByKey(DimKey);         DimFix.Fixed := True;     End For;     //Getting of composite selection, which includes all selections of private dimensions     VirtualCube := (Pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;     CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;     CompoundSelection := Pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;     //Collection of selections of private dimensions     //Each selection of private dimension in its turn is a composite selection of dimensions, which are unique for     //a certain data source     SourcesSelection := CompoundSelection.Selection;     Pivot.BeginSelectionUpdate();     For Each SourceSelection In SourcesSelection Do         //Adding to selection a private dimension of selection of moved dimension         NewSel := SourceSelection.Selection.Add(Selection.Dimension);         //Restoring of its selection according with the one, which was before moving         Selection.CopyTo(NewSel, True);     End For;     Pivot.EndSelectionUpdate();     //Refreshing of data sources     DataSources.Refresh(False); End Sub;