FiveTech Support Forums

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>

void algoritmo (int documento[8], int opcion, int &xy, int &z){
    int aux=0, i=0;

   if(opcion==1){
    aux=2*5+0*4;
   }
   if(opcion==2){
    aux=2*5+7*4;
   }
   if(opcion==3){
    aux=3*5+0*4;
   }

   for(i=0;i<8;i++){
    if(i==0){
        aux+=documento[i]*3;
      }
      if(i==1){
        aux+=documento[i]*2;
      }
      if(i==2){
        aux+=documento[i]*7;
      }
      if(i==3){
        aux+=documento[i]*6;
      }
      if(i==4){
        aux+=documento[i]*5;
      }
      if(i==5){
        aux+=documento[i]*4;
      }
      if(i==6){
        aux+=documento[i]*3;
      }
      if(i==7){
        aux+=documento[i]*2;
      }
   }

   if(aux%11==0){
    z=0;
      if(opcion==1){
        xy=20;
    }
    if(opcion==2){
        xy=27;
    }
    if(opcion==3){
        xy=30;
    }
   }

   if(aux%11==1){
    if(opcion==1){
        xy=23;
         z=9;
      }
      if(opcion==2){
        xy=23;
         z=4;
      }
   }

   if((aux%11!=1)&&(aux%11!=0)){
    z=11-aux%11;
      if(opcion==1){
        xy=20;
    }
    if(opcion==2){
        xy=27;
    }
    if(opcion==3){
        xy=30;
    }
   }

}

main(){
int documento[8], z=0, xy=0, opcion=0, i=0;
char aux1, aux2[8];

printf("== Algoritmo para obtener CUIL / CUIT ==\n\n");

printf("\t Seleccione Tipo (Persona Fisica o Juridica):\n");
printf("\n\t 1 - Hombre");
printf("\n\t 2 - Mujer");
printf("\n\t 3 - Sociedad (Empresa)\n\t ");

aux1=getch();
opcion=atoi(&aux1);

printf("\n\t Ingrese numero de documento (sin puntos): ");

for(i=0;i<8;i++){
    documento[i]=0;
    aux2[i]=getch();
   documento[i]=atoi(&aux2[i]);
   printf("%d",documento[i]);
}

algoritmo(documento,opcion,xy,z);

printf("\n\n\t Su numero de CUIL / CUIT es: ");
printf("%d - ",xy);
for(i=0;i<8;i++){
   printf("%d",documento[i]);
}
printf(" - %d",z);

printf("\n\n\t Creado por Nahuel Sanchez (<!-- m --><a class="postlink" href="http://www.leegar.com.ar">http://www.leegar.com.ar</a><!-- m -->).\n\t Presione una tecla para salir.");
getch();
}

Function VerificaCuil()
                        
Local i
Local nTotal
Local cCuil
Local naDigitos
Local nEnteroDivision
Local nTotalOperacion
Local cCadena         := ""
Local anMultiplicador := { 5, 4, 3, 2, 7, 6, 5, 4, 3, 2 }

DbSelectArea( "padron" )
padron -> ( DbGoTop() )
padron -> ( OrdSetFocus( "nombre" ) )
While( padron -> ( !Eof() ) )
   If( !Empty( padron -> cuil ) )
      cCuil := StrTran( padron -> cuil, "-", "" )
      naDigitos := {}
      For i := 1 To 10
         Aadd( naDigitos, Val( SubStr( cCuil, i, 1 ) ) * anMultiplicador[ i ] )
      Next i
      nTotal := 0
      For i := 1 To 10
         nTotal += naDigitos[ i ]
      Next i
      nEnteroDivision := Int( nTotal / 11 )
      nTotalOperacion := nTotal - ( nEnteroDivision * 11 )
      If( nTotalOperacion == 0 )
         If( SubStr( cCuil, 11, 1 ) == "0" )
         Else
            cCadena += cCuil + Space( 3 ) + padron -> nombre + CRLF
         End
      Else
         If( SubStr( cCuil, 11, 1 ) == Alltrim( Str( 11 - nTotalOperacion ) ) )
         Else
            cCadena += cCuil + Space( 3 ) + padron -> nombre + CRLF
         End
      End
   End
   padron -> ( DbSkip() )
Enddo
If( !Empty( cCadena ) )
   MsgStop( cCadena, "No verifica su C.U.I.L" )
End

Return 0