RevisionDimension: IDimInstance;
Свойство RevisionDimension возвращает справочник, содержащий ревизии ряда.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «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» будет выведена информация о текущей ревизии первого ряда рабочей области.
См. также: