IRubricatorExecuteResult.Factors

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

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