IEaxGridDimensionSettings.OnlyFirstNamingHyperlinkShown

OnlyFirstNamingHyperlinkShown: TriState;

OnlyFirstNamingHyperlinkShown: Prognoz.Platform.Interop.ForeSystem.TriState;

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Eax: IEaxAnalyzer;
    Prop: IEaxGridDimensionSettings;
    PivotDim: IDataAreaHeaderSettingsBase;
Begin
    // Откроем экспресс-отчёт с ключом 71208
    Eax := MetabaseClass.Active.Item(71208).Edit As IEaxAnalyzer;
    Eax := UiErAnalyzer1.ErAnalyzer;
    // Найдем измерение источника данных с ключом 10152
    PivotDim := Eax.Pivot.Dimensions.FindByKey(10152) As IDataAreaHeaderSettingsBase;
    // Проверим признак отображения гиперссылки у первого по порядку атрибута измерения 
    Prop := Eax.Grid.ViewSettings.GetViewSettings(PivotDim) As IEaxGridDimensionSettings;
    If Prop.IsOnlyFirstNamingHyperlinkShown = False Then
        // Включим отображения гиперссылки у первого по порядку атрибута измерения
        Prop.OnlyFirstNamingHyperlinkShown := TriState.OnOption;
        Label1.Text := "Отображение гиперссылки только у первого по порядку атрибута измерения";
    Else
        // Включим отображения гиперссылки у всех атрибутов измерения
        Prop.OnlyFirstNamingHyperlinkShown := TriState.OffOption;
        Label1.Text := "Отображение гиперссылки у всех атрибутов измерения";
    End If;
    (Eax As IMetabaseObject).Save;
End Sub Button1OnClick;

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.ExtCtrls;
Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Pivot;
Imports Prognoz.Platform.Interop.Tab;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    Eax: IEaxAnalyzer;
    Prop: IEaxGridDimensionSettings;
    PivotDim: IDataAreaHeaderSettingsBase;
Begin
    // Откроем экспресс-отчёт с ключом 71208
    MB := Params.Metabase;
    Eax := MB.Item[71208].Edit() As IEaxAnalyzer;
    // Найдем измерение источника данных с ключом 10152
    PivotDim := Eax.Pivot.Dimensions.FindByKey(10152) As IDataAreaHeaderSettingsBase;
    // Проверим признак отображения гиперссылки у первого по порядку атрибута измерения
    Prop := Eax.Grid.ViewSettings.GetViewSettings[PivotDim] As IEaxGridDimensionSettings;
    If Prop.IsOnlyFirstNamingHyperlinkShown = False Then
        // Включим отображения гиперссылки у первого по порядку атрибута измерения
        Prop.OnlyFirstNamingHyperlinkShown := TriState.tsOnOption;
        Label1.Text := "Отображение гиперссылки только у первого по порядку атрибута измерения";
    Else
        // Включим отображения гиперссылки у всех атрибутов измерения
        Prop.OnlyFirstNamingHyperlinkShown := TriState.tsOffOption;
        Label1.Text := "Отображение гиперссылки у всех атрибутов измерения";
    End If;
    (Eax As IMetabaseObject).Save();
End Sub;