function CodConta(CodConta)
{
	var code;
	var Conta = new String(CodConta.value);
	var Tam   = Conta.length + 1;
	var iPPonto, iPosicao, iPonto;

	if (!e) 
		var e = window.event;
	if (e.keyCode) 
		code = e.keyCode;
	else if (e.which) 
		code = e.which;
	var character = String.fromCharCode(code);

        if (code < 48 || code > 57)
                if (code != 13 && code != 46)
                       	return false;

	iPPonto = Tam;
	while ( (iPPonto != 0) )
	{
		if (Conta.substr(iPPonto-1,1) == '.')
			break;
		iPPonto--;
	}

	iPonto = 0;
	for (iPosicao=1; iPosicao<=Tam; iPosicao++)
		if (Conta.substr(iPosicao-1,1) == '.')
			iPonto = iPonto + 1;

	if (Tam == 1)
		if ((character == '0') || (character > 4))
			return false;

	if (Tam == 2)
		if (character == '.')
			return true
		else
			CodConta.value = Conta + '.';

	if( ( (iPonto > 0) && (iPonto < 4) ) && (character != '.') )
	{
		if (Tam-iPPonto-1 == 1)
			if ( (character == '0') && (Conta.substr(Tam-2,1) == '0'))
				return false;

		if (Tam-iPPonto > 2)
			CodConta.value = Conta + '.';
	}

	if (iPonto > 3)
		if ((Tam-iPPonto > 8) || (character == '.'))
			return false;
}
/////////////////////////////////////////////////////////////////

function CodConta2(CodConta)
{
        var code;
        var Conta = new String(CodConta.value);
        var Tam   = Conta.length + 1;
        var iPPonto, iPosicao, iPonto;

        if (!e)
                var e = window.event;
        if (e.keyCode)
                code = e.keyCode;
        else if (e.which)
                code = e.which;
        var character = String.fromCharCode(code);

        if (code < 48 || code > 57)
                if (code != 13 && code != 46)
                        return false;

        iPPonto = Tam;
        while ( (iPPonto != 0) )
        {
                if (Conta.substr(iPPonto-1,1) == '.')
                        break;
                iPPonto--;
        }

        iPonto = 0;
        for (iPosicao=1; iPosicao<=Tam; iPosicao++)
                if (Conta.substr(iPosicao-1,1) == '.')
                        iPonto = iPonto + 1;

        if (Tam == 1)
                if ((character < 3) || (character > 4))
                        return false;

        if (Tam == 2)
                if (character == '.')
                        return true
                else
                        CodConta.value = Conta + '.';

        if( ( (iPonto > 0) && (iPonto < 4) ) && (character != '.') )
        {
                if (Tam-iPPonto-1 == 1)
                   if ( (character == '0') && (Conta.substr(Tam-2,1) == '0'))
                                return false;

                if (Tam-iPPonto > 2)
                        CodConta.value = Conta + '.';
        }

        if (iPonto > 3)
                if ((Tam-iPPonto > 8) || (character == '.'))
                        return false;
}
/////////////////////////////////////////////////////////////////
var clicouBotao = "";
function DesabilitaBotao(theform, nomeBotao) 
{
        if (nomeBotao == "" || nomeBotao == undefined)
	{
		nomeBotao = "HTML_BOTAO";       
	}
        if (document.getElementById(nomeBotao))
	{
		document.getElementById(nomeBotao).value='Aguarde!';      
		document.getElementById(nomeBotao).disabled = true;      
                if (!ExpYes)
                {
                    if (clicouBotao == "*")
                    {
                        alert('Favor Clicar somente 1 vez no Botão');
                        return false;
                    }
                    clicouBotao = "*";
                }
	}
	if (document.all || document.getElementById) 
	{
   		for (i = 0; i < theform.length; i++) 
		{
       			var tempobj = theform.elements[i];
       			if (tempobj.type.toLowerCase() == "submit" || tempobj.type.toLowerCase() == "reset")
			{
          			tempobj.disabled = true;
			}
       		}    
   	}
	return true;
}

///////////////////////////////////////////////////////////////////
function DesabHabBotoes()
{
   if (document.getElementsByTagName("input"))
   {
      var campos = document.getElementsByTagName("input");
      for (i=0; campos[i]; i++)
      {
         if (campos[i].type == "button" || campos[i].type == "submit" ||
             campos[i].type == "reset")
         {
            if (campos[i].disabled)
            {
               campos[i].disabled = false;
            }
            else
            {
               campos[i].disabled = true;
            }
         }
      }
   }
}

///////////////////////////////////////////////////////////////////
function DesabBotoes()
{
   if (document.getElementsByTagName("input"))
   {
      var campos = document.getElementsByTagName("input");
      for (i=0; campos[i]; i++)
      {
         if (campos[i].type == "button" || campos[i].type == "submit" ||
             campos[i].type == "reset")
         {
            campos[i].disabled = true;
         }
      }
   }
}

///////////////////////////////////////////////////////////////////

function SaiFunc(campo)
{
     if (campo.value == "")
             return false;

     if (campo.value == undefined)
             return false;

     DesabilitaBotao(document.form1);
     document.form1.submit();
}

///////////////////////////////////////////////////////////////////

function FormataCPF(Campo, teclapres)
{
        if (NetscapeYes) return;

	var tecla = teclapres.keyCode;
	
	var vr = new String(Campo.value);
	vr = vr.replace(".", "");
	vr = vr.replace(".", "");
	vr = vr.replace("-", "");

	tam = vr.length + 1;
	
	if (tecla != 9 && tecla != 8)
		{
		if (tam > 3 && tam < 7)
			Campo.value = vr.substr(0, 3) + '.' + vr.substr(3, tam);
		if (tam >= 7 && tam <10)
			Campo.value = vr.substr(0,3) + '.' + vr.substr(3,3) + '.' + vr.substr(6,tam-6);
		if (tam >= 10 && tam < 12)
			Campo.value = vr.substr(0,3) + '.' + vr.substr(3,3) + '.' + vr.substr(6,3) + '-' + vr.substr(9,tam-9);
		}
}

/////////////////////////////////////////////////////////////////

function FormataCNPJ(Campo, teclapres)
{
        if (NetscapeYes) return;

	var tecla = teclapres.keyCode;

	var vr = new String(Campo.value);
	vr = vr.replace(".", "");
	vr = vr.replace(".", "");
	vr = vr.replace("/", "");
	vr = vr.replace("-", "");

	tam = vr.length + 1 ;

	
	if (tecla != 9 && tecla != 8)
		{
		if (tam > 2 && tam < 6)
			Campo.value = vr.substr(0, 2) + '.' + vr.substr(2, tam);
		if (tam >= 6 && tam < 9)
			Campo.value = vr.substr(0,2) + '.' + vr.substr(2,3) + '.' + vr.substr(5,tam-5);
		if (tam >= 9 && tam < 13)
			Campo.value = vr.substr(0,2) + '.' + vr.substr(2,3) + '.' + vr.substr(5,3) + '/' + vr.substr(8,tam-8);
		if (tam >= 13 && tam < 15)
			Campo.value = vr.substr(0,2) + '.' + vr.substr(2,3) + '.' + vr.substr(5,3) + '/' + vr.substr(8,4)+ '-' + vr.substr(12,tam-12);
		}

}

/////////////////////////////////////////////////////////////////
function SaltaCampo (campo, prox, tammax, teclapres)
{
   var tecla = ExpYes ?  teclapres.keyCode : teclapres.which;
   vr = campo.value;
   tam = vr.length;
   if (tecla == 9 || tecla == 0 || tecla == 37 || tecla == 39 || tecla == 46 || tecla == 16)  return false;
   if (tecla != 0 && tecla != 10 && tecla != 24)
      if (tam == tammax)
          prox.focus();
}
//////////////////////////////////////////////////////////////////

