ILaner.CurrentRevision

Синтаксис

CurrentRevision: IRubricatorRevision;

Описание

Свойство CurrentRevision определяет текущую ревизию ряда. Если текущая ревизия не определена, то в таблице отображаются актуальные данные. Красным шрифтом будут выделены данные, измененные в текущей ревизии. Например:

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox. В «UiErAnalyzer1» должна быть загружена рабочая область базы данных временных рядов.

Пример будет выполняться при нажатии на кнопку.

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;

После выполнения примера в таблице данных будут отображены данные, соответствующие последней версии (ревизии) показателя. При наведении указателя мыши на ячейку с данными, будет отображена всплывающая подсказка с наименованием ревизии, в которой были произведены первые изменения показателя.

См. также:

ILaner