function EsMayorCero(numero_a)
{
	var numero_a_sc;
	var numero_a_sp='';
	var resultado;
	var ar1 =new Array();

		
	/* Quitar comas */
	pos = numero_a.indexOf(",");
	if (pos>0)
		numero_a_sc=numero_a.substring(0,pos)+numero_a.substring(pos+1,numero_a.length);
	else
		numero_a_sc=numero_a;

	/* Quitar puntos */
	ar1 = numero_a_sc.split(".");
	for(var i=0; i<ar1.length; i++)
	{
		numero_a_sp=numero_a_sp+ar1[i];	
	}
	
	resultado=numero_a_sp/1;
	if(resultado>0)
		return 0
	
	return 1;
}
function CompararNumero(numero_a, numero_b)
{
	var numero_a_sc;
	var numero_a_sc_sp='';
	var ar1 =new Array();
	
	pos = numero_a.indexOf(",");
	if (pos>0)
		numero_a_sc=numero_a.substring(0,pos);
	else
		numero_a_sc=numero_a;
	
	ar1 = numero_a_sc.split(".");
	
	for(var i=0; i<ar1.length; i++)
	{
		numero_a_sc_sp=numero_a_sc_sp+ar1[i];	
	}
	
	if(ar1.length>0)
		numero_a_sc=numero_a_sc_sp;

	if (numero_a_sc > numero_b)
		return 1;
	else if (numero_a_sc < numero_b)
		return -1;
	
	return 0;
}

function AbreVentana(mypage, myname, w, h, scroll)
{
	var winl = (screen.width - w) / 2;
	var wint = (screen.height - h) / 2;
	winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable=no';
	win = window.open(mypage, myname, winprops);
	win.window.focus();
}

//Comprueba que el dato introducido es un entero
function esNumero(inputStr) {
    if (inputStr.length==0)
        return false;
	for (var i = 0; i < inputStr.length; i++) {
		var oneChar = inputStr.charAt(i);
		if (oneChar < "0" || oneChar > "9") {
		    return false;
		}
	}
	return true;
}

//Comprueba si el campo esta vacio
function Vacio(campo) {
	var matchString  = campo.value;
	if (!matchString ) {
	  	return 0;
	} else {
		return 1;
	}
}

//Quitar blancos 
function QuitarBlancos(Valor)
{
       	i=0;
 	aux="";
	while((i<Valor.length) && (Valor.substring(i,i+1)!=" ")) 
	{
		aux=aux+Valor.substring(i,i+1);
		i++;
	}

	return aux;
}

function QuitarBlancosFinal(Valor)
{
	i=Valor.length;
	while((i>0) && (Valor.substring(i,i-1)==" "))
	i--;
	aux=Valor.substring(0,i);
	return aux;
}
	
function QuitarBlancosInicio(Valor)
{
	i=0;
	aux="";
	while ((i<Valor.length) && (Valor.substring(i,i+1)==" "))
	i++;
	aux=Valor.substring(i,Valor.length);
	return aux;
}


function QuitarCerosInicio(Valor)
{
	i=0;
	aux="";
	while ((i<Valor.length) && (Valor.substring(i,i+1)=="0"))
	i++;
	aux=Valor.substring(i,Valor.length);
	return aux;
}


//Quitar comas
function QuitarComas(Valor)
{
   	i=0;
 	aux="";	
	while(i<Valor.length) 
	{
	    if (Valor.substring(i,i+1)!=",")
		    aux=aux+Valor.substring(i,i+1);
		i++;
	}

	return aux;
}


function ValidaLinea(Valor,Tipo)
{
	if(Valor.length==0)
	{
		if(Tipo==0)
			aux="Introduzca una l\u00EDnea para consultar";
		else
			aux="Introduzca una l\u00EDnea para darla de alta";
		
		return aux;
	}
	else if (!esNumero(Valor))
	{
		aux="El identificativo de l\u00EDnea debe ser num\u00E9rico";
		return aux;
	}
	else if(Valor.length==9)
		return 0;
	else
	{	
		aux="El identificativo de l\u00EDnea debe tener longitud 9";
		return aux;
	}	
}

