_solfmValidarCUIT ( CUIT )

Valida el número de CUIT de Argentina

Average rating: 4.5 (26 votes) Log in to vote

Diego DAlessio
Soluciones FileMaker
http://www.solucionesfilemaker.com

Sample input:

_solfmValidarCUIT(20245602260)

Sample output:

Correcto

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Let (
[
p1=Middle(CUIT;1;1)*5;
p2=Middle(CUIT;2;1)*4;
p3=Middle(CUIT;3;1)*3;
p4=Middle(CUIT;4;1)*2;
p5=Middle(CUIT;5;1)*7;
p6=Middle(CUIT;6;1)*6;
p7=Middle(CUIT;7;1)*5;
p8=Middle(CUIT;8;1)*4;
p9=Middle(CUIT;9;1)*3;
p10=Middle(CUIT;10;1)*2;
result=Mod ((p1+p2+p3+p4+p5+p6+p7+p8+p9+p10);11);

verificador=Case
 (
result = 0;0;

result = 11;0;
result = 10;1;
result ≤ 9;11-result
)
];


Case (CUIT=Middle(CUIT;1;10)&verificador;"Correcto";"Error "& result)
)

Esta función permite incoporar un número de CUIT y determinar si el mismo es correcto o no. En caso de Error, devuelve el Error y el número que debería tener como dígito verificador. Es así que si escribo 2024560226 Daría Error 0

Comments

		comment, VR Jun 11, 2011
"Case ( result =11;... " That's NOT going to happen.

		comment, VR Jun 11, 2011
I think this could be simplified to = Let ( [ p = Sum ( 5 * Middle ( CUIT ; 1 ; 1 ) ; 4 * Middle ( CUIT ; 2 ; 1 ) ; 3 * Middle ( CUIT ; 3 ; 1 ) ; 2 * Middle ( CUIT ; 4 ; 1 ) ; 7 * Middle ( CUIT ; 5 ; 1 ) ; 6 * Middle ( CUIT ; 6 ; 1 ) ; 5 * Middle ( CUIT ; 7 ; 1 ) ; 4 * Middle ( CUIT ; 8 ; 1 ) ; 3 * Middle ( CUIT ; 9 ; 1 ) ; 2 * Middle ( CUIT ; 10 ; 1 ) ) ] ; Case ( Middle ( CUIT ; 11 ; 1 ) = Mod ( -p ; 11 ) ; "Correcto" ; "Error" ) )

		Diego DAlessio, Vicente Lopez Jun 13, 2011
Thanks, you're right the simplified version looks nicer. The previous one I posted was the "work in progress". Thanks a lot! DD

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

_solfmValidarCUIT ( CUIT )

Comments

Support this website.

Support this website.