FUNCTION runscript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Begleitzettel'
// -----------------------------------------

_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 Datenträgeraustausch - Begleitzettel")
_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

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

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

// Anzahl der C-Datensätze
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Anzahl der C-Datensätze:")
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),AllTrim(Str(_self:SatzZ)))
_SELF:wYTemp := _self:wYTemp + 40

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

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

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

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

// Unterschrift
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_links(),"Ort, Datum, Unterschrift")
_SELF:wYTemp := _self:wYTemp + 100

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

RETURN