Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#1

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

  Alt 13. Sep 2012, 15:49
Datenbank: MS-SQL • Version: 2005 • Zugriff über: ADO
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
Miniaturansicht angehängter Grafiken
sepa1.jpg   sepa2.jpg  
Angehängte Dateien
Dateityp: zip DE_Iban_Functions.zip (658 Bytes, 65x aufgerufen)
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)

Geändert von Bummi (19. Sep 2012 um 13:36 Uhr)
  Mit Zitat antworten Zitat