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