Esta función me la paso Hernán Baranda aca
en la lista, fijate si te sirve.
Saludso.
FUNCTION GenCuit(cDni,cSexo)
LOCAL
cCuit,cIniciales,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,;
nSumatoria,nResto,nVerificador,lStop
FOR i=1 TO 3
IF
cSexo='H'
DO
CASE
CASE
i=1
cIniciales="20"
CASE
i=2
cIniciales="23"
CASE
i=3
cIniciales="24"
ENDCASE
ELSE
DO
CASE
CASE
i=1
cIniciales="27"
CASE
i=2
cIniciales="23"
CASE
i=3
cIniciales="24"
ENDCASE
ENDIF
FOR j=0 TO
9
* crea un cuit y va probando
digitos verificadores
cCuit=cIniciales+cDni+STR(j,1)
* busca el digito
verificador
c1=SUBSTR(cCuit,1,1)
c2=SUBSTR(cCuit,2,1)
c3=SUBSTR(cCuit,3,1)
c4=SUBSTR(cCuit,4,1)
c5=SUBSTR(cCuit,5,1)
c6=SUBSTR(cCuit,6,1)
c7=SUBSTR(cCuit,7,1)
c8=SUBSTR(cCuit,8,1)
c9=SUBSTR(cCuit,9,1)
c10=SUBSTR(cCuit,10,1)
c11=SUBSTR(cCuit,11,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
IF
nVerificador=VAL(c11) OR (nResto=0 AND
VAL(c11)=0)
lStop=.T.
EXIT
ENDIF
NEXT
IF
lStop=.T.
EXIT
ENDIF
NEXT
RETURN(cCuit)
----- Original Message -----
----- Original Message -----
Sent: Wednesday, November 08, 2006 4:09
PM
Subject: [GUFA] Algoritmo CUIT
Hola Colegas!!
En alguna oportunidad recuerdo que alguien
mandó el algoritmo para calcular un CUIT/CUIL a partir de un DNI. Por
casualidad alguien lo tiene a mano?
Muchas Gracias
Gustavo
No virus found in this incoming message.
Checked by AVG Free
Edition.
Version: 7.0.409 / Virus Database: 268.14.0/524 - Release Date:
08/11/2006
