Registriert seit: 19. Jun 2006
647 Beiträge
Delphi 11 Alexandria
|
AW: Quick Report und Rechnungen
25. Mär 2020, 17:44
Das ist so nicht gerade einfach ohne dass man den Report selber vor Ahgen hat. Kannst du eventuell den Report hier posten? Vermutlich reicht es, wenn nur die Bänder enthalten sind und du allfällige andere Sachen rauswirfst.
Ich würde es so probieren:
TQRRepot
- TGroup (Expression Rg.-Nr. Feld, FooterBand anhängen siehe unten )
- TQRBand (Detail mit RG-Kopfdaten und Adressdaten (Expression Adressenummer Feld))
- TQRSubDetail mit Rg.-Positionen
- TQRBand Groupfooter zur Rechnugsnummer TGroup (TQRGroup Rg.-Nr. oben)
Im Groupfooter platzierst du TQRExpr Komponenten mit deinen zu berechneden Felder. Ich nehme mal and deine Daten enthalten schon ein Feld für das Total der einzlenen Positionen. So würdest du da die Expression "SUM(total_position)" eingeben. Die anderen Properties der verschieden Bänder sollten dir vermutlcih klar sein. Einfach sicher sein, dass ForceNewPage überall False ist. Das newPage könttest du dann im OnAfterPrint des GroupFooters ausführen.
Das ist rein aus dem Kopf und vermutlich noch nicht so ganz das was du willst. Ohne deine Report-Form wird das aber sehr kompliziert zu beschreiben.
|