RD des HPI: SuperReport Zusammengefasste Rechnung

Der Standard-SuperReport für den Ausdruck von Rechnungen ist wie folgt angepasst worden, damit auf den Belegzeilen der Standardtext "Lieferschein ..." mit dem Dossier-Kürzel und dem Dossier-Namen ersetzt wird:

Auf dem SR im Body ist anstelle des Felds "[r1_Belegzeile]s_Belegzeilentext" neu die Variable "t_Zeilentext" eingesetzt. Diese Variable wird im Bodyskript zuunterst mit nachfolgendem Code gefüllt - der Code ist zuunterst im Bodyskript:

 C\_TEXT(t\_Zeilentext;$t\_Jahr\_und\_Nummer;$t\_Beleg\_Nummer;$t\_Beleg\_Jahr)
 C\_LONGINT($l\_Belegjahr)
 t\_Zeilentext:=[r1\_Belegzeile]s\_Belegzeilentext  `===defaultwert setzen (wie bisher)
 $t\_Jahr\_und\_Nummer:=Substring([r1\_Belegzeile]s\_Belegzeilentext;14;MAXTEXTLEN )  `=== nur noch jahr und nummer
 $t\_Beleg\_Nummer:=text\_TextPartGet ($t\_Jahr\_und\_Nummer;"/";1)
 $t\_Beleg\_Nummer:=string\_CharacterCut ($t\_Beleg\_Nummer;" ")
 $t\_Beleg\_Jahr:=text\_TextPartGet ($t\_Jahr\_und\_Nummer;"/";2)
 $t\_Beleg\_Jahr:=string\_CharacterCut ($t\_Beleg\_Jahr;" ")
 $l\_Belegjahr:=Num($t\_Beleg\_Jahr)
 If ($l\_Belegjahr<100)
 $l\_Belegjahr:=$l\_Belegjahr+2000
 End if
 PUSH RECORD([s1\_Beleg])
 CUT NAMED SELECTION([s1\_Beleg];"ns\_Beleg")
 QUERY([s1\_Beleg];[s1\_Beleg]m\_Betrieb=<>l\_Mandant\_Betrieb\_ID;\*)  `===lieferschein suchen
 QUERY([s1\_Beleg]; & ;[s1\_Beleg]s\_Belegtyp=<>c20\_BelegTyp\_Lieferschein;\*)
 QUERY([s1\_Beleg]; & ;[s1\_Beleg]s\_Belegjahr=$l\_Belegjahr;\*)
 QUERY([s1\_Beleg]; & ;[s1\_Beleg]s\_Belegnummer=$t\_Beleg\_Nummer)
 If (Records in selection([s1\_Beleg])>0)
 RELATE ONE([s1\_Beleg]r\_Auftragsdossier)
 t\_Zeilentext:=Auftrag\_FullNameBuild   `===defaultwert mit dossier ersetzen
 UNLOAD RECORD([s1\_Auftragsdossier])
 End if
 USE NAMED SELECTION("ns\_Beleg")
 

Auf dem Report selber muss das Feld  "[r1_Belegzeile]s_Belegzeilentext" durch die Variable "t_Zeilentext" ersetzt werden.