Forum | | | | Thomas Freier | before I the wheel new erfinde, has already of/ one with the Topic befasst and it umgesetzt? after I afer a long dilatoriness, our teller is as truer DAU simply not of/ one ext. software zurecht come, 2010 DTAUS in my Vereinsprogramm installed having standing now SEPA on, and is in the momentum another book with seven Siegeln for me. would be me forward, if someone with a suitable Script (*.inc) help could, circa a *.xml produce to. an small Aufwandsentschädigung isn't impossible, because otherwise i'd it anew with of/ one ext. software try and the teller must even capable exercise so The cash-desk not empty remaining. |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 02/26/13 ▲ |
| |
| | | Regards!
of course not befasst and umgesetzt but understand I you correctly., that You letztendlich only a XML produce want? the against see I as little problematically on, have already xmls from XProfan out created z.B. at Leveleditor for OGL.
have You time such XML parat that one see can How You tappt im dunkeln gladly would have? |
| | | | |
| | Thomas Freier | @iF, It's all right in the integral around the construction, bestehend from Header, Datensätze and Abschlußzeilen. at that Pflichtenheft the federal bank soar I not yet through. much is sure Specifically and a Base-Lastschrift not necessary. with one Testprogramm have I time a xml (Please rename) prepares. example for Ansi To UTF-8 is here Yes present. otherwise would I How with DTAUS The Data from of/ one GridBOX take and the File row for row write (Print #2,row$). |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 02/27/13 ▲ |
| |
| | | Tjo, blanket see I there 2 ways -
either one "Template" or we building such Node-Tree-class, into one quasi Äste suspend can with a) Values and b) Parameters.
Schade the XProfan (yet) no assoziativen Arrays rule, so went it superfix but if you you for the (with sicherheut explicit einfachere) Template-take action entscheidest then see I there too a speedy remedy.
I wealth, that in your Values and Parameters for properties of Ästen no characters vorkommen, The not too by Ansi representable are, and so we quasi only with Ansi works müssten and only last step The whole Textdatei to UTF code.
from the individual positions/ Ästen or. properties and Parameters have I no idea, means i don't know which structure abverlang becomes.
gives it moreover a Documentation or have You already one File which we to that Template make could? |
| | | | |
| | Thomas Freier | | | | Gruß Thomas Windows XP SP2, XProfan X2 | 02/28/13 ▲ |
| |
| | | I have Torben soeben once angeschrieben - hopefully can it us something moreover communicating. |
| | | | |
| | Thomas Freier | Yes well. my Planungsziel is March 2014. but I thought, its now The Time once Nachzufragen, whether one Profaner already so engage or it quite realized has. The Possibility ext. software einzusetzen remaining still. |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 02/28/13 ▲ |
| |
| | Torben Nissen | Hello! it freut me, I you time help can!!! today evening can I you a statement from my Source send, the a SEPA-File create can! in the Abomanager is the point SEPA-File create deaktiviert, there the program of it ausgeht, that The Bankdaten first of all in the BLZ-stature and "normaler" Kontonummer exist! means places to that try a customers on, give a (gültige!) BLZ and Kontonummer one. then goes your on "Programm" > "Wartung" and clicking on IBAN / BIC to charge. thereafter can your SEPA-Files create. under Benutzerdaten must your naturally too gültige Bankdaten hinterlegt having! as Gläubiger-ID can your to that try The ID DE98ZZZ09999999999 using! alas Yes, your must naturally a Aboauftrag lay out. give at least a fällige rate one. to that Selektieren the suitable Fälligkeitsdatum prompt! |
| | | | |
| | Torben Nissen | I use short The lunchtime, circa you whom Source To post (is on because of the speedy not further comments). Perhaps helps the nevertheless first moreover: CompileMarkSeparation'Eigentliche SEPA-Datein anlegen
Assign #1,($ProgDir+"\SEPA\Abo_"+datum$+".xml")
Rewrite #1
Append #1
Print #1,"<?xml version="+Chr$(34)+"1.0"+Chr$(34)+" encoding="+Chr$(34)+"UTF-8"+Chr$(34)+"?>"
Print #1,"<Document xmlns="+Chr$(34)+"urn:iso:std:iso:20022:tech:xsd:pain.008.002.02"+Chr$(34)+">"
Print #1,"<CstmrDrctDbtInitn>"
Print #1,"<GrpHdr>"
time_kennung$=@Time$(0)
Print #1,"<MsgId>Kennung-Msg"+@Date$(3)+"-"+time_kennung$+"</MsgId>"
'Erstellungsdatum der Datei berechnen
datei_date$=@Date$(3)
jahr$=@Left$(datei_date$,4)
monat$=@Mid$(datei_date$,5,2)
tag$=@Right$(datei_date$,2)
Print #1,"<CreDtTm>"+jahr$+"-"+monat$+"-"+tag$+"T"+@Time$(0)+":01</CreDtTm>"
Print #1,"<NbOfTxs>"+anzahl$+"</NbOfTxs>"
Print #1,"<CtrlSum>"+ergebnis$+"</CtrlSum>"
Print #1,"<InitgPty>"
Print #1,"<Nm>"+user_firma$ +"</Nm>"
Print #1,"</InitgPty>"
Print #1,"</GrpHdr>"
Print #1,"<PmtInf>"
Print #1,"<PmtInfId>Kennung-PmInf"+@Date$(3)+"-"+@Time$(0)+"-1</PmtInfId>"
Print #1,"<PmtMtd>DD</PmtMtd>"
Print #1,"<NbOfTxs>"+anzahl$+"</NbOfTxs>"
Print #1,"<CtrlSum>"+ergebnis$+"</CtrlSum>"
Print #1,"<PmtTpInf>"
Print #1,"<SvcLvl>"
Print #1,"<Cd>SEPA</Cd>"
Print #1,"</SvcLvl>"
Print #1,"<LclInstrm>"
Print #1,"<Cd>CORE</Cd>"
Print #1,"</LclInstrm>"
Print #1,"<SeqTp>RCUR</SeqTp>"
Print #1,"</PmtTpInf>"
'Ausführungstermin der Datei berechnen
termin_jahr$=@Right$(termin$,4)
termin_monat$=@Mid$(termin$,4,2)
termin_tag$=@Left$(termin$,2)
Print #1,"<ReqdColltnDt>"+termin_jahr$+"-"+termin_monat$+"-"+termin_tag$+"</ReqdColltnDt>"
Print #1,"<Cdtr>"
Print #1,"<Nm>"+user_firma$+"</Nm>"
Print #1,"</Cdtr>"
Print #1,"<CdtrAcct>"
Print #1,"<Id>"
Print #1,"<IBAN>"+user_iban$+"</IBAN>"
Print #1,"</Id>"
Print #1,"</CdtrAcct>"
Print #1,"<CdtrAgt>"
Print #1,"<FinInstnId>"
Print #1,"<BIC>"+user_bic$+"</BIC>"
Print #1,"</FinInstnId>"
Print #1,"</CdtrAgt>"
Print #1,"<ChrgBr>SLEV</ChrgBr>"
Print #1,"<CdtrSchmeId>"
Print #1,"<Id>"
Print #1,"<PrvtId>"
Print #1,"<Othr>"
id$ = @ReadIni$($ProgDir+"System.sfw","Header","SEPA-ID")
Print #1,"<Id>"+id$+"</Id>"
Print #1,"<SchmeNm>"
Print #1,"<Prtry>SEPA</Prtry>"
Print #1,"</SchmeNm>"
Print #1,"</Othr>"
Print #1,"</PrvtId>"
Print #1,"</Id>"
Print #1,"</CdtrSchmeId>"
' Ab hier beginnen die eigentlichen Kundenforderungen
WhileLoop 0, GetCount(Gridbox%)-1
lfdnr%=lfdnr%+1
lfdnr$=lfdnr%
daten$=GetString$(GridBox%, &loop)
nachname$=@Mid$(daten$,1,20)
vorname$=@Mid$(daten$,32,20)
bic$=@Mid$(daten$,63,11)
iban$=@Mid$(daten$,75,34)
betrag$=@Mid$(daten$,112,6)
zweck$=@Mid$(daten$,119,30)
mandat_id$=@Mid$(daten$,150,6)
nachname$=@Trim$(nachname$)
vorname$=@Trim$(vorname$)
bic$=@Trim$(bic$)
iban$=@Trim$(iban$)
betrag$=@Trim$(betrag$)
zweck$=@Trim$(zweck$)
mandat_id$=@Trim$(mandat_id$)
nachname$=@Translate$(nachname$,"Ü","Ue")
nachname$=@Translate$(nachname$,"Ö","Oe")
nachname$=@Translate$(nachname$,"Ä","Ae")
vorname$=@Translate$(vorname$,"Ü","Ue")
vorname$=@Translate$(vorname$,"Ö","Oe")
vorname$=@Translate$(vorname$,"Ä","Ae")
zweck$=@Translate$(zweck$,"Ü","Ue")
zweck$=@Translate$(zweck$,"Ö","Oe")
zweck$=@Translate$(zweck$,"Ä","Ae")
zweck$=@Translate$(zweck$,"&","und")
nachname$=@Translate$(nachname$,"ü","ue")
nachname$=@Translate$(nachname$,"ö","oe")
nachname$=@Translate$(nachname$,"ä","ae")
nachname$=@Translate$(nachname$,"ß","ss")
vorname$=@Translate$(vorname$,"ü","ue")
vorname$=@Translate$(vorname$,"ö","oe")
vorname$=@Translate$(vorname$,"ä","ae")
vorname$=@Translate$(vorname$,"ß","ss")
zweck$=@Translate$(zweck$,"ü","ue")
zweck$=@Translate$(zweck$,"ö","oe")
zweck$=@Translate$(zweck$,"ä","ae")
zweck$=@Translate$(zweck$,"ß","ss")
'nachname$=@Upper$(nachname$)
'vorname$=@Upper$(vorname$)
'zweck$=@Upper$(zweck$)
Print #1,"<DrctDbtTxInf>"
Print #1,"<PmtId>"
'Datum formatieren
kennung_date$=@Date$(0)
kennung_date$=@Translate$(kennung_date$,".","")
Print #1,"<EndToEndId>Kennung-EtE"+kennung_date$+"-"+@Time$(0)+"-"+lfdnr$+"</EndToEndId>"
Print #1,"</PmtId>"
Print #1,"<InstdAmt Ccy="+Chr$(34)+"EUR"+chr$(34)+">"+betrag$+"</InstdAmt>"
Print #1,"<DrctDbtTx>"
Print #1,"<MndtRltdInf>"
Print #1,"<MndtId>"+mandat_id$+"</MndtId>"
'Hier eventuell das Auftragsdatum? <<<<<<<<<<<<<<<<<<<<<<<<<<
mandat_date$=@Date$(3)
jahr_mandat$=@Left$(mandat_date$,4)
monat_mandat$=@Mid$(mandat_date$,5,2)
tag_mandat$=@Right$(mandat_date$,2)
Print #1,"<DtOfSgntr>"+jahr_mandat$+"-"+monat_mandat$+"-"+tag_mandat$+"</DtOfSgntr>"
Print #1,"</MndtRltdInf>"
Print #1,"</DrctDbtTx>"
Print #1,"<DbtrAgt>"
Print #1,"<FinInstnId>"
Print #1,"<BIC>"+bic$+"</BIC>"
Print #1,"</FinInstnId>"
Print #1,"</DbtrAgt>"
Print #1,"<Dbtr>"
Print #1,"<Nm>"+nachname$+", "+vorname$+"</Nm>"
Print #1,"</Dbtr>"
Print #1,"<DbtrAcct>"
Print #1,"<Id>"
Print #1,"<IBAN>"+iban$+"</IBAN>"
Print #1,"</Id>"
Print #1,"</DbtrAcct>"
Print #1,"<RmtInf>"
Print #1,"<Ustrd>"+zweck$+"</Ustrd>"
Print #1,"</RmtInf>"
Print #1,"</DrctDbtTxInf>"
EndWhile'WhileLoop 0, GetCount(Gridbox%)-1
Print #1,"</PmtInf>"
Print #1,"</CstmrDrctDbtInitn>"
Print #1,"</Document>&qu pan>
close # 1
'end Sepa-File Creation
greetings Torben |
| | | | |
| | Thomas Freier | Moin Torben, there be I at testing well over BLZ/account stumbled, because I same BIC/IBAN association having. will be now whom beschriebenen lane testing. sought I had another Mandatsverwaltung (in the Kundendatensatz), means mins. date (ex when validly) and whether it itself circa first-, or. Folgelastschrift deals.
Oh, were but fix. THANK YOU! will be it test times. |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 02/28/13 ▲ |
| |
| | Torben Nissen | I use as mandate-ID The Kundennummer of Abokunden and as date the Auftragsdatum. |
| | | | |
| | Thomas Freier | have once with the Trial of Sepasoft compared and only one day difference found. Torben, I go once of it from, that already successful SEPA-Lastschriften with your Script carryed out been are. If I the Merkblatt ours s-cash-desk see, so remaining the point first- and Folgelastschrift to Time yet open.
– SEPA-Lastschrifteinzugdatei create? – new File-stature „xml“ – separated to first-Lastschrift / follow-Lastschrift
might too his, that the of bank To bank different treats becomes. On The Conversion of Ansi->UTF would I do not dispense circa sure To his, that any characters ex 128 too correctly. eingepflegt go. |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 02/28/13 ▲ |
| |
|
AnswerTopic-Options | 27.140 Views |
Themeninformationenthis Topic has 3 subscriber: |