FUNCTION runscript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Schadensauszahlung-Anschreiben'
// -----------------------------------------
// bentigte Script's
global AusgabeFusszeile := _cScriptName + "01.txt"
global AusgabeKopfzeile := _cScriptName + "02.txt"
global AusgabeTelFax := _cScriptName + "03.txt"
global AusgabeGeschZeit := _cScriptName + "04.txt"
global AusgabeText := _cScriptName + "05.txt"
global FillGesamtText := _cScriptName + "06.txt"

LOCAL cKdNr
LOCAL cBuchungsinfo
LOCAL cBankVerbindung


IF _SELF:nOPListeRecno != 0 .AND. _SELF:nInk87Recno != 0
 _SELF:_dbgoto("DBOPListe",_SELF:nOPListeRecno)
 _SELF:_dbgoto("DBInk87",_SELF:nInk87Recno)

 cKdNr := _Self:_dbfieldget("DBInk87","KDNR_G") + _Self:_dbfieldget("DBInk87","KDNR_U")

 // Beginn Seite erzeugen				
 _SELF:seite_neue_seite()
 _SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
 _SELF:seite_setze_raender( _self:nRandLinks, _self:nRandOben, _self:nRandRechts, _self:nRandUnten )
 _SELF:wYTemp := 0
 _SELF:AusgabeBmp()
 ExecuteScript(AusgabeFussZeile, _self)	
 ExecuteScript(AusgabeKopfZeile, _self)
 ExecuteScript(AusgabeTelFax, _self)
 ExecuteScript(AusgabeGeschZeit, _self)