function CalcularDV(sCampo, iPeso)
{
	
	var iTamCampo;
	var iPosicao, iDigito;
	var iSoma1 = 0;
	var iSoma2=0;
	var iDV1, iDV2;
		
	iTamCampo = sCampo.length;
		

	for (iPosicao=1; iPosicao<=iTamCampo; iPosicao++){
		iDigito = sCampo.substr(iPosicao-1, 1);
		iSoma1 = parseInt(iSoma1,10) + parseInt((iDigito * Calcular_Peso(iTamCampo - iPosicao, iPeso)),10);
		iSoma2 = parseInt(iSoma2,10) + parseInt((iDigito * Calcular_Peso(iTamCampo - iPosicao + 1, iPeso)),10);
		}

	iDV1 = 11 - (iSoma1 % 11);
	if (iDV1 > 9)
		iDV1 = 0;

	iSoma2 = iSoma2 + (iDV1 * 2);
	iDV2 = 11 - (iSoma2 % 11);
	if (iDV2 > 9)
		iDV2 = 0;

	Ret = (parseInt(iDV1 * 10,10) + parseInt(iDV2));

	Ret = "0" + Ret;
	Ret = Ret.substr(Ret.length - 2,Ret.length);
		
	return(Ret);
	
}

//////////////////////////////////////////////////////////////////		

function Calcular_Peso(iPosicao, iPeso)
{

//Pesos
//CPF 11
//CNPJ 9

return (iPosicao % (iPeso - 1)) + 2;
}
	
/////////////////////////////////////////////////////////////////

function LimpaCampo(sValor,iBase)
{
	var tam = sValor.length
	var saida = new String
	for (i=0;i<tam;i++)
		if (!isNaN(parseInt(sValor.substr(i,1),iBase)))
			saida = saida + String(sValor.substr(i,1));
	return (saida);		
}

/////////////////////////////////////////////////////////////////

function VerAlfaNumerico(pInd)
{
 var pValor = document.forms[0].elements[pInd].value
 var AuxTam = pValor.length  
  for(var j=0;j<AuxTam;j++)
   if ((!IndAlfaNumerico(pValor.charAt(j))) || (pValor.charAt(j) == " ")){
     document.forms[0].elements[pInd].focus();  
     document.forms[0].elements[pInd].value = pValor = pValor.substring(0,j)           
   } 
  }
////////////////////////////////////////////////////////////////////

function IndAlfaNumerico(N)
{
 for(var i=0;i<10;i++)
	if(N == i)
		return true;
 return false;    
}

/////////////////////////////////////////////////////////////////

function FormataData(Campo, teclapres)
{
	var tecla = teclapres.keyCode;
	var vr = new String(Campo.value);
	vr = vr.replace("/", "");
	vr = vr.replace("/", "");
	tam = vr.length + 1;
	
	if (tecla != 9 && tecla != 8) 
 		{
		if (tam > 2 && tam < 5)
			Campo.value = vr.substr(0, 2) + '/' + vr.substr(2, tam);
		if (tam >= 5 && tam <=10)
			Campo.value = vr.substr(0,2) + '/' + vr.substr(2,2) + '/' + vr.substr(4,4);
		
		}
}
/////////////////////////////////////////////////////////////////

function FormataMesAno(Campo, teclapres)
{
	var tecla = teclapres.keyCode;
	var vr = new String(Campo.value);
	vr = vr.replace("/", "");
	vr = vr.replace("/", "");
	tam = vr.length + 1;
	
	if (tecla != 9 && tecla != 8) 
 		{
		if (tam > 2 && tam <=8)
			Campo.value = vr.substr(0,2) + '/' + vr.substr(2,4);
		}
}

/////////////////////////////////////////////////////////////////
	
function FormataDiaMes(Campo, teclapres)
{
	var tecla = teclapres.keyCode;
	var vr = new String(Campo.value);
	vr = vr.replace("/", "");
	vr = vr.replace("/", "");
	tam = vr.length + 1;
	
	if (tecla != 9 && tecla != 8) 
 		{
		if (tam > 2 && tam <=4)
			Campo.value = vr.substr(0,2) + '/' + vr.substr(2,2);
		}
}

/////////////////////////////////////////////////////////////////

function FormataHora(Campo, teclapres) 
{
	var tecla = teclapres.keyCode;
	
	var vr = new String(Campo.value);
	vr = vr.replace(":", "");
	vr = vr.replace(":", "");

	tam = vr.length + 1;
	
	if (tecla != 9 && tecla != 8) {
		if (tam > 2 && tam < 6)
			Campo.value = vr.substr(0,2) + ':' + vr.substr(2,2);
		if (tam >= 6 && tam < 9)
			Campo.value = vr.substr(0,2) + ':' + vr.substr(2,2) + ':' + vr.substr(4,2);
		}
	}
/////////////////////////////////////////////////////////////////

function TestaData(cData, tipo)
{
var data; 
if (tipo == "S")
{
    data = LimpaCampo(cData,10);
    var tam = data.length;
}
else
{
    data = LimpaCampo(cData.value,10);
    var tam = data.length;
}

if (tipo != "S")
{
    if (cData.value == "")
    {
   	return true;
    }
}

if	(tam != 8)
	{
        if (tipo != "S")
        {
       	    alert('A data está incorreta');
	    cData.value = "";
	    cData.focus();
        }
	return(false);
	}
var dia = data.substr(0,2)
var mes = data.substr (2,2)
var ano = data.substr (4,4)	
if (ano < 1900)
	{
        if (tipo != "S")
        {
	   alert('A data está incorreta');
   	   cData.value = "";
	   cData.focus();
        }
	return(false);
	}


switch (mes)
	{
	case '01':
		if  (dia <= 31) 
			return (true);
		break;
	case '02':
 	        if (((ano%4 == 0)&&(ano%100 != 0)) || (ano%400 == 0)) {
		    if (dia <= 29) return (true);
                }else{
  		    if (dia <= 28) return (true);
		}
		break;
	case '03':
		if  (dia <= 31) 
			return (true);
		break;
	case '04':
		if  (dia <= 30) 
			return (true);
		break;
	case '05':
		if  (dia <= 31) 
			return (true);
		break;
	case '06':
		if  (dia <= 30) 
			return (true);
		break;
	case '07':
		if  (dia <= 31) 
			return (true);
		break;
	case '08':
		if  (dia <= 31) 
			return (true);
		break;
	case '09':
		if  (dia <= 30) 
			return (true);
		break;
	case '10':
		if  (dia <= 31) 
			return (true);
		break;
	case '11':
		if  (dia <= 30) 
			return (true);
		break;
	case '12':
		if  (dia <= 31) 
			return (true);
		break;
	}	
	{
        if (tipo != "S")
        {
	    alert('A data está incorreta');
   	    cData.value = "";
	    cData.focus();
        }
	return(false);
	}

return(true); 
}

/////////////////////////////////////////////////////////////////

function TestaMesAno(cData)
{
var data; 
data = LimpaCampo(cData.value,10);
var tam = data.length;
if (cData.value == ""){
	return true;
   }
if	(tam != 6)
	{
	alert('A data está incorreta');
	cData.value = "";
	cData.focus();
	return(false);
	}
var mes = data.substr (0,2);
var ano = data.substr (2,4);
if (mes < 1 || mes > 12){
	alert('Mês Inválido');
	cData.value = "";
	cData.focus();
	return(false);
	}
if (ano < 1900)
	{
	alert('O Ano está incorréto');
	cData.value = "";
	cData.focus();
	return(false);
	}
return(true); 
}

///////////////////////////////////////////////////////////////////

function TestaDiaMes(cData)
{
var data; 
data = LimpaCampo(cData.value,10);
var tam = data.length;
if (cData.value == ""){
	return true;
   }
if	(tam != 4)
	{
	alert('A data está incorreta');
	cData.value = "";
	cData.focus();
	return(false);
	}
var dia = data.substr (0,2);
var mes = data.substr (2,2);
if (dia < 1 || dia > 31){
        alert('Dia Inválido');
        cData.value = "";
        cData.focus();
        return(false);
        }
if (mes < 1 || mes > 12){
	alert('Mês Inválido');
	cData.value = "";
	cData.focus();
	return(false);
	}
if ((mes == 2) && (dia > 28)){
        alert('Dia Inválido');
        cData.value = "";
        cData.focus();
        return(false);
        }
if ((mes == 4 || mes == 6 || mes == 9 || mes == 11) &&
   (dia > 30)){
        alert('Dia Inválido');
        cData.value = "";
        cData.focus();
        return(false);
        }
return(true); 
}

