function addfav()
   {
   if (document.all)
      {
      window.external.AddFavorite
      ("http://www.softrioja.com","SoftRioja Informática para bodegas")
      }
   }

function algoritmoSR(){
	var vector = new Array("T","R","A","G","M","F","P","D","X","B","N","J","Z","S","V","H","L","C","E");
	var usuario = document.formulario.usuario.value;
	var usuarioS = new String(usuario);
	if (usuarioS.length!=5){
		//alert("Usuario incorrecto");
		return false;
	}else{
		var digitosS = usuarioS.substring(0,3);
		
		var digitosN = new Number(digitosS);
		if (isNaN(digitosN)){
			//alert("No son digitos");
			//alert("Incorrecto NaN");
			return false;
		}else if ( (digitosN<101) || (digitosN>599) ){
			//alert("Incorrecto OutR");
			return false;
		}else{
			//alert(digitosN);
			var resto_truncado = digitosN%19;
			//alert("Resto truncado: "+resto_truncado);
			var cuarto_digito = vector[resto_truncado];
			if (cuarto_digito.toLowerCase()==(usuarioS.substring(3,4)).toLowerCase()){
				// Correcto
			}else{
				//alert("Incorrecto 4c: "+cuarto_digito.toLowerCase());
				return false;
			}
			//alert("Cuarta caracter: "+cuarto_digito);
			var centenas = parseInt(digitosN/100);
			//alert(centenas);
			var decenas =  parseInt((digitosN%100)/10);
			//alert(decenas);
			var unidades = (digitosN%100)%10;
			//alert(unidades);
			var suma = centenas + decenas + unidades;
			var quinto_caracter = suma;
			if (suma>9){
				quinto_caracter = parseInt(suma/10)+suma%10;
			}
			//alert(quinto_caracter);
			if (quinto_caracter==usuarioS.substring(4,5)){
				//alert("Correcto");
			}else{
				//alert("Incorrecto 5c");
				return false;
			}
			//var suma = centenas+decenas+;
			//alert("Quinto caracter: "+);
		}
	}
	return true;
}