Namings: IPivotDimNamings;
Namings: Prognoz.Platform.Interop.Pivot.IPivotDimNamings;
Свойство Namings возвращает коллекцию наименований элементов.
Для работы с наименованием элементов измерения используйте свойство IPivotDimNaming.Expression.
Для выполнения примера в репозитории необходимо наличие экспресс-отчета с идентификатором «EXPRESS». Отчет содержит таблицу.
Добавьте ссылки на системные сборки: Express, Metabase, Pivot.
Sub UserProc;
Var
MB: IMetabase;
Express: IEaxAnalyzer;
Pivot: IPivot;
Dim: IPivotDimension;
Namings: IPivotDimNamings;
Naming: IPivotCustomDimNaming;
Expression: String;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим экспресс-отчет
Express := MB.ItemById("EXPRESS").Bind As IEaxAnalyzer;
// Получим настройки отображения таблицы данных отчета
Pivot := Express.Pivot;
// Получим указанное измерение
Dim := Pivot.Dimensions.Item(0);
// Получим коллекцию наименований измерения
Namings := Dim.Namings;
// Получим пользовательское наименование измерения
Naming := Namings.CustomNaming;
// Получим выражение наименования и выведем в окно консоли
Expression := Naming.Expression;
If Expression.Length = 0 Then
Debug.WriteLine("Выражение не задано") Else
Debug.WriteLine("Выражение - " + Expression);
End If;
End Sub UserProc;
После выполнения примера в окно консоли выведется выражение наименования первого элемента измерения.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Pivot;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Express: IEaxAnalyzer;
Pivot: IPivot;
Dim: IPivotDimension;
Namings: IPivotDimNamings;
Naming: IPivotCustomDimNaming;
Expression: String;
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим экспресс-отчет
Express := MB.ItemById["EXPRESS"].Bind() As IEaxAnalyzer;
// Получим настройки отображения таблицы данных отчета
Pivot := Express.Pivot;
// Получим указанное измерение
Dim := Pivot.Dimensions.Item[0];
// Получим коллекцию наименований измерения
Namings := Dim.Namings;
// Получим пользовательское наименование измерения
Naming := Namings.CustomNaming;
// Получим выражение наименования и выведем в окно консоли
Expression := Naming.Expression;
If Expression.Length = 0 Then
System.Diagnostics.Debug.WriteLine("Выражение не задано") Else
System.Diagnostics.Debug.WriteLine("Выражение - " + Expression);
End If;
End Sub;
См. также: