Function runScript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// ---------------------------
// Kd-Adressnderung
// ---------------------------
// bentigte Script's
global AusgabeFussZeile := _cScriptName + "01.txt"
global AusgabeKopfZeile := _cScriptName + "02.txt"
global AusgabeTelFax := _cScriptName + "03.txt"
global AusgabeGeschZeit := _cScriptName + "04.txt"
global AusgabeAgtNr := _cScriptName + "05.txt"
global AusgabeText := _cScriptName + "06.txt"
global Umbruch := _cScriptName + "07.txt"


local m, n, i, x
local cKdAlt, cText

local aAnschreiben
local aKdAngabenNeu
local aKdAngabenAlt

aAnschreiben := _self:aAnschreiben
aKdAngabenNeu := _self:aKdAngabenNeu
aKdAngabenAlt := _self:aKdAngabenAlt

IF ( n := len(aAnschreiben) ) > 0

  for m := 1 to n

  // 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:AusgabeBmp()

    ExecuteScript(AusgabeFussZeile,_self)	
    ExecuteScript(AusgabeKopfZeile,_self)
    ExecuteScript(AusgabeTelFax,_self)
    ExecuteScript(AusgabeGeschZeit,_self)
    ExecuteScript(AusgabeAgtNr,_self,aAnschreiben[m][9])

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

// -------------------------------------------------------
// Anschrift
// -------------------------------------------------------
// { {vu_name,vu_str,vu_plz,vu_ort,{{police_vsnr,police_produkt},{...}}, ... }
    _SELF:wYTemp := _SELF:nY_Pos_Anschr_Text
    // VU-name
    IF ! Empty(aAnschreiben[m][1])	
      _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(aAnschreiben[m][1]))
      _SELF:wYTemp := _self:wYTemp + 50
    ENDIF			
    // vu_strae
    IF ! Empty(aAnschreiben[m][2])	
      _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(aAnschreiben[m][2]))
      _SELF:wYTemp := _self:wYTemp + 80
    ENDIF
    // vu_plz+ort
    IF ! Empty(aAnschreiben[m][3]+aAnschreiben[m][4])
      _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(aAnschreiben[m][3])+" "+AllTrim(aAnschreiben[m][4]))
      _SELF:wYTemp := _self:wYTemp + 50
    ENDIF


// -------------------------------------------------------
// Ihr Ansprechpartner
// -------------------------------------------------------
    _SELF:wYTemp := _self:wYTemp + 130
    _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(0,_SELF:wYTemp,"Ihr Ansprechpartner")
    _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),"Datum")
    _SELF:wYTemp := _self:wYTemp + 30
    _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(0,_SELF:wYTemp,_self:pdf_cUserNameFromUserNr(_self:pdf_nUserNr()))
    _SELF:txt_absolut(0,_SELF:wYTemp+30,"Durchwahl "+_self:pdf_cUserDurchwahlFromUserNr(_self:pdf_nUserNr()))
    IF ! Empty(cEmail := _self:pdf_cUserEmailFromUserNr(_self:pdf_nUserNr()))
      _SELF:wYTemp := _self:wYTemp + 30
      _SELF:txt_absolut(0,_SELF:wYTemp+30,"email "+cEmail)
    ENDIF

    _SELF:wYTemp := _self:wYTemp + 130


// -------------------------------------------------------
// nderung der Kundendaten
// -------------------------------------------------------

    _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
    _SELF:txt_absolut(0,_SELF:wYTemp,"nderung der Kundendaten")
    _SELF:wYTemp := _self:wYTemp + 50

// -------------------------------------------------------
// Linie
// -------------------------------------------------------

    _SELF:waehle_farb_pinsel()
    _SELF:waehle_farbe( _self:_farbe_schwarz() )
    _SELF:waehle_stift( _self:_stift_durchgezogen(), 3 )
    _SELF:gdi_line( 0, _SELF:wYTemp, _SELF:seite_x_ausdehnung(), _SELF:wYTemp )
    _SELF:wYTemp := _self:wYTemp + 80

// -------------------------------------------------------
// Kunde alt
// -------------------------------------------------------

    _SELF:txt_absolut(0,_SELF:wYTemp,"Kunde:")
    // name
    cKdAlt := ""
    IF ! Empty(aKdAngabenAlt[5])		// titel
      cKdAlt := cKdAlt + alltrim(aKdAngabenAlt[5]) + " "
    ENDIF
    IF ! Empty(aKdAngabenAlt[4])		// vorname
      cKdAlt := cKdAlt + AllTrim(aKdAngabenAlt[4]) + " "
    ENDIF
   IF ! Empty(aKdAngabenAlt[2])		// name
      cKdAlt := cKdAlt + AllTrim(aKdAngabenAlt[2])+" "
    ENDIF
    _SELF:txt_absolut(400,_SELF:wYTemp,cKdAlt)
    // zusatz
    IF ! Empty(aKdAngabenAlt[3])
      _SELF:wYTemp := _self:wYTemp + 50
      _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aKdAngabenAlt[3]))
    ENDIF