function ValidaCodigo(Valor,Tipo)
{
	if (!esNumero(Valor))
	{
		aux="El identificativo del Pa\u00EDs debe ser num\u00E9rico";
		return aux;
	}
	
	return 0;
}


function ValidaPais(Valor,Tipo)
{
	if(Valor.length==0)
	{
		if(Tipo==0)
			aux="Introduzca un Pa\u00EDs para consultar";
		else
			aux="Introduzca una Pa\u00EDs para darla de alta";
		
		return aux;
	}
	else if (esNumero(Valor))
	{
		aux="El identificativo del Pa\u00EDs no debe tener numeros";
		return aux;
	}
	
	return 0;
}

function ValidaSerie(Valor,Tipo)
{
	if(Valor.length==0)
	{
		if(Tipo==0)
			aux="Introduzca una Serie para consultar";
		else
			aux="Introduzca una Serie para darla de alta";
		
		return aux;
	}
	else if (!esNumero(Valor))
	{
		aux="El identificativo de Serie debe ser num\u00E9rico";
		return aux;
	}
	else if(Valor.length==6)
		return 0;
	else
	{	
		aux="El identificativo de Serie debe tener longitud 6";
		return aux;
	}	
}

function ComprobarGuiones(Valor)
{
    if ((Valor.charAt(0)=='-') && (Valor.charAt(1)=='-'))
	    return true;
	else
	    return false;
}

//Comprueba que el dato introducido es numérico (entero o decimal)
function ComprobarCampoNumerico(credito)
{
	numerico=true;
	aux_credito="";
	aux_credito2="";
	var aux;
	pos = credito.indexOf(".");
	if (pos>=0)
		aux_credito=credito.substring(0,pos)+credito.substring(pos+1,credito.length);
	else
		aux_credito=credito;
	
	pos = aux_credito.indexOf(",");
	if (pos>0)
	{
		if (esNumero(aux_credito.substring(0,pos))&&esNumero(aux_credito.substring(pos+1,aux_credito.length)))
			aux_credito2=aux_credito.substring(0,pos)+"."+aux_credito.substring(pos+1,aux_credito.length);
		else
			numerico=false
	}
	else
	{
		if (esNumero(aux_credito))
			aux_credito2=aux_credito;
		else
			numerico=false;
	}
	return numerico;
}

//Comprueba que el dato introducido es mayor que cero
function ComprobarValorCero(credito)
{
	numerico=true;
	aux_credito="";
	aux_credito2="";

	pos = credito.indexOf(".");
	if (pos>=0)
		aux_credito=credito.substring(0,pos)+credito.substring(pos+1,credito.length);
	else
		aux_credito=credito;
	
	pos = credito.indexOf(",");
	if (pos>=0)
		aux_credito2=credito.substring(0,pos)+credito.substring(pos+1,credito.length);
	else
		aux_credito2=credito;

	if ((parseInt(aux_credito) == 0)&& (parseInt(aux_credito2) == 0))
		numerico = false;	
	
	return numerico;
}

// Funcion que comprueba si el navegador acepta cookies 
function acepta_cookies() 
{
	var copia_cookie ; 
	copia_cookie = unescape (document.cookie) ; 
	if (copia_cookie.length == 0)  // Miramos si el navegador acepta cookie
	{
		document.cookie = escape ("Prueba Cookie") ; 
		copia_cookie = unescape (document.cookie) ; 
		if (copia_cookie.length == 0) 
			{ 	// El navegador no accepta cookie 
			//alert ('Su navegador no acepta cookies. Puede configurarlo para que las acepte, o usar la página http://www.enteogenos.com/items.htm para realizar el pedido.') ; 	
			return false;
			}
		if (copia_cookie.length != 0) 
			{  
			// El navegador acepta cookie 
			//alert ('Su navegador acepta cookies. Puede utilizar la cesta de la compra sin problema.') ; 	
			
			// Accept cook; tornem a deixar les vars com era
			copia_cookie = "" ; 
			document.cookie = escape ("") ; 
			return true;
			}		
	}
	if (copia_cookie.length != 0)  
	{
		// El navegador acepta cookie 
		//alert ('Su navegador acepta cookies. Puede utilizar la cesta de la compra sin problema.') ; 	
		return true;
	}
}

