ICubeClass.ExecuteResult

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

Sub UserProc;
Var
    Mb: IMetabase;
    Cat: IMetabaseObjectDescriptor;
    Inst: IRubricatorInstance;
    CubeInst: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Exec: ICubeInstanceDestinationExecutor;
    Mat, MatRes: IMatrix;
    FactorIO: IRubricatorFactorIO;
    ExeRes: IRubricatorExecuteResult;
    CubeExeRes: ICubeExecuteResult;
Begin
    Mb := MetabaseClass.Active;
    Cat := mb.ItemById("OBJ_RUBRICATOR").Bind;
    Inst := Cat.Open(Null) As IRubricatorInstance;
    CubeInst := Inst As ICubeInstance;
    Dest := CubeInst.Destinations.DefaultDestination;
    Exec := Dest.CreateExecutor;
    FactorIO := Exec As IRubricatorFactorIO;
    FactorIO.ValidationValues := False;
    FactorIO.MultipleFactors := False;
    FactorIO.Dependencies := False;
    Exec.PrepareExecute(Null);
    Exec.PerformExecute;
    Mat := Exec.Matrix;
    CubeExeRes := CubeClass.ExecuteResult(Mat);
    Debug.WriteLine(CubeExeRes.Destination.Name);
    ExeRes := CubeExeRes As IRubricatorExecuteResult;
    MatRes := ExeRes.Values;
End Sub UserProc;