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
5 Beiträge
 
Delphi XE7 Professional
 
#1

In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 07: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
155 Beiträge
 
Delphi 10 Seattle Professional
 
#2

AW: In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 08: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. Und seid heute auch Delphi 10 Seattle
  Mit Zitat antworten Zitat
rokli

Registriert seit: 21. Mär 2009
Ort: Rödinghausen
155 Beiträge
 
Delphi 10 Seattle Professional
 
#3

AW: In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 08: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. Und seid heute auch Delphi 10 Seattle
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.073 Beiträge
 
Delphi 7 Professional
 
#4

AW: In Fastreport die Gruppensummen per Code

  Alt 16. Mai 2018, 17: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 00:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2018 by Daniel R. Wolf