function EstadoActivo()
{
	if (top.superior.estado_activo)
	{
		return true;
	}
	else
	{
		return false;
	}
}

function PonerEstadoActivo()
{
	top.superior.estado_activo=true;
}
function PonerEstadoInactivo()
{
	top.superior.estado_activo=false;
	
}

function OpenerEstadoActivo()
{
	if (opener.parent.top.superior.estado_activo)
	{
		return true;
	}
	else
	{
		return false;
	}
}

function PonerOpenerEstadoActivo()
{
	opener.parent.top.superior.estado_activo=true;
}
function PonerOpenerEstadoInactivo()
{
	opener.parent.top.superior.estado_activo=false;
	
}

//Funcion para imprimir listados
function ImprimirDetalleTarifa(form, servlet, oper, anagrama_html)
{
	var winl = (screen.width - 800) / 2;
	var wint = (screen.height - 600) / 2;
	winprops = 'height=600,width=800,top='+wint+',left='+winl+',scrollbars=yes,noresize'
	win=open(anagrama_html+"vacio.htm","imprimir",winprops);
	form.Operacion.value=oper;
	pagina=form.anagrama.value + servlet;
	form.action=pagina;
	form.target="imprimir";
	form.submit();
}

//Funcion para imprimir listados
function ImprimirDetalleRecargo(form, servlet, oper, anagrama_html)
{
	var winl = (screen.width - 800) / 2;
	var wint = (screen.height - 600) / 2;
	winprops = 'height=600,width=800,top='+wint+',left='+winl+',scrollbars=yes,noresize'
	win=open(anagrama_html+"vacio.htm","imprimir",winprops);
	form.Operacion.value=oper;
	pagina=form.anagrama.value + servlet;
	form.action=pagina;
	form.target="imprimir";
	form.submit();
}

//Funcion para imprimir listados del informe de saldo de series
function ImprimirListadoSaldo(form, servlet, oper, anagrama_html)
{
	var winl = (screen.width - 1000) / 2;
	var wint = (screen.height - 600) / 2;
	winprops = 'height=600,width=1000,top='+wint+',left='+winl+',scrollbars=yes,noresize'
	win=open(anagrama_html+"vacio.htm","imprimir",winprops);
	form.Operacion.value=oper;
	pagina=form.anagrama.value + servlet;
	form.action=pagina;
	form.target="imprimir";
	form.submit();
}

//Funcion para imprimir listados
function Imprimir(form, servlet, oper, anagrama_html)
{
	var winl = (screen.width - 670) / 2;
	var wint = (screen.height - 500) / 2;
	winprops = 'height=500,width=670,top='+wint+',left='+winl+',scrollbars=yes,noresize'
	win=open(anagrama_html+"vacio.htm","imprimir",winprops);
	form.Operacion.value=oper;
	pagina=form.anagrama.value + servlet;	
	form.action=pagina;
	form.target="imprimir";
	form.submit();
}

//Funcion para imprimir listados
function ImprimirDetalle(form, servlet, oper, pagina_html)
{
	var winl = (screen.width - 670) / 2;
	var wint = (screen.height - 500) / 2;
	winprops = 'height=500,width=670,top='+wint+',left='+winl+',scrollbars=yes,noresize'
	win=open(pagina_html,"imprimir",winprops);
	form.Operacion.value=oper;
	pagina=form.anagrama.value + servlet;
	form.action=pagina;
	form.target="imprimir";
	form.submit();
}

