ICubeInstanceStorage.SaveMatrixEx

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

Sub UserProc;
Var
    MB: IMetabase;
    CubInst: ICubeInstance;
    Des: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    Matr: IMatrix;
    Iter: IMatrixIterator;
    Coord: IMatrixCoord;
    Sto: ICubeInstanceStorage;
    i: Integer;
    ValueFlags: Array Of Integer;
Begin
    MB := MetabaseClass.Active;
    CubInst := MB.ItemById("STD_CUBE").Open(Null) As ICubeInstance;
    Des := CubInst.Destinations.DefaultDestination;
    //Отметка куба
    Sels := Des.CreateDimSelectionSet;
    Sels.FindById("FACTS").SelectElement(0, False); //Факт
    Sels.FindById("CALENDAR").SelectElement(0, False); //Календарь
    Sels.FindById("COUNTRY").SelectAll; //Страны
    //Получение матрицы значений по указанной отметке
    Matr := Des.Execute(Sels);
    Iter := Matr.CreateIterator;
    Coord := Matr.CreateCoord;
    For i := 0 To Matr.DimensionCount - 1 Do
        Coord.Item(i) := 0;
    End For;
    //Изменение значения по первой стране
    Iter.PutCoord(Coord);
    Iter.Value := Iter.Value + 1;
    Iter.ValueFlag := 1;
    //Изменение координаты
    Coord.Item(2) := 1;
    //Изменение значения по второй стране
    Iter.PutCoord(Coord);
    Iter.Value := Iter.Value + 2;
    Iter.ValueFlag := 2;
    //Массив флагов изменившихся данных, по которым производится сохранение
    ValueFlags := New Integer[2];
    ValueFlags[0] := 1;
    ValueFlags[1] := 2;
    //Объект для сохранения данных в куб
    Sto := Des.CreateStorage(CubeInstanceStorageOptions.None);
    //Обработчик процесса сохранения данных
    Sto.SaveMatrixCallback := New TCubeSaveCallback.Create;
    //Сохранение значений
    Sto.SaveMatrixEx(Matr, ValueFlags);
End Sub UserProc;

Class TCubeSaveCallback: CubeCallback
    Public Sub OnAfterSave(Argument: ICubeCallbackSaveArgument);
    Var
        Matr: IMatrix;
        Iter: IMatrixIterator;
        i: Integer;
    Begin
        Debug.WriteLine("---Данные сохранены---");
        Debug.WriteLine("Флаги изменённых данных, по которым производилось сохранение:");
        For Each i In Argument.ValueFlags Do
            Debug.Write(i.ToString + " ");
        End For;
        Debug.WriteLine("");
        Debug.WriteLine("Сохраняемая матрица:");
        Matr := Argument.ValueMatrix;
        Iter := Matr.CreateIterator;
        Iter.Move(IteratorDirection.First);
        While Iter.Valid Do
            Debug.Write(iter.Value + " ");
            Iter.Move(IteratorDirection.Next);
        End While;
        Debug.WriteLine("");
        Debug.WriteLine("Изменённые значения:");
        Matr := Argument.FilteredMatrix;
        Iter := Matr.CreateIterator;
        Iter.Move(IteratorDirection.First);
        While Iter.Valid Do
            Debug.Write(iter.Value + " ");
            Iter.Move(IteratorDirection.Next);
        End While;
        Debug.WriteLine("");
    End Sub OnAfterSave;
End Class TCubeSaveCallback;