topic-18227

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

A sample report – screenshots
Posted: Sun Feb 28, 2010 03:36 PM

I have finished a report with FASTREPORT.
I show charts for every month and within the chart I compare 2 years (black and green). Under every chart I print the single values.
First I show with xBrowse the whole report and the user can select with tabs the exactly report he wants.
Best regards,
Otto

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: A sample report – screenshots
Posted: Mon Mar 01, 2010 07:19 AM

In the GroupHeader I insert the Charts 1 – 12 for each month.
Then on the OnBeforePrint –event of the Groupheader I set the Chart of the corresponding month visible.
Best regards,
Otto

Code (fw): Select all Collapse

GroupHeader11OnBeforePrint

procedure GroupHeader11OnBeforePrint(Sender: TfrxComponent);
begin

Chart1.Visible := FALSE ;
Chart2.Visible := FALSE ;
Chart3.Visible := FALSE ;
Chart4.Visible := FALSE ;
Chart5.Visible := FALSE ;
Chart6.Visible := FALSE ;
Chart7.Visible := FALSE ;
Chart8.Visible := FALSE ;
Chart9.Visible := FALSE ;
Chart10.Visible := FALSE ;
Chart11.Visible := FALSE ;
Chart12.Visible := FALSE ;

Chart1.Visible := <Jahr."MONAT"> = 1 ;
Chart2.Visible := <Jahr."MONAT"> = 2 ;
Chart3.Visible := <Jahr."MONAT"> = 3 ;
Chart4.Visible := <Jahr."MONAT"> = 4 ;
Chart5.Visible := <Jahr."MONAT"> = 5 ;
Chart6.Visible := <Jahr."MONAT"> = 6 ;
Chart7.Visible := <Jahr."MONAT"> = 7 ;
Chart8.Visible := <Jahr."MONAT"> = 8 ;
Chart9.Visible := <Jahr."MONAT"> = 9 ;
Chart10.Visible := <Jahr."MONAT"> = 10 ;
Chart11.Visible := <Jahr."MONAT"> = 11 ;
Chart12.Visible := <Jahr."MONAT"> = 12 ;
  
end;

FiveTech Support Forums

Continue the discussion