IPivotDimensionLevelNumbering.Enable

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

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Pivot: IPivot;
    Dim: IPivotDimension;
    LevelNumbering: IPivotDimensionLevelNumbering;
    TopHeader: IPivotHeader;
    Numbering: IPivotHeaderNumbering;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;  
    // Получим настройки отображения таблицы
    Pivot := Express.Pivot;
    // Получим измерение по ключу
    Dim := Pivot.Dimensions.FindByKey(12345);
    // Получим настройки нумерации
    LevelNumbering := Dim.Numbering;
    // Включим использование нумерации в отчёте
    If Not LevelNumbering.IsEnabled Then
        LevelNumbering.Enable := TriState.OnOption;
        TopHeader := Pivot.TopHeader;
        Numbering := TopHeader.Numbering;
        Numbering.IsOn := True;
    End If;
    // Зададим сквозную нумерацию
    LevelNumbering.Type := PivotDimensionLevelNumberingType.Through;
    // Зададим разделитель нумерации
    LevelNumbering.Separator := "/";
    // Зададим формат нумерации
    LevelNumbering.Format := PivotNumberingFormat.LowercaseLetter;
    // Сохраним изменения
    (Express As IMetabaseObject).Save;
End Sub UserProc;