FUNCTION runscript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Kundenblatt'
// -----------------------------------------
// bentigte Script's
global DrawGreyBox := _cScriptName + "01.txt"
global DrawHalfBox := _cScriptName + "02.txt"

LOCAL wY
LOCAL cText
LOCAL n
LOCAL lBlanko
LOCAL cKdNr
LOCAL nRohErtrJhr
LOCAL nRohErtr

LOCAL nTab0
LOCAL nTab1
LOCAL nTab2
LOCAL nTab3
LOCAL nTab4
LOCAL nTab5
LOCAL nTab6
LOCAL nTab7
LOCAL nTab8

wY := 0
cText := ""

// Blanko ?
IF _SELF:nKdNr > 0
 lBlanko := .f.
 _self:_dbgoto("DBKdNeu", _SELF:nKdNr)
 cKdNr := _self:_dbfieldget("DBKdNeu", "KDNR_G") + _self:_dbfieldget("DBKdNeu", "KDNR_U")
ELSE
 lBlanko := .t.
ENDIF

_SELF:seite_neue_seite()
_SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
_SELF:seite_setze_raender( 200, 150, 200, 100 )

// "Kundenblatt"
_SELF:waehle_stift( _self:_stift_durchgezogen(), 2 )
_SELF:waehle_farbe( _self:_farbe_weiss() )
_SELF:waehle_farb_pinsel()
_SELF:gdi_rect( 0, wY, 1700, wY+110 )

_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 15,wY+10, "Kundenblatt : "+LTrim(Trim(_self:_dbfieldget("DBKdNeu", "NAME3"))+" "+Trim(_self:_dbfieldget("DBKdNeu", "NAME1"))))	
ELSE
 _SELF:txt_absolut( 15,wY+10, "Kundenblatt : ")	
ENDIF
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
IF lBlanko == .f.
 _SELF:txt_absolut( 15,wY+60, "Kundennummer : "+_self:_dbfieldget("DBKdNeu", "KDNR_G") + _self:_dbfieldget("DBKdNeu", "KDNR_U"))			
 _SELF:txt_absolut( 520,wY+60, "Sachbearbeiter : "+_self:_dbfieldget("DBKdNeu", "SB"))	
 cText := _self:_dbGetMarketgnBeschrbg(2,_self:_dbfieldget("DBKdNeu", "KART"))
 _SELF:txt_absolut( 1150,wY+60, "Kategorie : "+cText)	
ELSE
 _SELF:txt_absolut( 15,wY+60, "Kundennummer :")			
 _SELF:txt_absolut( 520,wY+60, "Sachbearbeiter :")	
 _SELF:txt_absolut( 1150,wY+60, "Kategorie :")
ENDIF

// "Person"
wY := wY + 150		
ExecuteScript(DrawGreyBox, _self, wY)	
_SELF:gdi_rect( 0, wY, 1700, wY+50 )
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_SELF:txt_absolut( 15,wY+5, "Person")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
wY := wY + 50		
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Anrede :")
IF lBlanko == .f.
 cText := _self:_dbGetMarketgnBeschrbg(1,_self:_dbfieldget("DBKdNeu", "ANREDE"))
 _SELF:txt_absolut( 350,wY+5, cText)
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Name :")
_SELF:txt_absolut(900, wY+5, "geborene :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "NAME1"))
 _SELF:txt_absolut( 1100,wY+5, _self:_dbfieldget("DBKdNeu", "GEBORENE"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Vorname :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "NAME3"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Zusatz :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "NAME2"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Titel :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "TITEL"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Geburtsdatum :")
_SELF:txt_absolut( 900,wY+5, "Geburtsort :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, DToC(_self:_dbfieldget("DBKdNeu", "GEB")))
 _SELF:txt_absolut( 1100,wY+5, _self:_dbfieldget("DBKdNeu", "GEBORT"))
ENDIF

// "Anschrift"
wY := wY + 100
ExecuteScript(DrawGreyBox, _self, wY)	
_SELF:gdi_rect( 0, wY, 1700, wY+50 )
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_SELF:txt_absolut( 15,wY+5, "Anschrift")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "PLZ-Zustellbezirk :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "PLZ1"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Ort :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "ORT"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Strae :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "STR"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "PLZ-Postfach :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "PLZ2"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Postfach :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "POSTFACH"))
ENDIF

// "Risikoanschrift"
wY := wY + 100
ExecuteScript(DrawGreyBox, _self, wY)	
_SELF:gdi_rect( 0, wY, 1700, wY+50 )
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_SELF:txt_absolut( 15,wY+5, "Risikoanschrift")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "PLZ-Zustellbezirk :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "PLZ3"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Ort :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "ORTR"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Strae :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "STRR"))
ENDIF
wY := wY + 50
ExecuteScript(DrawHalfBox, _self, wY)	
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_SELF:txt_absolut( 15,wY+5, "Bezeichnung :")
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _SELF:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "BEZR"))
ENDIF

