FastReport GroupHeader

[Otto]

To switch on/off GroupHeader and StartNewPage from within your Fivewin application you can pass 2 variables and then define the OnBeforePrint condition of the GroupHeader:
Fivewin:

Code: Select all  Expand view

if lGruppenKopf = .t.
oFr:AddVariable("Einstellungen", "Gruppenkopf", "'JA'")
else

oFr:AddVariable("Einstellungen", "Gruppenkopf", "'NEIN'")
endif

if lVorschub  = .t.
oFr:AddVariable("Einstellungen", "NeueSeite", "'JA'")
else
oFr:AddVariable("Einstellungen", "NeueSeite", "'NEIN'")
endif

PascalScript in Fast Report

Code: Select all  Expand view

procedure F_GroupHeader1(Sender: TfrxComponent);

begin
   GroupHeader1.Visible := Trim(<Gruppenkopf>) = 'JA'    ;
   GroupHeader1.StartNewPage := Trim(<NeueSeite>) = 'JA'    ;              
end;

Best regards,
Otto

[Otto]

You can also pass a boolean-variable:

Code: Select all  Expand view

Fivewin:
oFr:AddVariable("Einstellungen", "TestLogischeVariable", .T. )
FastReport:
GroupHeader1.Visible :=   <TestLogischeVariable>   ;

Best regards,
Otto