Visible: Boolean;
The Visible property determines whether it is possible to place headers of grouped data in a separate column.
The property can be set to:
True. By default. It is available to place headers of grouped data in a separate column. The Show Group In Separate Column checkbox is selected and drop-down hierarchy selection is available. The drop-down hierarchy is determined by the IPrxTableIslandGrouping.Hierarchical property.
False. It is unavailable to place headers of grouped data in a separate column. The Show Group In Separate Column checkbox is deselected.
To execute the example, make sure that the repository contains a regular report with the REGULAR_REPORT identifier with set grouping of relational data area.
Add links to the Metabase, Report system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
TabIs: IPrxTableIslands;
TI: IPrxTableIsland;
Grs: IPrxTableIslandGroupings;
Gr: IPrxTableIslandGrouping;
Begin
MB := MetabaseClass.Active;
// Get regular report for edit
MObj := MB.ItemById("REGULAR_REPORT").Edit;
Report := MObj As IPrxReport;
TabIs := Report.TableIslands;
TI := TabIs.Item(0);
TI := Ti.Edit;
// Get the first group settings
Grs := TI.Groupings;
Gr := Grs.Item(0);
// Deselect the Show Group In Separate Column and Pop-up Hierarchy checkboxes
Gr.Visible := False;
If Gr.IsHierarchical Then
Gr.Hierarchical := TriState.OffOption;
End If;
// Save changes to report
TI.Save;
MObj.Save;
End Sub UserProc;
After executing the example, in the regular report with the REGULAR_REPORT identifier, the Show Group In Separate Column and Pop-up Hierarchy checkboxes are deselected in relation data area grouping setup.
See also: