IEaxDataAreaTransformations.IndexOf

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Slice: IEaxDataAreaSlice;
    TrsCalc: IEaxDataAreaTransformations;
    TrCalc_a, TrCalc_b: IEaxDataAreaTransformation;
    SelSet: IDimSelectionSet;
    TransArray: IEaxTransformationTargetsArray;
    i: Integer;
    Tr: IEaxDataAreaTransformation;
Begin
    // Get repository
    MB := MetabaseClass.Active;
    // Get express report
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Get data slice
    Slice := Express.DataArea.Slices.Item(0);
    // Get the collection of data transformation formulas
    TrsCalc := Slice.CalcTransformations;
    // Get data transformation formulas
    TrCalc_a := TrsCalc.Item(0);
    TrCalc_b := TrsCalc.Item(1);
    // Move indexes of data transformation formulas
    TrsCalc.MoveTo(1, 0);
    // Display in the console window
    Debug.WriteLine
    ("Index of moved data transformation formula = " + TrsCalc.IndexOf(TrCalc_b).ToString);
    // Get selection and display dimension elements, for which formula is set up
    SelSet := TrsCalc.TransformationsSelection;
    Debug.WriteLine("Selection elements - " + SelSet.Item(0).ToString("", ", ", False));
    // Display expression that transforms data in the console window
    TransArray := TrsCalc.TransformationElements(Null);
    For i := 0 To TransArray.Count - 1 Do
        Tr := TransArray.Transformation(i);
        Debug.WriteLine("Data transformation formula - " + Tr.Expression.AsString);
    End For;
    // Save changes
    (Express As IMetabaseObject).Save;
End Sub UserProc;