//Comprueba que la direccion ip es correcta
function esIP(inputStr) {
    var tokens; 
    tokens=inputStr.split(".");
    if(tokens[4]){
		return false;
    }
	for(i=0;i<4;i++){
		if(!tokens[i]){
			return false;
		}
		if(!esNumero(tokens[i])){
			alert("La direcci\u00F3n IP debe estar formada por n\u00FAmeros.");
			return false;
		}
		var Numero=parseInt(tokens[i]);
		if(Numero>255){
			return false;
		}
	}
	return true;
}

//Comprueba que el identificador esté compuesto solo de letras, números, "-" o "_"
function ChequearIdentificador(Valor)
{	
	for (var i = 0; i < Valor.length; i++) {
		var oneChar = Valor.charAt(i);
		
		if (!((oneChar >= "0" && oneChar <= "9" )|| 
				oneChar == "-" ||oneChar == "_" || 
				oneChar == "ñ" ||oneChar == "Ñ" ||
					(oneChar >= "a" && oneChar <="z") ||
						(oneChar >= "A" && oneChar <="Z" ))){
		  return false;
		}
	}
	return true;
}

//Comprueba que el identificador esté compuesto solo de letras, números
function ChequearIdentificador2(Valor)
{	
	for (var i = 0; i < Valor.length; i++) {
		var oneChar = Valor.charAt(i);
		
		if (!((oneChar >= "0" && oneChar <= "9" )|| 
				oneChar == "ñ" ||oneChar == "Ñ" ||
					(oneChar >= "a" && oneChar <="z") ||
						(oneChar >= "A" && oneChar <="Z" ))){
		  return false;
		}
	}
	return true;
}

function LimitaLongitud(campo,longitud)
{
	aux_valor=campo.value;
	if (aux_valor.length>longitud)
		campo.value=aux_valor.substring(0,longitud);
}

function comienzaCon(cadena,valor)
{
	if (cadena.charAt(0)==valor)
		return true;
	else
		return false;
}

//Rellena el valor con ceros a la izquierda considerando su longitud total
function RellenaCerosIzq(Valor, longitud_total)
{	
    var aux = Valor;
    if(Valor.length < longitud_total && Valor.length > 0){
    
       var total = longitud_total - Valor.length;       
       var relleno = "";
       
	    for (var i = 0; i < total; i++) {
		    relleno +="0";				
		    }
		aux = relleno + Valor;
    }			
   return aux;
}

//Poner Separadores de Miles - para pasar de un formato:
// 12345.44  >> 12.345,44
// FLT 23/09/2004
function PonerSeparadoresMiles(Valor)
{
   	i=0;
   	j=0;   	
   	k=0;
   	fin=0;
   	inicial = "";
   	inicial = String(Valor);
   	fin=inicial.length;
 	aux="";	
 	aux1=""; 	
 	aux2=""; 	 	
 	pos = 0;
 	// localizo la coma 
	while(i<fin) 
	{
	    if ((inicial.substring(i,i+1))==".")
	      {
		    j=i+1;
		    aux2=","+inicial.substring(j,fin);
		    i=fin;
		  }
		i++;
	}

    i=j;    
    // si no hay coma, guardo en aux 1 todo
    if (i>0)
        aux1=inicial.substring(0,i-1);
    else
        aux1=inicial;      
                    
    // voy de la coma hasta el fin
    pos=i-1;
	while (pos>3)
		{
			aux1 = aux1.substring(0,pos-3)+"."+aux1.substring(pos-3,aux1.length);
			pos = pos - 3;
		}    
	return aux1+aux2;
}

// Funcion para asignar el nombre del distribuidor en la busqueda
// JSR Nov04

function AsignarDistribuidor(codigo,nombre)
{
	opener.form1.id_distribuidor.value=codigo;
	opener.form1.nombre_distribuidor.value=nombre;
	if (window.name == "pedidos")
        opener.ConsultarDirecciones();
	this.close();
}

