IPrxTableIslandGrouping.Visible

Синтаксис

Visible: Boolean;

Visible: System.Boolean;

Описание

Свойство Visible определяет возможность расположения заголовков группируемых данных в отдельном столбце.

Комментарии

Свойство принимает значения:

Пример

Для выполнения примера убедитесь, что в репозитории содержится регламентый отчет с идентификатором «REGULAR_REPORT» с настроенной группировкой реляционной области данных.

Добавьте ссылки на системные сборки: Metabase, Report, ForeSystem (для примера на Fore.NET).

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Grs: IPrxTableIslandGroupings;
    Gr: IPrxTableIslandGrouping;
Begin
    MB := MetabaseClass.Active;
    // Получим регламентный отчет на редактирование
    MObj := MB.ItemById("REGULAR_REPORT").Edit;
    Report := MObj As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    TI := Ti.Edit;
    // Получим настройки первой группы
    Grs := TI.Groupings;
    Gr := Grs.Item(0);
    // Снимем флажки «Отобразить группу в отдельном столбце» и «Раскрывающаяся иерархия»
    Gr.Visible := False;
    If Gr.IsHierarchical Then
        Gr.Hierarchical := TriState.OffOption;
    End If;
    // Сохраним изменения в отчете
    TI.Save;
    MObj.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params : StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Grs: IPrxTableIslandGroupings;
    Gr: IPrxTableIslandGrouping;
Begin
    MB := Params.Metabase;
    // Получим регламентный отчет на редактирование
    MObj := MB.ItemById["REGULAR_REPORT"].Edit();
    Report := MObj As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item[0];
    TI := Ti.Edit();
    // Получим настройки первой группы
    Grs := TI.Groupings;
    Gr := Grs.Item[0];
    // Снимем флажок «Отобразить группу в отдельном столбце» и «Раскрывающаяся иерархия»
    Gr.Visible := False;
    If Gr.IsHierarchical Then
        Gr.Hierarchical := TriState.tsOffOption;
    End If;
    // Сохраним изменения в отчете
    TI.Save();
    MObj.Save();
End Sub;

После выполнения примера в регламентном отчете с идентификатором «REGULAR_REPORT» будут сняты флажки «Отобразить группу в отдельном столбце» и «Раскрывающаяся иерархия» в настройке группировки реляционной области данных.

См. также:

IPrxTableIslandGrouping