FUNCTION runscript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'RLa-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

IF _SELF:nRueLaRecno != 0
 _SELF:_dbgoto("DBRueLa",_SELF:nRueLaRecno)
 cKdNr := _Self:_dbfieldget("DBRueLa","KDNR_G") + _Self:_dbfieldget("DBRueLa","KDNR_U")

 // cGesamtText generieren
 ExecuteScript(FillGesamtText, _self)	

 // 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("DBRueLa","VN_AN_ANR"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBRueLa","VN_AN_ANR")))
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(_Self:_dbfieldget("DBRueLa","VN_AN_NAME"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBRueLa","VN_AN_NAME")))
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(_Self:_dbfieldget("DBRueLa","VN_AN_ZUS"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBRueLa","VN_AN_ZUS")))
  _SELF:wYTemp := _SELF:wYTemp + 40
 ENDIF
 IF ! Empty(_Self:_dbfieldget("DBRueLa","VN_STR"))
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBRueLa","VN_STR")))
  _SELF:wYTemp := _SELF:wYTemp + 80
 ENDIF
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBRueLa","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("DBRueLa","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("DBRueLa","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
 _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_fett() )

// ----------------------------------------------
// Rcklastschrift
// ----------------------------------------------

 _SELF:txt_absolut(0,_SELF:wYTemp,"Rcklastschrift")

 _SELF:wYTemp := _SELF:wYTemp + 80
 _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
		
 _SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_normal() )
 _self:tab_initTab(0,_SELF:wYTemp,1,1)
 _self:tab_setze_zeilenhoehe(1,1500)
 _self:tab_setze_spaltenbreite(1,_SELF:seite_x_ausdehnung())
 _self:tab_setze_zelleEx(1,1,0,0,_self:_tcx_umbruch()+_self:_tcx_oben(),_SELF:cGesamtText)

ENDIF

RETURN