///////////////////////////////////////////////////////////////////

function TestaHora(cHora)
{
var hora; 
hora = LimpaCampo(cHora.value,10);
var tam = hora.length;
if (cHora.value == ""){
        return true;
   }
if	(tam != 6)
	{
	alert('A hora está incorreta');
	cHora.value = "";
	cHora.focus();
	return(false);
	}
	
var hr = hora.substr(0,2)
var min = hora.substr (2,2)
var seg = hora.substr (4,2)	
if ((hr > 23) || (min > 59) || (seg > 59))
	{
	alert('A hora está incorreta');
	cHora.value = "";
	cHora.focus();
	return(false);
	}
return(true);
 
}

///////////////////////////////////////////////////////////////////

function TestaHora2(cHora)
{
var hora; 
hora = LimpaCampo(cHora.value,10);
var tam = hora.length;
if (cHora.value == ""){
        return true;
   }
if	(tam != 4)
	{
	alert('A hora está incorreta');
	cHora.value = "";
	cHora.focus();
	return(false);
	}
	
var hr = hora.substr(0,2)
var min = hora.substr (2,2)
if ((hr > 23) || (min > 59))
	{
	alert('A hora está incorreta');
	cHora.value = "";
	cHora.focus();
	return(false);
	}
return(true);
 
}

///////////////////////////////////////////////////////////////////

function numbersonly(teclapress)
{
        var tecla = ExpYes ?  teclapress.keyCode : teclapress.which;
 
        if (tecla == 0 || tecla == 8 || tecla == 13)
          	return true;
        if (tecla < 48 || tecla > 57) return false;
}

///////////////////////////////////////////////////////////////////
function numbersonly2(teclapress, campo, tamMax, tamMin)
{
        var tecla = ExpYes ?  teclapress.keyCode : teclapress.which;
        if (tamMax == "") tamMax = campo.maxLength;
        if (tamMin == "") tamMin = campo.maxLength;

        if (tecla == 0 || tecla == 8 || tecla == 13)
            return true;

        if (tecla == 45)
        {
            if (campo.value == "")
            {
                campo.maxLength = tamMax;
                return true;
            }
            else
            {
                return false;
            }
        }
        else
        {
            if (campo.value == "")
            {
                campo.maxLength = tamMin;
            }
        }
        if (tecla < 48 || tecla > 57)
             return false;
}

///////////////////////////////////////////////////////////////////
function verSinal(campo)
{
    if (!document.getElementById(campo))
    {
        return "*";
    }
    var dadosCampo = String(document.getElementById(campo).value);
    if (dadosCampo == "")
    {
        return " ";
    }
    else
    {
        return "*";
    }
}
///////////////////////////////////////////////////////////////////

function TestaCNPJ(cNI)
{
var NI, tamCampo, auxCampo;
NI = LimpaCampo(cNI.value,10);
        if (cNI.value == ""){
			return true;
		    }
                tamCampo = NI.length;
                auxCampo = "";
                switch(tamCampo)
                {
                case 1:
                  auxCampo = "0000000000000" + NI;
                  break;
                case 2:
                  auxCampo = "000000000000" + NI;
                  break;
                case 3:
                  auxCampo = "00000000000" + NI;
                  break;
                case 4:
                  auxCampo = "0000000000" + NI;
                  break;
                case 5:
                  auxCampo = "000000000" + NI;
                  break;
                case 6:
                  auxCampo = "00000000" + NI;
                  break;
                case 7:
                  auxCampo = "0000000" + NI;
                  break;
                case 8:
                  auxCampo = "000000" + NI;
                  break;
                case 9:
                  auxCampo = "00000" + NI;
                  break;
                case 10:
                  auxCampo = "0000" + NI;
                  break;
                case 11:
                  auxCampo = "000" + NI;
                  break;
                case 12:
                  auxCampo = "00" + NI;
                  break;
                case 13:
                  auxCampo = "0" + NI;
                  break;
                case 14:
                  auxCampo = NI;
                  break;
                }
                NI = auxCampo;
		if (NI.length != 14){
			alert('O número do CNPJ informado está incorreto');
		//	cNI.value = "";
			cNI.focus();
			return(false);
			}

		if (NI.substr(12,2) != CalcularDV(NI.substr(0,12), 9)){
			alert('O número do CNPJ informado está incorreto');
		//	cNI.value = "";
			cNI.focus();
			return(false);
			}
        return(true);

}  

///////////////////////////////////////////////////////////////////
function TestaCPF(cNI)
{
        var NI, tamCampo, auxCampo;
	NI = LimpaCampo(cNI.value,10);
        if (cNI.value == "")
	{
		return true;
 	}
        tamCampo = NI.length;
        auxCampo = "";
        switch(tamCampo)
        {
           case 1:
           auxCampo = "0000000000" + NI;
           break;
           case 2:
           auxCampo = "000000000" + NI;
           break;
           case 3:
           auxCampo = "00000000" + NI;
           break;
           case 4:
           auxCampo = "0000000" + NI;
           break;
           case 5:
           auxCampo = "000000" + NI;
           break;
           case 6:
           auxCampo = "00000" + NI;
           break;
           case 7:
           auxCampo = "0000" + NI;
           break;
           case 8:
           auxCampo = "000" + NI;
           break;
           case 9:
           auxCampo = "00" + NI;
           break;
           case 10:
           auxCampo = "0" + NI;
           break;
           case 11:
           auxCampo = NI;
           break;
        }
        NI = auxCampo;
	if (NI.length != 11)
	{
		alert('O número do CPF informado está incorreto');
//		cNI.value = "";
		cNI.focus();
		return(false);
	}

	if (NI.substr(9,2) != CalcularDV(NI.substr(0,9), 11))
	{
		alert('O número do CPF informado está incorreto');
//		cNI.value = "";
		cNI.focus();
		return(false);
	}
        return(true);

}
///////////////////////////////////////////////////////////////////
function FormataCPFCNPJ(Campo, Evento){
     auxCampo = Campo.value;
     var tecla = ExpYes ?  teclapress.keyCode : teclapress.which;
     auxTam = auxCampo.length;
     if (document.all.HTMLTIPO[0].checked == true && auxTam == 14){
         return false;
     }
     if (tecla < 48 || tecla > 57){
         if (event.keyCode != 13){
             return false;
         }
     }
     if (document.all.HTMLTIPO[0].checked == true){
         if (auxTam > 14){
             return false;
         }
         FormataCPF(Campo,Evento);

     }
     if (document.all.HTMLTIPO[1].checked == true){
         FormataCNPJ(Campo,Evento);
     }
}
///////////////////////////////////////////////////////////////////
var selecionadoCPFCNPJ = "F";
function IdentificaCPFCNPJ(Campo,CampoDoc)
{
  if (CampoDoc == "") CampoDoc = "HTMLCGC";
  if (Campo.value == 'F')
  {
      document.getElementById(CampoDoc).maxLength = 14;
      selecionadoCPFCNPJ = "F";
  }
  else
  {
      document.getElementById(CampoDoc).maxLength = 18;
      selecionadoCPFCNPJ = "J";
  }

  document.getElementById(CampoDoc).value = '';
}

///////////////////////////////////////////////////////////////////
function TestaCPFCNPJ(Campo, CampoTipo){
   var auxTam, auxCampo;
   if (selecionadoCPFCNPJ == "F"){
//     auxCampo = LimpaCampo(Campo.value,10);
       auxCampo = Campo.value;
       auxTam = auxCampo.length;
       if (auxTam > 14){
           alert('O número do CPF informado está incorreto');
//           Campo.value = "";
           Campo.focus();
           return false;
       } 
       return(TestaCPF(Campo));
   }
   if (selecionadoCPFCNPJ == "J"){
       return(TestaCNPJ(Campo));
   }
}

///////////////////////////////////////////////////////////////////

