IMDCalculation.SelectionControl

Copy example

Sub UserProc;
Var
    Mb: IMetabase;
    CrInf: IMetabaseObjectCreateInfo;
    MDcalc: IMDCalculation;
    FormulasTable: IMDCalculationFormulasTable;
    TableForFormulas: ITable;
    Cube: ICubeModel;
    SelControl: ICubeSelectionControl;
    Params: IMetabaseObjectParams;
    Param: IMetabaseObjectParam;
    Dim: IDimensionModel;
    ObjContrl: IMetabaseObjectControl;
    DictParam: IMetabaseObjectDescriptor;
Begin
    Mb := MetabaseClass.Active;
    CrInf := Mb.CreateCreateInfo;
    CrInf.ClassId := MetabaseObjectClass.KE_CLASS_MDCALCULATION;
    CrInf.Name := "MDCALC";
    CrInf.Id := "MDCALC";
    CrInf.Parent := Mb.Root;
    CrInf.Permanent := True;
    MDcalc := Mb.CreateObject(CrInf).Edit As IMDCalculation;
    // Determine database
    MDcalc.Database := Mb.ItemById("DB").Bind As IDatabase;
    // Determine destination cube
    Cube := Mb.ItemById("CUBE_DEST").Bind As ICubeModel;
    MDcalc.Destination.SetCube(Cube);
    // Determine source cube
    Cube := Mb.ItemById("CUBE_SOUR").Bind As ICubeModel;
    MDcalc.Sources.AddCube(Cube);
    // Create a formula table
    FormulasTable := MDcalc.FormulasTable;
    TableForFormulas := FormulasTable.Create;
    (TableForFormulas As IMetabaseObject).Save;
    FormulasTable.Attach(TableForFormulas);
    // Create a parameter for multidimensional calculation
    Params := (MDcalc As IMetabaseObject).Params;
    Param := Params.Add;
    Param.Id := "PARAM";
    Param.DataType := DbDataType.Integer;
    // Set control of parameters of nested objects
    DictParam := Mb.ItemById("PARAM_DICT");
    ObjContrl := Params.ControlInfo.FindByKey(DictParam.Key);
    ObjContrl.Item(0).Expression.AsString := ":PARAM";
    // Set parameter control
    Dim := DictParam.Bind As IDimensionModel;
    SelControl := MDcalc.SelectionControl;
    SelControl.Item(1).ControllingDim := Dim;
    SelControl.Item(1).Expression.AsString := "FIRST.ID";
    // Save calculation
    (MDcalc As IMetabaseObject).Save;
End Sub UserProc;