Gelöst Übertrag ausblenden wenn keine Positionen auf nächster Seite

[LFranz]

Hallo zusammen,

ich habe aktuell das Problem, dass der Übertrag auf der vorletzten Seite ebenfalls gedruckt wird, obwohl die Endsumme bereits gedruckt wurde und auf der nächsten Seite nur noch der Fusstext und die ZKDs stehen.

Das Ergebnis ist folgendes:


Wie kann ich den Übetrag deaktivieren, wenn die Endsumme bereits gedruckt wurde? Bzw. wenn auf der Folgeseite keine Positionen mehr gedruckt werden? Bei einigen Datenbändern wird dies per Bedingung geregelt, aber bisher konnte ich leider keine passende hierfür finden.

Vielen Dank im Voraus!

 

[LFranz]

Das Problem trat bei uns auf, da wir dem Nutzer die Möglichkeit bieten die Zwischensumme nicht zu drucken.
Im AppDesigner wird, im Event "Ende des Rendering" des Reports, über alle Seiten itteriert und der Übertrag ausgeblendet, wenn die Zwischensumme(dtbVKSubRabattBereich) bereits gedruckt wurde.

Um den Übertrag also auszublenden, wenn die Endsumme bereits gedruckt wurde, aber keine Zwischensumme gedruckt wird, kann das Event einfach wie folgt erweitert werden:

'Übertrag soll nicht nach dem Rabatt- oder Endsummenbereich gedruckt werden
Dim intRabatt As Integer
Dim intEndsumme As Integer

blnPrintUebertrag =True
For i = 0 To rep.RenderedPages.Count - 1 Step 1
   'Alle Seiten prüfen
   page= rep.RenderedPages(i)
   
   If blnPrintUebertrag Then
     intRabatt =page.Components.IndexOf("dtbVKSubRabattBereich")
     intEndsumme =page.Components.IndexOf("dtbVKSubSummenbereich")
   End If
   If intRabatt >= 0 OR intEndsumme >= 0 Then
     'Rabatt- oder Endsummenbereich wurde gedruckt.
     'Danach wird der Übertrag nicht mehr gedruckt.
     ...
   End If
Next