SEPA Komponente gesucht

[arnof]

Zitat von Union:

Bei den meisten dieser Konten handelt es sich doch um einmalig oder kurzzeitig verwendete? Die Chance dass eine Firma z.b. regelmäßig per elektronisch automatisierter Überweisung für Flutopfer spendet ist wohl gering?

Teilweise, das Beispiel ist eine Sonderberechnung einer Bank ....

Ich habe nun 312 Sonderkonten erfasst; und 605 Bankleitzahlen Ersetzungen und 3 Sonderberechnungen: Fertig

[sh17]

[arnof]

Zitat von Union:

Bei den meisten dieser Konten handelt es sich doch um einmalig oder kurzzeitig verwendete? Die Chance dass eine Firma z.b. regelmäßig per elektronisch automatisierter Überweisung für Flutopfer spendet ist wohl gering?

Ja wenn Du für DE einen IBAN Konverter machts, dann solltest Du die Sonderregeln nachrüsten. Viele Banken misten Ihre bisherige BLZ und sonstige Probleme, die durch Fussionen in Ihren Systemen stecken mit der IBAN Umstellungen aus.

Beispiel APO BANK, ersetzt alle BLZ's der Filialen durch die Zentral BLZ; HYPO Vereinsbank -> Uni Credit Bank AG Ersetzt nun nach alter BLZ und den ersten 3 Stellen der Kontonr nun die BLZ durch andere!
Ein kleiner Auszug aus den Bundesbankdokumentation:

Code:

Filialnr BLZ  von Kontonr bis Kontonr neue Blz
182 79520533 1820000000 1829999999 79520070
183 70020001 1830000000 1839999999 70020270
185 70020001 1850000000 1859999999 70020270
186 79020325 1860000000 1869999999 79020076

vollständige Liste hat 18 Seiten

Usw. ich habe mir nun die Mühe Gemacht alle Deutschen Besonderheiten in den IBAN Konverter einzubauen.

[rapante]

Zitat von arnof:

Test mal in deiner Lösung was dein Konverter aus

Kontonr 1991182
Blz 30060010

macht. Richtig ist hier DE26300600109911820001

Dasselbe Ergebnis gibt auch die von mir eingesetzte Komponente.

Zitat von arnof:

...ich habe mir nun die Mühe Gemacht alle Deutschen Besonderheiten in den IBAN Konverter einzubauen.

[arnof]

Anpassung der Komponente:

Diese liefern wir aus mit Kompatibilität ab Delphi5 aufwärts aus. Wenn Sie eine ältere Delphiversion haben, so ändern Sie in der Datei afs_sepa.inc die Zeile

{$DEFINE DB_ADO} // geht nur für Windows

in

{….$DEFINE DB_ADO} // geht nur für Windows

Die Komponente ist nun Multiplattformfähig, d.h. ab XE2 auch für MACOSX, ab XE4 IOS und XE5 incl. Android.

[schotti65]

Um nochmal auf die sevDTA-DLL zurückzukommen;

Zitat von vagtler:

Den DLL-Wrapper haben wir uns in wenigen Stunden selbst gebaut, allerdings nicht anhand des VB-Codes sondern anhand der Dokumentation...

Würdest Du diesen Wrapper freundlicherweise - ganz oder auszugsweise, dass man einen Ansatz hat - zur Verfügung stellen?
Ich habe mit dem Anbieter gesprochen, und er wollte das wohl "...wegen der verschiedenen String Typen in den verschiedenen Delphi Versionen..." nicht machen.
Ich benutze in diesem Fall Delphi 2007.
Vielen Dank
schotti

[vagtler]

Das kann/darf ich leider nicht. Aber ich meine, hier im Forum war doch schon von einem Kollegen ein Wrapper gepostet.

[arnof]

Hallo, ich hatte damit mal angefangen, aber nach einigen Tests die Sache verworfen und es lieber selbst gemacht ...

Hier haste mal einen Anfang:

Delphi-Quellcode:

unit afs_SEPADLL;


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

const

  dllname = 'sevDTA20.DLL';

type 
  AFS_String = AnsiString;

    // Initialisierung + Beenden
  TsevDTA_Init = function sevDTA_Init (sInit :AFS_String):LongInt;

  TsevDTA_BLZSetPath = procedure (sPath :AFS_String);

  TsevDTA_BLZFileDate = function (sDatum :AFS_String):LongInt;

  TsevDTA_Close = procedure ( lHandle: LongInt);


  // SEPA-Datei erstellen
  TsevSEPA_CreateFile = function (sFilename :AFS_String; iOvrWriteExists LongInt):LongInt;

  TsevSEPA_CloseFile = procedure (fHandle: LongInt);

  TsevSEPA_SetProperty = function (xProperty, Value:AFS_String):LongInt;

  TsevSEPA_FileInit = function (fHandle: LongInt;
                                sKZ ,
                                sName ,
                                KtoInh ,
                                IBAN ,
                                BIC ,
                                RefId ,
                                Datum :AFS_String;
                                LcCode,
                                SeqType : LongInt;
                                CdtrId:AFS_String):LongInt;

  TsevSEPA_FileAddRec = function (
   fHandle: LongInt;
   PmtId ,
   PmtAmt ,
   sName ,
   IBAN ,
   BIC ,
   RmtInf ,
   MndtId ,
   MndtDt :AFS_String):LongInt;

   TsevSEPA_FileEnd = function (fHandle :LongInt) :LongInt;

   TsevSEPA_ExportHTML = function (Filename :AFS_String):LongInt;

   TsevSEPA_IBANIsValid = function (IBAN,BIC :AFS_String):LongInt;

   TsevSEPA_CalcIBAN = function (BLZ , KontoNr , BIC , IBAN :AFS_String):LongInt;

[DeddyH]

Ich bin mal gespannt, wann Dir auffällt, dass der Beitragseditor neben der "Code"- noch eine "Delphi"-Schaltfläche (die mit dem Helm) aufweist, die dann für ein hübsches Code-Highlighting sorgt

[arnof]

Zitat von DeddyH:

Ich bin mal gespannt, wann Dir auffällt, dass der Beitragseditor neben der "Code"- noch eine "Delphi"-Schaltfläche (die mit dem Helm) aufweist, die dann für ein hübsches Code-Highlighting sorgt

ja man lernt nie aus,das ergibt sich auch aus meinem Leitspruch in der Signatur.

Wieder was gelernt und auch geändert!