FUNCTION runscript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'DTAus: 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:Typ=="LAE"
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_zentriert(),"Lastschriften - " + _SELF:BankName)
ELSE
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_zentriert(),"berweisungen - " + _SELF:BankName)
ENDIF
_SELF:wYTemp := _self:wYTemp + 100

// ----------------------------------------------------------------
// 'Kopie' Begleitzettel
// ----------------------------------------------------------------
// Name der DTA-Datei
_SELF:waehle_schrift( "Arial", 30, _self:_schrift_roman(), _self:_attr_normal())
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Name der DTA-Datei:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),"DTAUS1.TXT")
_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:Erstellt))
_SELF:wYTemp := _self:wYTemp + 50

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

// Summe DM
IF _SELF:nWaehrung == 0
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Summe DEM der C-Datenstze:")
ELSE
 _SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Summe EUR der C-Datenstze:")
ENDIF
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:pdf_SetDecPoint(AllTrim(Str(_self:summe,20,2)))	)
_SELF:wYTemp := _self:wYTemp + 50

// Kontrollsumme KtoNr
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Kontrollsumme Kontonummern:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),AllTrim(Str(_self:KSumme,17,0)))
_SELF:wYTemp := _self:wYTemp + 50

// Kontrollsumme BLZ
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Kontrollsumme Bankleitzahlen:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),AllTrim(Str(_self:BSumme,17,0)))
_SELF:wYTemp := _self:wYTemp + 50

// Absender
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Absender")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),_self:Name)
_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:BLZ)
_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:KontoNr)
_SELF:wYTemp := _self:wYTemp + 50

// Laufende Nr
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"(Referenz-Nr beim Absender: " + AllTrim(Str(_SELF:Nr))+")")
_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,"BLZ")  	
 _SELF:txt_absolut(nTab3, _SELF:wYTemp,"KtoNr")  	
 _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 + 50

 for m := 1 to n

  // Umbruch ?
  IF _SELF:wYTemp + 120 > _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]+")")  	

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

  // KtoNr
  _SELF:txt_absolut(nTab3, _SELF:wYTemp,aPos[m][9])  	

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