// -------------------------------------------------------
// Policennummern
// -------------------------------------------------------

    _SELF:wYTemp := _self:wYTemp + 50
    _SELF:txt_absolut(0,_SELF:wYTemp,"Policennummer:")
    IF ( i := Len(aAnschreiben[m][5])) > 0	// {vsnr,produkt}
      FOR x := 1 TO i
        _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
        _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aAnschreiben[m][5][x][1])+", "+;	    // vsnr
          AllTrim(_self:pdf_Art2Text2(aAnschreiben[m][5][x][2])))	// produkt
        _SELF:wYTemp := _self:wYTemp + 50
        // Umbruch ?
        IF _SELF:wYTemp + 100 > _SELF:seite_y_ausdehnung() - _SELF:nFussZeilenHoehe
          ExecuteScript(Umbruch,_self)
	ENDIF
      NEXT x
    ENDIF

// -------------------------------------------------------
// Sehr geehrte Damen und Herren
// -------------------------------------------------------

    _SELF:wYTemp := _self:wYTemp + 100
    // Umbruch ?
    IF _SELF:wYTemp + 500 > _SELF:seite_y_ausdehnung() - _SELF:nFussZeilenHoehe
      ExecuteScript(Umbruch,_self)
    ENDIF
    _SELF:txt_absolut(0,_SELF:wYTemp,"Sehr geehrte Damen und Herren,")
    _SELF:wYTemp := _self:wYTemp + 100
    _SELF:txt_absolut(0,_SELF:wYTemp,"die Anschrift bzw. der Name unseres oben genannten Kunden hat sich gendert.")
    _SELF:wYTemp := _self:wYTemp + 50
    _SELF:txt_absolut(0,_SELF:wYTemp,"Bitte ndern Sie die Daten wie folgt ab:")

// -------------------------------------------------------
// Kundendaten neu
// -------------------------------------------------------

    _SELF:wYTemp := _self:wYTemp + 100
    _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
    // name
    _SELF:txt_absolut(0,_SELF:wYTemp,"Name:")
    cText := ""
    IF ! Empty(aKdAngabenNeu[1])	// anrede
      cText := cText + AllTrim(aKdAngabenNeu[1]+" "
    ENDIF
    IF ! Empty(aKdAngabenNeu[5])	// titel
      cText := cText + AllTrim(aKdAngabenNeu[5])+" "
    ENDIF
    IF ! Empty(aKdAngabenNeu[4])	// vorname
      cText := cText + AllTrim(aKdAngabenNeu[4])+" "
    ENDIF
    IF ! Empty(aKdAngabenNeu[2])	// name
      cText := cText + AllTrim(aKdAngabenNeu[2])+" "
    ENDIF
    _SELF:txt_absolut(400,_SELF:wYTemp,cText)
    // Zusatz
    IF ! Empty(aKdAngabenNeu[3])	// zusatz
      _SELF:wYTemp := _self:wYTemp + 50
      _SELF:txt_absolut(0,_SELF:wYTemp,"Zusatz:")
      _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aKdAngabenNeu[3]))
    ENDIF
    // anschrift
    _SELF:wYTemp := _self:wYTemp + 50
    _SELF:txt_absolut(0,_SELF:wYTemp,"Anschrift:")
    // strae
    _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aKdAngabenNeu[9]))
    // plz,ort,land
    cText := ""
    IF ! Empty(aKdAngabenNeu[7])	// plz_zb
      cText := cText + AllTrim(aKdAngabenNeu[7])+" "
    ENDIF
    IF ! Empty(aKdAngabenNeu[8])	// ort
      cText := cText + AllTrim(aKdAngabenNeu[8])+" "
    ENDIF
    IF ! Empty(aKdAngabenNeu[6])	// land
      cText := cText + AllTrim(aKdAngabenNeu[6])+" "
    ENDIF
    _SELF:wYTemp := _self:wYTemp + 50
   _SELF:txt_absolut(400,_SELF:wYTemp,cText)

    // postfach
    IF ! Empty(aKdAngabenNeu[11])	// PF
      _SELF:wYTemp := _self:wYTemp + 50
      _SELF:txt_absolut(0,_SELF:wYTemp,"Postfach.")
      cText := AllTrim(aKdAngabenNeu[11])
      IF ! Empty(aKdAngabenNeu[10])	// PLZ_PF
        cText := cText + " ( PLZ: " + AllTrim(aKdAngabenNeu[10])+" )"
      ENDIF
      _SELF:txt_absolut(400,_SELF:wYTemp,cText)
    ENDIF
		
// -------------------------------------------------------
// mfg
// -------------------------------------------------------

    // Umbruch ?
    _SELF:wYTemp := _self:wYTemp + 150
    IF _SELF:wYTemp + 200 > _SELF:seite_y_ausdehnung() - _SELF:nFussZeilenHoehe
      ExecuteScript(Umbruch,_self)
    ENDIF

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

    ExecuteScript(AusgabeText, _self, _SELF:wYTemp,_self:_TXT_LINKS(),_SELF:cTxt_mfG,40)


  NEXT m

endif

return
