' Formular für German Parcel Etikette
' Für Lexware Financial Office Pro (Netzwerkversion), Faktura Pro

' Autor:    Nohman Shamshad
' Datum:    22.02.2002
' E-Mail:   nohman@shamshad.de
' Internet: http://www.shamshad.de

' Formulardatei ins Faktura Pro Formularverzeichnis kopieren (z.B. M:\Formulare\faktura pro).
' Versand_GP.lsf mit Lexware DruckNT IDE öffnen:
' [Projekt], [Druckerauswahl], [Drucker Seitenabhängig], [Drucker 1]: Nadeldrucker einstellen!!!
' Anschließend speichern und mit Lexware DruckNT IDE Kompilieren!
' Im Faktura Bereich einen Lieferschein oder eine Rechnung auswählen und drucken.
' Als Formular "Standard (GP - Versandetikett)" auswählen!

' --> Drucker muss im Faktura Bereich nicht geändert werden,
'     die Etikette wird immer auf dem Nadeldrucker ausgedruckt!!!

' -------------------------------------------------------------------------
' Windows Druckformular "German Parcel" erstellen (!!!)
' -------------------------------------------------------------------------
' Windows Druckeinstellungen ändern:
' [Systemsteuerung], [Drucker]
' [Datei], [Servereigenschaften]
' [Formulare], [Neues Formular erstellen]
' [Formularbeschreibung für]: German Parcel
' [Breite]: 16,70
' [Höhe]: 10,20
' [Formular speichern]

' Nadeldrucker Einstellungen:
' Nadeldrucker --> Eigenschaften
' [Geräteeinstellungen], [Traktoreinzug] --> [German Parcel]

' Bei einem Netzwerkdrucker muss dass Windows Druckformular "German Parcel"
' auf jedem PC existieren und auf jedem Netzwerkdrucker eingestellt werden.
' -------------------------------------------------------------------------


Include "Pcfk.int"			'Schnittstelle zur Faktura
'Include "fkeasy.lsf"			Vereinfachungen der Schreibweise
Include "Var_pro.lsf"		'Variablenliste Faktura

'----------------------------
'Nadeldrucker festeinstellen!
SetPrintDevice(1)
'----------------------------

'Allgemeine Einstellungen einer German Parcel Etikette
Dim SeitenHoehe 	as numeric = 1020
Dim SeitenBreite 	as numeric = 1680


'Dimensionierung der Ränder
DIM Links 		as numeric = 380
DIM Oben 		as numeric = 190
DIM Rechts 		as numeric = 130
DIM Unten 		as numeric = 40

Dim Result_R as Bool

Dim strName as String
Dim strFirma as String
Dim strWaehrung as string
dim bWaehrungAlsText as bool 	= True


'Setzen der Ränder, der Kopf- und Fusszeilenhöhe
SetBodyMargin(Links, Oben , Rechts, Unten )


Description page_orientation as PAGE_PORTRAIT
Description form_description as "Standard (GP - Versandetikett)"
Description form_code as "Auftrag netto"
Description Form_Version as "1.00.00.0605"


SetFont("Courier New", 10, FONT_NORMAL, COLOR_BLACK)
'SelectFont(ARIAL_10)   
Result_R = FirstRecord(AUFTRAG)				'Erste Rechnung oder sonstiges
While Result_R Do


RemoveAllTAbs()
SetTabs("L600 L710")

'T(Tab + FormatDate("%d.%m.%y",  Now()))
'LF

'----------------------------
'Empfänger Anfang
	'Firma
	if Get(AUFTR_FA) <> "" then								
		strFirma = Get(AUFTR_FA)
		DrawTextExt(Links, GetPosY(), strFirma)	
		LF
	end if
	'Anrede
	'if Get(AUFTR_ANREDE) <> "" then
		'DrawTextExt(nLinks, GetPosY(), Get(AUFTR_ANREDE))	
		'LF
	'end if
	'Name
	if Get(AUFTR_NAME_1) <> "" then							
		'Anrede
		if Get(AUFTR_ANREDE) <> "" then
			strName = Get(AUFTR_ANREDE) + " "
			'DrawTextExt(nLinks, GetPosY(), Get(AUFTR_ANREDE) + " ")	
			'LF
		end if
		'Vorname
		if Get(AUFTR_VORNAME) <> "" then							
			strName = strName + Get(AUFTR_VORNAME) + " "	
		end if
		'vorname + Name
		strName = strName + Get(AUFTR_NAME_1)				
		DrawTextExt(Links, GetPosY(), strName)	
		LF
	end if
	'Zusatz
	if Get(AUFTR_ZUSATZ) <> "" then															
		DrawTextExt(Links, GetPosY(), Get(AUFTR_ZUSATZ))
		LF
	End If

	'weiter Adresse des Kunden
	DrawTextExt(Links, GetPosY(), Get(AUFTR_STRASSE) + " " + Get(AUFTR_HAUSNR))	'Strasse
	LF

	SetPos(links, GetPosY()+10)

	'PLZ, Ort
	SetFontType(FONT_BOLD)
	DrawTextExt(Links, GetPosY(), Get(AUFTR_PLZ) + " " + Get(AUFTR_ORT))	

	'Land
	if Get(AUFTR_LAND) <> "" then
		LF
		DrawTextExt(Links, GetPosY(), Get(AUFTR_LAND))
	end if
	SetFontType(FONT_NORMAL)

	SetPos(links, GetPosY()+10)

	'Tel
	if Get(KD_TELEFON_1) <> "" then
		SetFontSize (7)		
		LF
		DrawTextExt(Links, GetPosY(), "Tel.: " + Get(KD_TELEFON_1))
		SetFontSize (10)
	end if
'Empfänger Ende
'----------------------------


'----------------------------
'German Parcel Kunden Nr.
'BITTE ANPASSEN!!! --> 9999 ändern auf eigene Kunden Nr.
	DrawTextExt(Links, 362, "9999")
'German Parcel Kunden Nr. Ende
'----------------------------


'----------------------------
'Aktuelles Datum Anfang
	SetPos(links, 660)
	T(FormatDate("%d.%m.%y",  Now()))
	LF
'Aktuelles Datum Ende
'----------------------------

'----------------------------
'Absender Anfang
	SetPos(links, 460)
	TL(Tab + Get(FA_NAME_1))
	TL(Tab +Get(FA_STRASSE))
'	SetFontType(FONT_BOLD)
	TL(Tab + Get(FA_PLZ) + "  " + Get(FA_ORT))
	TL(Tab + "Germany")
'	SetFontType(FONT_NORMAL)
	SetPos(links, GetPosY()+10)
	SetFontSize (7)
	TL(Tab + "Tel.: " + Get(FA_TEL))
	TL(Tab + Get(FA_eMAIL))
	TL(Tab + Get(FA_WEB))
'Absender Ende
'----------------------------

'----------------------------
'Webseite
	SetPos(50, 610)
	SetFont("Courier New", 6, FONT_NORMAL, COLOR_BLACK)
	TL("http://www.shamshad.de")
'Webseite Ende
'----------------------------

	' nächste Rechnung oder sonstiges
	Result_R = NextRecord(AUFTRAG)	

	' wenn neuer Auftrag, dann auf neuer Seite darstellen
	if Result_R then
		Pagebreak()
	end if 

End While