function FormataValorP(campo,tammax,teclapres) {

        var tecla = ExpYes ?  teclapres.keyCode : teclapres.which;
        var vr = campo.value;
        vr = vr.replace( "/", "" );
        vr = vr.replace( "/", "" );
        vr = vr.replace( ",", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        tam = vr.length;

        if (tam < tammax && tecla != 8){ tam = vr.length + 1 ; }

        if (tecla == 8 ){       tam = tam + 1 ; }

        if ( tecla == 8 || (tecla >= 48 && tecla <= 57) || (tecla >= 96 && tecla <= 105) ){
                if ( tam <= 2 ){
                        campo.value = vr ; }
                tam = tam - 1;
                if ( (tam > 2) && (tam <= 5) ){
                        campo.value = vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 6) && (tam <= 8) ){
                        campo.value = vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 9) && (tam <= 11) ){
                        campo.value = vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam- 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 12) && (tam <= 14) ){
                        campo.value = vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam- 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 15) && (tam <= 17) ){
                        campo.value = vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.'+ vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;}
        }
}

///////////////////////////////////////////////////////////////////
function FormataValorP2(campo,tammax) {

        var vr = campo.value;
        vr = vr.replace( "/", "" );
        vr = vr.replace( "/", "" );
        vr = vr.replace( ",", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        tam = vr.length;
        if (tam < tammax){ tam = vr.length + 1 ; }
        if ( tam <= 2 )
        {
             campo.value = vr ; 
        }
        tam = tam - 1;
        if ( (tam > 2) && (tam <= 5) )
        {
             campo.value = vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; 
        }
        if ( (tam >= 6) && (tam <= 8) )
        {
             campo.value = vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; 
        }
        if ( (tam >= 9) && (tam <= 11) )
        {
             campo.value = vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam- 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; 
        }
        if ( (tam >= 12) && (tam <= 14) ){
                        campo.value = vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam- 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;
        }
        if ( (tam >= 15) && (tam <= 17) )
        {
                        campo.value = vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.'+ vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;
        }
}

///////////////////////////////////////////////////////////////////
function FormataValorP3(campo,tammax) {

        var vr = campo
        vr = vr.replace( "/", "" );
        vr = vr.replace( "/", "" );
        vr = vr.replace( ",", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        tam = vr.length;
        if (tam < tammax){ tam = vr.length + 1 ; }
        if ( tam <= 2 )
        {
             campo = vr ; 
        }
        tam = tam - 1;
        if ( (tam > 2) && (tam <= 5) )
        {
             campo = vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; 
        }
        if ( (tam >= 6) && (tam <= 8) )
        {
             campo = vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; 
        }
        if ( (tam >= 9) && (tam <= 11) )
        {
             campo = vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam- 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; 
        }
        if ( (tam >= 12) && (tam <= 14) ){
                        campo = vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam- 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;
        }
        if ( (tam >= 15) && (tam <= 17) )
        {
                        campo = vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.'+ vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;
        }
        return (campo);
}

///////////////////////////////////////////////////////////////////
function FormataValor(campo,tammax,teclapres) {

        var tecla = ExpYes ?  teclapres.keyCode : teclapres.which;
        var vr = campo.value;
        vr = vr.replace( "/", "" );
        vr = vr.replace( "/", "" );
        vr = vr.replace( ",", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        tam = vr.length;

        if (tam < tammax && tecla != 8){ tam = vr.length + 1 ; }

        if (tecla == 8 ){       tam = tam + 1 ; }

        if ( tecla == 8 || (tecla >= 48 && tecla <= 57) || (tecla >= 96 && tecla <= 105) ){
                if ( tam <= 2 ){
                        campo.value = vr ; }
                tam = tam - 1;
                if ( (tam > 2) && (tam <= 5) ){
                        campo.value = vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 6) && (tam <= 8) ){
                        campo.value = vr.substr( 0, tam - 5 ) + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 9) && (tam <= 11) ){
                        campo.value = vr.substr( 0, tam - 8 ) +  vr.substr( tam- 8, 3 ) + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 12) && (tam <= 14) ){
                        campo.value = vr.substr( 0, tam - 11 ) + vr.substr( tam- 11, 3 ) + vr.substr( tam - 8, 3 ) + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 15) && (tam <= 17) ){
                        campo.value = vr.substr( 0, tam - 14 ) +  vr.substr( tam - 14, 3 ) + vr.substr( tam - 11, 3 ) + vr.substr( tam - 8, 3 ) + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;}
        }
}


///////////////////////////////////////////////////////////////////

function FormataValorM(campo,tammax,teclapres) {

        var tecla = ExpYes ?  teclapres.keyCode : teclapres.which;
        var sinal = "";
        var vr = campo.value;
        vr = vr.replace( "/", "" );
        vr = vr.replace( "/", "" );
        vr = vr.replace( ",", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        vr = vr.replace( ".", "" );
        tam = vr.length;

        if ( tecla == 8 || (tecla >= 48 && tecla <= 57) || (tecla >= 96 && tecla <= 105) ){
            if (vr.substr(0,1) == "-")
            {
                sinal = vr.substr(0,1);
                vr = vr.substr(1,tam - 1);
                campo.value = vr;
            }

            if (tam < tammax && tecla != 8){ tam = vr.length + 1 ; }

            if (tecla == 8 ){       tam = tam + 1 ; }

                if ( tam <= 2 ){
                        campo.value = vr ; }
                tam = tam - 1;
                if ( (tam > 2) && (tam <= 5) ){
                        campo.value = vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 6) && (tam <= 8) ){
                        campo.value = vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 9) && (tam <= 11) ){
                        campo.value = vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam- 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 12) && (tam <= 14) ){
                        campo.value = vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam- 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ; }
                if ( (tam >= 15) && (tam <= 17) ){
                        campo.value = vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.'+ vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ) ;}
             if (sinal != "")
             {
                 campo.value = sinal + campo.value;
             }
        }

}


///////////////////////////////////////////////////////////////////
function Monta_Mascara_CPF(theField)
{
	var ret;
	spCGC = theField.value;
	spMascara = ""

	if (spCGC != "")
	{
		nLen = spCGC.length;
		nIndex = 0;
		sValor = "";

		while ( nIndex < nLen )
       		{
        		sDigito = spCGC.substring(nIndex,nIndex+1)
        		if ( sDigito >= '0' && sDigito <= '9' )
                	{
                		sValor = sValor + sDigito
                	}
        		nIndex++;
       		}
		spCGC = sValor;

		bOk = 1
		sNum = ""
		if( spCGC == '0' )
        	{
        		bOk = 0
        	}
	        else
        	{
        		spCGC = '00000000' + spCGC
        		spCGC = spCGC.substring( spCGC.length - 11,( spCGC.length - 11 ) + 11 )
        		nQtd_Pos = spCGC.length
        		if ( nQtd_Pos > 11 )
                	{
                		spMascara = '0'
                	}
        		else
               		{
                		sDigito2 = spCGC.substring( (nQtd_Pos - 2), (nQtd_Pos - 2) + 2)
                		nI = 1
                		while ( nQtd_Pos - (nI + 2) >= 0 )
                        	{
                        		if ( ( nI == 4  ) || ( nI == 7 ) )
                                	{
                                		sNum = '.' + sNum
                                	}
                        		sNum = spCGC.substring((nQtd_Pos - (nI + 2)), (nQtd_Pos - (nI + 2)) + 1) + sNum
                        		nI = nI + 1
                        	}
                		spMascara = sNum + '-' + sDigito2
  			}
             	}

  		//frmCadastro.dfCPF.value = spMascara
  		theField.value = spMascara
	}
	return TestaCPF(theField);
}

///////////////////////////////////////////////////////////////////

