roberto
355542a949
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@111 93f398dd-4eb6-7a46-baf6-13f46f578da2
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.
|