Forum | | | | | | - Page 1 - |
| 
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 ▲ |
| | |
| | | | | | | - Page 2 - |
|
Thomas
Freier | Moin Torben,
wandels You The File circa, or only The items
user_firma$
surname$
first name$
object$
circa?
whom Punk first- and Folgelastschrift kläre with ours cash-desk, whether it really two Files his must, or it only around the Vorlaufzeiten goes. most cash registers afford indeed on a Musterdatei beforehand To Verify. |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 03/01/13 ▲ |
| | |
| | 
Torben
Nissen | I changes The items circa.
because of the first- or. Folgelastschrift there were, How said, yet no Problems. the Ausführungsdatum must only not a blank his, then there in the Onlinebanking-Program Problems. Perhaps have You right and It's all right objectively with the first- and Folgelastschrift around the Vorlaufzeit. |
| | | | | | |
| |
Thomas
Freier | straight from the s-cash-desk The operator get, that the client or. which bank The Lastschrift with falser indicated reject can. mandatory but not so his.
with whom Beispieldateien becomes it in the momentum Yes not each Datensatz hinterlegt.
will be it with Sepasoft testing whether it too differently go can. |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 03/01/13 ▲ |
| | |
| |
Torben
Nissen | whether The bank at all checks, whether it a first- or Folgelastschrift is? there's indeed The Possibility "Letzte Lastschrift"!
I must time see, whether I still Once these point in my Program überarbeite. I bastel straight anyhow on Version 4. the Program must then Verify, whether it itself circa a Erstauftrag (first Aboauftrag) and then too yet around the first rate deals. unless, is it a Folgerate. I had only the trouble, I do not very determine can, whether it The latest Lastschrift is, there the customer his Abo too yet verlängern can, if The latest rate of last order already abgebucht watts. 
(is still really alike! Why only becomes these indicated needed?  ) |
| | | | | | |
| |
Thomas
Freier | | Reiner Formalismus for festgelegte Ratenzahlungszeiten. in the principle must one well not The Letztlastschrift come in. |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 03/01/13 ▲ |
| | |
| |
Thomas
Freier | so, once first and follow in Sepasoft mixed. it watts The list of Program to Lastschriftart to the create the xml new sortiert. in the xml get two segments created.
i'll it it in the program so steer, that two separated Files (ERST, FOLGE) created go. |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 03/01/13 ▲ |
| | |
| |
Torben
Nissen | the sees still lovely from! The 01. february 2014 can come  !!!
i'll it well too with two Sepa-Files regulate. is indeed not bad.
for any others, The Perhaps too yet sometime to the "SEPA-Problem" stand, be said, that it in the principle none so heavy is, a SEPA-File to create. i'm so vorgegangen, I a DTA-File with the Program Sepatools into XML-stature transformed have. so known I, as an SEPA-XML-File aufgebaut is and which data (at least) demand are. then be I row for row stampeded and I each row properly in my Program umgesetzt, so that this against a XML-File create can.
the Program Sepatools there here: [...] 
an SEPA-Test-File Thomas has in the previous Posting posted. |
| | | | | | |
| |
Thomas
Freier | | Yes, is still plainer, and particularly to your preparatory work and "Testphase", as i befürchtet having. How it 2014 for good becomes go we see, there then indeed BIC entfallen can. red I had yet, that over each Lastschrift one log archived go should. i'll, there ohnehin adjusted go must, in my Preview The ReferenzNr. same in a slot produce and everything as codierte csv abspeichern |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 03/02/13 ▲ |
| | |
| |
Torben
Nissen | at least must one Datenträgerbegleitzettel prepares go.
(Nachtrag: the date is with my example naturally not correctly!  ) |
| | | | | | |
| |
Thomas
Freier | Yes??? These function have I in the Testsoftware Sepasoft not found, or ought to it this Report his?
yet I had there self a simple PDF(comes without Zusatzsofware from but on Basisfont dull) created and both is then by Email übermittelt been.
example einseitige PDF
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Proc BEGLEITZETTEL_PDF
Assign #2,(old_file$+"\\DTAUS\\Begleitzettel.pdf")
Rewrite #2
Print #2,"%PDF-1.2"
Print #2,"%âãÏÓ"
Print #2,"1 0 obj"
Print #2,"<<"
Print #2,"/Author ()"
Print #2,"/CreationDate (D:20090105223536)"
Print #2,"/Creator (PDFproducer v1.3)"
Print #2,"/Producer (PDFproducer )"
Print #2,"/Title ()"
Print #2,"/Subject ()"
Print #2,"/Keywords ()"
Print #2,">>"
Print #2,"endobj"
Print #2,"4 0 obj"
Print #2,"<<"
Print #2,"/Type /Font"
Print #2,"/Subtype /Type1"
Print #2,"/name /F1"
Print #2,"/Encoding 5 0 R"
Print #2,"/BaseFont /Courier"
Print #2,">>"
Print #2,"endobj"
Print #2,"5 0 obj"
Print #2,"<<"
Print #2,"/Type /Encoding"
Print #2,"/BaseEncoding /WinAnsiEncoding"
Print #2,">>"
Print #2,"endobj"
Print #2,"6 0 obj"
Print #2,"<<"
Print #2," /Font << /F1 4 0 R >>"
Print #2," /ProcSet [ /PDF /Text ]"
Print #2,">>"
Print #2,"endobj"
Print #2,"7 0 obj"
Print #2,"<<"
Print #2,"/Type /Page"
Print #2,"/Parent 3 0 R"
Print #2,"/Resources 6 0 R"
Print #2,"/Contents 8 0 R"
Print #2,"/Rotate 0"
Print #2,">>"
Print #2,"endobj"
Print #2,"8 0 obj"
Print #2,"<<"
Print #2,"/Length 6 0 R"
Print #2,">>"
Print #2,"stream"
Print #2,"BT"
Print #2,"/F1 12 Tf"
Print #2,"1 0 0 1 70 782 Tm"
Print #2,"14 TL"
var a$=" "
var Text$="Begleitzettel"
Text$=" "
PDF_ZEILE 5
Text$="Begleitzettel Datenträgeraustausch"
PDF_ZEILE 1
Text$="Sammel-Einziehungsauftrag"
PDF_ZEILE 1
Text$="----------------------------------------"
PDF_ZEILE 1
Text$=""
PDF_ZEILE 2
Text$=left$("Disketten-Nr."+a$,40)+": ............."
PDF_ZEILE 1
Text$=left$("Dateiname"+a$,40)+": DTAUS0.txt"
PDF_ZEILE 1
Text$=left$("Erstellungsdatum"+a$,40)+": "+Date$(0)
PDF_ZEILE
Text$=""
PDF_ZEILE 1
Text$=left$("Anzahl Datensätze C"+a$,40)+": "+@stature$("#######0",ANZ.sum!)
PDF_ZEILE 1
Text$=left$("Kontrollsumme the Datensätze C "+a$,36)+"EUR : "+@stature$("##########0.00",EUR.sum!)
PDF_ZEILE 1
Text$=""
PDF_ZEILE 1
Text$=left$("Kontrollsumme the Bankleitzahlen"+a$,40)+": "+@stature$("00000000000000000",BLZ.sum!)
PDF_ZEILE 1
Text$=left$("Kontrollsumme the Kontonummern"+a$,40)+": "+@stature$("00000000000000000",KTO.sum!)
PDF_ZEILE 1
Text$="----------------------------------------"
PDF_ZEILE 1
Text$=" "
PDF_ZEILE 2
Text$=left$("Bankleitzahl Absenderbank"+a$,40)+": "+GetText$(B_Edi6&)
PDF_ZEILE 1
Text$=left$("Kontonummer Absender"+a$,40)+": "+GetText$(B_Edi61&)
PDF_ZEILE 1
Text$=left$("Absender"+a$,40)+": "+GetText$(B_Edi5&)
PDF_ZEILE 1
Text$=" "
PDF_ZEILE 7
Text$="------------------------------------------------------------------"
PDF_ZEILE 1
Text$="Ort, date Unterschrift"
PDF_ZEILE 1
Print #2,"1 0 0 1 504 25 Tm"
Print #2,"(1) Tj"
Print #2,"/F1 10 Tf"
Print #2,"ET"
Print #2,"endstream"
Print #2,"endobj"
Print #2,"9 0 obj"
Print #2,"2360"
Print #2,"endobj"
Print #2,"2 0 obj"
Print #2,"<<"
Print #2,"/Type /Catalog"
Print #2,"/Pages 3 0 R"
Print #2,">>"
Print #2,"endobj"
Print #2,"3 0 obj"
Print #2,"<<"
Print #2,"/Type /Pages"
Print #2,"/Count 1"
Print #2,"/MediaBox [ 0 0 595 842 ]"
Print #2,"/Kids [ 7 0 R ]"
Print #2,">>"
Print #2,"endobj"
Print #2,"0 10"
Print #2,"0000000000 65535 f"
Print #2,"0000000113 00000 n"
Print #2,"0000002875 00000 n"
Print #2,"0000002918 00000 n"
Print #2,"0000000156 00000 n"
Print #2,"0000000245 00000 n"
Print #2,"0000000307 00000 n"
Print #2,"0000000372 00000 n"
Print #2,"0000000453 00000 n"
Print #2,"0000002858 00000 n"
Print #2,"trailer"
Print #2,"<<"
Print #2,"/Size 10"
Print #2,"/Root 2 0 R"
Print #2,"/Info 1 0 R"
Print #2,">>"
Print #2,"startxref"
Print #2,"2996"
Print #2,"%%EOF"
Close #2
Endproc
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Proc PDF_ZEILE
Parameters n.p%
Text$=Translate$(Text$,"(","\(")
Text$=Translate$(Text$,")","\)")
Text$="T* (" + Text$ + ") Tj"
WhileLoop n.p%
Print #2,Text$
EndWhile
ENDPROC
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Nachtrag: wars faster. Perhaps to own information can Yes collecting-Ersteinzugsauftrag or. collecting-Folgeeinzugsauftrag use. |
 | | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 03/02/13 ▲ |
| | |
| |
Torben
Nissen | I have once more because of the Datenträgerbegleitzettels nachgeforscht. I know it already from the DTA-File. there must too so one slips of paper ausgedruckt go. yet having we this slips of paper but none bank vorlegen must. the lying Perhaps but too on it, that we in the firm The File in our Online-Bankingprogramm "SFirm" reading and not to bank bring. this gives then to dispatching the Lastschriften one detailliertes log from. whom Datenträgerbegleitzettel heften we then together with the log ex. whom Datenträgerbegleitzettel drucke I over my Abomanager from, could one but too of "SFirm" print out let.
StartPrint "*"
If %Printing
Usefont "Arial",28,0,1,0,0
DrawText 30,30,"Datenträger-Begleitzettel"
Usefont "Arial",20,0,0,0,0
DrawText 30,60,"Belegloser Datenträgeraustausch for Euro-Payments (SEPA) in the XML-Format"
DrawText 30,90,"Sammel-Einzugsauftrag"
Usefont "Arial",18,0,0,0,0
DrawText 30,130,"Erstellungsdatum:"
DrawText 30,150,"Ausführungsdatum:"
DrawText 30,170,"Anzahl the Datensätze:"
DrawText 30,190,"Summe the amounts in EUR:"
DrawText 30,210,"Name clients:"
DrawText 30,230,"Dateikennung:"
DrawText 30,250,"Dateiname:"
DrawText 300,130,@Date$(0)
DrawText 300,150,printausfuehrung$
DrawText 300,170,number$
printergebnis$=@Translate$(printergebnis$,".",",")
DrawText 300,190,printergebnis$
DrawText 300,210,user_firma$
DrawText 300,230,"Kennung-Msg"+Date$(3)+"-"+time_kennung$
DrawText 300,250,"Abo_"+date$+".xml"
DrawText 30,350,"_____________________________________________________"
Usefont "Arial",8,0,0,0,0
DrawText 30,370,"Ort, date, Unterschrift"
EndIf
EndPrint
Sepatools asks objectively, whether a Datenträgerbegleitzettel ausgedruckt go should.
 |
