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