Function runScript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// ---------------------------
// Änderung der Bankverbindung
// ---------------------------
// benötigte Script's
global AusgabeAgtNr := _cScriptName + "01.txt"
global AusgabeFussZeile := _cScriptName + "02.txt"
global AusgabeGeschZeit := _cScriptName + "03.txt"
global AusgabeKopfZeile := _cScriptName + "04.txt"
global AusgabeTelFax := _cScriptName + "05.txt"
global AusgabeText := _cScriptName + "06.txt"
global Umbruch := _cScriptName + "07.txt"

local m,n,i,x
local cEmail, cKdAlt

local aAnschreiben
local aKdAngaben
local aBankVerbNeu

aAnschreiben := _self:aAnschreiben
aKdAngaben := _self:aKdAngaben
aBankVerbNeu := _self:aBankVerbNeu

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:wYTemp := 0
    _SELF:AusgabeBmp()

    ExecuteScript(AusgabeFussZeile, _self)	
    ExecuteScript(AusgabeKopfZeile, _self)
    ExecuteScript(AusgabeTelFax, _self)
    ExecuteScript(AusgabeGeschZeit, _self)
    ExecuteScript(AusgabeAgtNr, _self, aAnschreiben[m][7])
    _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_straße
    IF ! Empty(aAnschreiben[m][2])	
      _SELF:txt_gerichtet(_SELF:wYTemp, _self:_txt_links(), AllTrim(aAnschreiben[m][2]))
      _SELF:wYTemp := _self:wYTemp + 80
    ENDIF
    IF ! Empty(aAnschreiben[m][3]+aAnschreiben[m][4])	// vu_plz+ort
      _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 Bankverbindung
// ----------------------------------------------------------------
    _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
    _SELF:txt_absolut(0,_SELF:wYTemp,"Änderung der Bankverbindung")
    _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
// ----------------------------------------------------------------
    _SELF:txt_absolut(0,_SELF:wYTemp,"Kunde:")
    // name
    cKdAlt := ""
    IF ! Empty(aKdAngaben[5])		// titel
      cKdAlt := cKdAlt + AllTrim(aKdAngaben[5])+" "
    ENDIF
    IF ! Empty(aKdAngaben[4])		// vorname
      cKdAlt := cKdAlt +  AllTrim(aKdAngaben[4])+" "
    ENDIF
    IF ! Empty(aKdAngaben[2])		// name
      cKdAlt := cKdAlt +  AllTrim(aKdAngaben[2])+" "
    ENDIF
    _SELF:txt_absolut(400,_SELF:wYTemp,cKdAlt)
    // zusatz
    IF ! Empty(aKdAngaben[3])
      _SELF:wYTemp := _self:wYTemp + 50
      _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aKdAngaben[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
          // Umbruch
          ExecuteScript(Umbruch, _self)
        ENDIF
      NEXT x
    ENDIF

// ----------------------------------------------------------------
// Sehr geehrte Damen und Herren
// ----------------------------------------------------------------
    _SELF:wYTemp := _self:wYTemp + 100
    // Umbruch ?
    IF _SELF:wYTemp + 400 > _SELF:seite_y_ausdehnung() - _SELF:nFussZeilenHoehe
      // Umbruch
      ExecuteScript(Umbruch, _self)
    ENDIF
    _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
    _SELF:txt_absolut(0,_SELF:wYTemp,"Sehr geehrte Damen und Herren,")
    _SELF:wYTemp := _self:wYTemp + 100
    _SELF:txt_absolut(0,_SELF:wYTemp,"die Bankverbindung unseres oben genannten Kunden hat sich geändert.")
    _SELF:wYTemp := _self:wYTemp + 50
    _SELF:txt_absolut(0,_SELF:wYTemp,"Bitte ändern Sie die Daten wie folgt ab:")

// ----------------------------------------------------------------
// Bankdaten neu
// ----------------------------------------------------------------
    _SELF:wYTemp := _self:wYTemp + 100

    _SELF:waehle_schrift( "ARIAL", 40, _self:_schrift_roman(), _self:_attr_normal() )
    // Kto
    _SELF:txt_absolut(0,_SELF:wYTemp,"Konto:")
    _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aBankVerbNeu[3]))
    _SELF:wYTemp := _self:wYTemp + 50
    // BLZ
    _SELF:txt_absolut(0,_SELF:wYTemp,"BLZ:")
    _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aBankVerbNeu[2]))
    _SELF:wYTemp := _self:wYTemp + 50
    // Bank
    _SELF:txt_absolut(0,_SELF:wYTemp,"Bank:")
    _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(aBankVerbNeu[1]))
    _SELF:wYTemp := _self:wYTemp + 50

    // ------------------------------------------------------------
    // evtl. abw. Kontoinhaber
    // ------------------------------------------------------------
    IF empty(aBankVerbNeu[7] + aBankVerbNeu[8]) == .F.
     // abw. Kontoinhaber
     _SELF:wYTemp := _self:wYTemp + 50
     _SELF:txt_absolut(0,_SELF:wYTemp,"Abweichender Kontoinhaber")
     _SELF:wYTemp := _self:wYTemp + 50
     // Vorname + Name
     _SELF:txt_absolut(0,_SELF:wYTemp,"Name:")
     _SELF:txt_absolut(400,_SELF:wYTemp,AllTrim(Alltrim(aBankVerbNeu[7]) + " " + Alltrim(aBankVerbNeu[8])))
     _SELF:wYTemp := _self:wYTemp + 50
     // Anschrift
     _SELF:txt_absolut(0,_SELF:wYTemp,"Anschrift:")
     _SELF:txt_absolut(400,_SELF:wYTemp,Alltrim(aBankVerbNeu[9]) + ", " + AllTrim(Alltrim(aBankVerbNeu[10]) + " " + Alltrim(aBankVerbNeu[11])))
     _SELF:wYTemp := _self:wYTemp + 50
    ENDIF

// ----------------------------------------------------------------
// Mit freundlichen ...
// ----------------------------------------------------------------
    // Umbruch ?
    _SELF:wYTemp := _self:wYTemp + 150
    IF _SELF:wYTemp + 200 > _SELF:seite_y_ausdehnung() - _SELF:nFussZeilenHoehe
      // Umbruch
      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 
