In Fastreport die Gruppensummen per Code

**NoName1**

Guten Tag,
ich möchte, wie oben erwähnt, die Gruppensummen per Code ermitteln und dann einem Feld für den Ausdruck zuweisen.
Der Hintergrund dafür ist folgender:
Die gebildete Gruppensumme kann positiv oder auch negativ sein.
Ist sie negativ, dann wird ein Minuszeichen vorangestellt und die Farbe rot zugewiesen.
Mit diesem Code habe ich es Versucht, aber es ist Falsch. Die Gruppensummen stimmen mit diesem Code nicht.

zusammenfalten · markieren

Delphi-Quellcode:

			 var

 sumAusgaben: Extended;

 sumEinzahlungen: Extended;

procedure bubetragOnBeforePrint(Sender: TfrxComponent);

var

 pEA: string;

 pBetrag: Extended;                                        

begin

 pEA := <frxDBKonten."KONTOART">;

 pBetrag := <frxDBKonten."ZAHLUNG">; 

  // Alle Einnahmen                                                

 if pEA = 'E' then

 begin             

  sumEinzahlungen := sumEinzahlungen + pBetrag; 

  bubetrag.font.color := clBlack;                                                                                                  

  bubetrag.text := Format('%2.2m', [pBetrag]); //der Einzelbetrag wird korrekt dargestellt                               

  grpSumme.Text := Format('%2.2m', [sumEinzahlungen-sumAusgaben]); // dies soll die Gruppensumme werden                                                                                   

 end; 

 // Alle Ausgaben          

 if pEA = 'A' then

 begin

  sumAusgaben := sumAusgaben + pBetrag;

  bubetrag.font.color = clRed;                                                                               

  bubetrag.text := Format('-%2.2m', [pBetrag]); //der Einzelbetrag wird korrekt dargestellt                                 

  grpSumme.Text := Format('%2.2m', [sumEinzahlungen-sumAusgaben]); // dies soll die Gruppensumme werden                                                                                                                                                                                         

 end;           

end;

begin

 sumAusgaben := 0;

 sumEinzahlungen := 0;                             

end.

Hat Jemand eine Idee wie ich die Gruppensummen ohne "Aggregate Value im GroupFooter" von Fastreport erzeugen kann?
Ich hoffe ich habe mich einigermassen verständlich Ausgedrückt.
Vielen Dank für Eure Hilfe im Voraus.

In Fastreport die Gruppensummen per Code

In Fastreport die Gruppensummen per Code

Forumregeln