Calculo del digito de control del CIF/NIF

Scripting Sharing

Calculo del digito de control del CIF/NIF

Notapor fsans » 10 Abr 2008, 10:03

  1. cDigitControl=Mod(110-(
  2. TextToNum(Middle(mantisa;2;1))+
  3. TextToNum(Middle(mantisa;4;1))+
  4. TextToNum(Middle(mantisa;6;1))+
  5. Int(TextToNum(Middle(mantisa;1;1))*11/5)+
  6. Int(TextToNum(Middle(mantisa;3;1))*11/5)+
  7. Int(TextToNum(Middle(mantisa;5;1))*11/5)+
  8. Int(TextToNum(Middle(mantisa;7;1))*11/5)
  9. ); 10)


Donde el campo "mantisa" es de tipo texto, y contiene solamente el siguiente
trozo del CIF "PPNNNNN" (es decir eliminando la letra inicial, posibles
puntos, guiones de separación u otros caracteres no numéricos).

Si a alguien le sorprende el 110 inicial dentro de la fórmula Mod (módulo:
resto de la división entera), es debido a que FileMaker ha implementado una
función mod curiosa, que devuelve un valor negativo si el argumento es
negativo. Para asegurarme que el resultado es siempre positivo, he sumado al
argumento ese 110.
Avatar de Usuario
fsans
Site Admin
 
Mensajes: 553
Registrado: 09 Abr 2008, 11:04
Ubicación: Barcelona

Re: Calculo del digito de control del CIF/NIF

Notapor copyvalls » 26 Feb 2010, 01:32

Gracias por la ayuda!
copyvalls
 
Mensajes: 37
Registrado: 05 Feb 2010, 18:59
Ubicación: Tarragona


Volver a Code <c> Tips and Tricks



¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron