Hallo ich habe das Problem, dass ich in einem QickReport die Summe einer einzelnen Seite anzeigen muss. Leider bekomme ich immer nur den Gesamtübertrag aller vorherigen Seiten angezeigt, aber nicht die Summe der einzelnen Seite.
Announcement
Collapse
No announcement yet.
QuickReport Summe der Seite
Collapse
X
-
Hallo Chris,
angenommen Du hast eine Private Variable mit Summe:Currency definiert, dann setzt Du diese beim Ereignis QuickRep1BeforePrint auf Null (Summe := 0).
Bei einem Detailband z. B. beim Ereignis QRBand2AfterPrint codierst Du:
Summe := Summe + FieldByName('SollBetrag').AsCurrency;
Im PageFooter fügst Du ein QRLabel ein und codierst z. B. beim Ereignis QRLabel7Print:
Value := CurrToStrF(Summe, ffCurrency,2);
Summe := 0;
Gruß
Pete
Comment
-
Hallo Peter,
Danke für Deine Hilfe! Ich musste es zwar etwas abwandeln, weil es beim QRLabelPrint nicht angezeigt wurde. Ich hab das Ereignis dann auf PageFooter.BeforePrint gesetzt und jetzt klappt es. Da hat bei mir mal wieder gewaltig einer auf dem Schlauch gestanden, aber gelegentlich sieht man ja den Wald vor lauter Bäumen nicht.
Danke
Chri
Comment
-
Oder du mache es mit Expression-Felder
*
1) Erzeuge ein QRExpr in den Detaiband
TQrExpr1.expression := Dein_CurrFeld
2) Erzeuge ein weiteres QRExpr in den Footerband (PageFooter)
TQrExpr2.expression := sum(Dein_CurrFeld)
TQrExpr2.resetafterprint := true
*
Bei Drucken des Details wird der Betrag von "Dein_CurrFeld" in den Feld "Sum(Dein_CurrFeld)" summiert.
Der PageFooter wird auf jeder Seite am Ende gedruckt.
Durch die Eigenschaft "resetafterprint" der Inhalt der QRExpr2 zurückgesetzt
Viel Erfolg
Oswal
Comment
Comment