IEaxDimensionDescriptor.Equal

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Analyzer: IEaxAnalyzer;
    DA: IEaxDataArea;
    Slice, SliceDim: IEaxDataAreaSlice;
    PivotDimKey, PivotDimKeyTwo: Integer;
    DimensionInst, DimensionInstTwo: IEaxDimensionInstance;
    DimDescr, DimDescrTwo: IEaxDimensionDescriptor;
Begin
    // Get repository
    MB := MetabaseClass.Active;
    // Get express report
    Analyzer := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Get data area
    DA := Analyzer.DataArea;
    // Get data slice
    Slice := DA.Slices.Item(0);
    // Get dimension key
    PivotDimKey := Analyzer.Pivot.DimItem(3).Key;
    // Get dimension data by key
    DimensionInst := Slice.GetDimension(PivotDimKey);
    // Display selection elements and dimension name in the console window
    Debug.WriteLine("Selection elements - " + DimensionInst.Selection.ToString("", ", ", False));
    Debug.WriteLine("Dimension name - " + DimensionInst.Dimension.Name);
    // Get dimension description
    DimDescr := DimensionInst As IEaxDimensionDescriptor;
    // Display dimension key in the console window
    Debug.WriteLine("Dimension key - " + DimDescr.DimKey.ToString);
    // Get the slice, to which dimension belongs
    SliceDim := DimDescr.Slice As IEaxDataAreaSlice;
    // Display data slice identifier in the console window
    Debug.WriteLine("Data slice identifier - " + SliceDim.Id);
    // Display dimension parent object type in the console window
    Select Case DimDescr.SliceType As Integer
        Case 0: Debug.WriteLine("Dimension parent object type - PivotSlice");
        Case 1: Debug.WriteLine("Dimension parent object type - PrxSlice");
        Case 2: Debug.WriteLine("Dimension parent object type - Visualizer");
    End Select;
    // Get dimension description
    PivotDimKeyTwo := Analyzer.Pivot.DimItem(4).Key;
    DimensionInstTwo := Slice.GetDimension(PivotDimKeyTwo);
    DimDescrTwo := DimensionInstTwo As IEaxDimensionDescriptor;
    // Display whether dimension descriptions are equal in the console window
    If DimDescr.Equal(DimDescrTwo) Then
        Debug.WriteLine("Dimension descriptions are equal");
    Else
        Debug.WriteLine("Dimension descriptions are not equal");
    End If;
End Sub UserProc;