function valEmail(ctl) {
       if (ctl.value == "")
           {return true}
       if (ctl.value.indexOf(" ",0)>0 ||
           ctl.value.indexOf("@",0)==-1 ||
           ctl.value.indexOf("@",0)== 0 ||
           ctl.value.indexOf(".",0)==-1) {
        alert("\nEndereço de email inválido.");
        ctl.select();
        ctl.focus();
        return false;
        }
       ctl.value = ctl.value.toLowerCase();
    }
    function Formata_CPF(ctl)
    {
	  if (!isNull(ctl.value))
	  {
		if (ctl.value.length != 11)
		{
		 	if (
			   (ctl.value.substr(3,1) == ".") &&
			   (ctl.value.substr(7,1) == ".") &&
			   (ctl.value.substr(11,1) == "-"))
			{
			   null;
			}
			else
			{
		        alert("Valor inválido. Formato correto 999.999.999-99.");
                        ctl.focus();
                        return false;
			}
		}
		else
		{
		 	if (isNumeric(ctl.value))
			{
				 pcampo = ctl.value.substr(0,3)+"."+
					  ctl.value.substr(3,3)+"."+
					  ctl.value.substr(6,3)+"-"+
					  ctl.value.substr(9,2);
				 ctl.value = pcampo;
			}
		}
	  }
	  else
	  {
	    return null;
	  }
    }

    function Formata_CNPJ(ctl)
    {
	  if (!isNull(ctl.value))
	  {
		if (ctl.value.length != 14)
		{
		 	if (
			   (ctl.value.substr(2,1) == ".") &&
			   (ctl.value.substr(6,1) == ".") &&
			   (ctl.value.substr(10,1) == "/") &&
			   (ctl.value.substr(15,1) == "-"))
			{
			   null;
			}
			else
			{
		        alert("Valor inválido. Formato correto 99.999.999/9999-99.");
			ctl.focus();
			return false;
			}
		}
		else
		{
		 	if (isNumeric(ctl.value))
			{
			pcampo = ctl.value.substr(0,2)+"."+
			         ctl.value.substr(2,3)+"."+
			         ctl.value.substr(5,3)+"/"+
			         ctl.value.substr(8,4)+"-"+
			         ctl.value.substr(12,2);
			ctl.value = pcampo;
			}
		}
	  }
	  else
	  {
	    return null;
	  }
    }

    function valData(ctl)
	{
	 if (!(isNull(ctl.value)))
	 {
		 if (!(isDate(ctl.value)))
		 {
		 ctl.focus();
		 return false;
		 }
	 }

	}

    function valNumero(ctl)
	{
	 if (!(isNull(ctl.value)))
	 {
		 if (!(isNumeric(ctl.value)))
		 {
                  alert("O campo deve ser numérico.");
		  ctl.focus();
		  return false;
		 }
	 }
	 return true;
	}

    function valDecimal(ctl)
	{
	 if (!(isNull(ctl.value)))
	 {
		 if (!(isFloat(ctl.value)))
		 {
                 alert("Formato inválido para valores decimais. O separador de pontos decimais deve ser ponto.");
                 ctl.focus();
                 return false;
		 }
	 }
   return true; //ana 03/07/2007

	}

    function valISSN(ctl)
    {
       if (ctl.value == "") return true;
       if (ctl.value.length != 9)
           {
           alert("Formato do ISSN deve ser 9999-9999");
           ctl.focus();
           return false;
           }
       if (ctl.value.substr(4,1) != "-")
           {
           alert("Formato do ISSN deve ser 9999-9999");
           ctl.focus();
           return false;
           }
       if (!isNumeric(ctl.value.substr(0,4)) || !isNumeric(ctl.value.substr(5,4)))
           {
           alert("Formato do ISSN deve ser 9999-9999");
           ctl.focus();
           return false;
           }
       return true;
    }

    function isDigit(pchar) {
        return ("0123456789.".indexOf(pchar)>=0);
    }

    function isNumeric(ptexto) {
        var numeric = true;
        for (i=0; i < ptexto.length; i++) {
            if (!isDigit(ptexto.charAt(i)) ) {
                numeric = false;
                break;
            }
            else
		{
		if (ptexto.charAt(i) == ".")
		   {
                   numeric = false;
                   break;
 		   }
        	}
        }
        return numeric;
    }

    function isFloat(ptexto) {
        var numeric = true;
        var qtdpoint = 0
        for (i=0; i < ptexto.length; i++)
		{
         if (!isDigit(ptexto.charAt(i)) )
		 {
          numeric = false;
          break;
		 }
		 else
		 {
		   if (ptexto.charAt(i) == ".")
		   {
            qtdpoint += 1;
            if (qtdpoint > 1)
			{
               numeric = false;
               break;
			}
		   }
		 }
        }
        return numeric;
    }


    function isDate(ptexto) {
        ptexto = trim (ptexto);

        var divisao = "/";
        if (ptexto.indexOf("/") != -1) divisao = "/";
        if (ptexto.indexOf("-") != -1) divisao = "-";
        if (ptexto.indexOf(".") != -1) divisao = ".";

        dia = ptexto.substring(0, ptexto.indexOf(divisao));
        ptexto = ptexto.substr(ptexto.indexOf(divisao) + 1, (ptexto.length - ptexto.indexOf(divisao)));
        mes = ptexto.substring(0, ptexto.indexOf(divisao));
        ptexto = ptexto.substr(ptexto.indexOf(divisao) + 1, (ptexto.length - ptexto.indexOf(divisao)));
        ano = ptexto.substring(0, ptexto.length);

        if (!isNumeric(dia) || !isNumeric(mes) || !isNumeric(ano)) {alert("Formato da data inválido. Formato correto dd/mm/aaaa."); return false;}
        if (mes<1 || mes >12) {alert("Data inválida"); return false;}
        if (dia<1 || dia > 31) {alert("Data inválida"); return false;}
        if (ano<0) {alert("Data inválida"); return false;}
        if (mes==4 || mes==6 || mes==9 || mes==11) {
            if (dia==31) {alert("Data inválida"); return false;}
        }

        if (mes==2) {
        var g = parseInt(ano/4);
            if (isNaN(g)) {alert("Data inválida"); return false;}
            if (dia>29) {alert("Data inválida"); return false;}
            if (dia==29 && ((ano/4)!=parseInt(ano/4))) {alert("Data inválida"); return false;}
        }
        return true;
    }


	function isNull(valor)
	{
        return (valor==null || valor=="null" || valor=="undefined" || valor=="" || trim(valor)=="");
        }


    function ltrim(ptexto) {
        var i = 0;
        while (i<ptexto.length && ptexto.charAt(i)== " ") {
            i++;
        }
        return (ptexto.substring(i,ptexto.length));
    }


    function rtrim(ptexto) {
        var i = ptexto.length-1;
        while (i>0 && ptexto.charAt(i) == " ") {
            i--;
        }
        return (ptexto.substring(0,i+1));
    }


    function trim(ptexto) {
        return ltrim(rtrim(ptexto));
    }

    function ChamaModulo(strMod){
         if (navigator.appName == "Netscape"){
            janxx=window.open(strMod,"","hotkeys,toolbar=no,location=no,directories=no,status=yes,titlebar=yes,menubar=0,scrollbars=no,resizeble=no,outerwidth=800,outerheight=600,screenX=0,screenY=0");
         }
         else {
            janxx=window.open(strMod,"","toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=no,resizeble=no,width=790,height=550,left=0,top=0");
         }
         return true;
    }