(544)  S'inscrire

Français
Forum

SEPA la base Lastschrift

 
- page 1 -



Thomas
Freier
Bevor je cela roue récente erfinde, hat sich déjà einer avec dem Thema befasst et es mise en œuvre?
après que je pour langem Zaudern, unser caissier ist comme echter DAU simple pas avec einer ext. Software zurecht gekommen, 2010 DTAUS dans mon Vereinsprogramm incorporé hatte steht eh bien SEPA à, et ist im Moment encore un livre avec sept Siegeln pour mich.
Würde mich freuen, si quelqu'un avec einem entsprechenden Script (*.inc) aider pourrait, um une *.xml erzeugen trop peut. une kleine Aufwandsentschädigung ist pas ausgeschlossen, car sonst je serait es erneut avec einer ext. Software versuchen et qui caissier doit plan tüchtig üben avec cela qui caisse pas vide bleibt.
 
Gruß Thomas
Windows XP SP2, XProfan X2
26.02.2013  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 2 -



Thomas
Freier
Moin Torben,
wandels du qui Dossier um, ou bien seulement qui Elemente
user_firma$
nom de famille$
prénom$
zweck$
um?
Den Punk seulement- et Folgelastschrift kläre chez unserer caisse, si es wirklich deux Fichiers son doit, ou bien es seulement à Vorlaufzeiten allez. qui meisten Kassen bieten oui aussi à une Musterdatei vorab trop vérifier.
 
Gruß Thomas
Windows XP SP2, XProfan X2
01.03.2013  ▲
 




Torben
Nissen
je changement qui Elemente um.
à cause de qui seulement- bzw. Folgelastschrift donnais es, comment dit, bisher aucun Probleme. cela Ausführungsdatum darf seulement pas trop tôt son, ensuite gibt es im Onlinebanking-Programme Probleme. peut-être la hâte Du droite et und dir réellement chez qui seulement- et Folgelastschrift à Vorlaufzeit.
 
01.03.2013  ▲
 




Thomas
Freier
justement de qui S-caisse qui Auskunft bekommen, dass qui Mandant bzw. dessen banque qui Lastschrift chez falscher Angabe refuser peut. Doit mais pas so son.
chez den Beispieldateien wird es im Moment oui pas chez chaque Datensatz hinterlegt.
Werde es avec Sepasoft testen si es aussi anders volonté peux.
 
Gruß Thomas
Windows XP SP2, XProfan X2
01.03.2013  ▲
 




Torben
Nissen
si qui banque überhaupt prüft, si es une seulement- ou bien Folgelastschrift ist? il y a oui aussi qui Possibilité "Letzte Lastschrift"!
je muss la fois voyons, si je doch encore einmal cette Punkt dans mon Programme überarbeite. je bastel justement sowieso à Version 4. cela Programme muss ensuite vérifier, si es sich um une Erstauftrag (erster Aboauftrag) et ensuite aussi encore à erste taux handelt. si pas, ist es une Folgerate. je hätte seulement cela Problem, dass je pas oui c'est ca festlegen peux, si es qui dernier Lastschrift ist, là qui Kunde son Abo aussi encore verlängern peux, si le dernier taux vom letzten Auftrag déjà abgebucht wurde.
(Ist doch eigentlich égal! pourquoi seulement wird cet Angabe nécessaire? )
 
01.03.2013  ▲
 




Thomas
Freier
Reiner Formalismus pour festgelegte Ratenzahlungszeiten. Im Prinzip doit on wohl pas sur qui Letztlastschrift eingehen.
 
Gruß Thomas
Windows XP SP2, XProfan X2
01.03.2013  ▲
 




Thomas
Freier
So, einmal seulement et Folge dans Sepasoft gemischt. Es wurde qui liste vom Programme pour Lastschriftart avant dem Erstellen qui xml récente sortiert. dans qui xml wurden deux Abschnitte erzeugt.
je werde es es im Programme so steuern, dass deux getrennte Fichiers (ERST, FOLGE) erzeugt volonté.

66 kB
Hochgeladen:01.03.2013
Downloadcounter: 242
Download
7 kB
Hochgeladen:01.03.2013
Downloadcounter: 390
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
01.03.2013  ▲
 




Torben
Nissen
cela sieht doch prima aus! qui 01. février 2014 peux venons !!!
je werde es wohl aussi avec deux Sepa-Fichiers régulariser. Ist oui aussi pas grave.

Pour alle anderen, qui peut-être aussi encore irgendwann avant dem "SEPA-Problem" stehen, sei dit, dass es im Prinzip gar pas so schwer ist, une SEPA-Dossier trop erstellen. je suis so vorgegangen, dass je une DTA-Dossier avec dem Programme Sepatools dans cela XML-Format umgewandelt habe. So wusste je, comment une SEPA-XML-Dossier aufgebaut ist et quelle données (mindestens) gefordert sommes. ensuite suis je la ligne pour la ligne durchgegangen et habe chacun la ligne entsprechend dans mon Programme mise en œuvre, so dass cet wiederum une XML-Dossier erstellen peux.

