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.
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.