FUNCTION runscript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'SEPA: Liste der Einzelpositionen'
// -----------------------------------------
local m, n
local aPos
local nTab0, nTab1, nTab2, nTab3, nTab4

aPos := _self:aPos
nTab0 := 10
nTab1 := 70
nTab2 := 750
nTab3 := 1050
nTab4 := 1550

_SELF:seite_neue_seite()
_SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
_SELF:seite_setze_raender( 200, 100, 200, 100 )
_SELF:wYStart := 100
_SELF:wYTemp := _SELF:wYStart

_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_farb_pinsel()


_SELF:waehle_schrift( "Arial", 50, _self:_schrift_roman(), _self:_attr_unterstrichen() )
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_zentriert(),"Belegloser Datentrgeraustausch - Einzelpositionen")
_SELF:wYTemp := _self:wYTemp + 60

_SELF:waehle_schrift( "Arial", 50, _self:_schrift_roman(), _self:_attr_normal())
IF _SELF:cTyp=="LAE"
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_zentriert(),"Lastschriften - " + _SELF:cBankName)
ELSE
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_zentriert(),"berweisungen - " + _SELF:cBankName)
ENDIF
_SELF:wYTemp := _self:wYTemp + 100

// ----------------------------------------------------------------
// Name der SEPA-Datei
_SELF:waehle_schrift( "Arial", 30, _self:_schrift_roman(), _self:_attr_normal())
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Name der SEPA-Datei:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),"SEPA1.XML")
_SELF:wYTemp := _self:wYTemp + 50

// Erstellungsdatum
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Erstellungsdatum:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),DToC(_SELF:dErstellt))
_SELF:wYTemp := _self:wYTemp + 50

// Erstellungszeit
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Erstellungszeit:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_SELF:cSEPATime)
_SELF:wYTemp := _self:wYTemp + 50

// Anzahl der Datenstze
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Anzahl der Transaktionen:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),AllTrim(Str(_self:nSatzZ)))
_SELF:wYTemp := _self:wYTemp + 50

// Summe EUR
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Summe  der Transaktionen:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:pdf_SetDecPoint(AllTrim(Str(_self:nSumme,20,2)))	)
_SELF:wYTemp := _self:wYTemp + 50

// Absender
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Absender")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:cName)
_SELF:wYTemp := _self:wYTemp + 50

// BLZ Absender
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Bankleitzahl des Absenders:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:cBLZ)
_SELF:wYTemp := _self:wYTemp + 50

// KtoNr des Absenders
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Kontonummer des Absenders:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:cKontoNr)
_SELF:wYTemp := _self:wYTemp + 50

// BIC des Absenders
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"BIC des Absenders:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:cBIC)
_SELF:wYTemp := _self:wYTemp + 50

// IBAN des Absenders
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"IBAN des Absenders:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:cIBAN)
_SELF:wYTemp := _self:wYTemp + 50

// Laufende Nr
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Referenz-Nr beim Absender:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),AllTrim(Str(_SELF:nNr)))
_SELF:wYTemp := _self:wYTemp + 100


// ----------------------------------------------------------------
// Einzelpositionen
// ----------------------------------------------------------------

_SELF:waehle_schrift( "Arial", 25, _self:_schrift_roman(), _self:_attr_normal())
IF ( n := len(aPos) ) > 0
 // 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 + 20
 // Kopfzeile
 _SELF:txt_absolut(nTab1, _SELF:wYTemp,"Name (KdNr)")  	
 _SELF:txt_absolut(nTab2, _SELF:wYTemp,"IBAN")  	
 _SELF:txt_bereich(nTab3, _SELF:wYTemp, nTab4, _SELF:wYTemp+30, _SELF:_txt_rechts(), "Betrag")
 _SELF:wYTemp := _self:wYTemp + 30
 _SELF:txt_absolut(nTab1, _SELF:wYTemp,"Beschreibung")  	
 _SELF:wYTemp := _self:wYTemp + 30
 _SELF:txt_absolut(nTab1, _SELF:wYTemp,"Transaktions-ID")  	
 _SELF:txt_absolut(nTab2, _SELF:wYTemp,"Ausfhrungsdatum")  	
 IF _SELF:cTyp=="LAE"
  _SELF:txt_absolut(nTab3, _SELF:wYTemp,"Typ")  	
 ENDIF 
_SELF:wYTemp := _self:wYTemp + 50

 for m := 1 to n

  // Umbruch ?
  IF _SELF:wYTemp + 180 > _SELF:seite_y_ausdehnung()
   // Umbruch
   _SELF:seite_neue_seite()
   _SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
   _SELF:seite_setze_raender( 200, 100, 200, 100 )
   _SELF:wYStart := 100
   _SELF:wYTemp := _SELF:wYStart
   _SELF:waehle_schrift( "Arial", 25, _self:_schrift_roman(), _self:_attr_normal())
  ENDIF

  // 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 + 20

  // Nr
  _SELF:txt_absolut(nTab0, _SELF:wYTemp,alltrim(str(m)))  	

  // Name
  _SELF:txt_absolut(nTab1, _SELF:wYTemp,aPos[m][6]+" ("+aPos[m][5]+")")  	

  // IBAN
  _SELF:txt_absolut(nTab2, _SELF:wYTemp,aPos[m][8])  	

  // Betrag
  _SELF:txt_bereich(nTab3, _SELF:wYTemp, nTab4, _SELF:wYTemp+30, _SELF:_txt_rechts(), aPos[m][4]+" ")

  // neue Zeile
  _SELF:wYTemp := _self:wYTemp + 40

  // ReText
  _SELF:txt_absolut(nTab1, _SELF:wYTemp,aPos[m][7])  	

  // neue Zeile
  _SELF:wYTemp := _self:wYTemp + 40

  // ID + Ausfhrungsdatum + evtl. Typ
  _SELF:txt_absolut(nTab1, _SELF:wYTemp,aPos[m][9])  	
  _SELF:txt_absolut(nTab2, _SELF:wYTemp,aPos[m][10])  	
  IF _SELF:cTyp=="LAE"
   _SELF:txt_absolut(nTab3, _SELF:wYTemp,aPos[m][11])  	
  ENDIF

  // neue Zeile
  _SELF:wYTemp := _self:wYTemp + 50

  
 next m

 // 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 + 20

endif

RETURN
