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