AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

In Fastreport die Gruppensummen per Code

Ein Thema von NoName1 · begonnen am 16. Mai 2018 · letzter Beitrag vom 16. Mai 2018
Antwort Antwort
NoName1

Registriert seit: 8. Mär 2018
191 Beiträge
 
Delphi 11 Alexandria
 
#1

In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 08:48
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 = 'Ethen
 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 = 'Athen
 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.
  Mit Zitat antworten Zitat
rokli

Registriert seit: 21. Mär 2009
Ort: Rödinghausen
294 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 09:04
Ja Moin!

Du rechnest den Wert außerhalb vom FR aus und übergibst das Ergebnis einer Variablen im Report, bevor Du den Report startest/druckst. Da kannst Du problemlos auch die Schriftart so anpassen, wie es Dir gefällt.

Gruß
Rolf
wenn nicht anders angegeben, schreibe ich zu D7, XE2 und MS SQL - ansonsten fragen Sie ihren Administrator oder einen Operator. Update 06/2020: Delphi 10.4 Sydney
  Mit Zitat antworten Zitat
rokli

Registriert seit: 21. Mär 2009
Ort: Rödinghausen
294 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 09:08
jetzt hab ich den Code vergessen

Delphi-Quellcode:
// Text zuweisen   
   TfrxMemoView(frxRep.Pages[1].FindObject('Memo1')).Text := sValue;
// Drucker zuweisen   
   frxRep.PrintOptions.Printer         := sPrinter;
// Printer Options abschalten
   frxRep.PrintOptions.ShowDialog       := false;
// Report vorbereiten
   frxRep.PrepareReport(true);
Rolf
wenn nicht anders angegeben, schreibe ich zu D7, XE2 und MS SQL - ansonsten fragen Sie ihren Administrator oder einen Operator. Update 06/2020: Delphi 10.4 Sydney
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.364 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 18:00

Hat Jemand eine Idee wie ich die Gruppensummen ohne "Aggregate Value im GroupFooter" von Fastreport erzeugen kann?
ähm.. darf ich fragen warum?

Bzgl. roter Schrift: Rechte Maustaste auf das frxMemo im Designer und Highlight auswählen, in den neueren FastReports ist das glaube ich auch in den Eigenschaften direkt zu finden. Dort kannst Du einstellen, dass bei neegativen Werten die Schriftfarbe rot verwendet werden soll.

Gruppensumme im Groupfooter mit Aggregatsfunktion ist eigentlich in 10 Sekunden zusammen geklickt...
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz