PDF de programación - FileMaker Pro - Cálculo del IBAN

Filemaker Pro 
Cálculo del IBAN 
 
SEPA son las siglas de Single European Payment Area y es una regulación de la UE que permite 
optimizar  y modernizar los pagos en la zona euro. Una de las consecuencias prácticas es el uso 
de un nuevo formato decuenta bancaria llamado IBAN. 
Esta norma se impondrá de manera global el 1/febrero/2014 por tanto se está convirtiendo 
poco a poco en algo muy común. 
 
El IBAN se forma con los dígitos CCC (20 dígitos) habituales y se anteponen las letras ES con 
unos dígitos de control que se calculan con el algoritmo mod97 y la normativa ISO aplicable. 
 
Hemos desarrollado unas funciones personalizadas para poder realizar este cálculo en 
Filemaker Pro. 
 
Las Funciones son 
 
 
/* TablaCaracterSEPA.Loop(caracter) */ 
 
/* caracter es el carácter alfanumérico del que se quiere saber el cógido 
SEPA */ 
 
Case( 
      caracter="";GetAsText(""); 
      Position("0123456789";Left(Upper(caracter);1);1;1)>0;GetAsText(Left(Upp
er(caracter);1)); 
      GetAsText(Position("ABCDEFGHIJKLMNOPQRSTUVWXYZ";Left(Upper(caracter);1)
;1;1)+9) 
) 
 
 
Esta función convierte los caracteres alfanuméricos en valores numéricos. 
 
 
 
/* TablaCaracterSEPA(valor) */ 
 
/* Convierte una cadena alfanumérica a una serie de códigos numéricos SEPA */ 
/* valor es una cadena alfanumérica */ 
 
Case( 
valor="";""; 
Let( 
[ 
 
c1=Left(valor;1); 
resto=Right(valor;Length(valor)‐1); 
 
x=TablaCaracterSEPA.Loop(c1) & TablaCaracterSEPA(resto) 
]; 
x 
) 
) 

 
 
Se puede comprobar que esta función utiliza técnica recursiva para poder convertir una 
cadena de n caracteres. 
 
 
 
/* CalculoIBANES */ 
 
/* Convierte a IBAN una cuenta en formato CCC con origen en ES (España) */ 
/* ccc cuenta de 20 dígitos */ 
 
Let( 
[ 
 
ccc_ok=Upper(Substitute(ccc;[" ";""];[".";""];["‐";""])); 
 
temp= ccc_ok & TablaCaracterSEPA ( "ES" ) & "00"; 
 
dc= 98 ‐ Mod(GetAsNumber(temp);97); 
 
x="ES" & Right("00" & GetAsText(dc);2) & ccc_ok; 
 
x=x 
]; 
x 
) 
 
 
Uno de los grandes problemas que tiene este algoritmo es que hay que manejar un número 
entero de 26 dígitos. 
Esto no es nada trivial para, incluso lenguajes de programación como Java o C++. 
Afortunadamente Filemaker Pro permite manejar hasta números enteros de hasta 400 dígitos, 
y decimales con hasta 400 dígitos en la zona de parte entera y otros tantos en la parte decimal. 
 
Que lo disfrutéis! 
 
Manuel Maresca Quintero 
[email protected] 
Desarrollador Certificado Filemaker Pro 12 
Technology Group 
Filemaker Business Alliance Platinum 
http://www.tecgroup.es 
 

Technology Group, s.l.
C/ Canoa, 14 · 28220 Majadahonda · Madrid
Tlf: + 34 916 029 243· Fax: + 34 916 029 244 · email: [email protected] · web: http://www.tecgroup.es · Mapa de
Localización 



 

CONSULTORIA DE SERVICIOS INFORMATICOS Y COMUNICACIONES DESDE 1990 
Este correo electrónico es confidencial y para uso exclusivo de la persona u organización a la que se dirige.
Cualquier opinión o consejo que se expresen en él pertenecen únicamente a su autor y no representan
necesariamente a Technology Group, S.L. Si no es usted la persona a la que se dirige este correo, no lo
copie, modifique, distribuya o utilice en ningún modo. Si ha recibido este correo por error, por favor,
comuníqueselo al remitente y bórrelo. Aunque este correo ha sido comprobado en busca de virus u otros
defectos, se declina la responsabilidad por cualquier pérdida o daño consecuencia de su recepción o uso. 
This email is confidential and intended solely for the use of the individual or organisation to whom it is
addressed. Any opinions or advice presented are solely those of the author and do not necessarily represent
those of the Technology Group, S.L. If you are not the intended recipient of this email, you should not copy,
modify, distribute or take any action in reliance on it. If you have received this email in error please notify the
sender and delete this email from your system. Although this email has been checked for viruses and other
defects, no responsibility can be accepted for any loss or damage arising from its receipt or use.