QuickReport 4.0 - Zwischensumme anzeigen

[BluesKid]

Moin moin

Das würde ich so lösen:

Beim Ergeignis OnPrint eines QRDbText mithilfe einer (globalen) Variable die einzelnen Posten mitzählen.
eg.:

Delphi-Quellcode:

procedure TPersStammRepForm.QRDBText1Print(sender: TObject;
var Value: String);
begin
  myPuBFloat1 := myPubFloat1 + strtofloat(stringreplace(Value,'.','',[]));
end;

(^^^ da wird direkt der Tausender-Punkt entfernt, weiß nich ob du damit Arbeitest, aber schaden tuts' ja auch nich)

Dann beim Ereignis OnPrint eines Feldes des PageFooters den Inhalt der Variable in ein QRLabel oder in ein QRExpr schreiben.
eg.:

Delphi-Quellcode:

procedure TPersStammRepForm.QRExpr1Print(sender: TObject;
  var Value: String);
begin
  Value := floattostr(myPubFloat1);
end;

Sollte dann zu dem Ergebnis führen, dass nach der 1. Seite im Footer die Summer der Posten stehen, die auch auf der 1. Seite angezeigt werden, bzw. dass auf der letzten Seite im Footer dann die Summe sämtliche Positionen steht...entsprechend musst du natürlich die Felder die du in der Zwischensumme nicht sehen willst ausbelenden...denkanstoß: ADOTable1.eof ... <-- oder was du auch immer benutzt..

Aber das is ja dann finetunig ...


Wenn du noch fragen hast, einfach Posten

schönen Gruß

Sam