Gegf. interessant für Benutzer die mit MSSQL von Konto/BLZ auf IBAN/BIC umsteigen

[Bummi]

Da ich gerade migieren muss von DTA nach IBAN/Swift, hätte ich für Interessenten SQL-Functions die die Umstellung erleichtern. (Derzeit nur für deutsche Daten) >> DE_Iban_Functions.zip

Beispiel:

Code:

Update Kunden set BIC=IMP_Bank.BIC
from IMP_Bank
Where IMP_Bank.BankLeitzahl=Kunden.BLZ
and Kunden.BIC is NULL and Kunden.LKZ='D'


Update Kunden set IBAN=dbo.Gen_DE_IBAN(BLZ,KontoNr)
where BLZ is not null and KontoNr is not null and IBAN is NULL and Kunden.LKZ='D'

IMP_Bank hätte ich zwar auch als Script, aber sinnvoller ist es sicher die Daten direkt von http://www.bundesbank.de zu ziehen.



Für die delphiseitige Implementierung habe ich mir ein Klasse mit minimalistischen Schnittstellen erstellt

Delphi-Quellcode:

procedure TForm1.act_CreateExecute(Sender: TObject);
var
 s:TSepa;
begin
    Ads.DisableControls;
    Ads.First;
    s := TSepa.Create(TSepaTyp(Kind.ItemIndex),'My_ID  4711 0815','Bummi beim Testen');
    try
      while not Ads.Eof do
        begin
        s.AddBuchung(adsEigeneIBAN.asString,adsEigeneBIC.AsString,adsEigenerName.AsString,adsFremdIBAN.AsString,adsFremdBIC.AsString,adsFremdName.AsString,adsBeleginfo.AsString,adsBetrag.Value);
        Ads.next;
      end;
       s.SaveToFile(fn.Text);
    finally
      s.Free;
        Ads.EnableControls;
    end;

  fn2.Text := fn.Text;
  Act_open.Execute;
  PageControl1.ActivePage := Tabsheet2;
end;

EXE mit DB im Anhang SepaTest.zip

[Sybok Factor]

Schon mal toll, dass du deine Erkenntnisse hier zu Verfügung stellst.
Vielen Dank

[Bummi]

@Sybok Factor
Danke für den Dank, aber viele Interessenten wird es wahrscheinlich gar nicht geben ...

[jobo]

Danke auch!

OT:
wg. Full Metal Jacket:
Hoffe das hat nichts zu bedeuten!

Ich nehm übrigens gern Ferrero Rochee, wenn's mal was zu knabbern gibt. Eigentlich die gleiche Kategorie (zumindest vor dem Auspacken) aber völlig schmerzfrei.

[Bummi]

Zitat:

Hoffe das hat nichts zu bedeuten!

Ich kann Dir nicht ganz folgen ... Vollmantelgeschosse halt, um die Züge nicht zu "verschmieren", übliches Sportschützenequipment ...

[Bummi]

Keiner sagt was ...
Fehlerhafte Version SepaTest.zip jetzt bereinigt im Anhang ...
Zudem eine auf 10 Sätze beschränkte Kommandozeilenversion(Beta) eines DTA zu SEPA Konverters.

[vagtler]

An dieser Stelle sei vielleicht auch einmal der Hinweis auf sevDTA 2.0 von www.tools4vb.com erlaubt, mit der wir sehr gute Erfahrungen bei der Einführung von SEPA-Unterstützung in unseren Applikationen gemacht haben.

[kaju74]

Zitat von vagtler:

An dieser Stelle sei vielleicht auch einmal der Hinweis auf sevDTA 2.0 von www.tools4vb.com erlaubt, mit der wir sehr gute Erfahrungen bei der Einführung von SEPA-Unterstützung in unseren Applikationen gemacht haben.

Hi,

hast Du evtl. eine Wrapper-Datei für die DDL-Aufrufe auf Lager? Ist zwar nicht viel, könnte mir hier aber die Arbeit sparen, wenn Du schon was hast...

Danke & Gruß,
Marc

[hhoefling]

Ja so eine Wrapper-Datei für Delphi (7 oder 2010) suche ich ebenfalls.

[kaju74]

Hi.

Habe sie mittlerweile selber gemacht:

Code:

interface

{ library declarations }

