IsDimensionMergeAllowed(DimKey: Integer): Boolean;
IsDimensionMergeAllowed(DimKey: uinteger): boolean;
DimKey. Ключ измерения.
Свойство IsDimensionMergeAllowed возвращает признак того, доступно ли измерение, которое содержится в заголовке таблицы, для поджатия.
Возможные значения:
True. Измерение доступно для поджатия;
False. Измерение недоступно для поджатия.
Для выполнения примера убедитесь, что в репозитории содержится экспресс-отчёт с идентификатором «EXPRESS». Эспресс-отчёт содержит 2 измерения, расположенных в строках и объединенных в один слот.
Добавьте ссылки на системные сборки: Express, Dimensions, Metabase, Pivot.
Sub Main;
Var
MB: IMetabase;
Report: IEaxAnalyzer;
Pivot: IPivot;
info: String;
TableHeader: IPivotTableHeader;
dimKey: Integer;
Begin
// Получим текущий репозиторий
MB := MetabaseClass.Active;
// Получим экспресс-отчет
Report := MB.ItemById("EXPRESS").Bind As IEaxAnalyzer;
// Получим объект, на основе которого строится таблица данных
Pivot := Report.Pivot;
// Получим свойства боковика таблицы
TableHeader := Pivot.ObtainTable.LeftHeader;
// Проверка на пожатие 1-го измерения
dimKey := Pivot.LeftHeader.Dim(0).Key;
info := Pivot.ObtainTable.LeftHeader.IsDimensionMergeAllowed(dimKey).ToString;
Debug.WriteLine(info);
// Проверка на поджатие 2-го измерения
dimKey := Pivot.LeftHeader.Dim(1).Key;
info := Pivot.ObtainTable.LeftHeader.IsDimensionMergeAllowed(dimKey).ToString;
Debug.WriteLine(info);
End Sub Main;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Pivot;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IEaxAnalyzer;
Pivot: IPivot;
info: string;
TableHeader: IPivotTableHeader;
dimKey: uinteger;
Begin
// Получим текущий репозиторий
MB := Params.Metabase;
// Получим экспресс-отчет
Report := MB.ItemById["EXPRESS"].Bind() As IEaxAnalyzer;
// Получим объект, на основе которого строится таблица данных
Pivot := Report.Pivot;
// Получим свойства боковика таблицы
TableHeader := Pivot.ObtainTable().LeftHeader;
// Проверка на пожатие 1-го измерения
dimKey := Pivot.LeftHeader.Dim[0].Key;
info := Pivot.ObtainTable().LeftHeader.IsDimensionMergeAllowed[dimKey].ToString();
System.Diagnostics.Debug.WriteLine(info);
// Проверка на поджатие 2-го измерения
dimKey := Pivot.LeftHeader.Dim[1].Key;
info := Pivot.ObtainTable().LeftHeader.IsDimensionMergeAllowed[dimKey].ToString();
System.Diagnostics.Debug.WriteLine(info);
End Sub;
В результате выполнения примера в окно консоли будет выведено для первого измерения значение False, так как поджатие доступно для всех измерений кроме первого, а для второго измерения значение True.
См. также: