Validar Nro de CUIT (Argentina)
Alberto Oscar Pardini
Alguien conoce el algoritmo para validad los numeros de CUIT.
Hace unos meses lo he visto en este grupo, pero lamentablemente en su
momento no lo copie.
Muchas Gracias
Alberto Oscar Pardini
Julian
intento hacerlo.....(me tengo fe)
æææ
æ æ
æ æ æ
___æ_æ_æ_____________________________________
æ æ
æ æ JULIAN MAISANO ® / ® 1976
æ æ La Plata - Argentina
æ æ
ææ
Maisa...@Crosswinds.net
_______________________________________________
Alberto Oscar Pardini <apar...@infovia.com.ar> escribió en el mensaje de
noticias OcOxd1aa$GA.280@cppssbbsa04...
GUILLERMO NARDONI
xx-dni-x
--
Atte.
Guillermo Nardoni
guill...@hotmail.com
ICQ 31986836
Rosario - Argentina
Julian <maisa...@yahoo.com> escribió en el mensaje de noticias
#lc014ea$GA.255@cppssbbsa04...
Ariom
te sirva.
El mismo ya esta más que probado y funciona perfecto.
Suerte Diego Caro
Public Function Cuit(strNro As String) As Integer
Dim t As Integer, S As Integer, Verif As Integer
S = 0
S = Val(Mid(strNro, 1, 1)) * 5
S = S + Val(Mid(strNro, 2, 1)) * 4
S = S + Val(Mid(strNro, 3, 1)) * 3
S = S + Val(Mid(strNro, 4, 1)) * 2
S = S + Val(Mid(strNro, 5, 1)) * 7
S = S + Val(Mid(strNro, 6, 1)) * 6
S = S + Val(Mid(strNro, 7, 1)) * 5
S = S + Val(Mid(strNro, 8, 1)) * 4
S = S + Val(Mid(strNro, 9, 1)) * 3
S = S + Val(Mid(strNro, 10, 1)) * 2
t = S Mod 11
t = 11 - t
If t = 11 Then
Verif = 0
ElseIf t = 10 Then
Verif = 9
Else
Verif = t
End If
Cuit = Verif
End Function
Julian
la solucion que propones no esta mal... pero creo que no tiene demasiado
sentido incluir un OCX solo para eso, no te parece?
!!!!---.....
ppro
C.U.I.T. 30-53928292-8 (Un numero de cuit valido)
54 32765432
a cada posición se le asigna un numero, comenzando por el 5 luego se le
resta 1 hasta llegar a 2 después comienza por el 7 y se le comienza a restar
otra vez
Luego se multiplica cada dígito por el dígito correspondiente
5 * 3 = 15
4 * 0 = 0
3 * 5 = 15
2 * 3 = 6
7 * 9 = 63
6 * 2 = 12
5 * 8 = 40
4 * 2 = 8
3 * 9 = 27
2 * 2 = 4
190.-
A continuación se suman todos los parciales
(15+0+15+6+63+12+40+8+27+4)=190
y con el resultado se averiguo esto:
(190 MOD 11) = 0 si da cero el dígito verificador es 0
si es distinto hay que hacer esto:
(11 - (192 MOD 11) ) = 8
20-12446861-3
54 32765432
5 * 2 = 10
4 * 0 = 0
3 * 1 = 3
2 * 2 = 4
7 * 4 = 28
6 * 4 = 24
5 * 6 = 30
4 * 8 = 32
3 * 6 = 18
2 * 1 = 2
--------
131
Todo esto entrega el digito verificador, que corresponde al numero de la
derecha seguido por el guion.
El numero a la izquierda antes del guion representa al tipo de empresa.
Eduardo G. Silva
GUILLERMO NARDONI <guill...@hotmail.com> escribió en el mensaje de
noticias OqYLAema$GA....@cppssbbsa02.microsoft.com...
> Los número de quit están formados por
>
> xx-dni-x
>
>
>
>
> --
> Atte.
>
> Guillermo Nardoni
> guill...@hotmail.com
> ICQ 31986836
> Rosario - Argentina
> Julian <maisa...@yahoo.com> escribió en el mensaje de noticias
> #lc014ea$GA.255@cppssbbsa04...
> > Alberto, si me decis como estan formados los numeros de CUIT/CUIL,,,,
> > intento hacerlo.....(me tengo fe)
> >
> > æææ
> > æ æ
> > æ æ æ
> > ___æ_æ_æ_____________________________________
> > æ æ
> > æ æ JULIAN MAISANO ® / ® 1976
> > æ æ La Plata - Argentina
> > æ æ
> > ææ
> > Maisa...@Crosswinds.net
> > _______________________________________________
> >
> >
Eduardo G. Silva
funcion porque me devuelve un entero pero no entiendo bien que es lo que
significa en un momento supuse que el cuit tenia una validacion interna o
algo asi con el ultimo numero pero lo puse en una agenda de un sistema con
cuits y no encuentro la relacion.
Me desAsnas, Gracias
Eduardo
Ariom <ario...@usa.net> escribió en el mensaje de noticias
uV2zx4#a$GA.265@cppssbbsa05...
Eduardo G. Silva
uso un control activex donde hago todas las validaciones y me parece que es
mas interesante no dejarle al usuario escribir lo que no tenga que escribir
por eso capto el evento key pres en el control.
Con lo cual agrego un ocx al instalador pero me ahorro todas las
validaciones.
Julian <maisa...@yahoo.com> escribió en el mensaje de noticias
ey4ENQAb$GA.265@cppssbbsa05...
> Eduardo...
> la solucion que propones no esta mal... pero creo que no tiene demasiado
> sentido incluir un OCX solo para eso, no te parece?
>
> !!!!---.....
>
Ariom
sea si le pasas a la funcion: 2012345678 (Siendo el DNI : 12345678)
esta te devuelve el digito verificador.
20-12345678-"Digito Verificador Entregado por la Funcion"
O sea la funcion la puedes usar para calcular el digito verificador de un
CUIT/CUIL o bien para comparar el digito devuelto por la función con el
ultimo digito del CUIT/CUIL y con eso saber si es correcto o no.
Espero haberme explicado.
Cualquier consulta avisame.
Eduardo G. Silva <aes...@infovia.com.ar> wrote in message
news:enyTI$Cb$GA.297@cppssbbsa05...
Sebastian Deymonnaz
Gracias,