// "Kommunikation"
wy := wy + 100
ExecuteScript(DrawGreyBox, _self, wY)	
_self:gdi_rect( 0, wY, 1700, wY+50 )
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_self:txt_absolut( 15,wY+5, "Kommunikation")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Telefon :")
_self:txt_absolut( 900,wY+5, "Beschreibung :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "TEL1"))
 _self:txt_absolut( 1150,wY+5, _self:_dbfieldget("DBKdNeu", "TEL1B"))
ENDIF
wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Fax :")
_self:txt_absolut( 900,wY+5, "Internet :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "FAX"))
 _self:txt_absolut( 1150,wY+5, _self:_dbfieldget("DBKdNeu", "INTERNET"))
ENDIF
wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Mobiltelefon :")
_self:txt_absolut( 900,wY+5, "email :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdNeu", "TELK"))
 _self:txt_absolut( 1150,wY+5, _self:_dbfieldget("DBKdNeu", "EMAIL"))
ENDIF

// "Bankverbindung"
wy := wy + 100
ExecuteScript(DrawGreyBox, _self, wY)
_self:gdi_rect( 0, wY, 1700, wY+50 )
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_self:txt_absolut( 15,wY+5, "Bankverbindung")

IF lBlanko == .t.
 wy := wy + 50
 ExecuteScript(DrawHalfBox, _self, wY)
 _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _self:txt_absolut( 15,wY+5, "Bankname :")
 wy := wy + 50
 ExecuteScript(DrawHalfBox, _self, wY)
 _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _self:txt_absolut( 15,wY+5, "BLZ :")
 wy := wy + 50
 ExecuteScript(DrawHalfBox, _self, wY)
 _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _self:txt_absolut( 15,wY+5, "Kontonummer :")
 _self:txt_absolut( 900,wY+5, "Bankeinzug d. Prmien :")
ELSE		
 _self:_dbsetdeleted("DBKdBank", .t.)
 _self:_dbsetorder("DBKdBank", 1)
 IF _self:__dbseek("DBKdBank", cKdNr)
  DO WHILE _self:_dbfieldget("DBKdBank", "KDNR_G") + _self:_dbfieldget("DBKdBank", "KDNR_U") == cKdNr	
   // Umbruch ?
   IF (wy + 150) > 2600
    _self:seite_neue_seite()
    _self:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
    _self:seite_setze_raender( 200, 150, 200, 100 )
    wY := 0
    ExecuteScript(DrawGreyBox, _self, wY)
    _self:gdi_rect( 0, wY, 1700, wY+50 )
    _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
    _self:txt_absolut( 15,wY+5, "Bankverbindung")
    wy := wy + 50		
   ELSE
    wy := wy + 50
   ENDIF
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
   ExecuteScript(DrawHalfBox, _self, wY)
   // Bankname
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
   _self:txt_absolut( 15,wY+5, "Bankname :")
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
   _self:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdBank", "BANK"))
   wy := wy + 50
   ExecuteScript(DrawHalfBox, _self, wY)
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
   _self:txt_absolut( 15,wY+5, "BLZ :")
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
   _self:txt_absolut( 350,wY+5, LTrim(Str(_self:_dbfieldget("DBKdBank", "BLZ"))))
   wy := wy + 50
   ExecuteScript(DrawHalfBox, _self, wY)
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
   _self:txt_absolut( 15,wY+5, "Kontonummer :")
   _self:txt_absolut( 900,wY+5, "Bankeinzug d. Prmien :")
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
   _self:txt_absolut( 350,wY+5, _self:_dbfieldget("DBKdBank", "KTO"))
   IF _self:_dbfieldget("DBKdBank", "ABRUF") == .t.
    _self:txt_absolut( 1320,wY+5, "Ja")
   ELSE			
    _self:txt_absolut( 1320,wY+5, "Nein")
   ENDIF
   _self:_dbskip("DBKdBank")
  ENDDO
 ELSE
  wy := wy + 50
  ExecuteScript(DrawHalfBox, _self, wY)
  _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
  _self:txt_absolut( 15,wY+5, "Bankname :")
  wy := wy + 50
  ExecuteScript(DrawHalfBox, _self, wY)
  _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
  _self:txt_absolut( 15,wY+5, "BLZ :")
  wy := wy + 50
  ExecuteScript(DrawHalfBox, _self, wY)
  _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
  _self:txt_absolut( 15,wY+5, "Kontonummer :")
  _self:txt_absolut( 900,wY+5, "Bankeinzug d. Prmien :")
 ENDIF
ENDIF

// "Statistische Daten"
wy := wy + 100
ExecuteScript(DrawGreyBox, _self, wY)
_self:gdi_rect( 0, wY, 1700, wY+50 )
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_self:txt_absolut( 15,wY+5, "Statistische Daten")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Branche/Beruf :")
_self:txt_absolut( 900,wY+5, "selbstndig seit :")
IF lBlanko == .f.
 _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _self:txt_absolut( 1200,wY+5, DToC(_self:_dbfieldget("DBKdNeu", "SELBSTNDIG")))
 cText := _self:_dbGetMarketgnBeschrbg(4,_self:_dbfieldget("DBKdNeu", "BART"))
 _self:txt_bereich( 350,wY+5,1200,wy+50,_self:_txt_links(),cText)
ENDIF
wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Handelsregister :")
_self:txt_absolut( 900,wY+5, "beschftigt seit :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_absolut( 1200,wY+5, DToC(_self:_dbfieldget("DBKdNeu", "BESCHAEFTG")))
 _self:txt_bereich( 350,wY+5,1200,wy+50,_self:_txt_links(),_self:_dbfieldget("DBKdNeu", "HR"))
ENDIF
wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Geschftsfhrer :")
_self:txt_absolut( 900,wY+5, "beschftigt bei :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_bereich( 1200,wY+5,1700,wy+50,_self:_txt_links(), _self:_dbfieldget("DBKdNeu", "ARBGEBER"))
 _self:txt_bereich( 350,wY+5,1200,wy+50,_self:_txt_links(),_self:_dbfieldget("DBKdNeu", "GF"))
ENDIF
wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Steuerberater :")
_self:txt_absolut( 900,wY+5, "Steuernummer :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_bereich( 1200,wY+5,1700,wy+50,_self:_txt_links(), _self:_dbfieldget("DBKdNeu", "STEUERNR"))
 _self:txt_bereich( 350,wY+5,900,wy+50,_self:_txt_links(), _self:_dbfieldget("DBKdNeu", "STB"))
ENDIF

wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Finanzamt :")
_self:txt_absolut( 900,wY+5, "UStID-Nr :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_bereich( 350,wY+5,900,wy+50,_self:_txt_links(), _self:_dbfieldget("DBKdNeu", "FINANZAMT"))
 _self:txt_bereich( 1200,wY+5,1700,wy+50,_self:_txt_links(), _self:_dbfieldget("DBKdNeu", "USTIDNR"))
ENDIF

wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Anzahl Beschftigte :")
_self:txt_absolut( 900,wY+5, "Ausweisnr :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_bereich( 500,wY+5,750,wy+50,_self:_txt_rechts(), LTrim(Str(_self:_dbfieldget("DBKdNeu", "PERS"))))
 _self:txt_bereich( 1200,wY+5,1700,wy+50,_self:_txt_links(), _self:_dbfieldget("DBKdNeu", "AUSWEISNR"))
ENDIF

wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "Lohn- Gehaltssumme :")
_self:txt_absolut( 900,wY+5, "Reisepanr :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF lBlanko == .f.
 _self:txt_bereich( 350,wY+5,750,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdNeu", "LGS"))))+"/"+AllTrim(Str(_self:_dbfieldget("DBKdNeu", "LGSJHR"))))
 _self:txt_bereich( 1200,wY+5,1700,wy+50,_self:_txt_links(), _self:_dbfieldget("DBKdNeu", "REISEPASNR"))
ENDIF

wy := wy + 50
ExecuteScript(DrawHalfBox, _self, wY)
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
_self:txt_absolut( 15,wY+5, "letzter Rohertrag :")
_self:txt_absolut( 900,wY+5, "Ausstellung :")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )

nRohErtrJhr := 0
nRohErtr := 0
IF lBlanko == .f.
 _self:_dbsetdeleted("DBKdRohertrag", .t.)
 _self:_dbsetorder("DBKdRohertrag", 1)
 IF _self:__dbseek("DBKdRohertrag", cKdNr)
  DO WHILE _self:_dbfieldget("DBKdRohertrag", "KDNR_G") + _self:_dbfieldget("DBKdRohertrag", "KDNR_U") == cKdNr	
   IF _self:_dbfieldget("DBKdRohertrag", "ROHERTRJHR") > nRohErtrJhr
    nRohErtrJhr := _self:_dbfieldget("DBKdRohertrag", "ROHERTRJHR")
    nRohErtr := _self:_dbfieldget("DBKdRohertrag", "ROHERTR")
   ENDIF
   _self:_dbskip("DBKdRohErtrag")
  ENDDO
 ENDIF
 _self:txt_bereich( 350,wY+5,750,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(nRohErtr)))+"/"+AllTrim(Str(nRohErtrJhr)))
 _self:txt_bereich( 1200,wY+5,1700,wy+50,_self:_txt_links(), DToC(_self:_dbfieldget("DBKdNeu", "AUSSTELDAT"))+"/"+_self:_dbfieldget("DBKdNeu", "AUSSTELBEH"))
ENDIF

// Partner
wy := wy + 100
ExecuteScript(DrawGreyBox, _self, wY)
_self:gdi_rect( 0, wY, 1700, wY+50 )
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_self:txt_absolut( 15,wY+5, "Partner")

IF lBlanko == .t.
 FOR n := 1 TO 3
  wy := wy + 50
  ExecuteScript(DrawHalfBox, _self, wY)
 NEXT
ELSE		
 _self:_dbsetdeleted("DBKdPartn", .t.)
 _self:_dbsetorder("DBKdPartn", 1)
 IF _self:__dbseek("DBKdPartn", cKdNr)
  DO WHILE _self:_dbfieldget("DBKdPartn", "KDNR_G") + _self:_dbfieldget("DBKdPartn", "KDNR_U") == cKdNr	
  // Umbruch ?
   IF (wy + 50) > 2600
    _self:seite_neue_seite()
    _self:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
    _self:seite_setze_raender( 200, 150, 200, 100 )
    wY := 0
    ExecuteScript(DrawGreyBox, _self, wY)
    _self:gdi_rect( 0, wY, 1700, wY+50 )
    _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
    _self:txt_absolut( 15,wY+5, "Partner")
    wy := wy + 50		
   ELSE
    wy := wy + 50		
   ENDIF
   _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
   ExecuteScript(DrawHalfBox, _self, wY)
   // Name + Vorname
   _self:txt_bereich( 15,wY+5,480,wy+50,_self:_txt_links(), AllTrim(_self:_dbfieldget("DBKdPartn", "NAME"))+" "+AllTrim(_self:_dbfieldget("DBKdPartn", "VORNAME")))
   // Geschlecht
   _self:txt_bereich( 480,wY+5,760,wy+50,_self:_txt_links(), _self:_dbGetMarketgnBeschrbg(17,_self:_dbfieldget("DBKdPartn", "GESCHL")))
   // GebDat
   _self:txt_bereich( 760,wY+5,1140,wy+50,_self:_txt_links(), "GebDat: "+DToC(_self:_dbfieldget("DBKdPartn", "GEBDAT")))
   // Zugehrig
   _self:txt_bereich( 1140,wY+5,1350,wy+50,_self:_txt_links(), _self:_dbGetMarketgnBezug(71,_self:_dbfieldget("DBKdPartn", "STATUS")))
   // Beruf
   _self:txt_bereich( 1350,wY+5,1700,wy+50,_self:_txt_links(), _self:_dbGetMarketgnBeschrbg(4,_self:_dbfieldget("DBKdPartn", "BERUF")))
   _self:_dbskip("DBKdPartn")
  ENDDO
 ELSE				
  FOR n := 1 TO 3
   wy := wy + 50
   ExecuteScript(DrawHalfBox, _self, wY)
  NEXT n
 ENDIF
ENDIF

// "Ergnzung"
IF (wy + 150) > 2600
 _self:seite_neue_seite()
 _self:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
 _self:seite_setze_raender( 200, 150, 200, 100 )
 wY := 0
ELSE
 wy := wy + 100
ENDIF

ExecuteScript(DrawGreyBox, _self, wY)
_self:gdi_rect( 0, wY, 1700, wY+50 )
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
_self:txt_absolut( 15,wY+5, "Ergnzung")
_self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
FOR n := 1 TO 3
 IF (wy + 50) > 2600
  _self:seite_neue_seite()
  _self:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
  _self:seite_setze_raender( 200, 150, 200, 100 )
  wY := 0
 ENDIF
 wy := wy + 50
 ExecuteScript(DrawHalfBox, _self, wY)
NEXT

// evtl. Umsatztabelle
IF lBlanko == .f.
 nTab0 := 0
 nTab1 := nTab0 + 300
 nTab2 := nTab1 + 300
 nTab3 := nTab2 + 300
 nTab4 := nTab3 + 300
 nTab5 := nTab4 + 300
 nTab6 := nTab5 + 300
 nTab7 := nTab6 + 300
 nTab8 := nTab7 + 400

 _self:_dbsetdeleted("DBKdUmsatz", .t.)
 _self:_dbsetorder("DBKdUmsatz", 1)
 IF _self:__dbseek("DBKdUmsatz", cKdNr)
 // neue Seite
  _self:seite_neue_seite()
  _self:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_querformat() )
  _self:seite_setze_raender( 200, 150, 200, 100 )
  wY := 0
  // berschrift
  _SELF:waehle_stift( _self:_stift_durchgezogen(), 2 )
  _SELF:waehle_farbe( _self:_farbe_hell_grau() )
  _SELF:waehle_farb_pinsel()
  _SELF:gdi_rect( nTab0, wY, nTab8, wY+50 )
  _SELF:waehle_farbe( _self:_farbe_schwarz() )
  _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
  _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
  _SELF:txt_absolut( 15,wY+5, "Umsatzliste")
  _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
  wY := wY + 100

  _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )

  // Spaltentitel
  _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
  _self:txt_bereich( nTab0,wY+5,nTab1,wy+50,_self:_txt_zentriert(), "Jahr")
  _SELF:gdi_line( nTab1, wY, nTab1, wY+50 )
  _self:txt_bereich( nTab1,wY+5,nTab2,wy+50,_self:_txt_zentriert(), "Gesamtjahres.")
  _SELF:gdi_line( nTab2, wY, nTab2, wY+50 )
  _self:txt_bereich( nTab2,wY+5,nTab3,wy+50,_self:_txt_zentriert(), "Inland")
  _SELF:gdi_line( nTab3, wY, nTab3, wY+50 )
  _self:txt_bereich( nTab3,wY+5,nTab4,wy+50,_self:_txt_zentriert(), "europ.Ausland")
  _SELF:gdi_line( nTab4, wY, nTab4, wY+50 )
  _self:txt_bereich( nTab4,wY+5,nTab5,wy+50,_self:_txt_zentriert(), "USA/Kanada")
  _SELF:gdi_line( nTab5, wY, nTab5, wY+50 )
  _self:txt_bereich( nTab5,wY+5,nTab6,wy+50,_self:_txt_zentriert(), "brige Welt")
  _SELF:gdi_line( nTab6, wY, nTab6, wY+50 )
  _self:txt_bereich( nTab6,wY+5,nTab7,wy+50,_self:_txt_zentriert(), "Ausland Schiff")
  _SELF:gdi_line( nTab7, wY, nTab7, wY+50 )
  _self:txt_bereich( nTab7,wY+5,nTab8,wy+50,_self:_txt_zentriert(), "Ausland Flugzeug")
  _SELF:gdi_line( nTab0, wY+50, nTab8, wY+50 )

  _self:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
  DO WHILE _self:_dbfieldget("DBKdUmsatz", "KDNR_G") + _self:_dbfieldget("DBKdUmsatz", "KDNR_U") == cKdNr	
   wy := wy + 50
   _self:txt_bereich( nTab0,wY+5,nTab1,wy+50,_self:_txt_zentriert(), AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSATZJHR"))))
   _SELF:gdi_line( nTab1, wY, nTab1, wY+50 )
   _self:txt_bereich( nTab1,wY+5,nTab2-10,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSATZ")))))
   _SELF:gdi_line( nTab2, wY, nTab2, wY+50 )
   _self:txt_bereich( nTab2,wY+5,nTab3-10,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSINL")))))
   _SELF:gdi_line( nTab3, wY, nTab3, wY+50 )
   _self:txt_bereich( nTab3,wY+5,nTab4-10,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSEUROP")))))
   _SELF:gdi_line( nTab4, wY, nTab4, wY+50 )
   _self:txt_bereich( nTab4,wY+5,nTab5-10,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSUSA")))))
   _SELF:gdi_line( nTab5, wY, nTab5, wY+50 )
   _self:txt_bereich( nTab5,wY+5,nTab6-10,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSREST")))))
   _SELF:gdi_line( nTab6, wY, nTab6, wY+50 )
   _self:txt_bereich( nTab6,wY+5,nTab7-10,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSAUSLS")))))
   _SELF:gdi_line( nTab7, wY, nTab7, wY+50 )
   _self:txt_bereich( nTab7,wY+5,nTab8-10,wy+50,_self:_txt_rechts(), _self:pdf_SetDecPoint(AllTrim(Str(_self:_dbfieldget("DBKdUmsatz", "UMSAUSLF")))))

   _self:_dbskip("DBKdUmsatz")
  ENDDO
 ENDIF
ENDIF

RETURN
