Para poder comprobar el CUIT/CUIL tenes?
Porque sabiendo eso podes generarlo a partir del numero de documento.
El que yo uso es este:
WITH thisform
LOCAL c1 as String, c2 as String, c3 as String, c4 as String, c5 as
String, c6 as String, c7 as String, c8 as String, c9 as String,;
c10 as String, c11 as String,;
nSumatoria as Number, nResto as Number, nVerificador as Number
c1 = SUBSTR(.txtCuit.value, 1, 1)
c2 = SUBSTR(.txtCuit.value, 2, 1)
c3 = SUBSTR(.txtCuit.value, 4, 1)
c4 = SUBSTR(.txtCuit.value, 5, 1)
c5 = SUBSTR(.txtCuit.value, 6, 1)
c6 = SUBSTR(.txtCuit.value, 7, 1)
c7 = SUBSTR(.txtCuit.value, 8, 1)
c8 = SUBSTR(.txtCuit.value, 9, 1)
c9 = SUBSTR(.txtCuit.value, 10, 1)
c10 = SUBSTR(.txtCuit.value, 11, 1)
c11 = SUBSTR(.txtCuit.value, 13, 1)
nSumatoria = (5 * VAL(c1) + 4 * VAL(c2) + 3 * VAL(c3) + 2 * VAL(c4)
+
7 * VAL(c5) + 6 * VAL(c6) +;
5 * VAL(c7) + 4 * VAL(c8) + 3 * VAL(c9) + 2 * VAL(c10))
nResto = MOD(nSumatoria, 11)
nVerificador = 11 - nResto
DO CASE
CASE .txtCuit.value = ' - - '
MESSAGEBOX("NO PUEDE HACER NADA SIN EL CUIT", 0 + 48,
"NUMERO
DE CUIT")
RETURN .F.
CASE LEN(ALLTRIM(.txtCuit.value)) < 13
MESSAGEBOX("FALTAN DIGITOS", 0 + 48, "NUMERO DE CUIT")
RETURN .F.
CASE INLIST(VAL(c1 + c2), 20, 23, 24, 27, 30, 33, 34) = .F.
MESSAGEBOX("NO ES UN NUMERO DE CUIT", 0 + 48, "NUMERO DE
CUIT")
RETURN .F.
CASE nVerificador = VAL(c11)
RETURN .T.
CASE nResto = 0 AND VAL(c11) = 0
RETURN .T.
OTHERWISE
MESSAGEBOX("NO ES CORRECTO ESTE NUMERO DE CUIT", 0 + 48,
"NUMERO DE CUIT")
RETURN .F.
ENDCASE
ENDWITH
Algunas aclaraciones.
Mi cuit ingresa con los 11 digitos y un par de rayitas, ej 20-12345678-9,
por eso los 13 caracteres.
Otra, el cuit se genera para hombre con el 20 inicial, luego los 8
digitos
del numero de documento, y por ultimo el digito verificador, que debe ser
un numero tal que cumpla el algoritmo anterior. Si NO hay un numero que
lo
cumpla se cambia el 20 por el 23 y 24 y se vuelve a probar.
Mujeres, el numero inicial es 27. Si no verifica el digito verificador se
cambia a 23 y 24.
Sociadades, idem con 30 y 33 y 34.
Cualquier cosa que se me haya pasado avisame
Suerte
-----Original Message-----
From: Mario Andrés Ageno <[email protected]>
To: "GUFA List Member" <[email protected]>
Date: Fri, 19 Oct 2012 12:00:23 -0300
Subject: [GUFA] Generara CUIT automatico
> Buenos Días
>
> Alguien tiene cual es la formula para generar los CUIT o CUIL de
> personas físicas o jurídicas, en base a su sexo y numero de
> documento.
>
> tengo que incorporar el cuit a una base de datos donde tengo estos
> datos, sexo, documento, personaría jurídica
>
> gracias
>
> ------
> Mario Andrés Ageno
> Analista de Sistemas
> de Computación
> Italia 2317 - 3040 San Justo (SF)
> mail: [email protected]
> web: www.maasoft.com.ar
> msn: [email protected]
