Function Seitenwechsel()

Function Seitenwechsel()
	DIM nX as numeric
	DIM nY as numeric
'	DIM n as numeric = nRandOben;
 
        '##############################################################################
 	' Beginn der Änderungen
        '##############################################################################
 
 	' Es wurden auf Seite 2 zwei Mal die Falzmarken angezeigt, wenn der Text auf Seite 1 zu lang war
 	Dim FirstPageMarksPrinted as bool = FALSE
 	if nAuftragPage = 0 then
 		FirstPageMarksPrinted = TRUE
 		if bFalzmarkeOben then
 			SetPen(2, PEN_SOLID, COLOR_BLACK)
 			DrawLineExt(-nRandLinks, -nRandOben+nFalzmarkeOben, -nRandLinks+80, -nRandOben+nFalzmarkeOben)
 		end if
 		if bFalzmarkeUnten then
 			SetPen(2, PEN_SOLID, COLOR_BLACK)
 			DrawLineExt(-nRandLinks, -nRandOben+nFalzmarkeUnten, -nRandLinks+80, -nRandOben+nFalzmarkeUnten)
 		end if
 		if bLochmarke then
 			SetPen(2, PEN_SOLID, COLOR_BLACK)
 			DrawLineExt(-nRandLinks, -nRandOben+nLochmarke, -nRandLinks+70, -nRandOben+nLochmarke)
 		end if
 	end if
 
        '##############################################################################
 	' Ende der Änderungen
        '##############################################################################
 
	' Seitennummerierung je Auftrag
         if fResetPage then
		bEndeAuftragsbeschreibung = false
		nAuftragPage = 1
		fResetPage = false
	else
		bEndeAuftragsbeschreibung = true
		nAuftragPage = nAuftragPage + 1
	end if
	' hier den Rumpfbereich wieder an den oberen Rand des Formulars ziehen, damit die nachfolgenden Felder
	' nicht tiefer dargestellt werden
	SetBodyMargin(nRandLinks, nRandOben, nRandRechts, nRandUnten + nFusszeileHoehe + 10)
	' Ausgaben für Seite 1
	if nAuftragPage = 1 then
		' Firmenlogo anzeigen, wenn ausgewählt
		SetFormatNumericOptions(FN_CUSTOM, "","")
		If bMitLogoAufSeite1 then
			DrawImage(nFirmenLogoLinks-nRandLinks, nFirmenLogoOben-nRandOben, nFirmenLogoBreite, nFirmenLogoHoehe, sFirmenLogoQuelle)
		End If
		If bMitLogo2AufSeite1 then
			DrawImage(nFirmenLogo2Links-nRandLinks, nFirmenLogo2Oben-nRandOben, nFirmenLogo2Breite, nFirmenLogo2Hoehe, sFirmenLogo2Quelle)
		End If
		' Absender anzeigen, wenn ausgewählt
		if is (FRANKIEREN_MIT_STAMPIT ) = FALSE Then
			if bMitAbsenderAufSeite1 then
				PrintAbsenderZeile(SchriftArtAbsender)
			end if
		else
			if bStampitmitAbsender = TRUE then
				PrintAbsenderZeile(SchriftArtAbsender)
			end if
		end if			
		'Sichtfenster anzeigen, wenn ausgewählt
		if is(FRANKIEREN_MIT_STAMPIT ) Then
			PrintStampit(SchriftArtStamp)
		else
			if bMitSichtfensterAufSeite1 then
				PrintSichtfenster(SchriftArtSichtfenster)
			end if
		end if
 
		' Infofeld anzeigen, wenn ausgewählt
		if bMitInfofeldAufSeite1 then
			SetFormatNumericOptions(FN_CUSTOM, ",", "")
			PrintInfoBlock("L" + FormatNumeric("%.0f", nInfofeldLinks-nRandLinks) + "R" + FormatNumeric("%.0f", nInfofeldLinks - nRandLinks + nInfoFeldBreite), SchriftArtInfofeld)
		end if
		' Betrefftext anzeigen, wenn ausgewählt
		if bMitBetrefftextAufSeite1 then
			PrintBetreffText(SchriftArtBetrefftext1, SchriftArtBetrefftext2)
		end if
 
                '##############################################################################
 		' Beginn der Änderungen
                '##############################################################################
 
 		' Es wurden auf Seite 2 zwei Mal die Falzmarken angezeigt, wenn der Text auf Seite 1 zu lang war
 		if FirstPageMarksPrinted then
 		else
 			if bFalzmarkeOben then
 				SetPen(2, PEN_SOLID, COLOR_BLACK)
 				DrawLineExt(-nRandLinks, -nRandOben+nFalzmarkeOben, -nRandLinks+80, -nRandOben+nFalzmarkeOben)
 			end if
 			if bFalzmarkeUnten then
 				SetPen(2, PEN_SOLID, COLOR_BLACK)
 				DrawLineExt(-nRandLinks, -nRandOben+nFalzmarkeUnten, -nRandLinks+80, -nRandOben+nFalzmarkeUnten)
 			end if
 			if bLochmarke then
 				SetPen(2, PEN_SOLID, COLOR_BLACK)
 				DrawLineExt(-nRandLinks, -nRandOben+nLochmarke, -nRandLinks+70, -nRandOben+nLochmarke)
 			end if
 		end if
 
                '##############################################################################
 		' Ende der Änderungen
                '##############################################################################
 
		bEndeAuftragsbeschreibung = false
	end if
	' Angaben ab Seite 2
	if nAuftragPage > 1  AND bEndeAuftragsbeschreibung = true then
 		' Firmenlogo ab Seite 2 anzeigen, wenn ausgewählt
		If bMitLogoAbSeite2 then
			DrawImage(nFirmenLogoLinks-nRandLinks, nFirmenLogoOben-nRandOben, nFirmenLogoBreite, nFirmenLogoHoehe, sFirmenLogoQuelle)
		End If
		If bMitLogo2AbSeite2 then
			DrawImage(nFirmenLogo2Links-nRandLinks, nFirmenLogo2Oben-nRandOben, nFirmenLogo2Breite, nFirmenLogo2Hoehe, sFirmenLogo2Quelle)
		End If
		' Absender ab Seite 2 anzeigen, wenn ausgewählt
		if bMitAbsenderAbSeite2 then
			PrintAbsenderZeile(SchriftArtAbsender)
		end if			
		'Sichtfenster ab Seite 2 anzeigen, wenn ausgewählt
		if bMitSichtfensterAbSeite2 then
			PrintSichtfenster(SchriftArtSichtfenster)
		end if
		' Betrefftext ab Seite 2 anzeigen, wenn ausgewählt
		if bMitBetrefftextAbSeite2 then
			PrintBetreffText(SchriftArtBetrefftext1, SchriftArtBetrefftext2)
		end if
		' Infofeld ab Seite 2 anzeigen, wenn ausgewählt
			SetFormatNumericOptions(FN_CUSTOM, ",", "")
			' Infozeile ?
			if	bInfoZeileStattInfoBlockAbSeite2 then 
				PrintInfoZeile()
			else
				if bMitInfofeldAbSeite2 then
					PrintInfoBlock("L" + FormatNumeric("%.0f", nInfofeldLinks-nRandLinks) + "R" + FormatNumeric("%.0f", nInfofeldLinks - nRandLinks + nInfoFeldBreite), SchriftArtInfofeld)
				end if
			end if
		if bFalzmarkeOben then
			SetPen(2, PEN_SOLID, COLOR_BLACK) 
			DrawLineExt(-nRandLinks, -nRandOben+nFalzmarkeOben, -nRandLinks+80, -nRandOben+nFalzmarkeOben) 
		end if
		if bFalzmarkeUnten then
			SetPen(2, PEN_SOLID, COLOR_BLACK) 
			DrawLineExt(-nRandLinks, -nRandOben+nFalzmarkeUnten, -nRandLinks+80, -nRandOben+nFalzmarkeUnten) 
		end if
		if bLochmarke then
			SetPen(2, PEN_SOLID, COLOR_BLACK) 
			DrawLineExt(-nRandLinks, -nRandOben+nLochmarke, -nRandLinks+70, -nRandOben+nLochmarke) 
		end if
	end if 
End Function