[GUFA] Algoritmo CUIT

Wed, 08 Nov 2006 19:36:15 -0800

Title: Ms chart 8.0
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

Responder a