| | | | | | |
| | | | | | - Page 3 - |
| |
Thomas
Freier | there The SEPA.xml Yes UTF-8 uses, can itself a Conversion of AnsiToUTF8 save, since the zulässigen characters, armes europe, with Ansi identical are. The german Umlaute of Torbens example were me To little, there we with Ansi indeed René or Møller write can.
proc SEPA_abc
' gültige characters, DK-Empfehlungen)
' allows are "0-9" "a-z" "A-Z" The characters "-':?,+()/." as well as space.
' here becomes everything as Großbuchstaben transformed
parameters a$
a$=Upper $(a$)
Declare ax$
var nx%=1
var ny%=len(a$)+1
While nx%<ny%
ax$=mid$(a$,nx%,1)
SELECT ord(mid$(a$,nx%,1))
CaseOf 192,193,194,195
a$=@Translate$(a$,ax$,"A")
CaseOf 196,198
a$=@Translate$(a$,ax$,"AE")
inc ny%
CaseOf 197
a$=@Translate$(a$,ax$,"AA")
inc ny%
CaseOf 199
a$=@Translate$(a$,ax$,"C")
CaseOf 200,201,202,203
a$=@Translate$(a$,ax$,"E")
CaseOf 204,205,206,207
a$=@Translate$(a$,ax$,"I")
CaseOf 208
a$=@Translate$(a$,ax$,"D")
CaseOf 209
a$=@Translate$(a$,ax$,"N")
CaseOf 210,211,212,213
a$=@Translate$(a$,ax$,"O")
CaseOf 214,216
a$=@Translate$(a$,ax$,"OE")
inc ny%
CaseOf 217,218,219
a$=@Translate$(a$,ax$,"U")
CaseOf 220
a$=@Translate$(a$,ax$,"UE")
inc ny%
CaseOf 221
a$=@Translate$(a$,ax$,"Y")
CaseOf 223
a$=@Translate$(a$,ax$,"SS")
inc ny%
CaseOf 33,35,36,37,42,59,60,61,62,64
a$=@Translate$(a$,ax$," ")
CaseOf 38
a$=@Translate$(a$,ax$,"UND")
inc ny%,2
CASEOF >90
a$=@Translate$(a$,ax$," ")
CASEOF <33
a$=@Translate$(a$,ax$," ")
EndSelect
inc nx%
EndWhile
Return a$
endproc
|
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 11/27/13 ▲ |
| | |
|
AnswerTopic-Options | 27.397 Views |
Themeninformationenthis Topic has 3 subscriber: |
(852)
Deutsch
English
Français
Español
Italia
