// inicio da função CamposOk

		   dataOk       =  false;
           var cpo=0;
		   
           var Campo = new Array;
		   Campo[1] = "SERIE";
		   Campo[2] = "RAZAO";
		   Campo[3] = "ENDERECO";
		   Campo[4] = "BAIRRO";
   		   Campo[5] = "CEP";
		   Campo[6] = "CIDADE";
   		   Campo[7] = "ESTADO";
		   Campo[8] = "CPF_CNPJ";
		   Campo[9] = "CONTATO";
		   Campo[10] = "DDD";
		   Campo[11] = "TELEFONE";
		   Campo[12] = "EMAIL";	   
 		   Campo[13] = "PAGINA";		   
		   
		   var Mensagem = new Array;
   		   Mensagem[1] = "Digite o número de série de seu programa";
		   Mensagem[2] = "Digite o nome de sua empresa";
   		   Mensagem[3] = "Digite o endereço de sua empresa";		   
   		   Mensagem[4] = "Digite o bairro em que se localiza sua empresa";
   		   Mensagem[5] = "Digite o Cep referente ao seu endereço";		   
   		   Mensagem[6] = "Digite a cidade onde se localiza sua empresa";
   		   Mensagem[7] = "Digite a sigla do estado";
		   Mensagem[8] = "Digite seu CPF ou o CNPJ de sua empresa";
		   Mensagem[9] = "Digite o seu nome ou da pessoa para contato";
		   Mensagem[10] = "Digite o DDD";
		   Mensagem[11] = "Digite o telefone";
		   Mensagem[12] = "Digite um endereço de e-mail válido";
		   Mensagem[13] = "Se possuir, informe o endereço de sua página na internet";	
		   
      	   var TotCpo = Campo.length;
		   
		   function CamposOk() {
             
                   for(i=1;i<TotCpo-3;i++)  { //não inclui exigência para fax, email e página
				      if(eval('document.dados.' + Campo[i] + '.value==""')) {
                      alert(Mensagem[i]);
					  eval('document.dados.' + Campo[i] + '.focus()');
                      return dataOk=false;
                        }
				    }
						
				    //checa e-mails válidos             
                     var Aceitos = document.dados.EMAIL.value.match(/\b(^(\S+@).+((\.com)|(\.br)|(\.net)|(\.edu)|(\.mil)|(\.gov)|(\.org)|(\..{2,2}))$)\b/gi);
		   
                     if (Aceitos){ dataOk = true; }   else {
                     alert(Mensagem[12]);
					 eval('document.dados.' + Campo[12] + '.focus()');
					 eval('document.dados.' + Campo[12] + '.select()');
                     return dataOk = false; }          
  
		             if ( dataOk ) {
                     return true; 
                     } 					      
           } 
//fim da CamposOk
		   
		   
// inicio da ProximoCampo
	       ProximoCampo=Campo[1];
           netscape = "";
           ver = navigator.appVersion; len = ver.length;
           for(iln = 0; iln < len; iln++) if (ver.charAt(iln) == "(") break;
           netscape = (ver.charAt(iln+1).toUpperCase() != "C");
		   		   
           function keyDown(DnEvents) {  
           k = (netscape) ? DnEvents.which : window.event.keyCode;		   		  	   	      
               if(k == 13) { //Enter
                  if (ProximoCampo == 'Final') return true;          
			      else {				       		     
                       eval('document.dados.' + ProximoCampo + '.focus()');
                       return false;
                       }
                 }				 		 		   
           } //Fim keyDown
           document.onkeydown = keyDown; 
           if (netscape) document.captureEvents(Event.KEYDOWN|Event.KEYUP);
		   
 // Fim da função ProximoCampo