ILaner.CurrentRevision

Syntax

CurrentRevision: IRubricatorRevision;

Description

The CurrentRevision property determines current series revision.

Comments

If the current revision is not identified, the actual data is displayed in the table. The information for the data modified in the current revision is displayed using the red font color. For example:

Example

Executing the example requires a form with the following components: the Button component named Button1, the TabSheetBox component named TabSheetBox1, and the UiErAnalyzer component named UiErAnalyzer1. UiErAnalyzer1 is a data source for TabSheetBox1. A working area of the time series database should be loaded to UiErAnalyzer1.

The example is a handler of the OnClick event for the Button1 component.

Add links to the Cubes, Dimensions, Express, ExtCtrls, Forms, Laner, and Tab system assemblies.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    RubInstance: IRubricatorInstance;
    RevDims: IDimInstance;
    ElemArray: IDimElementArray;
    RevKey: Integer;
    Elem: Integer;
    crRev: IRubricatorRevision;
    Eax: IEaxAnalyzer;
    Laner: ILaner;
Begin
    Laner := UiErAnalyzer1.ErAnalyzer.Laner;
    RubInstance := Laner.RubricatorInstance;
    RevDims := RubInstance.RevisionsDimension(-2);
    ElemArray := RevDims.Elements.Elements;
    If ElemArray.Count > 0 Then
        Elem := ElemArray.Element(0);
        RevKey := RevDims.Indexes.PrimaryIndex.IndexAttributesValues(Elem);
        crRev := RubInstance.GetRevision(RevKey);
        Eax := UiErAnalyzer1.ErAnalyzer;
        Laner.CurrentRevision := crRev;
        Laner.TransformationHistory := True;
    End If;
End Sub Button1OnClick;

After executing the example the data corresponding to the latest version (revision) of the indicator is displayed in data table. Hovering over data cell with a cursor displays the tooltip that contains the name of the revision, in which the first changes of the indicator were made.

See also:

ILaner