EditChainEntry Command

Purpose

It opens the dialog box to set up multidimensional cycle or the dialog box to set up multidimensional cycle dimension.

Parameters of Use

Command parameters are passed in the IUiCommandExecutionContext.Data property as an array of the Variant type which elements contain the following values:

Value type Description
Element 1: IMsMetaModel Metamodel containing a multidimensional cycle.
Element 2: IMsCalculationChainEntry Calculation chain element that is a multidimensional cycle.
Element 3: IMsDimIteratorDimension Multidimensional cycle dimension.
Element 4: String It can be set only to the compact value. The attribute that a short dialog box view to set up dimension filtering will be displayed.

Application Features

The dialog box display depends on the selected array elements. If:

Example

Executing the example requires a form that contains a button with the Button1 identifier and three components RadioButton with the RadioButton1, RadioButton2, RadioButton3 identifiers. In the RadioButton1 component the Checked property is set to True. The Text property has the following values for the RadioButton components:

Executing the example requires that the repository contains a modeling container with the MS_PLUGIN identifier including metamodel with the META_DIMITERATOR identifier. This metamodel contains only multidimensional cycle calculated by several dimensions.

Add links to the Fore, Metabase, Ms, UI system assemblies.

The example is an event handler of the OnClick event for the Button1 button.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    mb: IMetabase;
    msKey: Integer;
    meta: IMsMetaModel;
    chainEntry: IMsCalculationChainEntry;
    dimIter: IMsCalculationChainMultiDimIterator;
    target: IUiCommandTarget;
    context: IUiCommandExecutionContext;
    arg: array Of Variant;
Begin
    // Get current repository
    mb := MetabaseClass.Active;
    // Get model
    msKey := mb.GetObjectKeyById("MS_PLUGIN");
    meta := mb.ItemByIdNamespace("META_DIMITERATOR", msKey).Edit As IMsMetaModel;
    // Get multidimensional cycle
    chainEntry := meta.CalculationChain.Item(0);
    dimIter := chainEntry As IMsCalculationChainMultiDimIterator;
    // Get Ms plugin
    target := WinApplication.Instance.GetPluginTarget("Ms");
    // Create a context to execute a command
    context := target.CreateExecutionContext;
    // Create command parameters array
    arg := New Variant[4];
    arg[0] := meta;
    arg[1] := chainEntry;
    // If the RadioButton2 radio button is selected,
    // an element with multidimensional cycle dimension is added to the array
    If RadioButton2.Checked Then
        arg[2] := dimIter.Dimensions.Item(0);
    End If;
    // If the RadioButton2 radio button is selected,
    // an element with multidimensional cycle dimension is added to the array
    // and an element specifying the short view of dialog box 
    If RadioButton3.Checked Then
        arg[2] := dimIter.Dimensions.Item(0);
        arg[3] := "compact";
    End If;
    // Send command parameters array
    context.Data := arg;
    // Execute the command
    target.Execute("EditChainEntry", context);
End Sub Button1OnClick

Imports Prognoz.Platform.Interop.Fore;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Ms;
Imports Prognoz.Platform.Interop.Ui;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    mb: IMetabase;
    msKey: uinteger;
    meta: IMsMetaModel;
    chainEntry: IMsCalculationChainEntry;
    dimIter: IMsCalculationChainMultiDimIterator;
    target: IUiCommandTarget;
    WinApp: WinApplicationClassClass = New WinApplicationClassClass();
    RunContext: ForeRuntimeContext;
    context: IUiCommandExecutionContext;
    arg: array Of object;
Begin
    // Get current repository
    mb := Self.Metabase;
    // Get model
    msKey := mb.GetObjectKeyById("MS_PLUGIN");
    meta := mb.ItemByIdNamespace["META_DIMITERATOR", msKey].Edit() As IMsMetaModel;
    // Get multidimensional cycle
    chainEntry := meta.CalculationChain.Item[0];
    dimIter := chainEntry As IMsCalculationChainMultiDimIterator;
    // Get Ms plugin
    RunContext := (mb As IForeServices).GetRuntime().Context;
    target := WinApp.Instance[RunContext].GetPluginTarget("Ms");
    // Create a context to execute a command
    context := target.CreateExecutionContext();
    // Create command parameters array
    arg := New object[4];
    arg[0] := meta;
    arg[1] := chainEntry;
    // If the RadioButton2 radio button is selected,
    // an element with multidimensional cycle dimension is added to the array
    If RadioButton2.Checked Then
        arg[2] := dimIter.Dimensions.Item[0];
    End If;
    // If the RadioButton2 radio button is selected,
    // an element with multidimensional cycle dimension is added to the array
    // and an element specifying the short view of dialog box 
    If RadioButton3.Checked Then
        arg[2] := dimIter.Dimensions.Item[0];
        arg[3] := "compact";
    End If;
    // Send command parameters array
    context.Data := arg;
    // Execute the command
    target.Execute("EditChainEntry", context, RunContext);
End Sub;

After executing the example, clicking the Button1 button launches the behavior that depends on the selected RadioButton radio buttons:

See also:

IUiCommandTarget.Execute