function Monta_Mascara_CNPJ(theField)
{
	var ret;
	spCGC = theField.value;
	spMascara = ""

	if (spCGC != "")
	{
		nLen = spCGC.length;
		nIndex = 0;
		sValor = "";

		while ( nIndex < nLen )
       		{
        		sDigito = spCGC.substring(nIndex,nIndex+1)
        		if ( sDigito >= '0' && sDigito <= '9' )
                	{
                		sValor = sValor + sDigito;
                	}
        		nIndex++;
       		}
		spCGC = sValor;

		bOk = 1;
		sNum = "";
		if( spCGC == '0' )
        	{
        		bOk = 0;
        	}
	        else
        	{
        		spCGC = '00000000000' + spCGC
        		spCGC = spCGC.substring( spCGC.length - 14,( spCGC.length - 14 ) + 14 );
        		nQtd_Pos = spCGC.length;
        		if ( nQtd_Pos > 14 )
                	{
                		spMascara = '0';
                	}
        		else
               		{
                		sDigito2 = spCGC.substring( (nQtd_Pos - 2), (nQtd_Pos - 2) + 2);
                		nI = 1;
                		while ( nQtd_Pos - (nI + 2) >= 0 )
                        	{
                        		if ( nI == 5 )
                                	{
                                		sNum = '/' + sNum;
                                	}
                        		if ( ( nI == 8 ) || ( nI == 11 ) )
                                	{
                                		sNum = '.' + sNum;
                                	}
                        		sNum = spCGC.substring((nQtd_Pos - (nI + 2)), (nQtd_Pos - (nI + 2)) + 1) + sNum
                        		nI = nI + 1;
                        	}
                		spMascara = sNum + '-' + sDigito2;
  			}
             	}

  		theField.value = spMascara;
	}
	return TestaCNPJ(theField);
}

///////////////////////////////////////////////////////////////////

function main(campofoco,Limpar) 
{ 
	if (campofoco == '' || document.form1.elements.length == 0)
        {
		return;
        }
	if (!document.getElementById(campofoco)) return;

        var num = parseInt(campofoco);

	if ( num || num == 0 )
	{
		if ( document.form1[num] )
                {
                     document.form1[num].value = '';
	             document.form1[num].focus();
                }
	}
	else 
	{
            if ( document.form1[campofoco] )
             {
                 if (Limpar != 'N')
                 {
                     document.form1.reset();
         	     document.form1[campofoco].value = ''
                 }
            }
	    document.form1[campofoco].focus();
        }
}

///////////////////////////////////////////////////////////////////
function Digcmc7(form) 
{
   form.HTMLBANCO.disabled      = true;
   form.HTMLAGENCIANRO.disabled = true;
   form.HTMLCONTANRO.disabled   = true;
   form.HTMLCONTADIG.disabled   = true;
   form.HTMLCHEQUEINRO.disabled = true;
   form.HTMLCHEQUEIDIG.disabled = true;
   form.HTMLBANCO.value         = "";
   form.HTMLAGENCIANRO.value    = "";
   form.HTMLCONTANRO.value      = "";  
   form.HTMLCONTADIG.value      = "";  
   form.HTMLCHEQUEINRO.value    = "";  
   form.HTMLCHEQUEIDIG.value    = "";  
   form.HTML_CMC_7_INI_1.disabled = false;
   form.HTML_CMC_7_INI_2.disabled = false;
   form.HTML_CMC_7_INI_3.disabled = false;
   form.HTML_CMC_7_INI_1.select();
   form.HTML_CMC_7_INI_1.focus();
}
function Digcheque(form) 
{
   form.HTMLBANCO.disabled      = false;
   form.HTMLAGENCIANRO.disabled = false;
   form.HTMLCONTANRO.disabled   = false;
   form.HTMLCONTADIG.disabled   = false;
   form.HTMLCHEQUEINRO.disabled = false;
   form.HTMLCHEQUEIDIG.disabled = false;
   form.HTML_CMC_7_INI_1.disabled = true;
   form.HTML_CMC_7_INI_2.disabled = true;
   form.HTML_CMC_7_INI_3.disabled = true;
   form.HTMLCMC7.value          = "";
   form.HTML_CMC_7_INI_1.value  = "";
   form.HTML_CMC_7_INI_2.value  = "";
   form.HTML_CMC_7_INI_3.value  = "";
   form.HTMLBANCO.select();
   form.HTMLBANCO.focus();

}
///////////////////////////////////////////////////////////////////
function vercheque(form) 
{
   var x;
   var y;

   x = form.Banco;
   if (x.value == "") {
       form.Banco.value = "0";
           y = false;
   }
   x = form.Agencia;
   if (x.value == "") {
       form.Agencia.value = "0";
           y = false;
   }
   x = form.Contac;
   if (x.value == "") {
       form.Contac.value = "0";
           y = false;
   }
   x = form.Contad;
   if (x.value == "") {
       form.Contad.value = "0";
           y = false;
   }
   x = form.Cheque;
   if (x.value == "") {
       form.Cheque.value = "0";
           y = false;
   }
   x = form.Digito;
   if (x.value == "") {
       form.Digito.value = "0";
           y = false;
   }
      x = form.CMC71;
   if (x.value == "") {
       form.CMC71.value = "0";
           y = false;
   }
   if (y == false) {
           alert("ATENÇÃO!! SERÁ PESQUISADO SOMENTE AS DEVOLUÇÕES DO BANCO CENTRAL!.");
           y = true;
   }

   return true;
}
///////////////////////////////////////////////////////////////////
function AltMinMai(form) {
    if (form.value != "")
       {
           form.value = form.value.toUpperCase();
           }
}

///////////////////////////////////////////////////////////////////
function CalcDigCheque(campoCheque, campoDigCheque)
{
     var cheque;
     if (campoCheque == undefined)
     {
    	 return false;
     }
     if (campoCheque == "")
     {
    	 return false;
     }
     if (!document.getElementById(campoCheque))
     {
    	 return false;
     }
	 
     if (campoDigCheque == undefined)
     {
    	 return false;
     }
     if (campoDigCheque == "")
     {
    	 return false;
     }
     if (!document.getElementById(campoDigCheque))
     {
    	 return false;
     }
     if (document.getElementById(campoDigCheque).value == undefined)
     {
    	 return false;
     }
     if (document.getElementById(campoDigCheque).value == "")
     {
    	 return false;
     }

     cheque = document.getElementById(campoCheque).value;
     tamCampo = cheque.length;
     switch(tamCampo)
     {
        case 1:
            cheque = "00000" + cheque;
            break;
        case 2:
            cheque = "0000" + cheque;
            break;
        case 3:
            cheque = "000" + cheque;
            break;
        case 4:
            cheque = "00" + cheque;
            break;
        case 5:
            cheque = "0" + cheque;
            break;
     }
     var chequeC1=0, chequeC2=0, chequeC3=0, chequeC4=0, chequeC5=0, chequeC6=0, soma=0, digito=0;
     chequeC1 = cheque.substr(0,1);
     chequeC2 = cheque.substr(1,1);
     chequeC3 = cheque.substr(2,1);
     chequeC4 = cheque.substr(3,1);
     chequeC5 = cheque.substr(4,1);
     chequeC6 = cheque.substr(5,1);
     soma  = (chequeC1 * 7) + (chequeC2 * 6) + (chequeC3 * 5) + (chequeC4 * 4) + (chequeC5 * 3) + (chequeC6 * 2);
     soma = parseInt(soma % 11);
     if (soma < 0)
     {
    	 soma = parseInt(soma * -1);
     }
     if (( soma == 0) || (soma == 1) )
     {
    	 digito = 0;
     }
     else
     {
         digito = parseInt(soma - 11);
         if (digito < 0)
         {
      	     digito = parseInt(digito * -1);
         }		 
     }
     if (digito != parseInt(document.getElementById(campoDigCheque).value))
     {
    	 alert('Digito do Cheque Inválido ');
    	 document.getElementById(campoDigCheque).value = "";
    	 document.getElementById(campoDigCheque).focus();
    	 return false;
     }
}

