IMsMetaModelVisualController.VariableRubricator

Fore Syntax

VariableRubricator: IRubricator;

Fore.NET Syntax

VariableRubricator: Prognoz.Platform.Interop.Cubes.IRubricator;

Description

The VariableRubricator property returns the internal time series database for the metamodel.

Comments

The metamodel contains the internal time series database if IMsMetaModelVisualController.HasVariableRubricator = True.

Fore Example

Executing the example requires a form containing the Button1 button. The repository must contain a time series database with the FC identifier containing a metamodel with the META identifier in the internal modelling catalog.

Add links to the Metabase, the Ms, the Cubes, the Rds system assemblies.

The example is the OnClick event handler for a button.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    mb: IMetabase;
    Rub: IRubricator;
    Ms: IMetabaseObjectDescriptor;
    Meta: IMsMetaModel;
    MetaVisual: IMsMetaModelVisualController;
    Target: IUiCommandTarget;
Begin
    mb := MetabaseClass.Active;
    Rub := mb.ItemById("FC").Bind As IRubricator;
    Ms := Rub.ModelSpace;
    Meta := mb.ItemByIdNamespace("META", Ms.Key).Bind As IMsMetaModel;
    MetaVisual := Meta.VisualController;
    If MetaVisual.HasVariableRubricator Then
        Target := WinApplication.Instance.GetObjectTarget(MetaVisual.VariableRubricator As IMetabaseObjectDescriptor);
        Target.Execute("Object.Open", Null);
    End If;
End Sub Button1OnClick;

Example execution result: the internal time series database for the META metamodel (if the metamodel contains internal time series database) is opened.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Ms;
Imports Prognoz.Platform.Interop.Ui;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    mb: IMetabase;
    Rub: IRubricator;
    Ms: IMetabaseObjectDescriptor;
    Meta: IMsMetaModel;
    MetaVisual: IMsMetaModelVisualController;
    Target: IUiCommandTarget;
    Wa: IWinApplicationClass;
Begin
    mb := Self.Metabase;
    Rub := mb.ItemById["FC"].Bind() As IRubricator;
    Ms := Rub.ModelSpace;
    Meta := mb.ItemByIdNamespace["META", Ms.Key].Bind() As IMsMetaModel;
    MetaVisual := Meta.VisualController;
    If MetaVisual.HasVariableRubricator Then
        Wa := New WinApplicationClassClass();
        Target := Wa.Instance[Null].GetObjectTarget(MetaVisual.VariableRubricator As IMetabaseObjectDescriptor);
        Target.Execute("Object.Open", Null, Null);
    End If;
End Sub;