Hi friends,
can anybody help me to translate this into a xHarbour or FiveWin-Code:
Declaration
Delphi:
function CheckAccountNumber(const AAccountNumber: WideString; const
ABankCode: WideString; out ABankName: WideString; out AResultString:
WideString): ReturnCodes;
IDL:
[id(0x00000003), helpstring("Funktion zum Testen der Kontonummer")]
HRESULT _stdcall CheckAccountNumber([in] BSTR AAccountNumber, [in] BSTR
ABankCode, [out] BSTR * ABankName, [out] BSTR * AResultString, [out, retval]
ReturnCodes * Res );
Description
Die Methode CheckAccountNumber ist die 'Hauptmethode' der Bibliothek. Mit
ihr kann man prüfen, ob eine Kombination aus Kontonummer und Bankleitzahl
eine mögliche Kontonummer beschreibt.
Im Parameter AAccountNumber übergibt man die zu prüfende Kontonummer und im
Parameter ABankCode die dazugehörende Bankleitzahl. Zuerst prüft die
Methode, ob die Bankleitzahl gültig ist und ermittelt die zur Bankleitzahl
gehörende Prüfmethode. Mit dieser Prüfmethode wird anschließend die
übergebene Kontonummer geprüft.
Über den ReturnCode kann man auswerten, ob die Prüfung erfolgreich war bzw.
welcher Fehler aufgetreten ist. Zusätzlich erhält man im Parameter ABankName
den Namen der ermittelten Bank zurück sowie im Parameter AResultString das
Ergebnis der Prüfung im Klartext.
Es werden folgende Properties überschrieben:
AccountNumber mit dem Wert von AAccountNumber
BankCode mit dem Wert von ABankCode
BankName mit dem ermittelten Banknamen
CheckMethod mit der ermittelten Prüfmethode
ResultString mit dem Ergebnisstring
Best regards
Bodo