///////////////////////////////////////////////////////////////////
function dataGregoriana(data, tipoData)
{
var DiaJ = new Array();

DiaJ[1] = 31;
DiaJ[2] = 59;
DiaJ[3] = 90;
DiaJ[4] = 120;
DiaJ[5] = 151;
DiaJ[6] = 181;
DiaJ[7] = 212;
DiaJ[8] = 243;
DiaJ[9] = 273;
DiaJ[10] = 304;
DiaJ[11] = 334;
DiaJ[12] = 365;

var DiaG = new Array();

DiaG[1] = 31;
DiaG[2] = 28;
DiaG[3] = 31;
DiaG[4] = 30;
DiaG[5] = 31;
DiaG[6] = 30;
DiaG[7] = 31;
DiaG[8] = 31;
DiaG[9] = 30;
DiaG[10] = 31;
DiaG[11] = 30;
DiaG[12] = 31;

var Dia = 0;
var Mes = 0;
var Ano = 0;
var Ano1 = 0;
var Ano2 = 0;
var Nasc = 0;
var PosX = 0;
var PosY = 0;

Nasc = parseInt(data);

Ano1 = parseInt(Nasc / 1461);
Ano2 = Ano1 * 4;
Nasc -= (Ano1 * 1461);
Ano1 = parseInt(Ano1);
Ano2 = parseInt(Ano2);
Nasc = parseInt(Nasc);
if (Nasc == 60)
{
    Mes = 2;
    Dia = 60;
}
else
{
   if (Nasc > 1096)
   {
       Ano2 += 3;
       Nasc -= 1096;
   }
   else
   {
       if (Nasc > 731)
       {
           Ano2 += 2;
           Nasc -= 731;

       }
       else
       {
           if (Nasc > 366)
           {
               Ano2 += 1;
               Nasc -= 366;
           }
           else
           {
               if (Nasc == 0)
               {
                   Ano2 -= 1;
                   Nasc = 365;   
               }
               else
               {
                   if (Nasc > 60)
                   {
                       Nasc -= 1;
                   }
               }
           }
       }
   }
   PosX = 1;
   if (Nasc < 32)
   {
       Dia = Nasc;
       Mes = 1;
   }
   else
   {
	   while (Nasc > DiaJ[PosX]){
              PosX++;
       }   
       PosY = PosX - 1;
       Dia = Nasc - DiaJ[PosY];
	   Nasc = Nasc - DiaJ[PosY];
       Mes = PosX;
       PosY = PosX - 1;
       if (Nasc == 0)
       {
           Dia = DiaG[Y];
       }
   }
}
Ano = Ano2;
Dia = Dia.toString();
Mes = Mes.toString();
Ano = Ano.toString();
switch (Dia.length)
{
  case 1:
     Dia = "0"+Dia;
     break;
}   
switch (Mes.length)
{
  case 1:
     Mes = "0"+Mes;
     break;
}   
switch (Ano.length)
{
  case 1:
     Ano = "000"+Ano;
     break;
  case 2:
     Ano = "00"+Ano;
     break;
  case 3:
     Ano = "0"+Ano;
     break;
}   
if (tipoData == "F")
{
    return(Dia+'/'+Mes+'/'+Ano);
}
else
{
    return(Dia+''+Mes+''+Ano);
}

}
///////////////////////////////////////////////////////////////////
function dataJuliana(data){
var DiaJ = new Array();

DiaJ[1] = 31;
DiaJ[2] = 59;
DiaJ[3] = 90;
DiaJ[4] = 120;
DiaJ[5] = 151;
DiaJ[6] = 181;
DiaJ[7] = 212;
DiaJ[8] = 243;
DiaJ[9] = 273;
DiaJ[10] = 304;
DiaJ[11] = 334;
DiaJ[12] = 365;

var Data = LimpaCampo(data, 10);
if (Data == "") return false;
var Dia = Data.substr(0,2);
var Mes = Data.substr(2,2);
var Ano = Data.substr(4,4);
Dia = parseFloat(Dia);
Mes = parseFloat(Mes);
Ano = parseFloat(Ano);
var Ano1 = parseInt(Ano / 4);
var Nasc = Ano1 * 1461 + 366;
Ano1 = Ano - (4 * Ano1);
Ano1 = parseInt(Ano1);
Nasc = parseInt(Nasc);

switch (Ano1){
  case 0:
     Nasc -= 366;
	 break;
  case 2:
     Nasc += 365;
	 break;	 
  case 3:
     Nasc += 730;
	 break;	 
}

Mes -= 1;

if (Mes != 0) Nasc += parseInt(DiaJ[Mes]);

if (Mes > 1 && Ano1 == 0) Nasc += 1;
Nasc += Dia;

Nasc = parseInt(Nasc);
return (Nasc);
}

///////////////////////////////////////////////////////////////////

function comparaDatas(Data1,Data2){
	if (Data1  < Data2) return (1); //Retorna 1 se Data1 menor que Data 2
	if (Data1  > Data2) return (2); //Retorna 2 se Data1 maior que Data 2
	if (Data1 == Data2) return (3); //Retorna 3 se Data1 igual a   Data 2
}

///////////////////////////////////////////////////////////////////
function PosicionaSelect(campo, valor)
{
   if (campo != "")
   {
      if (!document.getElementById(campo)) return;
      if (document.getElementById(campo).type == "select-one")
      {
         qtde = document.getElementById(campo).length;
         for (var i = 0; i < qtde; i++)
         {
            if (document.getElementById(campo)[i].value == valor)
            {
               document.getElementById(campo)[i].selected = true;
               break;
            }
         }
      }
   }
}

///////////////////////////////////////////////////////////////////
function pegaDataAtual(tipoRetorno, dataFormatada)
{
   var dataAtual = new Date();
   var diaAtual  = dataAtual.getDate();
   var mesAtual  = dataAtual.getMonth()+1;
   var anoAtual  = dataAtual.getFullYear();
   if (diaAtual < 10){
       diaAtual = "0" + diaAtual;
   }
   if (mesAtual < 10){
       mesAtual = "0" + mesAtual;
   }
   if (tipoRetorno == 1)
   {
       return (diaAtual);
   }
   if (tipoRetorno == 2)
   {
       return (mesAtual);
   }
   if (tipoRetorno == 3)
   {
       return (anoAtual);
   }
   if (tipoRetorno == 4)   
   {
       if (dataFormatada == "S")
       {
           return (diaAtual+'/'+mesAtual);
       }
       else
       {
           return (diaAtual+''+mesAtual);
       }
   }
   if (tipoRetorno == 5)   
   {
       if (dataFormatada == "S")
       {
           return (mesAtual+'/'+anoAtual);
       }
       else
       {
           return (mesAtual+''+anoAtual);
       }
   }
   if (tipoRetorno == 6)   
   {
       if (dataFormatada == "S")
       {
           return (diaAtual+'/'+mesAtual+'/'+anoAtual);
       }
       else
       {
           return (diaAtual+''+mesAtual+''+anoAtual);
       }
   }
   return;
}
///////////////////////////////////////////////////////////////////
function retornaMes(Mes, tipo)
{
   switch (parseFloat(Mes))
   {   
       case 1:
            if (tipo == "A") return("12");
            if (tipo == "P") return("02");
            if (tipo == "E") return("Janeiro");
            break;
       case 2:
            if (tipo == "A") return("01");
            if (tipo == "P") return("03");
            if (tipo == "E") return("Fevereiro");
            break;
       case 3:
            if (tipo == "A") return("02");
            if (tipo == "P") return("04");
            if (tipo == "E") return("Março");
            break;
       case 4:
            if (tipo == "A") return("03");
            if (tipo == "P") return("05");
            if (tipo == "E") return("Abril");
            break;
       case 5:
            if (tipo == "A") return("04");
            if (tipo == "P") return("06");
            if (tipo == "E") return("Maio");
            break;
       case 6:
            if (tipo == "A") return("05");
            if (tipo == "P") return("07");
            if (tipo == "E") return("Junho");
            break;
       case 7:
            if (tipo == "A") return("06");
            if (tipo == "P") return("08");
            if (tipo == "E") return("Julho");
            break;
       case 8:
            if (tipo == "A") return("07");
            if (tipo == "P") return("09");
            if (tipo == "E") return("Agosto");
            break;
       case 9:
            if (tipo == "A") return("08");
            if (tipo == "P") return("10");
            if (tipo == "E") return("Setembro");
            break;
       case 10:
            if (tipo == "A") return("09");
            if (tipo == "P") return("11");
            if (tipo == "E") return("Outubro");
            break;
       case 11:
            if (tipo == "A") return("10");
            if (tipo == "P") return("12");
            if (tipo == "E") return("Novembro");
            break;
       case 12:
            if (tipo == "A") return("11");
            if (tipo == "P") return("01");
            if (tipo == "E") return("Dezembro");
            break;
   } 
   return("");
}
///////////////////////////////////////////////////////////////////
function retornaMesAnoAnterior(mes,ano,tipo)
{
     if (mes == 1)
     {
         if (tipo == "M")
         {
             return (12);
         }
         else
         {
         }
         return (parseInt(ano-1));
     }
     else
     {
         if (tipo == "M")
         {
             mes=parseInt(mes-1);
             if (mes < 10)
             {
                 mes = "0" + mes;
             }
             return (mes);
         }
         else
         {
             return (ano);
         }
     }
}
///////////////////////////////////////////////////////////////////
function retornaQtdeDias(mes,ano)
{
switch (parseFloat(mes))
	{
	case 1:
                return (31);
		break;
	case 2:
 	        if (((ano%4 == 0)&&(ano%100 != 0)) || (ano%400 == 0)) {
		    return (29);
                }else{
		    return (28);
		}
		break;
	case 3:
                return (31);
	case 4:
                return (30);
	case 5:
                return (31);
	case 6:
                return (30);
	case 7:
                return (31);
	case 8:
                return (31);
	case 9:
                return (30);
	case 10:
                return (31);
	case 11:
                return (30);
	case 12:
                return (31);
}
return(0);
}

