ILanerSourceSerie.Revision

Синтаксис

Revision: IRubricatorRevision;

Описание

Свойство Revision возвращает текущую ревизию ряда.

Пример

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

ErAn: IEaxAnalyzer;

Laner: ILaner;

Serie: ILanerSerie;

SourceSerie: ILanerSourceSerie;

Begin

ErAn := UiErAnalyzer1.ErAnalyzer;

Laner := ErAn.Laner;

Serie := Laner.Series.Item(0);

If Serie.Kind = LnSerieKind.Source Then

SourceSerie := Serie As ILanerSourceSerie;

If SourceSerie.Revision <> Null Then

Memo1.Lines.Add("Ревизия: " + SourceSerie.Revision.Name);

Memo1.Lines.Add("Справочник: " + SourceSerie.RevisionDimension.Name);

Memo1.Lines.Add("Ключ ревизии: " + SourceSerie.RevisionKey.ToString);

End If;

End If;

End Sub Button1OnClick;

После выполнения примера в компонент «Memo1» будет выведена информация о текущей ревизии первого ряда рабочей области.

См. также:

ILanerSourceSerie