IAutoCubeDimensions.Move

Синтаксис

Move(IndexFrom: Integer; IndexTo: Integer);

Параметры

IndexFrom - индекс измерения, которое необходимо переместить.

IndexTo - индекс позиции, в которую необходимо переместить измерение.

Описание

Метод Move осуществляет перемещение измерений в списке автоматического куба.

Примечание. При перестановке измерений, необходимо осуществлять соответствующее преобразование данных куба, иначе данные будут утеряны. См. также: IAutoCubeTransform.

Пример

Для выполнения примера предполагается наличие в репозитории автоматического куба с идентификатором "AUTO_CUBE". В кубе содержится более одного измерения.

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

AutoCub: IAutoCube;

Dims: IAutoCubeDimensions;

Dim: IAutoCubeDimension;

Transf: IAutoCubeTransform;

b: Boolean;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemById("AUTO_CUBE").Edit;

AutoCub := MObj As IAutoCube;

Dims := AutoCub.Dimensions;

Dims.Move(0, 1);

Transf := AutoCub.Transform;

Debug.WriteLine("Исходный список измерений");

For Each Dim In Transf.MapDimensions Do

Debug.WriteLine((Dim.Dimension As IMetabaseObject).Name)

End For;

Debug.WriteLine("Список измерений после перестановки");

For Each Dim In Transf.Dimensions Do

Debug.WriteLine((Dim.Dimension As IMetabaseObject).Name)

End For;

If Transf.GetChanged(b) Then

Transf.Execute;

End If;

MObj.Save;

End Sub Main;

После выполнения примера в списке измерений автоматического куба будут переставлены местами первые два измерения. Если изменения коснулись измерений с данными, то будет осуществлено соответствующее преобразование данных куба.

См. также:

IAutoCubeDimensions