// ----------------------------------------------
// Anschrift
// ----------------------------------------------
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
 _SELF:waehle_farbe( _self:_farbe_schwarz() )
 _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )

 _SELF:wYTemp := _SELF:nY_Pos_Anschr_Text	

 IF ! Empty(_Self:_dbfieldget("DBInk87","VN_AN_ANR"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","VN_AN_ANR")))
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(_Self:_dbfieldget("DBInk87","VN_AN_NAME"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","VN_AN_NAME")))
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(_Self:_dbfieldget("DBInk87","VN_AN_ZUS"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","VN_AN_ZUS")))
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(_Self:_dbfieldget("DBInk87","VN_STR"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","VN_STR")))
  _SELF:wYTemp := _SELF:wYTemp + 80
 ENDIF
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","VN_ANSCHR")))

// ----------------------------------------------
// Rechnungsnummer ...
// ----------------------------------------------
  _SELF:wYTemp := _SELF:wYTemp + 130
// Rahmen
 _SELF:waehle_farbe( _self:_farbe_weiss() )
 _SELF:waehle_farb_pinsel()
 _SELF:waehle_farbe( _self:_farbe_schwarz() )
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 2 )
 _SELF:gdi_rect( 0, _SELF:wYTemp-10, 530, _self:wYTemp+120 )

// weiter
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
 _SELF:waehle_farbe( _self:_farbe_schwarz() )
 _SELF:waehle_schrift( "ARIAL", 20, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(30,_SELF:wYTemp,"Rechnungsnummer")
 _SELF:txt_absolut(300,_SELF:wYTemp,"Kundennummer")
 _SELF:txt_absolut(690,_SELF:wYTemp,"Ihr Kundenbetreuer")
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),"Datum")

 _SELF:wYTemp := _SELF:wYTemp + 30
 _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(30,_SELF:wYTemp,AllTrim(Str(_Self:_dbfieldget("DBInk87","RENR"))))
 _SELF:txt_absolut(300,_SELF:wYTemp,cKdNr)
 _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),DToC(_Self:_dbfieldget("DBOPListe","REDAT")))
 _SELF:waehle_schrift( "ARIAL", 30, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(690,_SELF:wYTemp,_self:pdf_cSBNameFromKdNr(cKdNr))
 _SELF:txt_absolut(690,_SELF:wYTemp+30,"Durchwahl "+_self:pdf_cSBDurchwahlFromKdNr(cKdNr))
 _SELF:wYTemp := _SELF:wYTemp + 50
 _SELF:waehle_schrift( "ARIAL", 20, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(30,_SELF:wYTemp,"Bei Zahlung und Rckfragen immer angeben")
 _SELF:wYTemp := _SELF:wYTemp + 130

// ----------------------------------------------
// Titel
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_fett() )
 IF (_SELF:_dbfieldget("DBInk87","COURTAGE") >= 0)
  _SELF:txt_absolut(0,_SELF:wYTemp,"Schadensauszahlung")
 ELSE
  _SELF:txt_absolut(0,_SELF:wYTemp,"Schadensrckbelastung")
 ENDIF
 _SELF:wYTemp := _SELF:wYTemp + 80

// ----------------------------------------------
// Linie
// ----------------------------------------------
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 2 )
 _SELF:gdi_line(0,_SELF:wYTemp,_SELF:seite_x_ausdehnung(),_SELF:wYTemp)
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
 _SELF:wYTemp := _SELF:wYTemp + 80
		
// ----------------------------------------------
// Schadensnummer
// ----------------------------------------------
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
 _SELF:waehle_farbe( _self:_farbe_schwarz() )
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(10,_self:wYTemp+5,"Schadens-Nr.:")
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(360,_self:wYTemp,AllTrim(Str(_Self:_dbfieldget("DBInk87","SNUMMER")))+"/"+_Self:_dbfieldget("DBInk87","VUSNUMMER"))
 _SELF:wYTemp := _self:wYTemp +40

// ----------------------------------------------
// Kd-Schadensnummer
// ----------------------------------------------
 IF ! Empty(_Self:_dbfieldget("DBInk87","KD_SNUMMER"))
  _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
  _SELF:waehle_farbe( _self:_farbe_schwarz() )
  _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
  _SELF:txt_absolut(10,_self:wYTemp+5,"VN Schadens-Nr.:")
  _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
  _SELF:txt_absolut(360,_self:wYTemp,AllTrim(_Self:_dbfieldget("DBInk87","KD_SNUMMER")))
  _SELF:wYTemp := _self:wYTemp +40
 ENDIF

// ----------------------------------------------
// Schaden
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(10,_self:wYTemp+5,"Schaden:")
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(360,_self:wYTemp,_Self:pdf_GetMarketgnBezug(49,_Self:_dbfieldget("DBInk87","SCHADART_N")))
 _SELF:wYTemp := _self:wYTemp +40

// ----------------------------------------------
// Schadenstag
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(10,_self:wYTemp+5,"Schadenstag:")
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(360,_self:wYTemp,DToC(_Self:_dbfieldget("DBInk87","SCHADTAG")))
 _SELF:wYTemp := _self:wYTemp +80

// ----------------------------------------------
// VU
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(10,_self:wYTemp+5,"Versicherer:")
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(360,_self:wYTemp,_Self:_dbfieldget("DBInk87","VU_NAME"))
 _SELF:wYTemp := _self:wYTemp +40

// ----------------------------------------------
// Vertrag
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(10,_self:wYTemp+5,"Vertragsnummer:")
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(360,_self:wYTemp,_Self:_dbfieldget("DBInk87","VSNR"))
 _SELF:wYTemp := _self:wYTemp +40

// ----------------------------------------------
// Sparte
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(10,_self:wYTemp+5,"Sparte:")
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(360,_self:wYTemp,_Self:_dbfieldget("DBInk87","ART_WAS"))
 _SELF:wYTemp := _self:wYTemp +180

// ----------------------------------------------
// Sehr geehrte ...
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_absolut(10,_self:wYTemp+5,"Sehr geehrte Damen und Herren,")
 _SELF:wYTemp := _self:wYTemp +50

 IF (_SELF:_dbfieldget("DBInk87","COURTAGE") >= 0)
  _SELF:txt_absolut(10,_self:wYTemp+5,"aus der Abrechnung ergibt sich fr Sie folgendes Guthaben:")
 ELSE
  _SELF:txt_absolut(10,_self:wYTemp+5,"aus der Abrechnung ergibt sich fr Sie folgende Verbindlichkeit:")
 ENDIF
 _SELF:wYTemp := _self:wYTemp +180

// ----------------------------------------------
// Betrag
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
 _SELF:txt_absolut(10,_SELF:wYTemp,"Betrag:")
 _SELF:txt_bereich(10,_SELF:wYTemp,_SELF:seite_x_ausdehnung(),_SELF:wYTemp+40,_self:_txt_rechts(),AllTrim(Str(abs(_Self:_dbfieldget("DBOPListe","COURTAGE"))))+" ")
// _SELF:txt_bereich(1400,_SELF:wYTemp,1620,_SELF:wYTemp+40,_self:_txt_rechts(),AllTrim(Str(_Self:_dbfieldget("DBOPListe","COURTAGE")*(-1)))+" ")
// _SELF:txt_bereich(1400,_SELF:wYTemp,1620,_SELF:wYTemp+40,_self:_txt_rechts(),AllTrim(Str(_Self:_dbfieldget("DBOPListe","ZAHLUNG")*(-1)))+" ")
 _SELF:wYTemp := _self:wYTemp + 50

// ----------------------------------------------
// Linie
// ----------------------------------------------
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 2 )
 _SELF:gdi_line(0,_SELF:wYTemp,_SELF:seite_x_ausdehnung(),_SELF:wYTemp)
 _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
 _SELF:wYTemp := _self:wYTemp + 30

// ----------------------------------------------
// Buchungsinfo und Bankverbindung
// ----------------------------------------------
 cBuchungsinfo := ""
 cBankVerbindung := ""
 IF (_SELF:_dbfieldget("DBInk87","COURTAGE") >= 0)
  IF (_SELF:_dbfieldget("DBInk87","ABRUF_ABW") == .T.) .and. (_SELF:_dbfieldget("DBInk87","NOLASTSCHR") == .F.)
   // ----------------------------------------------
   // Police m. abw. Bankverbindung
   // ----------------------------------------------
   cBankVerbindung := AllTrim(_SELF:_dbfieldget("DBInk87","POL_KTOINH"))+;
  		       ", "+AllTrim(_SELF:_dbfieldget("DBInk87","POL_BANK"))+;
 			" (BLZ "+AllTrim(_SELF:_dbfieldget("DBInk87","POL_BLZ"))+") "+;
 		 	"Konto Nr: "+AllTrim(_SELF:_dbfieldget("DBInk87","POL_KTO"))
   cBuchungsInfo := "Wir berweisen den Betrag auf Ihr Konto : "

  ELSEIF (_SELF:_dbfieldget("DBInk87","VN_ZAHLPL") == .T.) .and. (_self:pdf_Art2ID(_SELF:_dbfieldget("DBInk87","ART")) == _self:pdf_nSparteKFZ())	
   // ----------------------------------------------
   // Zahlplan vorhanden und Sparte = KFZ
   // ----------------------------------------------
   cBuchungsInfo := "Der Betrag wird auf Ihr Kundenkonto "+;
		       _SELF:_dbfieldget("DBInk87","KDNR_G")+_SELF:_dbfieldget("DBInk87","KDNR_U") +" gebucht."	

  ELSEIF (_SELF:_dbfieldget("DBInk87","VN_RUEPR") == .T.) .and. (_SELF:_dbfieldget("DBInk87","NOLASTSCHR") == .F.)	
   // ----------------------------------------------
   // Kunde verwendet Bankverb. f. Rckprmie
   // ----------------------------------------------
   cBankVerbindung := AllTrim(_SELF:_dbfieldget("DBInk87","VN_KTOINH"))+;
		       ", "+AllTrim(_SELF:_dbfieldget("DBInk87","VN_BANK"))+;
			" (BLZ "+AllTrim(_SELF:_dbfieldget("DBInk87","VN_BLZ"))+") "+;
			"Konto Nr: "+AllTrim(_SELF:_dbfieldget("DBInk87","VN_KTO"))
   cBuchungsInfo := "Wir berweisen den Betrag auf Ihr Konto : "
  ELSE
   // ----------------------------------------------
   // weder noch
   // ----------------------------------------------
   cBuchungsInfo := "Wir fgen einen Verrechnungsscheck bei."
  ENDIF
 ELSE
  cBuchungsinfo := "Bitte berweisen Sie den Betrag auf unser Konto."
 ENDIF

 // ----------------------------------------------
 // Einfgen des Buchungsinfo's
 // ----------------------------------------------
 IF ! Empty(cBuchungsInfo)
  // ----------------------------------------------
  // Buchungsinfo
  // ----------------------------------------------
  _SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
  _SELF:waehle_farbe( _self:_farbe_schwarz() )
  _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
  _SELF:txt_absolut(10,_SELF:wYTemp,cBuchungsInfo)

  // ----------------------------------------------
  // Bankverbindung
  // ----------------------------------------------
  _SELF:wYTemp := _SELF:wYTemp + 50
  _SELF:txt_absolut(10,_SELF:wYTemp,cBankverbindung)
  _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 ENDIF
	
 // ----------------------------------------------
 // mfG
 // ----------------------------------------------
 _SELF:wYTemp := _SELF:wYTemp + 150
 _SELF:txt_absolut(10,_SELF:wYTemp,"Sollten Sie noch Fragen haben rufen Sie uns einfach an.")

 _SELF:wYTemp := _SELF:wYTemp + 150
// _SELF:txt_absolut(10,_SELF:wYTemp,_self:cTxt_mfG)
 ExecuteScript(AusgabeText, _self, _SELF:wYTemp, _self:_TXT_LINKS(), _SELF:cTxt_mfG, 35)


ENDIF

RETURN
