IsDimFixed(DimKey: Integer): Boolean;
IsDimFixed[DimKey: UInteger]: Boolean;
DimKey. Ключ измерения.
Свойство IsDimFixed определяет признак размещения указанного измерения среди частных измерений в экспресс-отчёте.
Использование свойства допустимо, если метод CanFixDim вернёт значение True.
Если методу установлено значение True, то указанное измерение будет перенесено из общих в частные, т.е. у каждого источника данных оно будет представлено в отдельном виде. При установке значения False измерение будет вынесено в общие.
В качестве параметра DimKey следует указать ключ справочника репозитория, на базе которого построено измерение источника данных экспресс-отчёта.
Для выполнения примера понадобится экспресс-отчёт с идентификатором «EXPRESS_REPORT», отображающий данные нескольких источников, имеющих одинаковые измерения.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
ExpressA: IEaxAnalyzer;
DimKey: Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("EXPRESS_REPORT").Edit;
ExpressA := MObj As IEaxAnalyzer;
DimKey := ExpressA.Pivot.Dimensions.Item(0).DimInstance.Key;
If ExpressA.CanFixDim(DimKey, True) Then
ExpressA.IsDimFixed(DimKey) := True;
End If;
MObj.Save;
End Sub UserProc;
После выполнения примера будет осуществлена проверка на возможность перемещения измерения с указанным индексом в частные измерения. Если это возможно, то измерение будет перемещено.
Для выполнения примера понадобится экспресс-отчёт с идентификатором «EXPRESS_REPORT», отображающий данные нескольких источников, имеющих одинаковые измерения.
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Pivot;
Public Sub Main(Params: StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
ExpressA: IEaxAnalyzer;
DimKey: UInteger;
Begin
MB := Params.Metabase;
MObj := MB.ItemById["EXPRESS_REPORT"].Edit();
ExpressA := MObj As IEaxAnalyzer;
DimKey := ExpressA.Pivot.Dimensions.Item[0].DimInstance.Key;
If ExpressA.CanFixDim(DimKey, True) Then
ExpressA.IsDimFixed[DimKey] := True;
End If;
MObj.Save();
End Sub;
После выполнения примера будет осуществлена проверка на возможность перемещения измерения с указанным индексом в частные измерения. Если это возможно, то измерение будет перемещено.
См. также: