IRubricatorFactorStorage.AsCubeStorage

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

Sub UserProc;
Var
    MB: IMetabase;
    RubrInst: IRubricatorInstance;
    Cube: ICubeInstance;
    Dest: ICubeInstanceDestination;
    FactorStorage: IRubricatorFactorStorage;
    Storage: ICubeInstanceStorage;
    FactorExec: IRubricatorFactorExecutor;
    Exec: ICubeInstanceDestinationExecutor;
    Matr: IMatrix;
    It: IMatrixIterator;
Begin
    MB := MetabaseClass.Active;
    RubrInst := MB.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
    Cube := RubrInst As ICubeInstance;
    Dest := Cube.Destinations.DefaultDestination;
    FactorStorage := Dest.CreateStorage As IRubricatorFactorStorage;
    FactorStorage.DataOverwrite := False;
    FactorStorage.FactDataId := "OBT";
    FactorStorage.FactDataKind := MetaAttributeKind.Value;
    FactorStorage.CurrentRevision := FactorStorage.OpenRevision("Ревизия для сохранения данных");
    Storage := FactorStorage.AsCubeStorage;
    FactorExec := Dest.CreateExecutor As IRubricatorFactorExecutor;
    Exec := FactorExec.AsCubeExecutor;
    Exec.PrepareExecute(Null);
    Exec.PerformExecute;
    FactorStorage.FactDataMatrix := Exec.Matrix;
    Matr := FactorStorage.FactDataMatrix;
    It := Matr.CreateIterator;
    It.Move(IteratorDirection.First);
    Debug.WriteLine("-----Данные до изменения-----");
    While It.Valid Do
        Debug.WriteLine(It.Value);
        It.Value := It.Value + 1;
        It.ValueFlag := 1;
        It.Move(IteratorDirection.Next);
    End While;
    Storage.SaveMatrix(Matr, 1);
    Debug.WriteLine("---- Данные после изменения-----");
    It.Move(IteratorDirection.First);
    While It.Valid Do
        Debug.WriteLine(It.Value);
        It.Move(IteratorDirection.Next);
    End While;
End Sub UserProc;