function AsignarProducto(nombre, valor)
{
	if (window.name == "pedidos_may")
	{
    	opener.form1.nuevo_prod.value="";
    	opener.form1.viejo_prod.value=nombre;
    	opener.form1.radio_prod[1].checked = true;
    	opener.form1.viejo_prod.focus();
        opener.ConsultaProducto();
    }
    else
    {
    	opener.form1.producto.value=nombre;
    	opener.form1.id_producto.value=valor;
    }
	this.close();
}


// Abrir ventana de leyenda

//Funcion para imprimir listados
function AbrirLeyenda(form, servlet, oper, anagrama_html)
{
	var winl = (screen.width - 550) /3;
	var wint = (screen.height - 790) ;
	winprops = 'height=540,width=550,top='+wint+',left='+winl+',scrollbars=no,noresize'
	win=open(anagrama_html+"vacio.htm","leyenda",winprops);
	form.Operacion.value=oper;
	pagina=form.anagrama.value + servlet;	
	form.action=pagina;
	form.target="leyenda";
	form.submit();
}

//Funcion para imprimir listados EXCEL
function mostrarlayer()
{

	  setTimeout("PonerEstadoActivo();",5000);
}

//Funcion para validar el identificativo de un producto venta (fm)
function ValidaPrVen(Valor,Tipo)
{
	if(Valor.length==0)
	{
		if(Tipo==0)
			aux="Introduzca un producto venta para consultar";
		else
			aux="Introduzca un producto venta para dar de alta";
		
		return aux;
	}
	else if (!esNumero(Valor))
	{
		aux="El identificativo del producto venta debe ser num\u00E9rico";
		return aux;
	}
	else if(Valor.length==2)
		return 0;
	else
	{	
		aux="El identificativo del producto venta debe tener longitud 2";
		return aux;
	}	
}

function validaEmail(valor_campo){

 var ar1 =new Array();
 var ar2 =new Array();
 var texto_ant="";
 var texto_pos="";
 var texto="";

 if (valor_campo.length!=0)
 {
 	if (valor_campo.indexOf("@")==-1)
 	{
		return false;
 	}
 	else
 	{
 		if (valor_campo.indexOf(" ")>=0)
 			return false;
 	
 	
 	 ar1 = valor_campo.split("@");
 	 if (ar1.length==2)
 	 {
 		texto_ant=ar1[0];
 		texto_pos=ar1[1];
 		if (texto_ant.length==0||texto_pos.length==0)
 			return false;
 		ar2=texto_pos.split(".");
 		if (ar2.length>0)
 		{
 			for(var i=0;i<ar2.length;i++)
 			{
 				texto=ar2[i];
 				if (texto.length==0)
 					return false;
 				
 			}
 		}
 		return true;
 		
 	 }
 	 else
 	  	return false
 	}
 	
  
 }
 else
	return true;
}

//Comprueba que una dirección de email tiene el formato correcto
  function validaDireccion(cadena)
  {
    var aux_token=new Array();
    var aux_pos = 0;
    var aux_pos2 = 0;
    var aux_nomb="";
    var aux_nomb2="";
    var aux_cadena="";
    var cadena_resul="";
    aux_token=cadena.split(",");
    var resul="";
    for (var i=0;i<aux_token.length;i++)
    {
        aux_nomb=aux_token[i];
        aux_nomb=QuitarBlancosInicio(aux_nomb);
    	aux_nomb=QuitarBlancosFinal(aux_nomb);
    	if (aux_nomb.length==0)
    		return " ";
    	aux_pos=aux_nomb.indexOf("<");
        aux_pos2=aux_nomb.indexOf(">");
    	if ((aux_pos>0)||(aux_pos2>0))
    	{
    		return aux_nomb;
    	}
    	else if (!validaEmail(aux_nomb))
    		return aux_nomb;
    	
     }
     return resul;
  }