/* 
 - Función: dni.wmls
 - Paramétro de entrada(dni-> explicito, y letra->explícito) 
 - Características:
    · Comprueba la veracidad del NIF con el DNI y la letra asignada
 - Version: 0.1
 - Compatible WMLScript 1.1
 ==========================================================================
 Programado por Jose Luis Narbona Moreno
 Copyright Jose Luis Narbona Moreno 2.000
 Licencia Libre de USO para fines no comerciales
 Esta permitido reproducir total o parcialmente este código, siempre y 
 cuando sea para fines educativos y no comerciales
 Para comentarios o sugerencias:
    jlnarbona@mundofree.com
 ==============================================================================
*/ 

extern function DNI(dni)
{
var letra = WMLBrowser.getVar("letra");
var l;
var resto; 
var p=String.charAt(dni,0);
 



   if (p==0)
     dni = String.removeAt(dni,0,"0");  

if ( dni > 0 && dni < 99999999 )
 {
   resto = dni % 23;
     if(resto==0) 
	      l="T";
     if(resto==1)
         l="R";
     if(resto==2) 
         l="W"; 
     if(resto==3) 
         l="A"; 
     if(resto==4) 
         l="G"; 
     if(resto==5) 
         l="M"; 
     if(resto==6) 
         l="Y"; 
     if(resto==7) 
         l="F"; 
     if(resto==8) 
         l="P"; 
     if(resto==9) 
         l="D"; 
     if(resto==10) 
         l="X"; 
     if(resto==11) 
         l="B"; 
     if(resto==12) 
         l="N"; 
     if(resto==13) 
         l="J"; 
     if(resto==14) 
         l="Z"; 
     if(resto==15) 
         l="S"; 
     if(resto==16) 
         l="Q"; 
     if(resto==17) 
         l="V"; 
     if(resto==18) 
         l="H"; 
     if(resto==19) 
         l="L"; 
     if(resto==20) 
         l="C"; 
     if(resto==21) 
         l="K"; 
     if(resto==22) 
         l="E"; 
     if(resto==23) 
         l="U"; 
	
}

 
 if ((String.compare(letra,l)) == 0 )
    {
      WMLBrowser.setVar('letra',' ');
      WMLBrowser.setVar('dni',' ');
      WMLBrowser.refresh();
    WMLBrowser.go("vdni.wml#bien");
    }
  else
      {
       WMLBrowser.setVar('letra',' ');
       WMLBrowser.refresh();
       WMLBrowser.go("vdni.wml#mal");
       }
}