Druckausgabe der abweichenden Lieferanschrift in Rücksendungen ab Version 19.0.0

1. Änderung im Bereich Empfängeranschrift (ab Zeile 192)

Alte Version:

' Adressfenster links
DrawText(BESTELL_Rechnungsanschrift, links1, hoehe, 900, 250)

Neue Version:

' Adressfenster links
If ( BESTELL_Art = BESTELLART_RUECKSENDUNG and BESTELL_LieferanschriftVerwenden and BESTELL_Lieferanschrift <> "" )
    DrawText(BESTELL_Lieferanschrift, links1, hoehe, 900, 250)
Else
    DrawText(BESTELL_Rechnungsanschrift, links1, hoehe, 900, 250)
EndIf

2. Ausgabe abweichende Lieferanschrift für Rücksendungen unterdrücken (ab Zeile   814)

Alte Version:

' Abweichende Lieferanschrift
#BeginGraphicsText
SetArea(300, AREA_AUTOSIZE)
#include "STYLE Arial 9, normal"
set hoehe to 50
set breite to LAYOUTWIDTH
set links1 to LAYOUTLEFT
if ( BESTELL_LieferanschriftVerwenden and BESTELL_Lieferanschrift <> "" )
SetTextBold(true)
DrawText("Bitte liefern Sie an:", links1, hoehe, breite, 50)
SetTextBold(false)
set hoehe to AREA_CURRENTHEIGHT + 20
DrawText(BESTELL_Lieferanschrift, links1, hoehe, breite, 250)
endif

Neue Version:

' Abweichende Lieferanschrift
#BeginGraphicsText
SetArea(300, AREA_AUTOSIZE)
#include "STYLE Arial 9, normal"
set hoehe to 50
set breite to LAYOUTWIDTH
set links1 to LAYOUTLEFT
if ( BESTELL_Art <> BESTELLART_RUECKSENDUNG and BESTELL_LieferanschriftVerwenden and BESTELL_Lieferanschrift <> "" )
SetTextBold(true)
DrawText("Bitte liefern Sie an:", links1, hoehe, breite, 50)
SetTextBold(false)
set hoehe to AREA_CURRENTHEIGHT + 20
DrawText(BESTELL_Lieferanschrift, links1, hoehe, breite, 250)
endif