ICubeExecuteResult.Destination

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

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