IMDCalculationInstance.Apply

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Calc: IMDCalculation;
    CalcInst: IMDCalculationInstance;
    Apply: ICubeSelectionControlApply;
    SelS: IDimSelectionSet;
    Sel: IDimSelection;
Begin
    MB := MetabaseClass.Active;
    Calc := MB.ItemById("MDCALC").Bind As IMDCalculation;
    CalcInst := (Calc As IMetabaseObject).Open(Null) As IMDCalculationInstance;
    Apply := CalcInst.CreateApply(CalcInst.Destination);
    SelS := CalcInst.Sources.Item(0).DimensionSet;
    Debug.WriteLine("---Source---");
    Apply.SourceSelection := SelS;
    For Each Sel In SelS Do
        Debug.WriteLine(Sel.Dimension.Name);
    End For;
    CalcInst.Apply(Apply);
    Debug.WriteLine("---Result---");
    SelS := Apply.ResultSelection;
    For Each Sel In SelS Do
        Debug.WriteLine(Sel.Dimension.Name);
    End For;
End Sub UserProc;