TheCapasoneForo
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
PortalPortal  ÍndiceÍndice  BuscarBuscar  Últimas imágenesÚltimas imágenes  RegistrarseRegistrarse  Conectarse  

 

 -Codigo- Validar Rut chileno.

Ir abajo 
AutorMensaje
arielweb2009
Superior
Superior
arielweb2009


Cantidad de envíos : 72
Puntos : 55450
Reputación : 1
Fecha de inscripción : 28/03/2009
Edad : 28
Localización : La Serena , CHILE

-Codigo- Validar Rut chileno. Empty
MensajeTema: -Codigo- Validar Rut chileno.   -Codigo- Validar Rut chileno. Icon_minitimeMar Mar 31, 2009 12:04 am

Código:
function Valida_Rut( Objeto )
{
var tmpstr = "";
var intlargo = Objeto.value
if (intlargo.length> 0)
{
crut = Objeto.value
largo = crut.length;
if ( largo <2 )
{
alert('rut inválido')
Objeto.focus()
return false;
}
for ( i=0; i <crut.length ; i++ )
if ( crut.charAt(i) != ' ' && crut.charAt(i) != '.' && crut.charAt(i) != '-' )
{
tmpstr = tmpstr + crut.charAt(i);
}
rut = tmpstr;
crut=tmpstr;
largo = crut.length;
if ( largo> 2 )
rut = crut.substring(0, largo - 1);
else
rut = crut.charAt(0);
dv = crut.charAt(largo-1);
if ( rut == null || dv == null )
return 0;
var dvr = '0';
suma = 0;
mul  = 2;
for (i= rut.length-1 ; i>= 0; i--)
{
suma = suma + rut.charAt(i) * mul;
if (mul == 7)
mul = 2;
else
mul++;
}
res = suma % 11;
if (res==1)
dvr = 'k';
else if (res==0)
dvr = '0';
else
{
dvi = 11-res;
dvr = dvi + "";
}
if ( dvr != dv.toLowerCase() )
{
alert('El Rut Ingreso es Invalido')
Objeto.focus()
return false;
}
alert('El Rut Ingresado es Correcto!')
Objeto.focus()
return true;
}
}
Volver arriba Ir abajo
http://www.arielweb2009.es.tl
 
-Codigo- Validar Rut chileno.
Volver arriba 
Página 1 de 1.
 Temas similares
-
» -Codigo-Caja de codigo
» -Codigo-Mr.pulsame
» -Codigo-desplazar
» -Codigo- Mensajes
» -Codigo-CentrarWeb

Permisos de este foro:No puedes responder a temas en este foro.
TheCapasoneForo :: Zona web master :: Codigos-
Cambiar a: