FUNCTION runscript(_self, _cScriptName)
// -----------------------------------------
// 'Schadensauszahlung-Anschreiben Manuell'
// -----------------------------------------
// benötigte 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 cInfoTxt1
LOCAL cInfoTxt2
LOCAL nUserNr
LOCAL aKdAnschrift
LOCAL cKdAnrede
LOCAL cKdName
LOCAL cKdAnschrift
LOCAL cKdOrt
local cReNr
local cScadRegTan
local nSpartenID
local dSchadTag
local nNummer
local cVUSchadNr

IF _SELF:nSchadRecno != 0 .AND. _SELF:nSchadRegRecno != 0
 _SELF:_dbgoto("DBSchaden",_SELF:nSchadRecno)
 _SELF:_dbgoto("DBSchadReg",_SELF:nSchadRegRecno)

 // -----------------------------------------
 // benötigte SNummer-Variable ermitteln
 // -----------------------------------------
 nSpartenID := _Self:_dbfieldget("DBSchaden","SPARTENID")
 dSchadTag := _Self:_dbfieldget("DBSchaden","SCHADTAG")
 nNummer := _Self:_dbfieldget("DBSchaden","NUMMER")

 // -----------------------------------------
 // ReNr + PreFix ermitteln
 // -----------------------------------------
 cReNr := ""
 cScadRegTan := _Self:_dbfieldget("DBSchadReg","SCADREGTAN")
 IF ! Empty(cScadRegTan)
  _SELF:_dbsetorder("DBInk87", 9)
  IF _SELF:__dbseek("DBInk87", cScadRegTan) == .T.
   cReNr := " / " + _Self:_dbfieldget("DBInk87","PREFX") + " " + Trim(Str(_Self:_dbfieldget("DBInk87","RENR")))
  ENDIF
 ENDIF
 // -----------------------------------------
 // benötigte Kd-Variable ermitteln
 // -----------------------------------------
 // Kunde
 cKdNr := _Self:_dbfieldget("DBSchaden","KDNR_G") + _Self:_dbfieldget("DBSchaden","KDNR_U")
 aKdAnschrift := _self:pdf_aGetKdAnschrift(cKdNr)
 cKdAnrede := aKdAnschrift[1]
 cKdName := aKdAnschrift[6]
 cKdAnschrift := aKdAnschrift[7]
 cKdOrt := aKdAnschrift[8] + " " + aKdAnschrift[9]

 // ----------------------------------------------
 // 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(cKdAnrede)
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),cKdAnrede)
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(cKdName)
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),cKdName)
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(cKdAnschrift)
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),cKdAnschrift)
  _SELF:wYTemp := _SELF:wYTemp + 80
 ENDIF
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),cKdOrt)

// ----------------------------------------------
// Kundennummer ...
// ----------------------------------------------
  _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, 350, _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,"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,cKdNr)

 _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),DToC(today()))
 _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 Rückfragen immer angeben")
 _SELF:wYTemp := _SELF:wYTemp + 130

// ----------------------------------------------
// Titel
// ----------------------------------------------
 _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_fett() )
 IF (_SELF:_dbfieldget("DBSchadReg","BETRAG") >= 0)
  _SELF:txt_absolut(0,_SELF:wYTemp,"Schadensauszahlung" + cReNr)
 ELSE
  _SELF:txt_absolut(0,_SELF:wYTemp,"Schadensrückbelastung" + cReNr)
 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
		
// ----------------------------------------------
// Aktenzeichen Kunde
// ----------------------------------------------
 IF ! Empty(_Self:_dbfieldget("DBSchaden","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,"Aktenzeichen:")
  _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
  _SELF:txt_absolut(360,_self:wYTemp,_Self:_dbfieldget("DBSchaden","KD_SNUMMER"))
  _SELF:wYTemp := _self:wYTemp +40
 ENDIF
// ----------------------------------------------
// Schadensnummer
// ----------------------------------------------
 cVUSchadNr := _Self:_dbfieldget("DBSchaden","SCHADNR")
 IF ! empty(cVUSchadNr)
  cVUSchadNr := "/" + cVUSchadNr 
 ENDIF
 _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,_self:pdf_cGetSNummer(nSpartenID,dSchadTag,nNummer)+cVUSchadNr )
 _SELF:wYTemp := _self:wYTemp +40

// ----------------------------------------------
// 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("DBSchaden","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("DBSchaden","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:pdf_VU2Text(_Self:_dbfieldget("DBSchaden","VU")))
 _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("DBSchaden","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:pdf_Art2Text2(_Self:_dbfieldget("DBSchaden","ART")))
 _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("DBSchadReg","BETRAG") >= 0)
  _SELF:txt_absolut(10,_self:wYTemp+5,"aus der Abrechnung ergibt sich für Sie folgendes Guthaben:")
 ELSE
  _SELF:txt_absolut(10,_self:wYTemp+5,"aus der Abrechnung ergibt sich für 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(),_self:pdf_SetDecPoint(AllTrim(Str(abs(_Self:_dbfieldget("DBSchadReg","BETRAG")))))+" €")
 _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

// ----------------------------------------------
// InfoTxt1 und InfoTxt2
// ----------------------------------------------
 cInfoTxt1 := ""
 cInfoTxt2 := ""
 IF (_SELF:_dbfieldget("DBSchadReg","BETRAG") <> 0)

  IF (_SELF:_dbfieldget("DBSchadReg","BETRAG") > 0)
    // ----------------------------------------------
    // Schadensauszahlung
    // ----------------------------------------------
   IF _SELF:_dbfieldget("DBSchadReg","VON") == 1
    // ----------------------------------------------
    // von "Makler" an "Sonstige"
    // ----------------------------------------------
    IF _SELF:_dbfieldget("DBSchadReg","PER") == 1
     // ----------------------------------------------
     // per Scheck
     // ----------------------------------------------
     cInfoTxt1 := "Wir fügen einen Verrechnungsscheck bei."
    ENDIF

    IF _SELF:_dbfieldget("DBSchadReg","PER") == 2
     // ----------------------------------------------
     // per Überweisung
     // ----------------------------------------------
     cInfoTxt1 := "Wir überweisen den Betrag auf folgendes Konto:"
     IF ! Empty(_SELF:_dbfieldget("DBSchadReg","BANK"))
      cInfoTxt2 := trim(_SELF:_dbfieldget("DBSchadReg","BANK"))
      cInfoTxt2 := cInfoTxt2 + " (" + trim(str(_SELF:_dbfieldget("DBSchadReg","BLZ"))) + ")"
      cInfoTxt2 := cInfoTxt2 + " KontoNr: " + trim(_SELF:_dbfieldget("DBSchadReg","KTONR"))
     ELSE
      cInfoTxt2 := trim(_SELF:_dbfieldget("DBSchadReg","AN"))
     ENDIF
    ENDIF
   ENDIF
  ENDIF

  IF (_SELF:_dbfieldget("DBSchadReg","BETRAG") < 0)
    // ----------------------------------------------
    // Schadensrückbelastung
    // ----------------------------------------------
   IF _SELF:_dbfieldget("DBSchadReg","VON") == 1
    // ----------------------------------------------
    // von "Makler" an "Sonstige"
    // ----------------------------------------------
    IF _SELF:_dbfieldget("DBSchadReg","PER") == 1
     // ----------------------------------------------
     // per Scheck
     // ----------------------------------------------
     cInfoTxt1 := "Bitte überweisen Sie den Betrag auf unser Konto."
    ENDIF

    IF _SELF:_dbfieldget("DBSchadReg","PER") == 2
     // ----------------------------------------------
     // per Überweisung
     // ----------------------------------------------
     cInfoTxt1 := "Wir ziehen den Betrag von folgendem Konto ein:"
     IF ! Empty(_SELF:_dbfieldget("DBSchadReg","BANK"))
      cInfoTxt2 := trim(_SELF:_dbfieldget("DBSchadReg","BANK"))
      cInfoTxt2 := cInfoTxt2 + " (" + trim(str(_SELF:_dbfieldget("DBSchadReg","BLZ"))) + ")"
      cInfoTxt2 := cInfoTxt2 + " KontoNr: " + trim(_SELF:_dbfieldget("DBSchadReg","KTONR"))
     ELSE
      cInfoTxt2 := trim(_SELF:_dbfieldget("DBSchadReg","AN"))
     ENDIF
    ENDIF
   ENDIF
  ENDIF


  IF ! Empty(cInfoTxt1)
   // ----------------------------------------------
   // InfoTxt1
   // ----------------------------------------------
   _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,cInfoTxt1)
  ENDIF

  IF ! Empty(cInfoTxt2)
   // ----------------------------------------------
   // InfoTxt2
   // ----------------------------------------------
   _SELF:wYTemp := _SELF:wYTemp + 50
   _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,cInfoTxt2)
  ENDIF
 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
