IMDCalculationDatasetInstance.DimensionSet

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

Sub UserProc;
Var
    MB: IMetabase;
    Calc: IMDCalculation;
    CalcInst: IMDCalculationInstance;
    Apply: ICubeSelectionControlApply;
    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);
    Apply.SourceSelection := CalcInst.Sources.Item(0).DimensionSet;
    Debug.WriteLine("---Source---");
    For Each Sel In Apply.SourceSelection Do
        Debug.WriteLine(Sel.Dimension.Name);
    End For;
    CalcInst.Apply(Apply);
    Debug.WriteLine("---Result---");
    For Each Sel In Apply.ResultSelection Do
        Debug.WriteLine(Sel.Dimension.Name);
    End For;
End Sub UserProc;