variables / aggregates

Comments

• technisoft

  May 2012 edited 6:10PM

  There are 2 kinds of variables in FR. Categorized variable and non-categorized one.
  For the first kind you use Get() and Set()
  Look at this thread which deals with a similar problem.
  http://www.fast-report.com/en/forum/?p=/discussion/9134
  These variables can be referred to like table columns.
  
  The second kind you use like ordinary Pascal variable. However, they are run-time only as far as I can figure out one can only assign them to a memo component or a categorized variable in the script.
  
• zifnabbe

  May 2012 edited 6:10PM

  thanks for your reply.
  

  http://www.fast-report.com/en/forum/?p=/discussion/9134 wrote:

  http://www.fast-report.com/en/forum/?p=/discussion/9134 [/url]
  These variables can be referred to like table columns.

  
  Thanks, but I found this thread already, but unfortunately I can't get it right... where is SaldoAtual in this case declared? As a variable in the script? Or as a variable in the report?
  

  technisoft wrote: »

  The second kind you use like ordinary Pascal variable. However, they are run-time only as far as I can figure out one can only assign them to a memo component or a categorized variable in the script.

  I tried this as well, but I seem to be unable to get it right in case with dates :-(.
  
  Anybody an idea how I can get a date 'variable' formatted into a header?
  
  Something like Memo1.Text := 'Month : '+FormatDateTime('mmmm', Get(<Customers."CUSTOMER_DATE">)
• zifnabbe

  May 2012 edited 6:10PM

  Ok. It took me some time to figure out what the writer meant in section 6.7 'Using aggregate functions in the script'. But I finally found a way to get this working.
• zifnabbe

  May 2012 edited 6:10PM

  it might be usefull for others, others can give feedback (or just tell that there is a much more simplistic way).
  
  Put three (in)visible text objects in the footer of the report with the following text:
  
  MIN(<Customer."CONSULT_DATE">,MasterData1)
  and
  MAX(<Customer."CONSULT_DATE">,MasterData1)
  and
  [SUM(<Customer."FEE">,MasterData1)]
  
  Than use the following script code:
  

  var
    tmpStr : String;
    ListPeriod, ListTotal : TStringList;
    i : integer;                                
      
  procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
  begin                                                                                          
    tmpStr := '';                                         
    if not Engine.FinalPass then begin
      tmpStr := FormatDateTime('mmmm', MIN(<Customer."CONSULT_DATE">,MasterData1))                     
        + ' - ' + FormatDateTime('mmmm YYYY', MAX(<Customer."CONSULT_DATE">,MasterData1));
      ListPeriod.Add(tmpStr);
      tmpStr := Format('%2.2m', [SUM(<Customer."FEE">,MasterData1)] );
      ListTotal.Add(tmpStr);        
    end;                  
  end;
  
  procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
  begin
    if Engine.FinalPass then begin
      Memo1.Text := 'Period: '+ListPeriod[i];           
      Memo18.Text := 'Total: '+ListTotal[i] + 'bla';        
    end;
    inc(i);                    
  end;
  
  procedure OnStartReport(Sender: TfrxComponent);
  begin
    ListPeriod := TStringList.Create;
    ListTotal := TStringList.Create;      
  end;
  
  procedure OnStopReport(Sender: TfrxComponent);
  begin
    ListTotal.Free;                                                   
    ListPeriod.Free;                          
  end;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
    i := 0;  
  end;
  
  begin
  
  end.
  
• hsm

  May 2012 edited 6:10PM

  zifnabbe wrote: »

  it might be usefull for others, others can give feedback (or just tell that there is a much more simplistic way).

  
  Thank you. It was very useful for me.
  I have three nested groups and need to show an average score (from the detail section) for each group in their respective headers. I cannot use AVG() as not all the detail scores are available so I need to count them, sum then and do the average programatically at the end of each group.
  I messed around all day today trying to apply the example in the manual and the demo to my situation and could only get the outer group to behave properly.
  I can see that your solution using lists will do the job.
  Thanks for posting the solution. Too many people end a thread saying "I've fixed it now" without saying how!
  Howard