function retornaQtdeDiasUltMes(dia,mes,ano)
{
       var ultDia = 0;
       var ultMes = 0;
       var ultAno = 0;
       ultDia = retornaQtdeDias(mes,ano);
       ultMes = retornaMesAnoAnterior(mes,ano,"M");
       ultAno = retornaMesAnoAnterior(mes,ano,"A");
       if (dia == 1)
       {
           return (retornaQtdeDias(ultMes,ultAno));
       }  
       if (dia == ultDia)
       {
           return (retornaQtdeDias(mes,ano));
       }
       if (dia - ultDia <= 0)
       {
           return (retornaQtdeDias(ultMes,ultAno));
       }
       return (retornaQtdeDias(mes,ano));
}

///////////////////////////////////////////////////////////////////
/* opcao = 1 DATA
        se mint = ""
              move 01/01/1900 no campo1
        se não
              move mint no campo1
        se maxt = ""
              move 31/12/9999 no campo2
        se não
              move maxt no campo2

   opcao = 2 CAMPOS NUMÉRICOS
        se mint = ""
              move 1 no campo1
        se não
              move mint no campo1
        se maxt = ""
              se tamcampo = "" 
                 move 99999 no campo2
              se não
                 incremente 9 N vezes o numero no campo
        se não
              move maxt no campo2
*/    
function preencheCampos(opcao, campo1, campo2, mint, maxt, tamcampo, focaProx, autotipoData)
{   
    if (opcao != "1" && opcao != "2") return false;
    if (opcao == "1")
    {
        if (tamcampo == "")
        {
            if (autotipoData == "Q")
            {
                mint = dataGregoriana(dataJuliana(pegaDataAtual(6, "N")) - retornaQtdeDiasUltMes(pegaDataAtual(1),pegaDataAtual(2),pegaDataAtual(3)) ,"F");
                maxt = pegaDataAtual(6, "S");
            }
            if (autotipoData == "D")
            {
                mint = pegaDataAtual(6, "S");
                maxt = pegaDataAtual(6, "S");
            }
            if (autotipoData == "M")
            {
                maxt = pegaDataAtual(6, "S");
                mint = "01/"+pegaDataAtual(5, "S");
            }
            if (autotipoData == "P")
            {   
                mint = pegaDataAtual(1,"N")+'/'+retornaMesAnoAnterior(pegaDataAtual(2,"N"),pegaDataAtual(3,"N"),"M")+'/'+retornaMesAnoAnterior(pegaDataAtual(2,"N"),pegaDataAtual(3,"N"),"A");
                maxt = dataGregoriana(dataJuliana(pegaDataAtual(6, "N")) - 1, "F");
            }
            if (autotipoData == "A")
            {
                maxt = pegaDataAtual(6, "S");
                mint = "01/"+retornaMes(pegaDataAtual(2),'P')+'/'+(pegaDataAtual(3)-1);
                
            }
        }
        else
        {
            maxt = pegaDataAtual(6, "S");
            mint = pegaDataAtual(6);
            mint = dataJuliana(mint) - parseInt(tamcampo);
            mint = dataGregoriana(mint,"F");
        }
    }    
    if (campo1 != "")
    {
        if (document.getElementById(campo1))
        {
            if (opcao == "1")
            {
                if (mint == "")
                {
                    document.getElementById(campo1).value = "01/01/1900";
                }
                else
                {
                    document.getElementById(campo1).value = mint;
                }
            }
            else
            {
                if (mint == "")
                {
                    document.getElementById(campo1).value = "1";
                }
                else
                {
                    document.getElementById(campo1).value = mint;
                }
            }
        }
    }
    if (campo2 != "")
    {
        if (document.getElementById(campo2))
        {
            if (opcao == "1")
            {
                if (maxt == "")
                {
                    document.getElementById(campo2).value = "31/12/2100";
                }
                else
                {
                    document.getElementById(campo2).value = maxt;
                }
            }
            else
            {
                if (maxt == "")
                {
                    if (tamcampo == "")
                    {
                        document.getElementById(campo2).value = "99999";
                    }
                    else
                    {
                        document.getElementById(campo2).value = autoIncrementa(parseInt(tamcampo));
                    }
                }
                else
                {
                    document.getElementById(campo2).value = maxt;
                }
            }
        }
    }
    if (focaProx != "")
    {
        if (document.getElementById(focaProx))
        {
            document.getElementById(focaProx).focus();
        }
        else
        {
            if (document.getElementByName(focaProx))
            {
                document.getElementByName(focaProx).focus();
            }
        }
    }
}
///////////////////////////////////////////////////////////////////
function tiraEspacos(campo)
{  
   var campor = "";
   for (i = 0; i < campo.length; i++){
            if (campo.charAt(i) != " "){
                campor += campo.charAt(i);
            }
   }
   return(campor);
}
///////////////////////////////////////////////////////////////////
function tiraEspacosFim(campo)
{  
   for (i = campo.length-1; i>0; i--)
   {
        if (campo.substr(i,1) != " ")
        {
            break;
        }
   }
   if (i == 0 && campo.substr(i,1) == " ")
   {
      return("");
   }
   else
   {
      return(campo.substr(0,i+1));
   }
}
///////////////////////////////////////////////////////////////////
function autoIncrementa(qtdeN)
{
   var retorno = "";
   for(i=0; i<qtdeN; i++)
   {
      retorno+= "9";
   }
   return(retorno);
}
///////////////////////////////////////////////////////////////////

function VerTecla(evt)
{  
   var evt  = (evt) ? evt : ((event) ? event : null);
   if (navigator.appName == "Netscape")
        return;
   var e = event.srcElement.tagName;
   if (event.keyCode == 8 && e != "INPUT" && e != "TEXTAREA")
   {
      event.cancelBubble = true;
      event.returnValue = false;
   }
   //  if(evt.keyCode == 18) {
   //   alert("Botão Desabilitado");
   //}
   if (event.keyCode == 119)
   {
      event.cancelBubble = true;
      event.returnValue = false;
      event.keyCode = 0;
      SubmitRecPag();
   }
   if (event.keyCode == 120)
   {
      event.cancelBubble = true;
      event.returnValue = false;
      event.keyCode = 0;
      return MontaLogin();
   }

   if (event.keyCode == 113)
   {
      event.cancelBubble = true;
      event.returnValue = false;
      event.keyCode = 0;
      return alteraEntidade();
   }
   if (event.keyCode == 123)
   {
      event.cancelBubble = true;
      event.returnValue = false;
      event.keyCode = 0;
      return modificaEntidade('','LISE');
   }

   if (event.keyCode == 114)
   {
      event.cancelBubble = true;
      event.returnValue = false;
      event.keyCode = 0;
      return false;
   }
   if (event.keyCode == 116)
   {
      event.cancelBubble = true;
      event.returnValue = false;
      event.keyCode = 0;
      return false;
   }
   if (event.keyCode == 122)
   {
      event.cancelBubble = true;
      event.returnValue = false;
      event.keyCode = 0;
      return false;
   }
   if (event.ctrlKey)
   {
      if (event.keyCode == 78)
      {
         event.cancelBubble = true;
         event.returnValue = false;
         event.keyCode = 0;
         return false;
      }
      if (event.keyCode == 104) 
      {
         event.cancelBubble = true;
         event.returnValue = false;
         event.keyCode = 0;
         return false;
      }
   }
}

