ICubeInstanceStorage.SaveMatrixCallback

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

Sub UserProc;
Var
    MB: IMetabase;
    CubInst: ICubeInstance;
    Des: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    Sel: IDimSelection;
    Matr: IMatrix;
    Coord: IMatrixCoord;
    Sto: ICubeInstanceStorage;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    CubInst := MB.ItemById("STD_CUBE").Open(Null) As ICubeInstance;
    Des := CubInst.Destinations.DefaultDestination;
    //Отметка куба
    Sels := Des.CreateDimSelectionSet;
    For Each Sel In Sels Do
        If Sel.Dimension.Ident = "COUNTRY" Then
            Sel.SelectAll;
        Else
            Sel.SelectElement(0, False);
        End If;
    End For;
    //Получение матрицы значений по указанной отметке
    Matr := Des.Execute(Sels);
    Matr.ValueFlag := 1;
    Coord := Matr.CreateCoord;
    For i := 0 To Matr.DimensionCount - 1 Do
        Coord.Item(i) := 0;
    End For;
    //Изменение значения по координате
    Matr.Item(Coord) := (Matr.Item(Coord) As Double) + Math.RandBetween(50, 150);
    //Объект для сохранения данных в куб
    Sto := Des.CreateStorage(CubeInstanceStorageOptions.None);
    //Обработчик процесса сохранения данных
    Sto.SaveMatrixCallback := New TCubeSaveCallback.Create;
    //Сохранение значений
    Sto.SaveMatrix(Matr, Matr.ValueFlag);
End Sub UserProc;

Class TCubeSaveCallback: CubeCallback
    Public Sub OnBeforeSave(Argument: ICubeCallbackBeforeSaveArgument);
    Var
        Matr: IMatrix;
        Iter: IMatrixIterator;
        needSkipSave: Boolean = False;
    Begin
        //Матрица с сохраняемыми данными
        Matr := Argument.OriginalMatrix;
        Iter := Matr.CreateIterator;
        Iter.Move(IteratorDirection.First);
        While Iter.Valid Do
            //Если изменённое значение больше 100, то отменяем сохранение
            If Iter.ValueFlag = 1 Then
                If (Iter.Value As Double) > 100 Then
                    needSkipSave := True;
                End If;
            End If;
            Iter.Move(IteratorDirection.Next);
        End While;
        Argument.ResultMatrix := Matr;
        Argument.SkipDefaultSave := needSkipSave;
    End Sub OnBeforeSave;
    Public Sub OnAfterSave(Argument: ICubeCallbackSaveArgument);
    Var
        Connection: ISecurityConnection;
        Matr: IMatrix;
        Iter: IMatrixIterator;
    Begin
        Debug.WriteLine("---Данные сохранены---");
        Connection := (Argument.SecurityConnections[0] As ISecurityConnection);
        Debug.WriteLine("Пользователь платформы: " + Connection.UserNameLo);
        Debug.WriteLine("Пользователь СУБД: " + Connection.UserNameDb);
        Debug.WriteLine("Вариант отображения куба: " + Argument.Destination.Id);
        Debug.WriteLine("Ключ записи в протоколе доступа: " + Argument.LogKey.ToString);
        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;