cela Programme Sepatools gibt es ici: [...] 
une SEPA-Test-Dossier hat Thomas im vorherigen Beitrag posté.
 
02.03.2013  ▲
 




Thomas
Freier
oui, mais est einfacher, et avant allem pour deiner Vorarbeit et "Testphase", comme je befürchtet hatte. comment es 2014 endgültig wird volonté nous voyons, là ensuite oui aussi BIC entfallen peux. Gelesen J'ai eu encore, dass sur chacun Lastschrift un Protokoll archiviert volonté soll. je werde, là de toute façon angepasst volonté doit, dans mon Vorschau qui ReferenzNr. juste dans einer Spalte erzeugen et alles comme codierte csv abspeichern

193 kB
Hochgeladen:02.03.2013
Downloadcounter: 203
Download
63 kB
Hochgeladen:02.03.2013
Downloadcounter: 188
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
02.03.2013  ▲
 




Torben
Nissen
Zumindest muss un Datenträgerbegleitzettel erstellt volonté.
(Nachtrag: cela date ist chez meinem Beispiel naturellement pas korrekt! )

14 kB
Kurzbeschreibung: Datenträgerbegleitzettel
Hochgeladen:02.03.2013
Downloadcounter: 6
Download
 
02.03.2013  ▲
 




Thomas
Freier
oui??? cet Funktion habe je dans qui Testsoftware Sepasoft pas trouvé, ou bien sollte es cette Report son?
Bisher J'ai eu là selbst une simple PDF(venez sans Zusatzsofware aus mais sur Basisfont beschränkt) erzeugt et beides ist ensuite per Email übermittelt worden.
Beispiel einseitige PDF
KompilierenMarqueSéparation
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc BEGLEITZETTEL_PDF

    Assign #2,(old_file$+"\\DTAUS\\Begleitzettel.pdf")
    Rewrite #2
    Imprimer #2,"%PDF-1.2"
    Imprimer #2,"%âãÏÓ"
    Imprimer #2,"1 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"/Author ()"
    Imprimer #2,"/CreationDate (D:20090105223536)"
    Imprimer #2,"/Creator (PDFproducer  v1.3)"
    Imprimer #2,"/Producer (PDFproducer )"
    Imprimer #2,"/Title ()"
    Imprimer #2,"/Subject ()"
    Imprimer #2,"/Keywords ()"
    Imprimer #2,">>"
    Imprimer #2,"endobj"
    Imprimer #2,"4 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"/Type /Font"
    Imprimer #2,"/Subtype /Type1"
    Imprimer #2,"/nom /F1"
    Imprimer #2,"/Encoding 5 0 R"
    Imprimer #2,"/BaseFont /Courier"
    Imprimer #2,">>"
    Imprimer #2,"endobj"
    Imprimer #2,"5 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"/Type /Encoding"
    Imprimer #2,"/BaseEncoding /WinAnsiEncoding"
    Imprimer #2,">>"
    Imprimer #2,"endobj"
    Imprimer #2,"6 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"  /Font << /F1 4 0 R >>"
    Imprimer #2,"  /ProcSet [ /PDF /Text ]"
    Imprimer #2,">>"
    Imprimer #2,"endobj"
    Imprimer #2,"7 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"/Type /Page"
    Imprimer #2,"/Parent 3 0 R"
    Imprimer #2,"/Resources 6 0 R"
    Imprimer #2,"/Contents 8 0 R"
    Imprimer #2,"/Rotate 0"
    Imprimer #2,">>"
    Imprimer #2,"endobj"
    Imprimer #2,"8 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"/Length 6 0 R"
    Imprimer #2,">>"
    Imprimer #2,"stream"
    Imprimer #2,"BT"
    Imprimer #2,"/F1 12 Tf"
    Imprimer #2,"1 0 0 1 70 782 Tm"
    Imprimer #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)+": "+@Format $("#######0",ANZ.sum!)
    PDF_ZEILE 1
    text$=left$("Kontrollsumme qui Datensätze C "+a$,36)+"EUR : "+@Format $("##########0.00",EUR.sum!)
    PDF_ZEILE 1
    text$=»
    PDF_ZEILE 1
    text$=left$("Kontrollsumme qui Bankleitzahlen"+a$,40)+": "+@Format $("00000000000000000",BLZ.sum!)
    PDF_ZEILE 1
    text$=left$("Kontrollsumme qui Kontonummern"+a$,40)+": "+@Format $("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
    Imprimer #2,"1 0 0 1 504 25 Tm"
    Imprimer #2,"(1) Tj"
    Imprimer #2,"/F1 10 Tf"
    Imprimer #2,"ET"
    Imprimer #2,"endstream"
    Imprimer #2,"endobj"
    Imprimer #2,"9 0 obj"
    Imprimer #2,"2360"
    Imprimer #2,"endobj"
    Imprimer #2,"2 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"/Type /Catalog"
    Imprimer #2,"/Pages 3 0 R"
    Imprimer #2,">>"
    Imprimer #2,"endobj"
    Imprimer #2,"3 0 obj"
    Imprimer #2,"<<"
    Imprimer #2,"/Type /Pages"
    Imprimer #2,"/Count 1"
    Imprimer #2,"/MediaBox [ 0 0 595 842 ]"
    Imprimer #2,"/Kids [ 7 0 R ]"
    Imprimer #2,">>"
    Imprimer #2,"endobj"
    Imprimer #2,"0 10"
    Imprimer #2,"0000000000 65535 f"
    Imprimer #2,"0000000113 00000 n"
    Imprimer #2,"0000002875 00000 n"
    Imprimer #2,"0000002918 00000 n"
    Imprimer #2,"0000000156 00000 n"
    Imprimer #2,"0000000245 00000 n"
    Imprimer #2,"0000000307 00000 n"
    Imprimer #2,"0000000372 00000 n"
    Imprimer #2,"0000000453 00000 n"
    Imprimer #2,"0000002858 00000 n"
    Imprimer #2,"trailer"
    Imprimer #2,"<<"
    Imprimer #2,"/Size 10"
    Imprimer #2,"/Racine 2 0 R"
    Imprimer #2,"/Info 1 0 R"
    Imprimer #2,">>"
    Imprimer #2,"startxref"
    Imprimer #2,"2996"
    Imprimer #2,"%%EOF"
    Fermer #2

ENDPROC

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc PDF_ZEILE

    Paramètres n.p%
    text$=Translate$(Text$,"(","\(")
    text$=Translate$(Text$,")","\)")
    text$="T* (" + text$ + ") Tj"

    WhileLoop n.p%

        Imprimer #2,text$

    Endwhile

ENDPROC

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Nachtrag: wars plus rapide. peut-être zur eigenen information peux on oui Sammel-Ersteinzugsauftrag bzw. Sammel-Folgeeinzugsauftrag verwenden.

3 kB
Hochgeladen:02.03.2013
Downloadcounter: 296
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
02.03.2013  ▲
 




Torben
Nissen
j'ai encore einmal à cause de des Datenträgerbegleitzettels nachgeforscht. je connais ihn déjà de qui DTA-Dossier. là muss aussi so un Zettel ausgedruckt volonté. Bisher avons wir cette Zettel mais aucun banque vorlegen doit. cela liegt peut-être mais aussi daran, dass wir dans qui Firma qui Dossier dans unser Online-Bankingprogramm "SFirm" einlesen et pas zur banque apporter. cet gibt ensuite pour expédier qui Lastschriften un detailliertes Protokoll aus. Den Datenträgerbegleitzettel heften wir ensuite zusammen avec dem Protokoll ab. Den Datenträgerbegleitzettel drucke je sur meinen Abomanager aus, pourrait on mais aussi de "SFirm" ausdrucken laisser.
KompilierenMarqueSéparation
StartPrint "*"

Si %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 pour Euro-Zahlungen (SEPA) im 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 qui Datensätze:"
    DrawText 30,190,"Summe qui Beträge dans EUR:"
    DrawText 30,210,"Name Auftraggeber:"
    DrawText 30,230,"Dateikennung:"
    DrawText 30,250,"Dateiname:"
    DrawText 300,130,@Date$(0)
    DrawText 300,150,printausfuehrung$
    DrawText 300,170,anzahl$
    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 fragt réellement, si un Datenträgerbegleitzettel ausgedruckt volonté soll.


22 kB
Kurzbeschreibung: Hinweis Sepatool - Datenträgerbegleitzettel
Hochgeladen:02.03.2013
Downloadcounter: 191
Download
 
02.03.2013  ▲
 



 
- page 3 -



Thomas
Freier
là qui SEPA.xml oui UTF-8 verwendet, peux on sich une Umwandlung de AnsiToUTF8 sparen, là qui zulässigen marque, armes Europa, avec Ansi identique sommes. qui deutschen Umlaute de Torbens Beispiel étions mir trop wenig, là wir chez Ansi oui aussi René ou bien Møller écrivons peut.
KompilierenMarqueSéparation
proc SEPA_abc

    ' gültige marque, DK-Empfehlungen)
    ' Erlaubt sommes "0-9" "a-z" "A-Z" qui marque "-':?,+()/." sowie Leerzeichen.
    ' ici wird alles comme Großbuchstaben umgewandelt
    parameters a$
    a$=Upper$(a$)
    Déclarer ax$
    var nx%=1
    var ny%=len(a$)+1

    Tandis que 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

    Retour a$

endproc
 
Gruß Thomas
Windows XP SP2, XProfan X2
27.11.2013  ▲
 



◄

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

27.324 Views

Untitledvor 0 min.
Gast.081516.07.2024
Member 288304906.02.2019
Ernst26.03.2016
mene23.12.2015
plus...

Themeninformationen

cet Thema hat 3 participant:

Thomas Freier (13x)
Torben Nissen (9x)
iF (3x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie