Validación del RUT chileno

Autor: Manuel Ferrer Catalán

El RUT es uno de los documentos de identidad que se usa en Chile (cedula de identidad) y trae un numero identificatorio para cada persona. El último dígito se obtiene a través de cálculos matemáticos a partir de los demás dígitos. Este código contiene un pequeño menú y una función para validar el RUT viendo si el último dígito es correcto.

/// FICHERO RUT2.PRG
clear
do valrutx2.prg
do while .t.
re=space(1)
rutx=0
dv=space(1)
@ 5,6 say \"Ingrese rut :\"
@ 5,28 say\"-\"
@ 5,19 get rutx pict\"99999999\" valid rutx<>0
@ 5,29 get dv pict\"@!\" valid dv$(\"0123456789K\")
read
ok=valrut(rutx,dv)
if(ok=1)
  msg({\"Rut Incorrecto\"},0,\"Atencion\")
end if
re=\' \'
@ 9,5 say \"Desea Validar Otro Rut S/N :\"
@ 9,34 get re pict\"!\" valid re $(\"sSNn\")
 read
   if (re=\'N\')
      exit
   else 
      clear
      loop
   end if
end do

/// FICHERO VALRUTX.PRG
function valrut (rutx,digi)
      rutx=strzero(rutx,8)
       n1=val(subs(rutx,1,1))
       n2=val(subs(rutx,2,1))
       n3=val(subs(rutx,3,1))
       n4=val(subs(rutx,4,1))
       n5=val(subs(rutx,5,1))
       n6=val(subs(rutx,6,1))
       n7=val(subs(rutx,7,1))
       n8=val(subs(rutx,8,1))
      p=(n8*2)+(n7*3)+(n6*4)+(n5*5)+(n4*6)+(n3*7)+(n2*2)+(n1*3)
      re=p%11
      re=int(re)
      m=11-re
      mm=space(2)
      mm=alltrim(str(m))
      if mm=\"10\"
       mm=\"K\"
      end if
      if mm=\"11\"
       mm=\"0\"
      end if
      if digi<>mm
          ok=1
        else
          ok=2
      end if
     return ok

Utilidades

	Leer comentarios (8)
	Escribir comentario
	Puntuación: (6 votos)
	Votar
	Recomendar este código
	Estadísticas

Patrocinados

Hospedaje web y servidores dedicados linux por Ferca Network