FUNCTION runscript(_self, _cScriptName)
// -----------------------------------------
// 'Re-Deckblatt'
// -----------------------------------------
// bentigte Script's
global AusgabeKopfzeile := _cScriptName + "01.txt"
global AusgabeTelFax := _cScriptName + "02.txt"
global AusgabeGeschZeit := _cScriptName + "03.txt"
global AusgabeText := _cScriptName + "04.txt"

local n
local aInk87Recno4Deckblatt :=  _self:aInk87Recno4Deckblatt
local nYPosMarker
local nLenMarker

nYPosMarker := 810
nLenMarker := 50

IF Len(aInk87Recno4Deckblatt) > 0
 FOR n := 1 TO Len(aInk87Recno4Deckblatt)	

  _self:oDlg:TextUpDate("Gesamt-Anzahl der Deckbltter: "+alltrim(str(len(aInk87Recno4Deckblatt )) + chr(13) + chr(10) + "Bisher erstellte Deckbltter: " + alltrim(str(n)))

  _SELF:_dbgoto("DBInk87", aInk87Recno4Deckblatt[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(AusgabeKopfZeile, _self)
  ExecuteScript(AusgabeTelFax, _self)
  ExecuteScript(AusgabeGeschZeit, _self)

// -------------------------------------------------
// Rechnungsnummer ...
// -------------------------------------------------
  _SELF:wYTemp := _SELF:nY_Pos_Anschr_Text - 300
  _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,"Rechnungsnummer: " + Alltrim(_Self:_dbfieldget("DBInk87","PREFX"))+AllTrim(Str(_Self:_dbfieldget("DBInk87","RENR"))))
  _SELF:wYTemp := _SELF:wYTemp + 30
  _SELF:txt_absolut(0,_SELF:wYTemp,"VsNr: " + trim(_Self:_dbfieldget("DBInk87","VSNR")))

// -------------------------------------------------
// 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("DBInk87","DBL_ANR"))
   _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","DBL_ANR")))
   _SELF:wYTemp := _SELF:wYTemp + 40
  ENDIF
  IF ! Empty(_Self:_dbfieldget("DBInk87","DBL_NAME"))
   _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","DBL_NAME")))
   _SELF:wYTemp := _SELF:wYTemp + 40
  ENDIF
  IF ! Empty(_Self:_dbfieldget("DBInk87","DBL_ZUS"))
   _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","DBL_ZUS")))
   _SELF:wYTemp := _SELF:wYTemp + 40
  ENDIF
  IF ! Empty(_Self:_dbfieldget("DBInk87","DBL_STR"))
   _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","DBL_STR")))
   _SELF:wYTemp := _SELF:wYTemp + 80
  ENDIF
  _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),AllTrim(_Self:_dbfieldget("DBInk87","DBL_ANSCHR")))


// -------------------------------------------------
// Markierung
// -------------------------------------------------
  _SELF:waehle_stift( _self:_stift_gestrichelt(), 1 )
  _SELF:gdi_line(0,nYPosMarker ,nLenMarker,nYPosMarker )

 Next n
ENDIF 


RETURN
