![]() |
AW: SEPA Komponente gesucht
Und die werden dann in der Ausgabe auch suaber getrennt? Da ja verschiedene Latschriftarten nicht in einer XML zusammen stehen dürfen. Oder ist man selber dafür zuständig zu prüfen dass jeweils nur gleiche Arten verarbeitet werden?
|
AW: SEPA Komponente gesucht
Zitat:
Das ist nur ein schnelles DEMO Programm, damit man sieht wie die Komponente funktioniert und was Sie kann :wink: |
AW: SEPA Komponente gesucht
:-D hier fehlt echt nen +1 im forum. Bitte heute nochmal geldeingang checken,danke
|
AW: SEPA Komponente gesucht
Moin arnof,
habe heute auch per Online bezahlt. Bitte Geldeingang checken . . . Mit Gruß HPB |
AW: SEPA Komponente gesucht
Ihr könnt auch bitte direkt an vertrieb@arma-it.de schreiben, da brauchen wir das Forum nicht voll spammen
PS: banken brauchen manchmal ein paar tage, meine Mitarbeiter senden die auch schon raus, wenn Ihr einen Beleg (oder Screenshot) dort hin mailt. |
AW: SEPA Komponente gesucht
OK, erhalten, danke.
Noch eine Frage, besteht Interesse an Feedback zu Quellcodeänderungen (Umbau, Ergänzungen), Formatierungen? Wenn ja, diese per PN? |
AW: SEPA Komponente gesucht
Zitat:
Auch BLZ's von anderen Ländern nehme ich gerne und reiche die weiter. @Union: mit LU_BIC kann man es auch in Luxenburg einsetzen! Vielleicht bauen wird die Sparte als Entwicklerzulieferer weiter aus. Unser nächstes Projekt was wir weitergeben könnten währe hier zu finden (z.Z. nur in einer eigenen Version für unsere Systeme; es gibt davon aber schon die Entwicklerversion) ![]() |
AW: SEPA Komponente gesucht
Übersicht der Bezugsquellen von aktuellen Bankenverzeichnissen.
Für Bankleitzahlen in Deutschland wäre das ![]() Allerdings gibt es abweichend von der allgemeinen IBAN-Bildungsregeln eine ganze Reihe Ausnahmen. Die Institute, die das betrifft sind in der "erweiterten Bankleitzahlendatei" markiert. Diese bekommt man, nachdem man sich im ExtraNet kostenlos registriert hat. Ich bin da grad dran und werde den IBAN-Konverter dementsprechend erweitern. ![]() Für Bankleitzahlen in Österreich wäre das ![]() Für Bankclearing (BC)-Nummern in der Schweiz wäre das ![]() Bitte weitere ergänzen.. |
AW: SEPA Komponente gesucht
Für Luxembourg ist die Tabelle im Excel-Format bei der
![]() |
AW: SEPA Komponente gesucht
Danke, hier mal eine Übersicht über den Aufbau der IBAN in den verschiedenen Ländern:
![]() |
AW: SEPA Komponente gesucht
Bugmeldung und Behebung:
hallo, leider ist mir ein kleiner Käfer unterlaufen in der Komponente, wenn man mehrere Belege (Sammler) ausführt. Hier wurden Abschlußtags innerhalb der Belegscheife ausgegeben, dies muss nach der Schleife passieren. in der Datei AFS_SEPA.PAS ab Zeile 750 ist wie folgt zu ändern (verschieben):
Code:
Also das </PmtInf> und </CstmrDrctDbtInitn> muss hinter dem While end ausgegeben werden.
//
// noch ein Beleg? // dec(Beleg); if Beleg>-1 then mSepa:=S_Sepa[Beleg]; end; // Belege while end // result:= result+' </PmtInf>'+Zeile; if Art in [0] then begin // Überweisung result:=result+' </CstmrCdtTrfInitn>'+Zeile;; end; if Art in [10,11] then begin // Lastschrift result:=result+' </CstmrDrctDbtInitn>'+Zeile; end; |
AW: SEPA Komponente gesucht
Zitat:
Dies sind zum Großteil Stiftungs und Sonderkonten, die den normalen Geschäftsbetrieb zu 99 % nicht betreffen. Findest Sie/Ihr das Sinnvoll mit in den Konverter einzubauen. Zu Info: es handelt sich um diverse Banken, die Pseudokontonummern vergeben haben z.B. für Spendenorganisationen, hier mal ein beispiel der Kölnerbank:
Code:
D.h. aktuell Kontonummer 30000 bei der IBAN Umstellung muss die Kontonummer 18128012 verwendet werden. So haben einige Banken Ihre 1-20 Sonderkonten.
Gemäß nachfolgender Aufstellung muss aber für bestimmte Konten bei der Berechnung
der IBAN eine abweichende Kontonummer verwendet werden. Kontonummer für die IBAN-Ermittlung zu verwendende Kontonummer 300000 18128012 Ich halte das Aufwand/Nutzungsverhältnis für arg unverhältnismäßig, sei denn mann erstellt eine Sprendenverteilungssoftware ..... Eure Meinung :?: |
AW: SEPA Komponente gesucht
Was passiert denn, wenn ich so eine Bankverbindung durch den Konverter jage? - Es wird einen falsche IBAN erzeugt!
Man könnte auch die Kontonummern prüfen und einen Hinweis ausgeben, dass es sich um einen Sonderfall handelt und keine IBAN erzeugt werden kann... Aber wo bekomme ich die Daten dann als User her? Also ich denke, wenn man so eine Komponente anbietet, dann auch komplett. Oder man weist explizit in der Beschreibung auf die Unvollständigkeit hin (in fett und groß :D ). |
AW: SEPA Komponente gesucht
Ja klar .... unvollständig :thumb:
Und was ist mit anderen Ländern, mann kann ja nicht für alle Länder eine Ausnahmegenerator machen. Der IBAN Generator ist halt nach den ISO Regeln, die auch in allen Publikationen beworben werden (Bundesbank, Europäische Zentralbank, usw.). |
AW: SEPA Komponente gesucht
Ich bin auch noch am zweifeln, habe aber meine PIN für das Extranet noch nicht. Es sind wohl gegen 60 Ausnahmeregeln, wie ich aus einem OpenSource Konverter entnehmen kann. Und ich schätze mal, das nur deutsche Banken wieder solche Umstände machen.
|
AW: SEPA Komponente gesucht
Zitat:
Ich wollte damit nicht sagen, dass alle erdenklichen Länder und Sonderfälle abgedeckt werden müssen. Vor allem nicht für einen Preis von 99€ ;). Als Kunde möchte ich aber genau wissen, was eine Komponente leisten kann und was nicht. Also zumindest sowas in der Art: "Mit dem IBAN-Generator können IBAN's von deutschen Kontoverbindungen erstellt werden. ...IBAN's von Sonderkonten (deren Berechnung nicht den Standardregeln entsprechen) können nicht ermittelt werden..." |
AW: SEPA Komponente gesucht
Zitat:
Hier die Banken die Sonderkonten bzw Ausnahmen in irgendeiner Form haben (auch wenn es nur ein einziges Konto bei der entsprechenden Bank ist, z.B. Spendkonten):
Code:
0002 00 Augsburger Aktienbank
0003 00 Aareal Bank AG 0004 00 Landesbank Berlin / Berliner Sparkasse 0005 01 Commerzbank AG 0006 00 Stadtsparkasse München 0007 00 Sparkasse KölnBonn 0008 00 BHF-Bank AG 0009 00 Sparkasse Schopfheim-Zell 0010 00 Frankfurter Sparkasse 0011 00 Sparkasse Krefeld 0012 01 Landesbank Hessen-Thüringen 0013 01 Landesbank Hessen-Thüringen 0014 00 Deutsche Apotheker- u. Ärztebank 0015 00 Pax-Bank eG 0016 00 Kölner Bank eG 0017 00 Volksbank Bonn Rhein-Sieg 0018 00 Aachener Bank eG 0019 00 Bethmann Bank 0020 01 Deutsche Bank AG 0021 01 National-Bank AG 0022 00 GLS Gemeinschaftsbank eG 0023 00 Volksbank Osnabrück eG 0024 00 Bank im Bistum Essen eG 0025 00 Landesbank Baden-Württemberg /Baden-Württembergische Bank 0026 00 Bank für Kirche und Diakonie eG 0027 00 Volksbank Krefeld eG 0028 00 Sparkasse Hannover 0029 00 Société Générale 0030 00 Pommersche Volksbank eG 0031 01 UniCredit Bank AG 0032 00 UniCredit Bank AG 0033 01 UniCredit Bank AG 0034 00 UniCredit Bank AG 0035 01 UniCredit Bank AG 0036 00 HSH Nordbank AG 0037 00 The Bank of Tokyo-Mitsubishi UFJ, Ltd. 0038 00 Ostfriesische Volksbank eG 0039 00 Oldenburgische Landesbank AG 0040 01 Sparkasse Staufen-Breisach 0041 00 Bausparkasse Schwäbisch Hall AG 0042 00 Deutsche Bundesbank 0043 00 Sparkasse Pforzheim Calw 0044 00 Sparkasse Freiburg 0045 00 SEB AG 0046 00 Santander Consumer Bank 0047 00 Santander Consumer Bank 0048 00 VON ESSEN GmbH & Co. KG Bankgesellschaft 0049 00 WGZ Bank 0050 00 Sparkasse LeerWittmund 0051 00 Landesbank Baden-Württemberg /Baden-Württembergische Bank 0052 00 Landesbank Baden-Württemberg /Baden-Württembergische Bank 0053 00 Landesbank Baden-Württemberg /Baden-Württembergische Bank 0054 00 Evangelische Darlehnsgenossenschaft eG |
AW: SEPA Komponente gesucht
Zitat:
![]() Test mal in deiner Lösung was dein Konverter aus Kontonr 1991182 Blz 30060010 macht. Richtig ist hier DE26300600109911820001 |
AW: SEPA Komponente gesucht
Zitat:
Die können es auch nicht: ![]() |
AW: SEPA Komponente gesucht
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?
|
AW: SEPA Komponente gesucht
Zitat:
Ich habe nun 312 Sonderkonten erfasst; und 605 Bankleitzahlen Ersetzungen und 3 Sonderberechnungen: Fertig :thumb: |
AW: SEPA Komponente gesucht
:thumb:
|
AW: SEPA Komponente gesucht
Zitat:
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:
Usw. ich habe mir nun die Mühe Gemacht alle Deutschen Besonderheiten in den IBAN Konverter einzubauen.
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 |
AW: SEPA Komponente gesucht
Zitat:
Zitat:
|
AW: SEPA Komponente gesucht
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. |
AW: SEPA Komponente gesucht
Um nochmal auf die sevDTA-DLL zurückzukommen;
Zitat:
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 |
AW: SEPA Komponente gesucht
Das kann/darf ich leider nicht. Aber ich meine, hier im Forum war doch schon von einem Kollegen ein Wrapper gepostet.
|
AW: SEPA Komponente gesucht
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; |
AW: SEPA Komponente gesucht
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 :mrgreen:
|
AW: SEPA Komponente gesucht
Zitat:
Wieder was gelernt :stupid: und auch geändert! |
AW: SEPA Komponente gesucht
@arnof, @vagtler: merci für die Anregung, hab jetzt auch den anderen thread gefunden:
![]() |
AW: SEPA Komponente gesucht
Es klappt leider nicht, ich stell mich scheint's zu doof mit den Stringtypen an.
ich will erstmal nur die IBAN berechnen, der folgende Code endet immer mit Laufzeitfehler ("Access violation"):
Delphi-Quellcode:
Ich hab's auch am Ende mit ein paar Blanks mehr hie und da versucht, klappt alles nicht.
type TWasBinIchWohl = AnsiString; // klappt nicht
//type TWasBinIchWohl = PAnsiChar; // klappt auch nicht type TSevDTA_Init = function(sInit : TWasBinIchWohl) : longint; stdcall; type TSevDTA_BLZSetPath = function(sPath : TWasBinIchWohl) : longint; stdcall; type TSevSEPA_CalcIBAN = function(blz, kto, bic, iban : TWasBinIchWohl) : longint; stdcall; hSevDTALib : THandle; sevDTA_Init : TSevDTA_Init; sevDTA_BLZSetPath : TSevDTA_BLZSetPath; sevSEPA_CalcIBAN : TSevSEPA_CalcIBAN; ... // versuche, DLL zu laden cmd := '.\sepa\sevdta20.dll'; self.hSevDTALib := LoadLibrary(PChar(cmd)); // lade Funktionspointer @self.sevDTA_Init := GetProcAddress(self.hSevDTALib, 'sevDTA_Init'); @self.sevDTA_BLZSetPath := GetProcAddress(self.hSevDTALib, 'sevDTA_BLZSetPath'); @self.sevSEPA_CalcIBAN := GetProcAddress(self.hSevDTALib, 'sevSEPA_CalcIBAN'); // Initialisierung Handle := self.sevDTA_Init(''); self.sevDTA_BLZSetPath('.\sepa'); ... // bis hierher alles gut, jetzt der CB vom "IBAN_Rechner": sKto, sBlz, sBic, sIban : TWasBinIchWohl; lResult : longint; // IBAN-Kontonummer berechnen sKto := TWasBinIchWohl(self.EditKto.Text); sBlz := TWasBinIchWohl(self.EditBlz.Text); sBic := TWasBinIchWohl(strutils.dupestring(' ', 12)); sIban := TWasBinIchWohl(strutils.dupestring(' ', 23)); lResult := self.sevSEPA_CalcIBAN(skto, sBlz, sBIC, sIBAN); // und tschuess... Jemand eine Idee? Hab ich da was grundsätzliches vergessen bzgl. DLL einbinden mit Funktionen mit >1 Parametern (sevDTA_BLZSetPath klappt ja)? Bei diesem Projekt benutze ich Delphi 2007. |
AW: SEPA Komponente gesucht
Nehm meine Komponente dann geht alles sofort:thumb:
Die kostet nur 1 Entwicklerstunde, bis du die Dll's zum laufen bringst und bis da eine Sepadatei rausfällt dauert sicher noch mind. einen Manntag 5 Zeilen machen aus einem Dataset eine SEPA Datei:cyclops: |
AW: SEPA Komponente gesucht
Liste der Anhänge anzeigen (Anzahl: 1)
Delphi-Quellcode:
Mach mal so:
type TWasBinIchWohl = AnsiString; // klappt nicht
//type TWasBinIchWohl = PAnsiChar; // klappt auch nicht type TSevDTA_Init = function(sInit : TWasBinIchWohl) : longint; stdcall;
Delphi-Quellcode:
Ich hab mal meinen Wrapper für sevkto angehängt. Das Prinzip hat sich zu sevdta nicht geändert. Ich bin blos noch nicht dazu gekommen sevdta umzusetzen.
TSevDTA_Init = function(sInit: PChar): LongInt; stdcall;
|
AW: SEPA Komponente gesucht
Was bedeutet denn 'Dein-Lizens-Code' ;-)?
Klappt leider auch nicht. Ich versuch's jetzt "nur noch" mit BLZ_FileDate(), die hat nur noch 1 Übergabeparameter (der beschrieben wird):
Delphi-Quellcode:
Vielleicht liegt der Fehler ja ganz woanders, braucht man sowas wie "uses ShareMem..." (_das_ speziell hab ich auch versucht)?
type TWasBinIchWohl = PChar; // klappt auch nicht
//type TWasBinIchWohl = PAnsiChar; // klappt auch nicht ... type TSevDTA_BLZFileDate = function(sDatum : TWasBinIchWohl) : longint; stdcall; ... (diverse inits klappen) s : String; // AnsiString klappt auch nicht setLength(s, 21); // explizites setzen zB s := '(genug blanks)' klappt auch nicht self.sevDTA_BLZFileDate(TWasBinIchWohl(s)); // und tschuess mit "access violation"... Bin stark versucht, die Lösung von @arnof zu nehmen, es ärgert mich nur, dass anscheinend einige die andere benutzen und ich zu doof bin, die zum Laufen zu bekommen. |
AW: SEPA Komponente gesucht
Mich irritiert das "self". Versuchst Du, die DLL-Funktionen an Methoden zu übergeben?
|
AW: SEPA Komponente gesucht
Ja, aber das sind ja nur Funktionspointer.
Die Aufrufe der Initialisierung funzen ja. Egal, ich geb auf und mach den nächsten Versuch mit der Komponente von @arnuf. |
AW: SEPA Komponente gesucht
Liste der Anhänge anzeigen (Anzahl: 1)
Ich habe mal den Wrapper kurz umgestellt und TSevDTA_BLZFileDate reingeschmissen. Ergebnis wird mit einer Showmessage angezeigt.
Im Projektverzeichnis ist ein Unterverzeichnis "\BLZ", in das die Bankleitzahlendateien von sevdta32 reingehören. Die habe ich natürlich nicht angehängt. Die sevdta32.dll mus im Projekt-Ordner oder system32-Verzeichnis sein. Dann noch alle anderen neuen SEPA-Funktionen rein und fertig. Ich schätze mit Testen und allem drum und dran, werden das 2-3 Tage Arbeit. Zitat:
Solltest Du schon gekauft haben und jetzt auf arnofs Kompo umschwencken, kauf ich Dir sevdta für die Hälfte ab :lol: |
AW: SEPA Komponente gesucht
Ja, das mit dem Lizenzschlüssel hatte ich schon verstanden. Deshalb der Smiley.
Aber "sevdta32.dll"? Ich arbeite mit der Testversion (so wird's auch nix mit dem halben Preis), und zwar "sevdta20.dll 56.320 19.09.2013". Liegts daran? |
AW: SEPA Komponente gesucht
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz