SEPA Komponente gesucht

[kretabiker]

Hallo arnof,

wie angekündigt habe ich deine Komponente gekauft und eingebaut. Funktioniert soweit auch gut, zumindest habe ich eine - deutsche - SEPA-Datei...

Wie schaut es aus mit den Anpassungen für Österreich? Hast du da schon was gemacht bzw. kannst/willst du da kurzfristig was machen? Wenn nicht, muss ich schauen, wie ich das selbst eingebaut bekomme.

Viele Grüße

[arnof]

Z.Z. habe ich auch eine Menge zu tun und nächste Woche bin ich auch noch einige Tage auf Geschäftsreise. Kurzfristig (also innerhalb einer Woche) schaffe ich das nicht!

Wenn Du was anpassen möchest, so suche in der afs_sepa.pas folgende Funktion:

function TAFS_SEPA.XML_KOPF(Art : integer): AFS_String;
Hier kannst Du ganz einfach eingreifen und ggf entsprechende Änderungen einbringen:

Delphi-Quellcode:

result:= result+'   <GrpHdr>'+Zeile;;
 result:= result+'    <MsgId>'+StringToXML(S_Message_ID)+'</MsgId>'+Zeile;
 result:= result+'    <CreDtTm>'+FormatDateTime('yyyy-mm-dd',now)+'T'+FormatDateTime('hh:nn:ss',now)+'.000Z</CreDtTm>'+Zeile;
 result:= result+'    <NbOfTxs>'+StringToXML(IntToStr(S_Anzahl))+'</NbOfTxs>'+Zeile;
 result:= result+'    <CtrlSum>'+DoubleToXML(S_Summe)+'</CtrlSum>'+Zeile;
 result:= result+'    <InitgPty>'+Zeile;
 result:= result+'     <Nm>'+Copy(StringToXML(S_Name),1,70)+'</Nm>'+Zeile;
 result:= result+'    </InitgPty>'+Zeile;
 result:= result+'   </GrpHdr>'+Zeile;
 result:= result+'   <PmtInf>'+Zeile;
 result:= result+'    <PmtInfId>'+StringToXML(S_Message_ID)+'</PmtInfId>'+Zeile;          
 result:= result+'    <PmtMtd>'+fall_art+'</PmtMtd>'+Zeile;

Hier kann es sich nur um Kleinigkeiten handeln, wenn überhaupt. Ich habe zwar auch viele Kunden Österreich und in der Schweiz, unser Update mit SEPA ist aber erst einige Tage Online. D.h. ich habe noch kein Feedback von ausländischen Kunden.

Das Land kannste der Schnittstelle jetzt schon mit

afs_sepa1.Default_Land='AT'; Übergeben bzw. Abfragen

[kretabiker]

Hallo arnof,

yo, ich hatte auch schon im Source geguckt, wo ich ansetzen kann/muss und die angegebene Routine identifiziert. Ich schau dann mal anhand der Angaben von Union, was zu tun ist und baue da entsprechend um - das gibt wohl einige if-then-else-Verzweigungen, eieiei... Mal sehen, was die Testschnittstelle bei stuzza.at/gfeg.com zur Datei sagt, wenn ich damit durch bin.

Werde berichten.

[arnof]

Zitat von kretabiker:

Hallo arnof,

yo, ich hatte auch schon im Source geguckt, wo ich ansetzen kann/muss und die angegebene Routine identifiziert. Ich schau dann mal anhand der Angaben von Union, was zu tun ist und baue da entsprechend um - das gibt wohl einige if-then-else-Verzweigungen, eieiei... Mal sehen, was die Testschnittstelle bei stuzza.at/gfeg.com zur Datei sagt, wenn ich damit durch bin.

Werde berichten.

Hi, ich habe mal einen test gemacht und das österreichische Muster durch den deutschen SEPA Prüfer gejagt:

Der meckert eigentlich nur die Kopfzeile an: Die Umstellung sollte demnach nur mit Ändern des XML Kopfes gehen:

Zeile Sp. Meldung
2 2 Schwerer Fehler Unerwarteter Namensraum "APC:STUZZA:payments:ISO:pain:001:001:02:austrian: 002" gefunden, erwartet wurde "urn:iso:std:iso:20022:techsd:pain.001.003.0 3"
3 3 Schwerer Fehler Unerwartetes Element "pain.001.001.02" aus dem Namensraum "urn:iso:std:iso:20022:techsd:pain.001.003.0 3".
185 1 Fehler Das Pflichtelement "CstmrCdtTrfInitn" fehlt.
Bericht als PDF Dokument

Inhalt
<?xml version="1.0" encoding="UTF-8"?>
<Document xmlns="APC:STUZZA:payments:ISO:pain:001:001:02:aus trian:002" xmlnssi="http://www.w3.org/2001/XMLSchema-instance">
<pain.001.001.02>

[sh17]

Ist denn das lizenztechnisch erwünscht, den Quelltext hier einfach so zu veröffentlichen?

[Daniel]

Zitat von sh17:

Ist denn das lizenztechnisch erwünscht, den Quelltext hier einfach so zu veröffentlichen?

Gute Frage - vorsichtshalber habe ich den Beitrag vorläufig ausgeblendet. Er lässt sich vollständig wiederherstellen, wenn der beigefügte Source kein Problem darstellen sollte.

[arnof]

Zitat von sh17:

Ist denn das lizenztechnisch erwünscht, den Quelltext hier einfach so zu veröffentlichen?

Eigentlich nicht, ich bin ja kulant, das aber die Kernfunktion mit all meinen Kommentaren und Hinweisen, das muss nicht sein. Hier ist mein Lizenzvertrag eindeutig, das hat mich einfach zuviel Arbeit und Zeit gekostet. Wenn er mir die Änderung sendet, so stelle ich diese allen zur Verfügung.

[kretabiker]

Hallo arnof,

von mir bekommst du die geänderte Datei heute ebenfalls zugeschickt. Letzte Woche sind die ersten Echt-Überweisungen in Österreich problemlos exportiert und verbucht worden. An welche Email-Adresse hättest du sie denn gerne?

[arnof]

es kommen alle an, aber einfach die nehmen, wo die Komponente herkam....

[herbstrot]

Upps...

Sorry da bin ich wohl etwas voreilig gewesen

Ich gelobe Besserung. Den Beitrag dann lieber löschen.