FUNCTION runscript(_self, _cScriptName)
// -----------------------------------------
// 'Schadensauszahlung-Anschreiben Manuell'
// -----------------------------------------
// 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 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)

 // -----------------------------------------
 // bentigte 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
 // -----------------------------------------
 // bentigte 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 Rckfragen 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,"Schadensrckbelastung" + 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 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(),_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 fgen 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)
    // ----------------------------------------------
    // Schadensrckbelastung
    // ----------------------------------------------
   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
