| |
| |
Lastschriften über SDF, DTAUS- #5323 in section [410599] |
| Sec: |
(25) MS-Visual FoxPro 8.0 |
| Von: |
Ulrich Hoppe |
| An: |
Rainer Maschke |
| Am/Um: |
17.05.2005 16:44:32 gelesen |
Hallo,
hier ein altes Clipper-Programm, das
seit Jahren funktioniert.
Dies ist sicherlich schnell in VFP-lauffähig.
mfg Ulrich Hoppe, Heusenstamm
*DTAUSErz.prg
wDtausDatei = "DTAUS1." && Ausgabedatei
wDtausBLZ = 12345678 && meine BLZ
wDtausKtoNr = 12345678 && meine KtoNr
wDtausAbs ="Absender...." && mein Absender
wDatum = Date()
SET CONSOLE OFF
SET ALTERNATE TO &wDtausDatei
SET ALTERNATE ON
* Vorsatz
?? "0128"
?? "A"
?? "LK"
?? STRTRAN(str(wDtausBLZ,8)," ","0")
?? "00000000"
?? Upper(substr(wDtausAbs+space(27),1,27))
?? substr(dtoc(wDatum),1,2)+substr(dtoc(wDatum),4,2)+right(dtoc(wDatum),2)
?? Space(4)
?? STRTRAN(str(wDtausKtoNr,10)," ","0")
?? "0000000000"
?? Space(48)
* Haupsätze
AnzSatzC = 0
SumSatzC = 0
SumKtoNrC = 0
SumBLZC = 0
go top
do while .not. eof()
* 2 B”cke a 128 Byte = 256 Byte
??"0187"
?? "C"
?? STRTRAN(str(wDtausBLZ,8)," ","0")
?? STRTRAN(str(Fakt.BLZ,8)," ","0")
?? STRTRAN(str(Fakt.KtoNr,10)," ","0")
?? replicate("0",13)
?? "05" && Textchlssel=Lastschrift mit Einzugserm„chtigung
?? "000"
?? Space(1)
?? STRTRAN(str(Fakt.RechDM*100,11,0)," ","0")
?? STRTRAN(str(wDtausBLZ,8)," ","0")
?? STRTRAN(str(wDtausKtoNr,10)," ","0")
?? replicate("0",11)
?? Space(3)
if len(trim(Fakt.KtoInhab))= 0
?? Upper(substr(Umlaut(trim(Fakt.Nachname)+ " " + Fakt.Vorname) + space(27),1,27))
else
?? Upper(substr(umlaut(trim(Fakt.KtoInhab))+space(27),1,27))
endif
?? Space(8)
* Zweite Abschnitt 128 Byte
?? Upper(substr(Umlaut(wDtausAbs)+space(27),1,27))
?? Upper(substr(Umlaut(Fakt.FaktText)+space(27),1,27))
?? Space(3)
?? replicate("0",2)
?? space(69)
AnzSatzC = AnzSatzC + 1
SumSatzC = SumSatzC + Fakt.Betrag
SumKtoNrC = SumKtoNrC + Fakt.KtoNr
SumBLZC = SumBLZC + Fakt.BLZ
Skip
enddo
* Nachsatz
??"0128"
?? "E"
?? Space(5)
?? STRTRAN(str(AnzSatzC,7) ," ","0")
?? STRTRAN(Str(SumSatzC*100,13,0)," ","0")
?? STRTRAN(Str(SumKtoNRC,17,0) ," ","0")
?? STRTRAN(Str(SumBLZC,17,0) ," ","0")
?? replicate("0",13)
?? Space(51)
close alternate
set console on
return
|
|
|
|