if (navigator.appName != "Netscape")
{
	document.onmousedown = VerMouse;
	document.onmouseup = VerMouse;
}

function VerMouse()
{
     if (navigator.appName == "Netscape")
	return;
     if ((event.button == 3) || (event.button == 4))
     {
        alert("Botão Desabilitado");
     }
}

function alteraEntidade()
{
     if (!top.document.getElementById("Log")) 
	return false;
     if (!top.document.getElementById("LogR")) return false;
     AcessoLog  = top.document.getElementById("Log").value;
     AcessoLogR = top.document.getElementById("LogR").value;
     AcessoLogR = parseFloat(AcessoLogR);
     if (AcessoLogR == 0)
     {
	return false;
     }
     if (AcessoLog != "1" && AcessoLog != "2") 
     {
        if (AcessoLog != "3") return false;
        if (AcessoLogR < 501 || AcessoLogR > 599) return false;
     }
     var codRegi = "";
     codRegi = prompt('Digite o Código da Entidade?','');
     if (codRegi == "") return false;
     codRegi = parseInt(codRegi);
     if (isNaN(codRegi)) return false;
     codRegi = parseFloat(codRegi);
     if (codRegi == 0) return false;
     if (AcessoLog != "1" && AcessoLog != "2") 
     {
        if (codRegi < 501 || codRegi > 599)
        {
            alert('Código da Entidade Inválido');
            return false;
        }
     }
     return modificaEntidade(codRegi,'ALTE');
}

function modificaEntidade(codRegi,tipoConv)
{
     if (tipoConv == "") tipoConv = "ALTE";
     if (tipoConv == "ALTE")
     {
        if (codRegi == "") return false;
     }
     
     if (!top.document.getElementById("Log")) return false;
     if (!top.document.getElementById("LogR")) return false;
     AcessoLog = top.document.getElementById("Log").value;
     AcessoLogR = top.document.getElementById("LogR").value;
     AcessoLogR = parseFloat(AcessoLogR);
     if (AcessoLogR == 0)
     {
        return false;
     }
     if (AcessoLog != "1" && AcessoLog != "2")
     {
        if (AcessoLog != "3") return false;
        if (AcessoLogR < 501 || AcessoLogR > 599) return false;
     }

     var SessaoLog = "";
     if (!top.document.getElementById('HTML_SESSAO'))
     {
       	if (!top.document.getElementById('HTML_SESSAO'))
   	{
         	return false;
        } else {
       		SessaoLog = top.document.getElementById('HTML_SESSAO').value;
       	}
     } else {
       	SessaoLog = top.document.getElementById('HTML_SESSAO').value;
     }
     if (SessaoLog == "") 
	return false;
     var caminho = "/cgi-bin/spcnweb?HTML_PROGRAMA=md000007.int?";
     var parOpcao = tipoConv;
     dados = (caminho+'&HTML_CONVERSA='+parOpcao+'&HTML_SESSAO='+SessaoLog+'&HTML_REGI='+codRegi+"&HTML_RANDOM="+Math.random());
     return top.carregaDadosEnvio(dados);
}

function MontaLogin()
{
     var SessaoLog = "";
     if (!top.document.getElementById('HTML_SESSAO'))
     {
       	if (!top.document.getElementById('HTML_SESSAO'))
   	{
         	return false;
        } else {
       		SessaoLog = top.document.getElementById('HTML_SESSAO').value;
       	}
     } else {
       	SessaoLog = top.document.getElementById('HTML_SESSAO').value;
     }
     if (SessaoLog == "") 
	return false;
     if (!top.document.getElementById("Log")) 
	return false;
     AcessoLog = top.document.getElementById("Log").value;
     if (AcessoLog != "6" && AcessoLog != "8") 
	return false;
//   top.document.getElementById("DivAutenticao").style.left = 200;
//   top.document.getElementById("DivAutenticao").style.top = 200;
     top.document.getElementById("menu_vertical").src = "/spcn/index_menu.htm";
     top.document.getElementById("Tela").src = "/spcn/index_menu.htm";
     top.document.getElementById("altenticaoFrame").src = "/cgi-bin/spcnweb?HTML_PROGRAMA=md020018&HTML_SESSAO="+SessaoLog+"&HTML_RANDOM="+Math.random();
     //top.document.getElementById("altenticaoFrame").src = "/cgi-bin/spcnweb?HTML_PROGRAMA=md020700&HTML_SESSAO="+SessaoLog+"&HTML_RANDOM="+Math.random();
     top.document.getElementById("DivAutenticao").style.display = "block";
}


function SubmitRecPag()
{
   if (document.getElementById('HTML_SUBMITRECPAG'))
   {
      if (document.getElementById('HTML_SUBMITRECPAG').value == "S")
      {
          form1.submit();
      }
   }
   if (document.getElementById('divDesbloquiMsg'))
   {
       document.form1.disabled = false;
       if (document.getElementById('divDesbloquiMsg').style.display == "block")
       {
           document.getElementById('divDesbloquiMsg').style.display = "none";
       }
       if (document.getElementById('dadosCampoFocar'))
       {
           if (document.getElementById('dadosCampoFocar').value != "")
           {
               var campoParaFocar = document.getElementById('dadosCampoFocar').value;
               if (document.getElementById(campoParaFocar))
               {
                   document.getElementById(campoParaFocar).focus();
               }
           }
       }
       
   }
}

/***************  BLOQUEIO DE TECLAS PARA OUTROS NAVEGADORES ***************/

var NNav = ((navigator.appName == "Netscape"));
var debugNav = false;
var AgntUsr     = navigator.userAgent.toLowerCase();
var AppVer      = navigator.appVersion.toLowerCase();
var DomYes      = document.getElementById ? 1:0;
var NavYes      = AgntUsr.indexOf('mozilla') != -1 && AgntUsr.indexOf('compatible') == -1 ? 1:0;
var ExpYes      = AgntUsr.indexOf('msie') != -1 ? 1:0;
var Opr         = AgntUsr.indexOf('opera')!= -1 ? 1:0;
//var NetscapeYes = AgntUsr.indexOf('netscape')!= -1 ? 1:0;
var NetscapeYes = 0;
if (NNav)
{
        //AgntUsr.indexOf('netscape'))!= -1 ? 1:0;
        NetscapeYes = 1;
}

var interval;

if(ExpYes)
        document.onkeydown = VerTecla; 
 //     document.onkeydown   = function() { botaoEvt(event); }
else {
        document.onkeydown   = function(evt){
                botaoEvt(evt);
        }
}

botaoEvt = function (evt)
{
        var ord = ""; // ascii order of key pressed

        if (ExpYes)
                ord = evt.keyCode;
        else
                ord = evt.which;

        var altKey    = evt.altKey;
        var ctrlKey   = evt.ctrlKey;
        var shiftKey  = evt.shiftKey;
        if (ord == 119){
            evt.cancelBubble = true;
            evt.returnValue = false;
            SubmitRecPag();
        }
        if (ord == 120){
            evt.cancelBubble = true;
            evt.returnValue = false;
            return MontaLogin();
        }
        if (ord == 113){
            evt.cancelBubble = true;
            evt.returnValue = false;
            return alteraEntidade();
        }
        if (ord == 123){
            evt.cancelBubble = true;
            evt.returnValue = false;
            return modificaEntidade('','LISE');
        }

        return evt;
}