The EditMatrixAggregationFilter command

Copy example

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    Model: IMsModel;
    Mt: IMsMatrixAggregationTransform;
    Target: IUiCommandTarget;
    Context: IUiCommandExecutionContext;
    aArgs: array Of Variant;
    Descr, RubrDescr: IMetabaseObjectDescriptor;
    Param: IMsFormulaTransform;
    Formula: IMsFormula;
    Method: IMsMethod;
Begin
    MB := MetabaseClass.Active;
    // Get modeling container
    RubrDescr := MB.ItemById("CONT_MODEL");
    Descr:= RubrDescr.EditDescriptor;
    // Get matrix aggregation model
    Model := MB.ItemByIdNamespace("MODEL_AGGR", Descr.Key).Edit As IMsModel;
    // Get model parameters
    Param := Model.Transform;
    // Get model calculation method
    Formula := Param.FormulaItem(0);
    // Get parameters of model calculation method
    Method := Formula.Method;
    Mt := Method As IMsMatrixAggregationTransform;
    // Get the Ms plugin
    Target := WinApplication.Instance.GetPluginTarget("Ms");
    // Create a context for command execution
    Context := Target.CreateExecutionContext;
    // Create an array of command parameters
    aArgs := New Variant[2];
    aArgs[0] := Model;
    aArgs[1] := Mt.Filter.Item(0);
    Context.ParentWindow := self As IWin32Window;
    Context.Modal := True;
    // Pass array of command parameters
    Context.Data := aArgs;
    // Execute command
    Target.Execute("EditMatrixAggregationFilter", Context);
    // Save pending changes
    (Model As IMetabaseObject).Save;
End Sub Button1OnClick;