{$WARN SYMBOL_PLATFORM OFF}
// dta methods
function sevDTA_BICExists(sBIC, sBlz: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_BLZExists(sBlz: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_BLZFileDate(sDatum: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_BLZGetInfo(sBlz, sName, sPz: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_BLZGetInfoEx(sBlz, sName, sPlz, sOrt, sBIC: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_CheckCdtrId(sCdtrId: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_CheckCreditCard(sCardType, sCardNr, sMsgText: PAnsiChar; lLenRet: LongInt): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_CheckIBAN(sIBAN: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_CheckKontoNr(sBlz, sKontoNr, sPz: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_CreateFile(sFilename: PAnsiChar; bOvrWriteExists: LongInt): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_CreateFileEx(sFilename: PAnsiChar; bOvrWriteExists: LongInt; sReferenzNr, sDatum: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_FileAddRec(lHandle: LongInt; sBlz1, sKtoNr1, sName1, sIntKdNr, sBlz2, sKtoNr2, sName2, sVerwendung, sBetrag: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_FileAddRecEx(lHandle: LongInt; sBlz1, sKtoNr1, sName1, sIntKdNr, sBlz2, sKtoNr2, sName2, sVerwendung, sBetrag, sTextschluessel, sTextschluesselErw: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_FileEnd(lHandle: LongInt): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_FileInit(lHandle: LongInt; sKz, sBlz, sKtoNr, sName: PAnsiChar; bEuro: LongInt): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_Init(sInit: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevDTA_Kontrollsummen(sSumDaten, sSumBlz, sSumKtoNr, sSumBetrag: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
procedure sevDTA_BLZSetPath(sPath: PAnsiChar); stdcall; external 'sevDTA20.dll' delayed;
procedure sevDTA_Close(lHandle: LongInt); stdcall; external 'sevDTA20.dll' delayed;
procedure sevDTA_Print(hDC: LongInt; sPrnName, sFontName, sName, sBLZ, sKontoNr, sDatum: PAnsiChar); stdcall; external 'sevDTA20.dll' delayed;
procedure sevDTA_PrintEx(hDC: LongInt; sPrnName, sFontName, sName, sBLZ, sKontoNr, sDatum, sVolNr, sLogNr: PAnsiChar); stdcall; external 'sevDTA20.dll' delayed;

// sepa methods
function sevSEPA_CalcIBAN(sBlz, sKontoNr, sBIC, sIBAN: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevSEPA_CreateFile(sFilename: PAnsiChar; bOvrWriteExists: LongInt): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevSEPA_FileAddRec(lHandle: LongInt; sPmtId, sPmtAmt, sDebCredNm, sIBAN, sBIC, sRmtInf, sMndtId, sMndtDt: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevSEPA_FileEnd(lHandle: LongInt): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevSEPA_FileInit(lHandle: LongInt; sKz, sInitgPtyName, sDebCredNm, sIBAN, sBIC, sPmtInfId, sExctnDate: PAnsiChar; lLcCode, lSeqType: LongInt; sCdtrId: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevSEPA_IBANIsValid(sIBAN, sBIC: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
function sevSEPA_SetProperty(sProperty, sValue: PAnsiChar): LongInt; stdcall; external 'sevDTA20.dll' delayed;
procedure sevSEPA_CloseFile(lHandle: LongInt); stdcall; external 'sevDTA20.dll' delayed;
procedure sevSEPA_ExportHTML(sFilename: PAnsiChar); stdcall; external 'sevDTA20.dll' delayed;
{$WARN SYMBOL_PLATFORM ON}

{ error constants }
const
  // initialize
  ERR_DTA_INIT_OK = 0;
  ERR_DTA_SUCCESS = 0;
  ERR_DTA_INIT_FAILURE = -1;

  // file handle
  ERR_DTA_NO_FILEHANDLE = 1;
  ERR_DTA_BAD_FILEHANDLE = 2;

  // dtaus
  ERR_DTA_BAD_KZ = 100;
  ERR_DTA_BAD_BLZ = 101;
  ERR_DTA_BAD_BLZ_LEN = 102;
  ERR_DTA_BAD_KTONR = 103;
  ERR_DTA_BAD_KTONR_LEN = 104;
  ERR_DTA_BAD_VALUE = 105;
  ERR_DTA_NO_VALUE = 106;
  ERR_DTA_NO_NAME = 107;

  // account
  ERR_BLZ_OK = 0;
  ERR_BLZ_NO_FILE = 200;
  ERR_BLZ_NOT_FOUND = 201;
  ERR_BLZ_WRONG_FORMAT = 202;

  ERR_BLZ_KTONR_OK = 0;
  ERR_BLZ_KTONR_WRONG = 211;
  ERR_BLZ_KTONR_NOCHECK = 212;

  // bic
  ERR_BIC_OK = 0;
  ERR_BIC_NO_FILE = 200;
  ERR_BIC_NOT_FOUND = 201;

  // sepa
  ERR_SEPA_SUCCESS = 0;
  ERR_SEPA_BAD_KZ = 300;
  ERR_SEPA_BAD_IBAN = 301;
  ERR_SEPA_BAD_BIC = 302;
  ERR_SEPA_NO_INITGPTYNM = 303;
  ERR_SEPA_NO_DBTRNM = 304;
  ERR_SEPA_NO_CDTRNM = 305;
  ERR_SEPA_NO_VALUE = 306;
  ERR_SEPA_NO_CDTRID = 307;
  ERR_SEPA_NO_RMTINF = 308;
  ERR_SEPA_NO_MNDTID = 309;
  ERR_SEPA_WRONG_SEQTYPE = 310;

  ERR_SEPA_NO_FILEHANDLE = 1;
  ERR_SEPA_BAD_FILEHANDLE = 2;

  ERR_SEPA_CALCIBAN_ERROR = 400;
  ERR_SEPA_CALCIBAN_WARNING = 401;
  ERR_SEPA_CALCIBAN_NOUSAGE = 402;

  // credit cars
  ERR_CREDIT_OK = 0;
  ERR_CREDIT_FIRST_DIGITS = 1;
  ERR_CREDIT_DIGIT_COUNT = 2;
  ERR_CREDIT_WRONG_PZ = 4;
  ERR_CREDIT_UNKNOWN_TYPE = 16;

LG,
Marc

P.S.: Sie ist für Delphi2010 und nutzt das Delayed-Binding...