40 lines
786 B
ObjectPascal
40 lines
786 B
ObjectPascal
|
unit uIBANUtils;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils, Classes, IBAN;
|
||
|
|
|
||
|
|
function EsCodigoIBANValido(AIBAN : string): boolean;
|
||
|
|
function GenerarCodigoIBAN(CodEntidad, CodOficina, DC, CodCuenta : string): string;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
function EsCodigoIBANValido(AIBAN : string): boolean;
|
||
|
|
var
|
||
|
|
auxIBAN : TIBAN;
|
||
|
|
begin
|
||
|
|
auxIBAN := TIBAN.Create;
|
||
|
|
try
|
||
|
|
Result := auxIBAN.checkIBANCode(AIBAN);
|
||
|
|
finally
|
||
|
|
FreeAndNil(auxIBAN);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function GenerarCodigoIBAN(CodEntidad, CodOficina, DC, CodCuenta : string): string;
|
||
|
|
var
|
||
|
|
auxIBAN : TIBAN;
|
||
|
|
begin
|
||
|
|
auxIBAN := TIBAN.Create;
|
||
|
|
try
|
||
|
|
auxIBAN.Country := 'ES';
|
||
|
|
auxIBAN.BankCode := CodEntidad + CodOficina + DC + CodCuenta;
|
||
|
|
Result := auxIBAN.IBAN;
|
||
|
|
finally
|
||
|
|
FreeAndNil(auxIBAN);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|