IPivotDimensionLevelProperties.Namings

Копировать пример

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;