Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
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;
После выполнения примера в списке измерений автоматического куба будут переставлены местами первые два измерения. Если изменения коснулись измерений с данными, то будет осуществлено соответствующее преобразование данных куба.
См. также: