Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.095 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

Re: Fastreport 4. zwei Report kombinieren

  Alt 19. Dez 2007, 16:11
Zitat von alzaimar:
Normalerweise: Neue Frage, neuer Thread.

Ja, genauso würde ich das machen. Ich meine sogar, in den Demos ist dazu etwas.

Grundsätzlich solltest du herausfinden, wie man in FR Variablen von Delphi aus setzt bzw. darauf zugreift. Die Beschreibungen dazu musst du dir selbst von Fast-Report.Com besorgen. Die Summen der Einzelreports schreibst du dann in so eine Variable, um sie nach dem Rendern des jeweiligen Reports von Delphi auszulesen.

Die Summen der Summen sind dann Grundlage für den 3.Report.
Also wie ich eine Reportvariable abfragen und setzen kann, ist mir soweit klar.
Das geht so: frxReport1.Variables['Durchwahl'] := StringVar('0815');

Es gibt auch ein Ereignis OnGetValue welches ich auch verwende.
Mir ist nur eines nicht klar: Ein TfrxmemoView hat ein event OnAfterPrint
Wenn also mein SummenFeld dieses Ereignis feuert, würde ich gerne denn Wert nach
Delphi transportieren. Wie das geht ist mir nicht klar. Möglicherweise habe ich
nur ein Denkfehler, ich komme einfach nicht drauf.


Delphi-Quellcode:
procedure TfrFRPrint.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
  case aReportFormular of
    rfAngebot:
      begin
        if (CompareText(VarName, 'MitStruktur') = 0) then
        begin
          frAngebot.qrAngebotstruktur.refresh;
          value := (frAngebot.qrAngebotstruktur.RecordCount>0);
        end;{if}
      end;
  end;{case}

end;
  Mit Zitat antworten Zitat