<?php 
require_once(dirname(dirname(__FILE__))."/funcoes.php");
protegeArquivo(basename(__FILE__));
$objetocalculo=new calculos(); 
$sessao = new sessao();
$amostraLong=$sessao->getVar('amostraLong');
//$objetocalculoRaioX = new calculosFichaVirtual(); //calcula todos valores finais
//$vetorRaioX=$objetocalculoRaioX->capturaGeralRaioX($amostraLong);
$cliente=$sessao->getVar('cliente');
//$cliente='LASSUL';
$senhaCli=$sessao->getVar('iduser');
$idLabo=$sessao->getVar('idLabo');
$master=$sessao->getVar('master');
$anoAmostra=date("Y");
$finalidade=$sessao->getVar('finalidade');
if($amostraLong>0)
{
	//echo "nao nulo<br>";
	$userAmostra = new amostras();
    $userAmostra->extras_select =  " where fic_id=".$amostraLong;
    $userAmostra->selecionaCampos($userAmostra);
    while ($resAmostra = $userAmostra->retornaDados()):
        $amostraLong=$resAmostra->fic_id;
        $idCultivar=$resAmostra->fic_cultivar;
        $idProdutor=$resAmostra->fic_produtor;
        $idAmostrador=$resAmostra->fic_amostrador;
        $ultima=$resAmostra->fic_amostra;
    endwhile;		
	$sessao->setVar('amostraLong', $amostraLong);
	$sessao->setVar('idCultivar',$idCultivar);
	$sessao->setVar('idProdutor',$idProdutor);
	$sessao->setVar('idAmostrador',$idAmostrador);
	$sessao->setVar('ultima',$ultima);
}
else
{
     $amostraLong=$objetocalculo->achaUltima();
	 echo("34 capturou amostralong $amostraLong<br>");
	 $idCultivar=$sessao->getVar($idCultivar);
	 $idProdutor=$sessao->getVar($idProdutor);
	 $idAmostrador=$sessao->getVar($idAmostrador);//
	
}
//$atual='#c0501';
//pega  atual
$linhaAtual=substr($atual,2,2);
$colunaAtual=substr($atual,4,2);
$linhaFinal=$linhaAtual-1;
$colunaFinal=$colunaAtual;
$proximo='c'.$linhaFinal.$colunaFinal;

?>
      
<script type="text/javascript">
        $(document).on('keyup', function (e) {
    
            // ATRIBUINDO O KEY CODE PARA AS VARIAVEIS PARA MELHOR LEGIBILIDADE
            let right = 39;
            let left = 37;
            let up = 38;
            let down = 40;
            
	
	
            // VARIAVEIS AUXILIARES PARA NAVEGACAO
            let index = 1;
            let totalColunas = 7;
            let proximo = 1;
    
            // VERIFICA SE A TECLA QUE ESTÁ SENDO DISPARADA É ALGUMA TECLA QUE QUEREMOS TRABALHAR EM CIMA
            if (e.keyCode === right || e.keyCode === left || e.keyCode === up || e.keyCode === down) {
                
                // PERCORE TODAS AS DIVS DA CLASSE ITEM PARA SETAR O INDICE DA PROXIMA
                $.each($('.items'), function () {
                    if ($(this).hasClass('selected')) {
                        switch (e.keyCode) {
                            case right:
                                proximo += index;
                                break;
                            case left:
                                proximo = index - 1;
                                break;
                            case up:
                                proximo = (index) - (totalColunas+1);
                                break;
                            case down:
                                proximo += index + (totalColunas);
                                break;
                        }
                    }
                    index++;
                });
    
                index = 1;
                // VERIFICA SE O RETORNO É MAIOR QUE O NUMERO TOTAL DE DIVS E RETORNA FALSO PARA A NAVEGACAO NÃO SAIR DE DAS DIVS
                if(proximo > $('.items').length) {
                    return false;
                // VERIFICA SE O RETORNO É MENOR QUE 1 E RETORNA FALSO PARA A NAVEGAÇÃO NÃO SAIR DAS DIVS
                }else if(proximo < 1 ) {
                    return false;
                }
                // PERCORRE TODAS AS DIVS ITEMS PARA ATRIBUIR A CLASSE SELECTED NA DIV QUE O CURSOR DEVE IR SETADO NA VARIAVEL PROXIMO
                $.each($('.items'), function () {
                    $(this).removeClass('selected');
                    if (index === proximo) {
                        $(this).addClass('selected');
						$(this).focus();
                    }
                    index++;
                })
            }
         
    
        });	
	
	
	
						
	function  ClikButton(e)
       {
	   
	   
	   
         /*  document.formAmostra.tipo2014.value = e;
           alert(document.formAmostra.tipo2014.value)    //esta linha serve para ver qual botao foi clicado
           if(e>0 && e<=255) //novo 
           {
		      document.formAmostra.submit();
			  alert(Evento.keyCode);
		   }
		   
		   //button MECANICO=M
		   if(e==24) //button MECANICO=M
           {
			  //alert("2- tx_saotome  was clicked.");
              document.formAmostra.tx_temporario.value="M";
		   }

            //button UMIDADE=U 
		   if(e==25) //button UMIDADE=U 
           {
              document.formAmostra.tx_temporario.value="U";
		   }
		   
		   //BOTAO PERCEVEJOS =P
		   if(e==26) //BOTAO PERCEVEJOS =P
           {
              document.formAmostra.tx_temporario.value="P";
		   }

		   if(e==27) //BOTAO PERCEVEJOS =P
           {
              document.formAmostra.tx_temporario.value="P";
		   }
		   if(e==28) //BOTAO PERCEVEJOS =P
           {
              document.formAmostra.tx_temporario.value="P";
		   }
		   if(e==29) //BOTAO PERCEVEJOS =P
           {
              document.formAmostra.tx_temporario.value="P";
		   }
*/




           //AQUI VERIFICA SE JA TINHA AQUELE DANO
           if(document.formAmostra.tx_temporario.value==document.formAmostra.tx_saotome1.value )
		   {
               alert("Não precisa clicar 2 vezes no mesmo dano!");		   
	           document.formAmostra.tx_temporario.value="";
		   }
           if(document.formAmostra.tx_temporario.value==document.formAmostra.tx_saotome2.value )
		   {
               alert("Não precisa clicar 2 vezes no mesmo dano!");		   
	           document.formAmostra.tx_temporario.value="";
		   }
           if(document.formAmostra.tx_temporario.value==document.formAmostra.tx_saotome3.value )
		   {
               alert("Não precisa clicar 2 vezes no mesmo dano!");		   
	           document.formAmostra.tx_temporario.value="";
		   }
           
		   
		   
		   //AQUI DISTRIBUI CONFORME OS LOCAIS VAGOS
           if(document.formAmostra.tx_saotome1.value=="")
		   {
               document.formAmostra.tx_saotome1.value=document.formAmostra.tx_temporario.value;
	           document.formAmostra.tx_temporario.value="";
		   }
		   
           if(document.formAmostra.tx_saotome2.value=="")
		   {
               document.formAmostra.tx_saotome2.value=document.formAmostra.tx_temporario.value;
	           document.formAmostra.tx_temporario.value="";
		   }
           if(document.formAmostra.tx_saotome3.value=="")
		   {
               document.formAmostra.tx_saotome3.value=document.formAmostra.tx_temporario.value;
	           document.formAmostra.tx_temporario.value="";
		   }
       } 
</script>


    <style>
        .container {
            display: grid;
            grid-template-columns: auto auto auto auto auto auto auto;
            height: 500px;
            width: 80%;
            margin: 100px auto 0;
            /*background: #e3e3e3;*/
            grid-auto-rows: auto auto auto;
            grid-gap: 2em;
        }
    
        .items {
            border: 2px solid black;
			  }
    
        
        .selected {
            background: silver;
        }
	 
    </style>
<?php





switch ($tela):
    case 'editar':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"GERM");
	   calculageral('GERM');
	break;
	
   case 'PAD_ARE':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"PAD_ARE");
	   calculageral('PAD_ARE');
	break;
	
   case 'PAD_ARE2':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"PAD_ARE2");
	   calculageral('PAD_ARE2');
	break;	
	
    case 'GE2':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"GE2");
	   calculageral('GE2');
	break;

    case 'eacel':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"EAC");
	   calculageral('EAC');
	break;
	
	case 'EACxx':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"EAC");
	   calculageral('EAC');
	break;
	
    case 'EA2xx':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"EA2");
	   calculageral('EA2');
	break;
	case 'E24':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"E24");
	   calculageral('E24');
	break;
	case 'E24A':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"E24A");
	   calculageral('E24A');
	break;
	
	case 'E48':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"E48");
	   calculageral('E48');
	break;

	case 'E48A':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"E48A");
	   calculageral('E48A');
	break;

	case 'E72':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"E72");
	   calculageral('E72');
	break;
	
	case 'E72A':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"E72A");
	   calculageral('E72A');
	break;
	
    case 'frio':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"FRI");
	   calculageral('FRI');
       //echo("salvou na sesso reanCapturada<br>");
    break;
	

	case 'frio2':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"FR2");
	   calculageral('FR2');
	break;
	

    case 'trr':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"TRR");
	   calculageral('TRR');
	break;
	
    case 'frio3':
	   $sessao = new sessao(); 
       $sessao->setVar('reanCapturada',"FR3");
	   calculageral('FR3');
	break;

    case 'voltando':
        echo("xxxxxxxxxxxxxxxxcortando<br>") ;

    break;


	default:
	   echo '<p>A tela solicitada não existe.</p>';
	break;
endswitch;

function calculageral($nomeTeste)
 {
 //echo("çççççççççççççççççççesta no calcula geral nomeTeste=$nomeTeste   <br>");
 
$sessao = new sessao();
$cliente=strtoupper($sessao->getVar('cliente' ) ?? "");

$amostraLong=$sessao->getVar('amostraLong');
$senhaCli=$sessao->getVar('iduser');
$idLabo=$sessao->getVar('idLabo');
//captura o vetor de nomes de analistas
$user = new usuarios();
$user->extras_select = "WHERE  nivel='OPERADOR' && id_lab=".$idLabo;
$user->selecionaTudo($user);
$conta=0;
while ($res = $user->retornaDados()):
    $vetorAnalistas[$conta]=substr($res->nome,0,10);
	$conta++;
endwhile;                


if (post('bt_aAbrirPrimeiraLeitura') !== ""):
    echo("Box primeira leitura<br>");
    //echo '<iframe src="mudarNumeroAmostra.php" style="border:5px dotted red" width="100%" height="180"></iframe>';	 //funciona  
    print("<SCRIPT LANGUAGE='JavaScript'>
	window.open('abrirPrimeiraLeitura.php','','width=40 height=30 left=130 top=100');
	</script>");



endif;






//echo $vetorAnalistas[0] . sizeof($vetorAnalistas);

			//$sessao = new sessao();
			//QUANDO É TESTE ADICIONAL ELE SALVA(SE FOR PADRAO NAO SALVA))
			if($nomeTeste!='GERM')$sessao->setVar('testeAdicionalGerminacao',$nomeTeste);
			$finalidade=$sessao->getVar('finalidade');
			//echo("finalidade=$finalidade<br>");
			
			$amostraLong=$sessao->getVar('amostraLong');
			$nomeOperador=$sessao->getVar('nomeuser');
            $idLabo=$sessao->getVar('idLabo');
			$cliente=strtoupper($sessao->getVar('cliente' ) ?? "");
			
	
            //AQUI VAI GRAVAR A CLV CASO REALMENTE TENHA VALOR, OU SEJA SE A PESSOA COLOCOU
			// DADOS NA SEGUNDA LEITURA OU TERCEIRA...


        	if(post('gravaclv') !== ""):
			   //echo("vau gravar clv <br>");
               //deve verificar se tem o registro
			   $user = new rean1();
			   $user->extras_select = " WHERE  rea_teste='CLV' and  rea_ficha=".$amostraLong;
               $user->selecionaTudo($user);
               $registros=$user->linhasafetadas;
			   //echo("lllllllllllllllinhas afetadas= $registros<br>");
			   $nomeDete='CLV';
			   $resultadoFinal=post('valorCLV');
               if($resultadoFinal>0):
	               if($registros>0):
				       //se ja tem o teste entao so atualiza
					   //GRAVA  DiRETO NA REAN dete CLV
					   $sql="update rean1 set rea_v1='$resultadoFinal' where  rea_teste='CLV' and  rea_ficha=".$amostraLong;
	  	 	           $generica=new tabelagenerica();
					   $generica->grava_registro_com_retorno($sql); 
		               //echo("ggggg sql=$sql<br>");
	               else:
				   	   //se nao tem o teste entao inclui
		               //cria registro novoGRAVA AS LEITURAS DiRETO NA REAN
					   $sql="insert into rean1(rea_v1,rea_teste,rea_ficha) values('$resultadoFinal','$nomeDete','$amostraLong')";
	  	 	           $generica=new tabelagenerica();
					   $generica->grava_registro_com_retorno($sql); 
		               echo("gggggxxxxxxxxxxxxxxxxx207 sql=$sql<br>");
				   endif;
				   printMSG('CLV=NORMAIS-FRACAS.(normais=fortes+fracas) As fortes ficam na primeira leitura as fracas nas demais. Ok. Gravação normal.'   ,'alerta');

             else: //caso nao tenha sido informado nada nas demais linhas
			    printMSG('Valor de CLV=' . $resultadoFinal.' CLV=NORMAIS-FRACAS.(normais=fortes+fracas) . As fortes ficam na primeira leitura as fracas nas demais. Caso as fracas nao tenham sido lançadas nao faz sentido gravar CLV. Para gravar o CLV precisa antes clicar em CALCULAR&GRAVAR. Não houve gravação.'   ,'alerta');

              endif;
			  
			  
			  
			  
 	        endif;//checa o isset da gravacao de clv	
		if(post('bt_reteste') !== ""):				   
           //echo("Box testes a realizar<br>");
		   echo '<iframe src="gerenciadorDeReteste.php" style="border:5px dotted red" width="120%" height="230"></iframe>';	 //funciona  

        endif; 	
		
		if(post('bt_atualiza') !== ""):				   
		   echo 'atualiza a tela';	 //funciona  
        endif; 	
		
				
		if(post('bt_retesteantigo') !== ""):				   
			$userRean1 = new rean1();
		    $userRean1->extras_select =  " where  rea_teste='".$nomeTeste."' and  rea_ficha=".$amostraLong;
		    $userRean1->selecionaCampos($userRean1);
	        ?>
			<fieldset>
			<legend>Teste e reteste de <?php  echo $nomeTeste; ?> (Aquele que estiver com status=S vai para boletim) </legend>

            <table>
			<thead>
                <tr>
                    <th>Referencia</th><th bgcolor="#a9b8f1">Incluir</th><th bgcolor="red">Excluir</th><th bgcolor="#81e278">Selec</th><th bgcolor="white">Data do teste</th><th bgcolor="silver">Status Ativado</th><th bgcolor="white">Germ</th><th bgcolor="silver">Controle</th>
                </tr>
            </thead>
			<?php
						
		    while ($resRean1 = $userRean1->retornaDados()):
		        ///$reanLong=$resRean1->rea_id;
		        echo "<tr>";
  		            printf('<td>%s</td>',substr($resRean1->rea_id,0,20));
					
					//<printf('<td align="center">[<a href="?m=germinacao&t=incluirReteste" title="Novo teste/reteste"><img src="images/add.png" alt="Incluir reteste" /></a>]</td>td  align="center">[<a href="?m=germinacao&t=excluirReteste&id=%s" title="Excluir"><img src="images/delete.png" alt="Excluir" /></a>]</td>
					//<td  align="center">[<a href="?m=germinacao&t=selecionarReteste&id=%s" title="Editar/Selecionar"><img src="images/edit.png" alt="Editar/Selecionar" /></a>]
					//</td>',$resRean1->rea_id,$resRean1->rea_id,$resRean1->rea_id);
                    printf('<td bgcolor="white">%s</td>',date("d/m/Y",strtotime($resRean1->rea_datageralteste))));
                    printf('<td bgcolor="silver" align="center">%s</td>','['.$resRean1->rea_boletim.']');
                    printf('<td bgcolor="white">%s</td>','['.$resRean1->rea_v1.'%]');
                    printf('<td bgcolor="silver">%s</td>','['.$resRean1->rea_teste.']');//aqui so mostra qualquer teste
	
		        echo "</tr>";
			endwhile;	   
   
            //para nao mostrar ge2 duas vezes, sem necessidade
         if($nomeTeste!='GE2'):      
			$userRean1 = new rean1();
		    $userRean1->extras_select =  " where  rea_teste='GE2'  and rea_boletim='S' and  rea_ficha=".$amostraLong;
		    $userRean1->selecionaCampos($userRean1);
		    while ($resRean1 = $userRean1->retornaDados()):
		        ///$reanLong=$resRean1->rea_id;
				?>
				<tr bgcolor="green">
				<?php
				
				
				
		       // echo "<tr>";
  		            printf('<td>%s</td>',substr($resRean1->rea_id,0,20));
				    printf('<td align="center">[<a href="?m=germinacao&t=incluirReteste" title="Novo teste/reteste"><img src="images/add.png" alt="Incluir reteste" /></a>]</td>
					<td  align="center">[<a href="?m=germinacao&t=excluirReteste&id=%s" title="Excluir"><img src="images/delete.png" alt="Excluir" /></a>]</td>
					<td  align="center">[<a href="?m=germinacao&t=selecionarReteste&id=%s" title="Editar/Selecionar"><img src="images/edit.png" alt="Editar/Selecionar" /></a>]
					</td>',$resRean1->rea_id,$resRean1->rea_id,$resRean1->rea_id);
                    printf('<td bgcolor="white">%s</td>',date("d/m/Y",strtotime($resRean1->rea_datageralteste))));
                    printf('<td bgcolor="silver" align="center">%s</td>','['.$resRean1->rea_boletim.']');
                    printf('<td bgcolor="white">%s</td>','['.$resRean1->rea_v1.'%]');
                    printf('<td bgcolor="silver">%s</td>','['.$resRean1->rea_teste.']');//aqui so mostra g2
		
		        echo "</tr>";
			endwhile;	   
          endif;//FECHA O IF QUE PERGUNTA SE É G2        

            echo("</table>");			

	        echo("</fieldset>");


		endif;//final do isset bt_reteste	
			
			
			
			
			if(post('manual') !== ""):
	           echo '<iframe src="manual2010.php?opcaoManual=germinacao" style="border:0" width="100%" height="350"></iframe>';//funciona
 	        endif;	

			if(post('ajudaEspecial') !== ""):
	           echo '<iframe src="manual2010.php?opcaoManual=ajudaEspecial" style="border:0" width="100%" height="350"></iframe>';//funciona
 	        endif;	



            $corFundo="#fcfefd";
			if($nomeTeste=='GERM') $legendaTeste='Germinação Padrão';
			if($nomeTeste=='GE2') $legendaTeste='Germinação[2]';
			if($nomeTeste=='EAC'): 
			   $legendaTeste='Envelhecimento acelerado';
			   $corFundo="#cf9636";
			endif;
			if($nomeTeste=='EAC2'): 
			   $legendaTeste='Envelhecimento acelerado2';
			   $corFundo="#cf9636";
			endif;
			
			if($nomeTeste=='FRI'):
			   $legendaTeste='Teste de frio';
			   $corFundo="#9e8fda";
			endif;  
			if($nomeTeste=='FR2'):
			   $legendaTeste='Teste de frio2';
			   $corFundo="#9e8fda";
			endif;   
			
			 

			if($nomeTeste=='FR3') $legendaTeste='Teste de frio[3]';
			if($nomeTeste=='TRR') $legendaTeste='Teste de Roundap';

			$objetocalculo = new calculos(); //calcula todos valores finais
			
			if(post('fechar') !== ""):
			  //echo("nomeTeste= $nomeTeste<br>");
			  if(post('cb_fechar') !== ""):
	    		   //GRAVA AS LEITURAS DiRETO NA REAN
				   $sql="update rean1 set rea_finalizada='s' where  rea_teste='".$nomeTeste."' and  rea_ficha=".$amostraLong;
  	 	           $generica=new tabelagenerica();
				   $generica->grava_registro_com_retorno($sql); 
		           printMSG('Esta amostra foi fechada e so podera ser reaberta se entrar com uma senha de administrador. Ok. Gravação normal.' ,'alerta');	
			   else:
			   		printMSG('Não houve fechamento, porque antes precisa  marcar SIM. ' ,'alerta');
			   endif;//confirma se clicou em sim		
			endif;//isset do botao fechar
			
			if(post('reabre') !== ""):
			  $master=$sessao->getVar('master');
			  //echo("nomeTeste= $nomeTeste master  $master<br>");
			  if($master=='s'):
	    		   //GRAVA AS LEITURAS DiRETO NA REAN
				   $sql="update rean1 set rea_finalizada='n' where  rea_teste='".$nomeTeste."'  and  rea_ficha=".$amostraLong;
  	 	           $generica=new tabelagenerica();
				   $generica->grava_registro_com_retorno($sql); 
		           //grava ocorrencia
				   $finalidadeVolatil="Reabrir ".$nomeTeste;
	               $valor='-O-';				   
				   $objetocalculo->registroDeOcorrencias($amostraLong,0,$nomeOperador,$finalidadeVolatil,$valor,$idLabo);
				   printMSG($nomeTeste.'Teste foi reaberto!. Gravou também uma ocorrência.' ,'alerta');	

			   else:
			   		printMSG('Para reabrir este teste, desta amostra, precisa entrar no programa com a senha do ADMINISTRADOR. ' ,'alerta');
			   endif;//confirma se clicou em sim		
			endif;//isset do botao fechar
			
		


			$teste==$nomeTeste;
			//$numeroRepeticoes=8;
			//$repeticao="4x100";
			//$repeticao="8x50";
			$numeroLinhas=15;
			$vaiCalcular="NAO";
	//////////////////////////////////////////////////////////////////////
	        //echo("OOOOOOOOOOOOOOteste=$teste userAmostra->extras_select= $userAmostra->extras_select <br>");
		   if (post('acharDigitada') !== "" || post('acharAvanca') !== ""  || post('acharRecua') !== "" || post('acharUltima') !== ""):
			   	$registro=post('amostra');//se clica em achar digitada ja pega daqui
              	if(post('acharAvanca') !== "")$acao='avanca';
              	if(post('acharRecua') !== "")$acao='recua';
              	if(post('acharUltima') !== "")$acao='ultima';
	            $amostraLong=$objetocalculo->AchaIdAmostra2016($registro,$acao);
		   else:	
    	     $reanLong=post('reanLong'); //toda vez que nao for achar ele pega o reanlong do post
			 $finalizada=post('finalizada');				
		   endif;//fecha o 




		  
	 ///////////////////////fim do setor achar/////////////////////////////////

		 

		 //vai salvar so as leituras  #################################################	 	 
		 //vai salvar so as leituras #################################################	 	 
		 //vai salvar so as leituras #################################################	 
		 //referencia leituras  627	 
	     if(post('bt_gravarLeituras') !== ""):
		    $ambienteLeituras="SIM";
			$vaiCalcularGravar="SIM";
		    $numeroRepeticoes=4; //valor deful.....
			$repeticao=post('formato');
			//caso 8x50
			if(substr($repeticao,0,3)=="8x5"):
				     $numeroRepeticoes=8;
				     $numeroRepeticoes2012=8;
				     $base=50;
				     $fator=0.5; 
					 $fatorEspecial=1;  
            endif; 
			//caso 4x100
			if(substr($repeticao,0,3)=="4x1"):
				     $numeroRepeticoes=4;
				     $numeroRepeticoes2012=4;
				     $base=100;
				     $fator=1.0;
					 $fatorEspecial=1;   
            endif;
            //caso 4x50
			if(substr($repeticao,0,3)=="4x5"):
				     $numeroRepeticoes=4;
				     $numeroRepeticoes2012=4;
				     $base=50;
				     //$fator=1;
					 $fator=1; 
					 $fatorEspecial=2;  
            endif;
			
	        //caso 2x100
			if(substr($repeticao,0,3)=="2x1"):
				     $numeroRepeticoes=2;
				     $numeroRepeticoes2012=2;
				     $base=100;
				     //$fator=1;
					 $fator=1; //era 1
					 $fatorEspecial=1; //eta 1 
            endif;			
							
	        //caso 16x25
			if(substr($repeticao,0,3)=="16x"):
				     $numeroRepeticoes=16;
				     $numeroRepeticoes2012=16;
				     $base=25;
					 $fator=1; 
					 $fatorEspecial=1;  
            endif;
	        //echo("627 comando gravar leituras numlinhas=$numeroLinhas numrepe=$numeroRepeticoes <br>");
			for($i=1;$i<=$numeroLinhas;$i++):
				for($j=1;$j<=$numeroRepeticoes;$j++):
					 $campo="c".str_pad($i, 2, "0", STR_PAD_LEFT).str_pad($j, 2, "0", STR_PAD_LEFT);
					 $posicao=$i.$j;
					 //echo("campo= $campo<br>");
					 $conteudo=$v160[$i][$j];
				     $lido=$_POST[$campo];
					// echo("i=$i j=$j  XXXXLIDO=$lido<br>");
					 /////////////
		             $posicao=$i.$j;
		             //$v160[$o][$j]=$lido;
		             $v160[$i][$j]=$lido;
					 ////////////
					 //aqui grava as leituras ou seja tudo que digitar (que seja diferente de branco)
					 if($lido<>""):
					    $colu=$j;
						$coluf="C".$colu;
						if($colu<10) $coluf="C0".$colu;
						//if($colu>=10) $coluf="C".$colu; //se tiver 16 colunas  coloca por exemplo L01C12V4
						$linha=$i;
						$linhaf="L".$linha;
						if($linha<10) $linhaf="L0".$linha;
						$valor="V".$lido;
						$gravado=$linhaf.$coluf.$valor;
						//vai procurar o registro  que tem linha,coluna e codrean igual
						$idLC=substr($gravado,0,6);
						
						
                        $sqlLeitura="select lei_leitura,lei_rean from leituras where lei_leitura like '%$idLC%'  and lei_rean=".$reanLong;
                        //$sqlLeitura="select lei_leitura,lei_rean from leituras where lei_rean=".$reanLong;
						//echo("665 lido=$lido sqlLeitura=$sqlLeitura<br>");
					    
						//ENTRA DE QUAKQUER MANEIRA  pesqisa se tem o registro, se tem edita, se nao tem inclui
					    $generica=new tabelagenerica();
					    $generica->extras_select =$sqlLeitura;
						$generica->selecionaCamposEspecial($generica);
                        $temRegistro="NAO";
					    while ($resgenerica= $generica->retornaDados()):
                            $temRegistro="SIM";
							$valor=$resgenerica->lei_leitura;
							$rean1=$resgenerica->lei_rean;
							//echo("672 valor=$valor   rean1=$rean1<br>");
                            //qui vai editar o registro
                            $sqlLeitura2="update leituras set lei_leitura='".$gravado."' where   lei_leitura like '%$idLC%'  and lei_rean=".$reanLong;
							//echo("674 sqlLeitura2=$sqlLeitura2<br>");
						    $userDoc = new tabelagenerica();
					        $userDoc->campos_valores = $sqlLeitura2;				 
					        $userDoc->inserirEspecial($userDoc);   
					    endwhile; 
						//inserir um registro novo caso nao encontrou
                        if($temRegistro=="NAO"):
						    $sql="insert into leituras(lei_rean,lei_leitura) values('$reanLong','$gravado')";
				            //echo("2213sql de gravacao=$sql<br>");
							$userDoc = new generica();
							$userDoc->campos_valores = $sql;				 
							$userDoc->inserirEspecial($userDoc);       
						endif;//pergunta se achou registro para este valor 'NOVO'
					
                        /*
                        //comando replace cuja sintaxe nao entendi												
                        $sqlLeitura2="replace into leituras values('$reanLong','$gravado')";
						echo("674 sqlLeitura2=$sqlLeitura2<br>");
					    $userDoc = new tabelagenerica();
				        $userDoc->campos_valores = $sqlLeitura2;				 
				        $userDoc->inserirEspecial($userDoc);   
						*/


		 			 endif;//examina se esta preenchido
				endfor;//for das repeticose	   
			endfor;//for do numero de linhas
			$gravouLeituras="Ok. Salvou!";
         endif;//fim do comando bt gravar leituras


     //vai salvar so as outras informações VERSAO 2023$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 	
     //vai salvar so as outras informações VERSAO 2023$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 	
     //vai salvar so as outras informações VERSAO 2023$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 	
     if(post('bt_outrosDados') !== ""):
	 	$ambienteOutrosDados="SIM";
		$vaiCalcularGravar="SIM";
		$gravouOutrasInformacoes="Ok.Gravou";
	 endif;//fim do isseet bt_OUTROS DADOS VERSAO 2023 
	 //SUCATSUCATA DEIXAR ATÉ FICAR REDONDO#####################################
	 //SUCATSUCATA DEIXAR ATÉ FICAR REDONDO#####################################
	 //SUCATSUCATA DEIXAR ATÉ FICAR REDONDO#####################################

	     if(post('bt_calculargravar SUCATA DEIXAR ATÉ FICAR REDONDO') !== ""):
		    $vaiCalcularGravar="SIM";
		    //echo("esta no isset calcular gravar reanLong=$reanLong finalizada=$finalizada<br>");
		    if($vaiCalcularGravar=="SIM"):
			    //echo ("aaaaaaaaaamostralong= $amostraLong <br>");
				$repeticao=post('formato');
				//caso 8x50
				if(substr($repeticao,0,3)=="8x5"):
					     $numeroRepeticoes=8;
					     $numeroRepeticoes2012=8;
					     $base=50;
					     $fator=0.5; 
						 $fatorEspecial=1;  
	            endif; 
				//caso 4x100
				if(substr($repeticao,0,3)=="4x1"):
					     $numeroRepeticoes=4;
					     $numeroRepeticoes2012=4;
					     $base=100;
					     $fator=1.0;
						 $fatorEspecial=1;   
	            endif;
	            //caso 4x50
				if(substr($repeticao,0,3)=="4x5"):
					     $numeroRepeticoes=4;
					     $numeroRepeticoes2012=4;
					     $base=50;
					     //$fator=1;
						 $fator=1; 
						 $fatorEspecial=2;  
	            endif;
				
		        //caso 2x100
				if(substr($repeticao,0,3)=="2x1"):
					     $numeroRepeticoes=2;
					     $numeroRepeticoes2012=2;
					     $base=100;
					     //$fator=1;
						 $fator=1; //era 1
						 $fatorEspecial=1; //eta 1 
	            endif;			
								
				if(substr($repeticao,0,3)=="16x"):
					     $numeroRepeticoes=16;
					     $numeroRepeticoes2012=16;
					     $base=25;
						 $fator=1; 
						 $fatorEspecial=1;  
	            endif;
	
			   //echo("xxxxxxxxxxxxxxxxxxesta   amostralong=$amostraLong  repeticao= $repeticao  numeroLinhas=$numeroLinhas numeroRepeticoes=$numeroRepeticoes<br>");
			    //deleta as os registros de leituras vinculadas ao reanlong, para gravar novamente(preciso fazer isso pois pode ser que foi incluido um registro, ou editado)
	           //dia 04/05/23  vou fazer um detectador se todos os campos forem brancos ele nao vai fazer nada , nem apagar nem grava...
			   
			   
			   
			    $user = new leituras();
	            $user->extras_select = " WHERE lei_rean=".$reanLong;
				$user->deletarRegistros($user);
				//echo("ssssssssssalvando na tab leituras  numeroLinhas= $numeroLinhas numeroRepeticoes=$numeroRepeticoes  rl=   $reanLong<br>");	
				for($i=1;$i<=$numeroLinhas;$i++):
					for($j=1;$j<=$numeroRepeticoes;$j++):
						 $campo="c".str_pad($i, 2, "0", STR_PAD_LEFT).str_pad($j, 2, "0", STR_PAD_LEFT);
						 $posicao=$i.$j;
						 //echo("campo= $campo<br>");
						 $conteudo=$v160[$i][$j];
					     $lido=$_POST[$campo];
						// echo("i=$i j=$j  XXXXLIDO=$lido<br>");
						 /////////////
			             $posicao=$i.$j;
			             //$v160[$o][$j]=$lido;
			             $v160[$i][$j]=$lido;
						 ////////////
						 //aqui grava as leituras ou seja tudo que digitar (que seja diferente de branco)
						 if($lido<>""):
						    $colu=$j;
							$coluf="C".$colu;
							if($colu<10) $coluf="C0".$colu;
							//if($colu>=10) $coluf="C".$colu; //se tiver 16 colunas  coloca por exemplo L01C12V4
							$linha=$i;
							$linhaf="L".$linha;
							if($linha<10) $linhaf="L0".$linha;
							$valor="V".$lido;
							$gravado=$linhaf.$coluf.$valor;
							//vai gravar os registros na tabela leituras
							//echo("502conteudo $linhaf.$coluf.$valor <br>");
		    					$user = new leituras(array(
					                'lei_leitura'=>$gravado,
					                'lei_rean'=>$reanLong,
					            ));
				                $user->inserir($user);
							//echo("uuussssssssssalvando na tab leituras  j= $j  VALOR GRAVADO= $gravado  REANLONG= $reanLong numeroRepeticoes=$numeroRepeticoes<br>");	
			 			 endif;//examina se esta preenchido
					endfor;//for das repeticose	   
				endfor;//for do numero de linhas
				//aqui vai salvar a primeira leitura , se algum item havia sido digitado
               $vetorBaren[1]=post('leit1');
               $vetorBaren[2]=post('leit2');
               $vetorBaren[3]=post('leit3');
               $vetorBaren[4]=post('leit4');
               $vetorBaren[5]=post('leit5');
               $vetorBaren[6]=post('leit6');
               $vetorBaren[7]=post('leit7');
               $vetorBaren[8]=post('leit8');
			   for($indexador=1;$indexador<=8;$indexador++):
				   if($vetorBaren[$indexador]!=''):
	                   $gravado="L25C0".$indexador."V".$vetorBaren[$indexador];				
					   $user = new leituras(array(
						                'lei_leitura'=>$gravado,
						                'lei_rean'=>$reanLong,
						            ));
					                $user->inserir($user); 
					    //echo("FEZ GRAVACAO");
					endif;
               endfor;//percorre os 8 campos do baren
			endif;//examina se esta fechada ou nao
			//vai gravar o analista selecionado no combo e a data digitada
				
				
	 $tratamento=post('direita6');
	
     $userNota = new generica();
	 //primeiro vai desmarcar todos testes para deixar livre para marcar este que esta trabalhando
	 $userNota = new generica();
	 //vai desmarcar testes correlatos para depois GRAVAR ASPTERISCO NAQUELE QUE FOI ESCOLHIDO
	 $sql="update rean1 set rea_terceira_leitura_analista='' where rea_ficha=".$amostraLong ." and(rea_teste='GERM'  || rea_teste='GE2'  || rea_teste='PAD_ARE'  || rea_teste='PAD_ARE2' )";
	 $userNota = new generica();
	 $userNota->campos_valores = $sql;				 
	 $userNota->inserirEspecial($userNota);
	 //echo("Desmarcou todos testes, para poder gravar o teste que vai para o boletim.<br>");
	 //ATRIBUI O VALOR S PARA O CAMPO REA_BOLETIM justamente para a amostra selecionada
	 //$sql="update rean1 set rea_boletim='S' where rea_id = ".$reanLongCapturada." and   rea_teste='GERM' and rea_ficha=".$amostraLong;
	 $d1=post('dataPrimeiraLeitura');
	 $a1=post('analistaPrimeiraLeitura');
	 $d2=post('dataSegundaLeitura');
	 $a2=post('analistaSegundaLeitura');
	 $d3=post('dataTerceiraLeitura');
	 $a3=post('analistaTerceiraLeitura');
	 $temposEAC=post('temposEAC');
     //se for limagrain ele desmarca   rea_terceira_leitura_analista para caracter em branco e depois salva um aterisco naquele 
	 if($cliente == 'LIMAGRAIN'):
	     $a3 = '*';
     endif;
	 		 	 	
	 $sql="update rean1 set 
	 rea_lei3='$temposEAC',				
	 rea_primeira_leitura_data='$d1',				
     rea_primeira_leitura_analista='$a1', 			
	 rea_segunda_leitura_data='$d2',				
     rea_segunda_leitura_analista='$a2', 			
	 rea_terceira_leitura_data='$d3',				
     rea_terceira_leitura_analista='$a3' 			
	 where rea_id = ".$reanLong;
     $userNota = new generica();
     $userNota->campos_valores = $sql;				 
	 $userNota->inserirEspecial($userNota);
	 //echo("765 modulo germinacao sql=$sql<br>");
	 
	 //R

				
				
				
				
				
                /*

				$user = new rean1(array(
	            'rea_primeira_leitura_data'=> post('dataPrimeiraLeitura')  ,				
	            'rea_primeira_leitura_analista'=> post('analistaPrimeiraLeitura') ,				
	            'rea_segunda_leitura_data'=> post('dataSegundaLeitura')  ,				
	            'rea_segunda_leitura_analista'=> post('analistaSegundaLeitura') ,				
	            'rea_terceira_leitura_data'=> post('dataTerceiraLeitura')  ,				
	            'rea_terceira_leitura_analista'=> post('analistaTerceiraLeitura') ,
	
								
	            ));
			    $user->valorpk = $reanLong;
	            $user->extras_select = "WHERE   rea_id=$reanLong";
	            //$user->selecionaTudo($user);
	            //$res = $user->retornaDados();
	            $user->atualizar($user);
	            if ($user->linhasafetadas==1):
	                printMSG('547Dados alterados com sucesso. '.$tratamento);
	                unset($_POST);
	            else:
					//printMSG('Ok.Nada foi alterado. ','alerta');
	            endif;			
			*/

 endif;//isset do botao calcular e gravar vou deletar no final ois é sucata do comando calculara gravar


                //$vetorMontado[1]=$amostra;
                //$vetorMontado[2]=$lote;
				//$vetorMontado[14]="soja";
 				$rean = new rean1();
				//$rean->extras_select =" where  rea_boletim='S' and rea_teste='".$nomeTeste."' AND rea_ficha=".$amostraLong ;
				$rean->extras_select =" where  rea_teste='".$nomeTeste."' and rea_boletim='S'  AND rea_ficha=".$amostraLong ;
                $rean->selecionaTudo($rean);
				
				//echo ("547 modulo germinacao xxxxxxxxxxxxxxxxxxrean->extras_select   $rean->extras_select<br>");
				$contador=0;
				while ($resRean = $rean->retornaDados()):
				    $contador++;
					$reanLong=$resRean->rea_id;
					$finalizada=$resRean->rea_finalizada;
                    $vetorMontado[2]=$resRean->rea_segunda_leitura;
                    $vetorMontado[3]=$resRean->rea_datainicio;
                    $vetorMontado[4]=$resRean->rea_duracao;
					$dataFinal=$resRean->rea_datageralteste;
                    if(substr($dataFinal,0,4)<2000)$dataFinal=date("Y-m-d"); 					
                    $vetorMontado[5]=date("d/m/Y",strtotime($dataFinal));  //final do teste
					$statusLido=$resRean->rea_terceira_leitura_analista;
					if($statusLido=='*'):
					   $statusAtivado="Ativado";
					else:
					   $statusAtivado="";
					endif;   
					
					//echo("xxxxxxxxxxdata arquivada=$resRean->rea_datageralteste  dataFinal=$dataFinal<br>");
                    $vetorMontado[6]=$resRean->rea_campo60a;//tratamento
					$vetorMontado[7]=$resRean->rea_campo60b;//substrato
					$vetorMontado[8]=$resRean->rea_campo20b;//germinador
					$vetorMontado[9]=$resRean->rea_campo20a;//temperatura
					$vetorMontado[10]=$resRean->rea_campo60c;//fungos
     				$vetorMontado[11]=$resRean->rea_operador;
					$vetorMontado[12]=$resRean->rea_campo100;
					$vetorMontado[13]=$resRean->rea_validade;
					$vetorMontado[16]="-";
					
                    $vf1=$resRean->rea_v1;//normais 
                    $vf5=$resRean->rea_v2; //anormais
                    $vf6=$resRean->rea_v5; //mortas
					$primeiraLeituraData=$resRean->rea_primeira_leitura_data;
					$primeiraLeituraAnalista=$resRean->rea_primeira_leitura_analista;
					$segundaLeituraData=$resRean->rea_segunda_leitura_data;
					$segundaLeituraAnalista=$resRean->rea_segunda_leitura_analista;
					$terceiraLeituraData=$resRean->rea_terceira_leitura_data;
					$terceiraLeituraAnalista=$resRean->rea_terceira_leitura_analista;
				    $repeticao=$resRean->rea_lei4;
					$eacDestaAmostra=$resRean->rea_lei3;
					//$observacao=$resRean->rea_campo100;
                    // echo("rrrrrrrrrrrrrrrepeticao= $repeticao<br>"); 

					//$vetorMontado[15]=$reanLong;
                    //printf('<td>%s</td>tttttxxxxxxxxxxxxxxx',$res->rea_lei1);
                endwhile;
				
				
				//se contador for zero sifnifica que nao achou registro entao cria um rapidao
				if($contador==0):
                    //define o formato sendo sempre o mesmo 4x100 no envelhecimento e outros tipos na germinacao 8x50  16x25 etc
				    if($nomeTeste=="EAC"):
                       $repeticao='4x50';
                       if($cliente=="LASSUL")$repeticao='4x100';
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia)); 
					elseif($nomeTeste=="EAC2"):   
					   $repeticao='4x50';
					   if($cliente=="LASSUL")$repeticao='4x100';
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia)); 
					   
					elseif($nomeTeste=="GE2"): 
                       if($cliente=='BAREN'):
					     $repeticao='4x50';
					   else:
					     $repeticao='8x50';
					   endif;
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia)); 

					elseif($nomeTeste=="FRI"): 
                       $repeticao='4x50';
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia)); 
					elseif($nomeTeste=="FR2"): 
                       $repeticao='4x50';
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia)); 
					elseif($nomeTeste=="TRR"): 
                       $repeticao='4x50';
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia)); 
					Elseif($nomeTeste=="PAD_ARE"): 
                       $repeticao='4x50';
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia));   
					   
					elseif($nomeTeste=="FR3"): 
                       $repeticao='4x50';
					   $datadia=date("Y-m-d");  
					   $vetorMontado[5]=date("d/m/Y",strtotime($datadia)); 
					else:
					   	//VAI LER TODA VEZ O CONTEUDO DA TABELA  //isso aqui é pifio pois o registro 
						//na rean para germinacao ja foi feito na hora de registrar a amaostra
						//so stou deixando aqui para evitar duvidaa e tambem se tiver outro teste que usa isso aqui VGPL ETC..
					    $user = new tabeladeful();
						$user->extras_select =" where   cod_lab=".$idLabo ;
					    $user->selecionaTudo($user);
						while ($res = $user->retornaDados()):
					        $repeticao=$res->formato_germinacao;//4x100  8x50  4x50
					    endwhile;
					endif;
		            //criando o registro do teste que está sendo trabalhado
					//se estiver trabalhando com analise previa entao usa 4x50
					if($finalidade=='PREVIA')$formato='4x50';
	                //echo("646  nomeTeste=$nomeTeste<br>");
					$tratamento="xxxx";
					if($cliente=='LIMAGRAIN'):
					    //echo("649  nomeTeste=$nomeTeste<br>");
						$tratamentoLimagrain='-O-';
					    if($nomeTeste=='FRI'):
						    $germinadorLimagrain='SC';
						    $substratoLimagrain='RP';
						    $formatoLimagrain='4x50';
						endif;	
					    if($nomeTeste=='FR2'):
						    $germinadorLimagrain='SC';
						    $substratoLimagrain='RP';
						    $formatoLimagrain='4x50';
						endif;	
					    if($nomeTeste=='GERM'):
						    $germinadorLimagrain='-';
						    $substratoLimagrain='RP';
						    $formatoLimagrain='8x50';
						endif;	
						
						if($nomeTeste=='GE2'):
						    $germinadorLimagrain='-';
						    $substratoLimagrain='RP';
						    $formatoLimagrain='8x50';
						endif;	

					    if($nomeTeste=='PAD_ARE'):
						    $germinadorLimagrain='SC';
						    $substratoLimagrain='EA';
						    if($finalidade=='PREVIA'):
							   $formatoLimagrain='4x50';
							else:
							   $formatoLimagrain='4x100';
							endif;   
						endif;	
					    if($nomeTeste=='PAD_ARE2'):
						    $germinadorLimagrain='SC';
						    $substratoLimagrain='EA';
						    if($finalidade=='PREVIA'):
							   $formatoLimagrain='4x50';
							else:
							   $formatoLimagrain='4x100';
							endif;   
						endif;	

					    if($nomeTeste=='AR2'):
						    $germinadorLimagrain='SC';
						    $substratoLimagrain='EA';
						    if($finalidade=='PREVIA'):
							   $formatoLimagrain='4x50';
							else:
							   $formatoLimagrain='4x100';
							endif;   
						endif;	
					    if($nomeTeste=='EACxx' || $nomeTeste=='EA2xxx'):
						    $germinadorLimagrain='-';
						    $substratoLimagrain='RP';
						    $formatoLimagrain='4x50';
						endif;	

						if($nomeTeste=='E72'  || $nomeTeste=='E48' || $nomeTeste=='E24'):
						    $germinadorLimagrain='-';
						    $substratoLimagrain='RP';
						    $formatoLimagrain='4x50';
						endif;	
						
						$vetorMontado[6]=$tratamentoLimagrain;
						$vetorMontado[7]=$substratoLimagrain;
						$vetorMontado[8]=$germinadorLimagrain;
						$vetorMontado[9]='25';
						//$vetorMontado[9]=$temperaturaLimagrain;

					    //echo("731 nomeTeste=$nomeTeste<br>");
					    //echo("731 nomeTeste=$nomeTeste<br>");
						$repeticao=$formatoLimagrain;//isso aqui faltava ate 16/06/22
			            $reanNova = new rean1(array(
		                'rea_ficha'=> $amostraLong,
		                'rea_teste'=> $nomeTeste,
		                'rea_campo20b'=> $germinadorLimagrain,
		                'rea_campo60b'=> $substratoLimagrain,
		                'rea_campo60b'=> $substratoLimagrain,
		                'rea_lei4'=>  $repeticao,
		                'rea_datageralteste'=>  $datadia,
			            ));
						$reanLong=$reanNova->inserir($reanNova);
					    echo("741 $cliente Criou registro novo para salvar seus dados  reanLong=$reanLong<br>");
						
						
                    else://PERGUNTA SE´NAO É LIMAGRIAN
								
		                $reanNova = new rean1(array(
		                'rea_ficha'=> $amostraLong,
		                'rea_teste'=> $nomeTeste,
		                'rea_lei4'=>  $repeticao,
		                'rea_datageralteste'=>  $datadia,
		                ));
						$reanLong=$reanNova->inserir($reanNova);
					    echo("753  Criou registro novo para salvar seus dados reanLong=$reanLong<br>");
						
					endif;

	
		        endif;
				

	     //trazer alguns campos da amostra anterior
	     if(post('trazer') !== ""):
		    //ENTRA DE QUAKQUER MANEIRA
            //vai capturar a id da amostra anterior
            $registroAtual=post('amostra');
		   	$registroTrazer=$registroAtual-1;
	 	 	$generica=new tabelagenerica();
			$generica->tabela="ficha";
			$generica->campos_valores = array(
					"fic_id" => NULL,
				);
            $anoAmostra=date("Y");
			$sessao = new sessao();	
			$idLabo=$sessao->getVar('idLabo');
			if($registroTrazer>0):	
				if($finalidade=='DEFINITIVA'):		
				    $generica->extras_select =" where   fic_ano='".$anoAmostra."' && fic_labo='".$idLabo."' &&  fic_amostra=".$registroTrazer;
				else:
				    $generica->extras_select =" where   fic_ano='".$anoAmostra."' && fic_labo='".$idLabo."' &&  fic_amostra_previa=".$registroTrazer;
				endif;	
			    $generica->selecionaCampos($generica);
				while ($resgenerica = $generica->retornaDados()):
					$amostraLongTrazer =$resgenerica->fic_id;
			    endwhile;
			//echo(" id amostra anteriro= $amostraLongTrazer<br>");
					 
		    //ENTRA DE QUAKQUER MANEIRA
	 	 	$generica=new tabelagenerica();
			$generica->tabela="rean1";
			
			
			$generica->campos_valores = array(
					"rea_campo60a" => NULL,
					"rea_campo60b" => NULL,
					"rea_campo20a" => NULL,
					"rea_campo20b" => NULL,
					"rea_datageralteste" => NULL,
					"rea_datainicio" => NULL,
					"rea_segunda_leitura" => NULL,
					"rea_duracao" => NULL,
					"rea_validade" => NULL,
				);
				
				
			//aqui despeja tudo nos campos VETORMONTADO	
			$generica->extras_select ="  where  rea_teste='".$nomeTeste."' AND rea_ficha=".$amostraLongTrazer ;
		    $generica->selecionaCampos($generica);
			while ($resgenerica = $generica->retornaDados()):
				$vetorMontado[3]=$resgenerica->rea_datainicio;//inicio é campo string
				$vetorMontado[4]=$resgenerica->rea_duracao;//duracao é campo string

				$vetorMontado[5]=date("d/m/Y",strtotime($resgenerica->rea_datageralteste));//datageralteste
				$vetorMontado[6]=$resgenerica->rea_campo60a;//tratamento
				$vetorMontado[7]=$resgenerica->rea_campo60b;//substrato
				$vetorMontado[8]=$resgenerica->rea_campo20b;//germinador
				$vetorMontado[9]=$resgenerica->rea_campo20a;//temperatura
				$vetorMontado[11]=$resgenerica->rea_operador;//operador
				$vetorMontado[13]=$resgenerica->rea_validade;//operador
		    endwhile;		 

			else:
			    printMSG('699-Comando impossivel. Comunique ao programador este erro. Sua colaboração será de suma importancia. Obrigado. cod001'   ,'alerta');
			endif;//testa se a busca é valida
			
			
			


		 
            printMSG('*R Qualquer comando indicado com *R traz da amostra anterior o Inicio do teste+Duração+Data do teste+Tratamento+Temperatura+Germinador+Substrato. Depois ajuste o que for preciso e salvar no final.'   ,'alerta');
         endif;	//fecha o isset do comando trazer  (REPETE DA AMOSTRA ANTERIOR)
           
//////aqui pesquis os outros testes adiconado em 14/10/2023 marlon////////
//$concatenaTestes=$amostraLong;
$concatenaTestes="";
///CAPTURA O VERTOR DEMAIS TESTES===========
    $userRean1 = new rean1();
    $userRean1->extras_select =  " where  rea_ficha=".$amostraLong. " order by rea_teste";
    $userRean1->selecionaCampos($userRean1);
    while ($resRean1 = $userRean1->retornaDados()):
		$valorAtivado="";
        if($resRean1->rea_boletim=='S' && $resRean1->rea_teste=="GERM")$valorAtivado='*';
		//$vetorDemaisTestes[$contador]=$resRean1->rea_terceira_leitura_analista.$valorAtivado. $resRean1->rea_teste." (".$resRean1->rea_v1."% ) Ref=".$resRean1->rea_id;
		$concatenaTestes=$concatenaTestes . $resRean1->rea_teste."=".$valorAtivado.$resRean1->rea_v1."%  " ;
	endwhile;	   
//FIM DA CAPTURA DO VEOR DEMAIS TESTES==================                                          
//fim da captura de outros testes

		         if(post('trocarformato') !== ""):
		      		 $repeticao=post('formato');
					 $user = new rean1(array(
		             'rea_lei4'=>$repeticao,				
		            ));
		            $user->valorpk = $reanLong;
		            $user->extras_select = "WHERE   rea_id=$reanLong";
		            $user->selecionaTudo($user);
		            $res = $user->retornaDados();
		            $user->atualizar($user);
		            if ($user->linhasafetadas==1):
		                printMSG('746Dados alterados com sucesso. ');
		                unset($_POST);
		            else:
						//printMSG('Ok.Nada foi alterado. ','alerta');
		            endif;			
				 endif;

				 

                 //echo("aaaaaaaaarrrrrrrrrrrrrrrepeticao= $repeticao  catifunda=$catifunda<br>"); 
               // echo("vvvvvvvvvvvvvvvvvvvvvf1= $vetorRean[8] $user->extras_select <br>");
                //caso 8x50 =400
				 if(substr($repeticao,0,3)=="8x5"):
                     //echo("bbbbbbbbbbrrrrrrrrrepeticao= $repeticao numeroRepeticoes=$numeroRepeticoes<br>"); 
				     $numeroRepeticoes=8;
				     $numeroRepeticoes2012=8;
				     $base=50;
				     $fator=1; 
					 $fatorEspecial=1;    
				 endif;
                 //caso 4x100
				 if(substr($repeticao,0,3)=="4x1"):
				     $numeroRepeticoes=4;
				     $numeroRepeticoes2012=4;
				     $base=100;
				     $fator=1.0; 
					 $fatorEspecial=1;    
				 endif;
                 //caso 4x50
				 if(substr($repeticao,0,3)=="4x5"):
				     $numeroRepeticoes=4;
				     $numeroRepeticoes2012=4;
				     $base=50;
				     $fator=0.5;   //estava 0.5 em 10.07.14
					 $fatorEspecial=2;  
                 endif;
                 //caso 2x1
				 if(substr($repeticao,0,3)=="2x1"):
				     $numeroRepeticoes=2;
				     $numeroRepeticoes2012=2;
				     $base=100;
				     $fator=1;   //estava 0.5 em 10.07.14
					 $fatorEspecial=1;  
                 endif;

                 //caso 16x25
				 if(substr($repeticao,0,3)=="16x"):
				     $numeroRepeticoes=16;
				     $numeroRepeticoes2012=16;
				     $base=25;
				     $fator=1;   //estava 0.5 em 10.07.14
					 $fatorEspecial=1;  
                 endif;

			 
			 
			//echo("rrrrrrrrrrrrrrrrepeticao=$repeticao  numerorepeticoes= $numeroRepeticoes numeroRepeticoes2012= $numeroRepeticoes2012<br>");
			 
			 
			 
			 //aqui os tamanhos do maxleng
			 $vetorMaxLeng[3]=10;
			 $vetorMaxLeng[4]=10;
			 $vetorMaxLeng[5]=10;
			 $vetorMaxLeng[6]=60;
			 $vetorMaxLeng[7]=60;
			 $vetorMaxLeng[8]=25;
			 $vetorMaxLeng[9]=20;
			 $vetorMaxLeng[10]=60;
			 $vetorMaxLeng[11]=20;
			 $vetorMaxLeng[12]=100;
			 $vetorMaxLeng[13]=10;


		//vai achar o vetor
		$rean=2;
 
		//aqui a bre a tabela leituras e le os registros montando o array v160///////////////////////

     if($reanLong>0):
		$user = new leituras();
		$user->extras_select =" where  lei_rean=".$reanLong;
        $user->selecionaTudo($user);
        $contador=0;
        //ZERADOR DE $V160
        for($L=1;$L<=20;$L++): 
           for($C=1;$C<=16;$C++):
			$posicao=$C.$C;
			$v160[$posicao]="";
           endfor;
        endfor;

		while ($res = $user->retornaDados()):
		    $contador++;
			$gravado=$res->lei_leitura;
			//if ($contador<5)echo("valor lido=$gravado<br>");
			$linha=substr($gravado,1,2);
			$coluna=substr($gravado,4,2);
			$valorRecuperado=substr($gravado,7);
			//  $v160[23]="7";
			//  $v160[24]="3";bidi
			$i=1*$linha;
			$j=1*$coluna;
			$posicao=$i.$j;
			$v160[$posicao]=$valorRecuperado;
			$numerico=$valorRecuperado*1;
			if($numerico>0):
			   //echo("LENDO kkkkkkkkkkki=$i j=$j  posicao=$posicao  numerico=$numerico<br>" );
			endif;
        endwhile;
	else:
	    printMSG('829 Comando impossivel. Comunique ao programador este erro. Sua colaboração será de suma importancia. Obrigado.3'.'  reanLong=' . $reanLong   ,'alerta');
	endif;//testa se a busca é valida




        //$leit1="12";
        $leit1=$v160[251];
        $leit2=$v160[252];
        $leit3=$v160[253];
        $leit4=$v160[254];
        $leit5=$v160[255];
        $leit6=$v160[256];
        $leit7=$v160[257];
        $leit8=$v160[258];


		
//$vetorRaioX=$objetocalculoRaioX->capturaGeralRaioX($amostraLong);
//////////////////
/////////aqui ja le o vetor de novo para mostrar atualizado na tela//////////////
			 	$rean = new rean1();
				//echo("yyyyyyyyyyyyyynome do teste $nomeTeste<br>");
				
				//$nomeTeste='GERM';
				//$amostraLong=80931;
				//$amostraLong=80682;
				//echo("871  amostralong=$amostraLong <br>");
				//$amostraLong=80682;
				
				$rean->extras_select =" where  rea_teste='".$nomeTeste."' and rea_boletim='S'  AND rea_ficha=".$amostraLong ;
				//echo("870zzzzzzzzzzzzzzzzkkkkkkk1667kkkkk   $rean->extras_select <br>");
				
                $rean->selecionaTudo($rean);
				while ($resRean = $rean->retornaDados()):
					$reanLong=$resRean->rea_id;
                endwhile;

                //$reanLong=1000000;




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


$objetocalculoRaioX = new calculosFichaVirtual(); //declara o objeto
$v160=$objetocalculoRaioX->leiturasGerminacaoBIDI($reanLong);//echo("entrando gradebidi<br>"); 
$vetorRaioX=$objetocalculoRaioX->capturaGeralRaioX($amostraLong);

		$coluna=array("Repetições......","a","b","c","d","e","f","g","h");
		$numeroLinhas=15;
		$rotuloLinha[1]="Normais=". $vf1;
		$rotuloLinha[2]="(2ªLeitura)";
		$rotuloLinha[3]="(3ªLeitura)";
		$rotuloLinha[4]="(4ªLeitura)";

		$rotuloLinha[6]="(2ªLeitura)";
		$rotuloLinha[7]="(3ªLeitura)";
		$rotuloLinha[8]="(4ªLeitura)";
		$rotuloLinha[9]="Infec.";
		$rotuloLinha[10]="(2ªLeitura)";
		$rotuloLinha[11]="(3ªLeitura)";
		$rotuloLinha[12]="(4ªLeitura)";
		$rotuloLinha[13]="Mortas=". $vf3;
		$rotuloLinha[14]="Duras=". $vf4;
		$rotuloLinha[15]="Dorm.=". $vf5;
		$rotuloLinha[16]="Somas:";

		//echo("duras= $vf4 dorm=$vf5<br>");


		$mediaOto[1]="M=";
		$mediaOto[2]="F=";
		$mediaOto[3]="-";
		$mediaOto[4]="-";
		$mediaOto[5]="M=";
		$mediaOto[6]="-";
		$mediaOto[7]="MA";//NAO VEIO DAQUI
		$mediaOto[8]="-";
		$mediaOto[9]="M=";
		$mediaOto[10]="-";
		$mediaOto[11]="-";
		$mediaOto[12]="-";
		$mediaOto[13]="M=";
		$mediaOto[14]="M=";
		$mediaOto[15]="M=";



		$direita[2]="Segunda Leitura";
		if($cliente=='BAREN')$direita[2]='ph';
		
		$direita[3]="Inicio Teste";
		$direita[4]="Duração";
		$direita[5]="Final Teste";
		$direita[6]="Tratamento";
		$direita[7]="Substrato";
		$direita[8]="Germinador";
		if(substr($nomeTeste,0,2)=='FR')$direita[8]="Ambiente";
		if(substr($nomeTeste,0,3)=='PAD')$direita[8]="Ambiente";
		if($cliente=='SEEDS')$direita[8]="Gabin/Germin";
		//$direita[8]=$nomeTeste;
		$direita[9]="Temperatura";
		$direita[10]="Fungos";
		$direita[11]="Operador/analista";
		$direita[12]="Observacao(100car)->";
		$direita[13]="Validade";
		$direita[14]="Espécie";
		$direita[15]="Repetições:------>";
		$testesMarcados="xx".$vetorRaioX[47];
		//AQUI TEM UM DISPOSITIVO QUE SE MARCOU SEMENTE PELOTIZADA COMO TESTES A REALIZAR ELE TRAZ DURAS E DORMENTES COMO -N-
		$valorPEL=strpos($testesMarcados,"PEL"); 
		if($valorPEL>0):
		  $direita[16]=$testesMarcados."Pelotizada:Dura e dormente=-N-";
        endif;
		$valor=post('c22');
		//$numeroRepeticoes=4;

		//aqui vai abrir uma chave enorme que praticamente fara todo serviço e fecha bem la emvaixo
		//aqui ja fez a gravação ja fez a leitura e vai agora calcular
		   //aqui vai gravar

		 
		//aqui faz o controle todinho
		//$numeroRepeticoes=8;
		//se for 8x50 repeticoes a base  é 50 e o fator é 2
		//se for 4x100 repeticoes a base  é 100 e o fator é 1
		//se for 4x50 repeticoes a base  é 50 e o fator é 1


		   //aqui vai somar  e colocar na promeira linha
		   for($j=1;$j<=$numeroRepeticoes;$j++):
			   $soma=0;	
			   //$posicao="1".$j;
			   for($i=2;$i<=$numeroLinhas;$i++):
					 $campo="c".str_pad($i, 2, "0", STR_PAD_LEFT).str_pad($j, 2, "0", STR_PAD_LEFT);
					 $valor=$v160[$i][$j];
				     //$valor=$_POST[$campo];

					 //echo("xxxxxx99999  linha=$i    campo= $campo  valor=$valor  <br>");
				     //$lido=$_POST[$campo];
	                 $soma+=$valor;
                     //if($j==1) echo("j=1  bbbbbbbbbBASE=$base   linha=$i  numeroRepeticoes=$numeroRepeticoes lido=$lido soma=$soma<br>");
                endfor; 
 			  if($trocouAmostra=='SIM')$soma=0;	//QUANDO TROCA DEVE VIR A BASE E NAO DADOS ANTERIORES
		      $v160[1][$j]=$base-$soma;
			endfor;//percorre todas repeticoes indice j




		/*
		finalidade da tabela acumuladora: (nao retirar este texto)
		a tabela original  pode receber valores nas 20 linhas mas a acumuladora soma e reune numa linha a apenas as varias leituras de anosrmais por exemplo
		outra situação sao as fortes e fracas que sao trabalhadas de forma independente 
		a acumuladora vai ser assim:
		vai ter 4 colunas pois vou adensar se tiver com 8 repeticoes mas vou manter os decimais ou seja nao vou arredondar ainda. 
		vai ser a matriz dos sonhos, facil de manusear depois. Itabira 28/02/2013
		linhaAcumulada=1-->Normais
		linhaAcumulada=2-->fracas
		linhaAcumulada=3-->deformadas
		linhaAcumulada=4-->infecionadas
		linhaAcumulada=5-->anormais(resumodas duas anteriores)
		linhaAcumulada=6-->mortas
		linhaAcumulada=7-->duras
		linhaAcumulada=8-->dormentes
		*/

		//crio acumuladora2013
         //zera a matriz
         for($y=1;$y<=16;$y++):
		    for($i=1;$i<=16;$i++):
                 $acumuladora2013[$y][$j]=0;
            endfor;   		 
		 endfor;		 
		

         //aqui as normais   ou seja da linha 1 a te a linha 4
		 $linhaAcumulada=1;//normais
		 $linha=1; $limite=4;
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		    for($i=$linha;$i<=$limite;$i++):
			     $acumuladora2013[$linhaAcumulada][$j]+=$v160[$i][$j];
			endfor;   
		 endfor;
		//ve o que calculou para linha1
		$linhaAcumulada=1;
		for($j=1;$j<=16;$j++):
		     $volatil=$acumuladora2013[$linhaAcumulada][$j];
		     //echo("mmmmo que gravaou na linha  $linhaAcumulada  soma= $volatil <br>");
        endfor;	



		 //FRACAS
		 $linhaAcumulada=2;//fracas	
		 $linha=2;
		 $limite=4;
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		    for($i=$linha;$i<=$limite;$i++):
			     $acumuladora2013[$linhaAcumulada][$j]+=$v160[$i][$j];
			endfor;   
		 endfor;
         //DEFORMADAS		 
		 $linhaAcumulada=3;//deformadas	
		 $linha=5;
		 $limite=8;
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		    for($i=$linha;$i<=$limite;$i++):
			     $acumuladora2013[$linhaAcumulada][$j]+=$v160[$i][$j];
			endfor;   
		 endfor;
        //INFECIONADAS		 
		 $linhaAcumulada=4;//infecionadas
		 $linha=9;
		 $limite=12;
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		    for($i=$linha;$i<=$limite;$i++):
			     $acumuladora2013[$linhaAcumulada][$j]+=$v160[$i][$j];
			endfor;   
		 endfor;

		 //aqui vai criar a linha das anormais que será a soma das outras duas
		 $linhaAcumulada=5;//infecionadas
		 for($j=1;$j<=$numeroRepeticoes;$j++):
			 $acumuladora2013[$linhaAcumulada][$j]=$acumuladora2013[3][$j]+$acumuladora2013[4][$j];
		 endfor;
         //MORTAS 
		 $linhaAcumulada=6;//mortas
		 $linha=13;
		 $limite=13;
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		    for($i=$linha;$i<=$limite;$i++):
			     $acumuladora2013[$linhaAcumulada][$j]+=$v160[$i][$j];
			endfor;   
		 endfor;
        //DURAS
		 $linhaAcumulada=7;//duras
		 $linha=14;
		 $limite=14;
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		    for($i=$linha;$i<=$limite;$i++):
			     $acumuladora2013[$linhaAcumulada][$j]+=$v160[$i][$j];
			endfor;   
		 endfor;
         //DORMAENTES
		 $linhaAcumulada=8;//dormentes
		 $linha=15;
		 $limite=15;
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		    for($i=$linha;$i<=$limite;$i++):
			     $acumuladora2013[$linhaAcumulada][$j]+=$v160[$i][$j];
			endfor;   
		 endfor;





		 //examina se a linha 2 tem vlores ou seja se tem fortes e fracas
		 $fracasefortes="NAO";
		 $linhaAcumulada=2;   //as fracas	
		 for($j=1;$j<=$numeroRepeticoes;$j++):
		     if($acumuladora2013[2]>0) $fracasefortes="SIM";
         endfor;		
		//echo("fracas e fortes  $fracasefortes<br>");

		//quando for 8 colunas ele vai reduzir para 4 colunas so na acumuladora é claro...
		//pega coluna  1 e 2 e coloca na 1,  em seguida  pega coluna 3 e 4 e coloca na 2 e assim por diante
        //aqui copmacta em 4 colunas o que tm em 8
		if($numeroRepeticoes==8):
		     for($linhaAcumulada=1;$linhaAcumulada<=8;$linhaAcumulada++):
			     for($i=1;$i<=4;$i++):
				     $volatil=($i-1)*2+1;//pula de 2 em dois
				     $volatil1=$volatil+1;
					 $a=$acumuladora2013[$linhaAcumulada][$volatil];
					 $b=$acumuladora2013[$linhaAcumulada][$volatil+1];
			         $acumuladora2013[$linhaAcumulada][$i]=$a+$b;
                 endfor;//varia valor de i
			 endfor;//varia o valor de linha acumulada
		endif; //fim do teste se for 8 colunas

        //aqui copmacta em 4 colunas o que tm em 16
		if($numeroRepeticoes==16):
		     for($linhaAcumulada=1;$linhaAcumulada<=8;$linhaAcumulada++):
			     for($i=1;$i<=4;$i++):
				     $volatil=($i-1)*4+1;//pula de 4 em 4
				     $volatil1=$volatil+1;
					 $a=$acumuladora2013[$linhaAcumulada][$volatil];
					 $b=$acumuladora2013[$linhaAcumulada][$volatil+1];
					 $c=$acumuladora2013[$linhaAcumulada][$volatil+2];
					 $d=$acumuladora2013[$linhaAcumulada][$volatil+3];
			         $acumuladora2013[$linhaAcumulada][$i]=$a+$b+$c+$d;
					 if($i==1):
                         //echo("a=$a b=$b c=$c d=$d<br> ");					 
					 endif;
                 endfor;//varia valor de i
			 endfor;//varia o valor de linha acumulada
		endif; //fim do teste se for 8 colunas

		//ve o que calculou para linha1
		$linhaAcumulada=1;
		for($j=1;$j<=4;$j++):
		     $volatil=$acumuladora2013[$linhaAcumulada][$j];
		     //echo("o que gravaou na linha  $linhaAcumulada  soma= $volatil <br>");
        endfor;	



		/////////////////////////////////aqui termina a chave qur testa se tipo diferente de null/////////////////////////////////////////////
		//soma os valores de normais e ja captura o maior e o menosr
		$somaNormais=0;
		$maiorNormal=0;
		$menorNormal=1000;
		for($i=1;$i<=4 ;$i++):
		   $somaNormais+=$acumuladora2013[1][$i];	
           //quero pegar o maior e o menor
		   if($maiorNormal<$acumuladora2013[1][$i]):
		       $maiorNormal=$acumuladora2013[1][$i];
		   endif;	   
		   if($menorNormal>$acumuladora2013[1][$i]):
		       $menorNormal=$acumuladora2013[1][$i];
			   $qualColuna=$i;	
		   endif;	   
		endfor;
		//calcula a diferenca entra o maior e o menor e o menor e pega a posicao do menor
		$diferenca=$maiorNormal-$menorNormal;
		$posicao=0;

		$menor=$menorNormal;
		$menor=$menor*$fatorEspecial;
		$media=$somaNormais/4 *$fatorEspecial ;
		
		//echo("xxxxxxxxmedia $media  menor= $menor diferenca=$diferenca<br>");

		$mediaInteira=round($media);
        //if($cliente=='BAREN')$mediaInteira=FLOOR($media);


		$generica=new tabelagenerica();
		$generica->tabela="tolerancia";
		$generica->campos_valores = array(
				"dif4x100" => NULL,
				"dif3x100" => NULL,
			);
		$generica->extras_select =" where  germ=".$mediaInteira;
        $generica->selecionaTudo($generica);
		while ($resgenerica = $generica->retornaDados()):
			$tolerancia4x100=$resgenerica->dif4x100;
			$tolerancia3x100=$resgenerica->dif3x100;
	    endwhile;
		//$sql="select dif4x100,dif3x100 from tolerancia where germ=".$mediaInteira;
		//echo("?????tolerancia 4x100  $tolerancia4x100  tolerancia3x100  $tolerancia3x100 sql=$sql   diferenca= $diferenca qualcoluna= $qualColuna mediaInteira=$mediaInteira<br>");

		//////////////////////////////CALCULOS DAS TOLERANCIAS//////////////////////////////////////////////
		/////////////////aqui vai eliminar colunas caso a tolerancia4x10 for menor que a diferenca/////
		//echo("mmmmmmmmmmmmmmmm $mensagem3x100$  numeroColunas2012=  $numeroRepeticoes2012 primeiradiferenca=  $diferenca  tolerancia= $tolerancia4x100<br>");
		//$diferenca=100; //iso é so pra teste
		 //vai zerar as medias de 4  repeticoes
		 $vd1=0;//normais	
		 $vd2=0;//fraca	
		 $vd3=0;//deformadas
		 $vd3=0;//infecionadas	
		 $vd4=0;//anormais
		 $vd5=0;//mortas	
		 $vd6=0;//duras
		 $vd7=0;//dormentes
		 $vd8=0;//dormentes
		 $diferenca=floor($diferenca);
         //aqui vai neutralizar a diferenca pois no teste 2x100 nao avalia a diferenca
         if($numeroRepeticoes=='2X100')$diferenca=$tolerancia4x100;

		if($diferenca>$tolerancia4x100)
		{
		     //echo("A diferença da média(4 repetições) para o valor menor é $diferenca e a tolerancia4x100 é $tolerancia4x100 <br> ");
			 //$erroTolerancia="A diferença da média=" .$mediaInteira. " para 4 repetições até valor menor é  ". $diferenca . " e a tolerancia4x100 é ".$tolerancia4x100;
			 
			 $erroTolerancia="A média é " .$mediaInteira. ". A difereça do maior para o menor é  ". $diferenca . " e a tolerancia4x100 é ".$tolerancia4x100;




			 printMSG($erroTolerancia,'alerta');
		     $menor=1000;
			 $somaNormais=0;
		     //aqui tem que calcular a nova media, desconsiderando a(s) colunas rejeitadas E JA CAPTURA O MENOR
		     for($i=1;$i<=4;$i++):   
		         if($i!=$qualColuna)://porque esta descartando esta coluna 
						 $volatil=$acumuladora2013[1][$i];
						 $somaNormais+=$volatil;	
						 if($menor > $volatil):
						     $menor=$volatil;
                         endif;	 
                 endif;	
             endfor; 
			 $menor=$menor*$fatorEspecial;
		     $media=$somaNormais/3*$fatorEspecial;
		     //calcula a diferenca entra a media e menor e pega a posicao do menor
		     $diferenca=$maiorNormal-$menor;
		     //echo("xxxxxxxxmediaCOM3NUMEROS $media  menor= $menor diferenca=$diferenca<br>");

				$mensagem3x100="";
				$soma=0; 
				$linha=1;
				$colunaVermelha=$qualColuna;
				$colunaVermelha1=100;
				if($numeroRepeticoes2012==8)
				{
				    $colunaVermelha=$qualColuna*2-1;
				    $colunaVermelha1=$qualColuna*2;
				}

				if ($qualColuna>0)
				{
					if($numeroRepeticoes2012==4)$mensagem3x100="Excluiu a coluna ". $qualColuna;
					if($numeroRepeticoes2012==8)$mensagem3x100="Excluiu o ". $qualColuna."º par de colunas.";
				}

				//echo("ccccccccccccColunaVermelhaNumero=$colunaVemelha    Repeticoes2012=  $numeroRepeticoes2012 qualcoluna= $qualColuna<br>");

			//aqui vai verificar se a tolerancia deu dentro dos parametros se ainda nao deu  entao vai testar 3x100
			$tolerancia=1000;
			$mediaInteira=round($media);
			$sql="select dif4x100,dif3x100 from tolerancia where germ=".$mediaInteira;
			$generica=new tabelagenerica();
			$generica->tabela="tolerancia";
			$generica->campos_valores = array(
				"dif4x100" => NULL,
				"dif3x100" => NULL,
			);
			$generica->extras_select =" where  germ=".$mediaInteira;
	        $generica->selecionaTudo($generica);
			while ($resgenerica = $generica->retornaDados()):
				//$tolerancia4x100=$res->dif4x100;
				$tolerancia3x100=$resgenerica->dif3x100;
		    endwhile;
			
			
			//$vetorTolerancia=achacampos($sql);
			//$tolerancia3x100=$vetorTolerancia[1];
			//$tolerancia=0;

			 $diferenca=floor($diferenca);
			//echo("mmmmmmmmmmmmmmmmm3x100= $mensagem3x100$  numeroColunas=  $numeroRepeticoes2012 diferenca=  $diferenca mediaInteira=$mediaInteira  tolerancia3x100= $tolerancia3x100<br>");




		     //echo("A diferença da média(3 repetições) para o valor menor é $diferenca e a tolerancia3x100 é $tolerancia3x100<br>");
			 $erroTolerancia="Descartado o ". $qualColuna. ".  A diferença da média(3 repetições) para o valor menor é  ". $diferenca . " e a tolerancia3x100 é = ".$tolerancia3x100;
			 printMSG($erroTolerancia,'erro');
			//$diferenca=100; //iso é so pra teste
			//echo("1443 $repeticao$repeticao<br>") ;
			if($repeticao=='2x100')$diferenca=0;
			if($diferenca > $tolerancia3x100) 
			{
			   $mensagem3x100="Repita o teste. Está fora da tolerância mesmo eliminando 1 coluna. Revisão 22/03/2018";
			   $rejeitar="SIM";
               printMSG($mensagem3x100,'erro');
			   $divisor=3;//coloca aqui so para nao dar erro 
		     }
			 else
			 {
                 $mensagemToleranciaSucesso=	"Tolerancia 3x100=". $tolerancia3x100 ." diferenca=". $diferenca. " qualcoluna=" .$qualColuna. "Media=".$mediaInteira;
		         //aqui vai estar pegando as medias de 3 repeticoes	 	
				 $divisor=3; 
				 if($repeticao=='2x100')$divisor=1;//era 2
		         //echo("pegando as medias de 3 repetições<br>"); 
				 for($i=1;$i<=4;$i++)	
		     	 {
				     if($i!=$qualColuna)
					 {
				         $vd1+=$acumuladora2013[1][$i]; //normais
				         $vd2+=$acumuladora2013[2][$i]; //fracas
				         $vd3+=$acumuladora2013[3][$i]; //deformadas
				         $vd4+=$acumuladora2013[4][$i]; //infecionadas
				         $vd5+=$acumuladora2013[5][$i];  //anormais
				         $vd6+=$acumuladora2013[6][$i];//mortas
				         $vd7+=$acumuladora2013[7][$i];  //duras  
				         $vd8+=$acumuladora2013[8][$i];  //dormentes  
					 }//nao soma a coluna desprezada
			     }//final do laco for que soma as colunas
				 
			 }//final do teste se a diferenca ficu dentro da tolerancia 3x100 
		}	 
		else   //se a diference é menodr que a tolerancia 4x100 significa que esta tudo correto
		{
            $mensagemToleranciaSucesso=" para media=".$mediaInteira.	"Tolerancia 4x100=". $tolerancia4x100 ." diferenca=". $diferenca. " qualcoluna=" .$qualColuna. "Media=".$mediaInteira;
		     $divisor=4; 
			 if($repeticao=="2x100")$divisor=2;  //era4
			 
		    // echo("pegando as medias de 4 repetições<br>");
		     for($i=1;$i<=4;$i++)	
			 {
		         $vd1+=$acumuladora2013[1][$i]; //normais
		         $vd2+=$acumuladora2013[2][$i]; //fracas
		         $vd3+=$acumuladora2013[3][$i]; //deformadas
		         $vd4+=$acumuladora2013[4][$i]; //infecionadas
		         $vd5+=$acumuladora2013[5][$i];  //anormais
		         $vd6+=$acumuladora2013[6][$i];//mortas
		         $vd7+=$acumuladora2013[7][$i];  //duras  
		         $vd8+=$acumuladora2013[8][$i];  //dormentes  
			 } //conta todas colunas
		}//fecha o priemiro if aquele que testa incialmente a tolerancia 4x100	

        //echo ("1493 vd1=$vd1 vd6 $vd6<br>");



		/*
		==================NAO APAGAR ISSO AQUI===============================
		vd=soma dos valores de cada item,normais,anormais,etc
		media=apenas divide pelos divisor
		mediaformatada=retira os quqbrador que tiver alem da segunda casa
		vf=pega so o valor inteiro
		=====================================================================	
		*/
		//carcula a media 
		     //echo("ddddddddddddddivisor= $divisor<br>");  
			 //caso especial quando trabalha com 200 sementes
			 if(substr($repeticao,0,3)=="4x5"):
                $divisor=$divisor/2;                        			 
			 endif;		    	 

             //joga os valores diretos na  matriz DIRETOS para trabalhar so com matris daquei em diante
             $direto[1]=$vd1;	//normais		 
             $direto[2]=$vd2;			 
             $direto[3]=$vd3;	//deformadas		 
             $direto[4]=$vd4;	//infecionadas		 
             $direto[5]=$vd5;	//anormais		 
             $direto[6]=$vd6;	//mortas		 
             $direto[7]=$vd7;	//duras
             $direto[8]=$vd8;	//dormentes	

             //se for barembrug ele vai fazer uma integracao diferente por isso ele vai reservar estes valores para usa´los la adiate
			 //as mortas vem da inviaveis do teste de tz
             //as dormentes vem da difereca ate a base
			  if($cliente=='BAREN'):
			     $capturaMortasTZF=$vetorRaioX[202];
                 $vFinalBaren1=$vd1;//nao interessa
                 $vFinalBaren2=$vd2;//nao interessa
                 $vFinalBaren3=$vd3;//deformadas
                 $vFinalBaren4=$vd4;//infecionadas
                 $vFinalBaren5=$vd5;//anormais
                 $vFinalBaren6=$vd6;//mortas
                 $vFinalBaren7=$vd7;//duras
                 $vFinalBaren8=$vd8;//dormente
				 $mortas=100-$capturaMortasTZF;
				// echo("esta no barembrug   capturaMortasTZF = $capturaMortasTZF  normais = $normais deformadas $vd3<br>");

			  endif;






			 
			 //LEGENDAS
             $legenda[1]="NORMAIS";			 
             $legenda[2]="Fracas";			 
             $legenda[3]="Defor";			 
             $legenda[4]="Infec";			 
             $legenda[5]="ANORMAIS";			 
             $legenda[6]="MORTAS";			 
             $legenda[7]="DURAS";			 
             $legenda[8]="DORM.";			 
			 	  

             //calcula as medias brutas(media sem arredondamnto))
             for($i=1;$i<=8;$i++):
                 $mediaBruta[$i]=$direto[$i]/$divisor;
				 //echo("media bruta=$mediaBruta[$i] indice( $i )<br>");
			 endfor;
             if(post('transparencia') !== "") echo"Transparência: Cálculos mostrando os valores encontrados. Conformidade com a RAS item 5.11  página 168";
             //calculas as medias formatadaas, com 2 casas decimais. Exemplo 4.50   5,75 		
		     if(post('transparencia') !== "") echo("<br>Media formatada:");
			 
             for($i=1;$i<=8;$i++):
			   $mediaFormatada[$i]=number_format($mediaBruta[$i],2,'.','');
			   if(post('transparencia') !== "") echo(" $legenda[$i] = $mediaFormatada[$i] ");
			 endfor;
			 //echo("nomeTeste=$nomeTeste   mediaBruta[= $mediaBruta[8] <br>");
			 
             if($nomeTeste=='TRR'):
			   //$mediaFormatada[8]=$mediaBruta[8];
			   //echo("dentro nomeTeste=$nomeTeste   mediaBruta[= $mediaBruta[8] mediaFormatada[8= $mediaFormatada[8]<br>");
               $valorTRR=$mediaBruta[8];
			 endif;			 
	
	         
			 
		    
			//captura os valores inteiros, preparando para pegar os decimais depois  Exem´plo: 4.5-->4   e   5.75-->5
		     if(post('transparencia') !== "") echo("<br>Inteiros:");
             for($i=1;$i<=8;$i++):
			   $inteiros[$i]=floor($mediaBruta[$i]);
			   if(post('transparencia') !== "") echo(" $legenda[$i] = $inteiros[$i]");
			 endfor;
		     
 
             //ATRIBUI O VALOR DOS INTEIROS PARA OS CASOS ONDE NAO SERA FEITA SIQUER A MEDIA COM APROXIMACAO 
             $valorFinal[5]=$inteiros[5];//ANORMAIS
             $valorFinal[6]=$inteiros[6];//MORTAS
             $valorFinal[7]=$inteiros[7];//DURAS
             $valorFinal[8]=$inteiros[8];//DORMENTES
	
	        $soma= $valorFinal[1]+$valorFinal[2]+$valorFinal[3]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];










	        //echo("1991 soma=$soma   <br>");
	
		    //captura os oito decimais
			if(post('transparencia') !== "") echo("<br>Fracionárias(2):");
             for($i=1;$i<=8;$i++):
			    $deci[$i]=$mediaFormatada[$i]-$inteiros[$i];
			    if(post('transparencia') !== "")  echo("$legenda[$i] = $deci[$i]  ");
			 endfor;
			 
			 
			 
	
	
		     

			 //calcula todas aproximacoes
             if(post('transparencia') !== "") echo("<br>Primeira aproximacao(3):");
             for($i=1;$i<=8;$i++):
			    $valorAproximadoPreliminar[$i]=round($mediaBruta[$i]);
			    if(post('transparencia') !== "") echo(" $legenda[$i]= $valorAproximadoPreliminar[$i]");
			 endfor;
             $soma=$valorAproximadoPreliminar[1]+$valorAproximadoPreliminar[5]+$valorAproximadoPreliminar[6]+$valorAproximadoPreliminar[7]+$valorAproximadoPreliminar[8];
             if(post('transparencia') !== "") echo("SOMA(l)=$soma ");
		     echo ("<hr>");
		
             //echo("vf1=$valorAproximadoPreliminar[1] vf5=$valorAproximadoPreliminar[5] vf6=$valorAproximadoPreliminar[6]  vf7=$valorAproximadoPreliminar[7]  vf8=$valorAproximadoPreliminar[8]<br>  ");
             $balizaEncerrouCalculo='NAO';
			 $oto1=$mediaBruta[1];
			 $oto3=$mediaBruta[3];
			 $oto4=$mediaBruta[4];
			 $otoVF1=$valorFinal[1];
             


			 //echo("2016 soma=$soma  mediaBruta[1]=$oto1  valorFinal[1]=$otoVF1    <br>");
			 
			 //aqui vou fazer do jeito que esta no livro da ras
             //if($soma>100):// testa a primeira vez soma=100  FASE 3  DO DIAGRAMA
                 //estes sao os itens que interessa 
			     //$inteiros[5];//ANORMAIS
			     //$inteiros[5];//ANORMAIS
                 //$inteiros[6];//MORTAS
                 //$inteiros[7];//DURAS
                 //$inteiros[8];//DORMENTES 
				 //FAZ O PRIMEIRO ARREDONDAMENTO
				 $oto1PA=round($mediaBruta[1]);//este aqui está encerrado
			     $valorFinal[1]=$oto1PA;//este aqui está encerrado			 
                 //agora primeiro arredondamento
				 $oto5PA=round($mediaBruta[5]);//
				 $oto6PA=round($mediaBruta[6]);//
				 $oto7PA=round($mediaBruta[7]);//
				 $oto8PA=round($mediaBruta[8]);//
                 $soma=$oto1PA+ $oto5PA +$oto6PA +$oto7PA+ $oto8PA;			


               	 //echo("2054 soma =$soma  oto1PA=$oto1PA   oto5PA=$oto5PA  oto6PA=$oto6PA  oto7PA=$oto7PA  oto8PA=$oto8PA  <br>"); 	   	 
               	 //echo("2055 DECIMAIS   deci(1)=$deci[1] deci(5)=$deci[5]  deci(6)=$deci[6]  deci(7)=$deci[7]  deci(8)=$deci[8]   <br>"); 	   	 
                 //acha o maior decimal
                 $indiceDecimalMaior=0;
                 $percentualMaior=0;

                 //vou ver qual o percentual maior E JA ESTA LEVANDO EM CONTA A REGRA DA PRIORIDADE
                 if($deci[5]>=$percentualMaior):
				    $percentualMaior=$deci[5]; //anormais
                    $guardaIndice=5;
				 endif;	

                 if($deci[7]>=$percentualMaior):
				    $percentualMaior=$deci[7]; //DURAS
                    $guardaIndice=7;
				 endif;	

                 if($deci[8]>=$percentualMaior):
				    $percentualMaior=$deci[8]; //DORMENTES
                    $guardaIndice=8;
				 endif;	

                 if($deci[6]>=$percentualMaior):
				    $percentualMaior=$deci[6]; //mortas
                    $guardaIndice=6;
				 endif;	

                 //vou ver qual o percentual menor mas acima de 0.5xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                 //vou ver qual o percentual menor mas acima de 0.5xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                 //vou ver qual o percentual menor mas acima de 0.5xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                 $indiceDecimalMenor=1000;
                 $percentualMenor=1000;
				 if($deci[6]>=0.5 && $deci[6]<=$percentualMenor):
				    $percentualMenor=$deci[6]; //mortas
                    $guardaIndiceMenor=6;
				 endif;	

				 if($deci[8]>=0.5 && $deci[8]<=$percentualMenor):
				    $percentualMenor=$deci[8]; //dormentes
                    $guardaIndiceMenor=8;
				 endif;	

				 if($deci[7]>=0.5 && $deci[7]<=$percentualMenor):
				    $percentualMenor=$deci[7]; //dormentes
                    $guardaIndiceMenor=7;
				 endif;	


				 if($deci[5]>=0.5 && $deci[5]<=$percentualMenor):
				    $percentualMenor=$deci[5]; //dormentes
                    $guardaIndiceMenor=5;
				 endif;	



                 //AQUI arredonda tudo para cima
                 $valorFinal[5]=round($mediaBruta[5]);
                 $valorFinal[6]=round($mediaBruta[6]);
                 $valorFinal[7]=round($mediaBruta[7]);
                 $valorFinal[8]=round($mediaBruta[8]);
                 //faz a soma
                 $soma=$valorFinal[1]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			

                 //se a soma for maior que 100 arredonda para baixo o decimal realmente menor mas acima de 0.5
                 if($soma>100  && $percentualMenor<$percentualMaior):
			         $valorFinal[$guardaIndiceMenor]=$valorFinal[$guardaIndiceMenor]-1;//;//este aqui está encerrado		
				 endif;
				 //refaz a soma	 
                 $soma=$valorFinal[1]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			

                 echo("2091 soma=$soma  valorFinal[1]=$valorFinal[1]   valorFinal[5]=$valorFinal[5]   valorFinal[6]=$valorFinal[6]   valorFinal[7]=$valorFinal[7]  valorFinal[8]=$valorFinal[8]    <br>"); 	   	 
                 echo("2093 percentualMaior=$percentualMaior    guardaindice=$guardaIndice  int8= $inteiros[8] int5= $inteiros[5]    <br>"); 	   	 
                 //verifica desempate				 
                 if($soma>100 && $deci[6]>0.5):
				    $valorFinal[6]=$valorFinal[6]-1;//;//este aqui está encerrado			
                 endif;			     
				 //refaz a soma	 
                 $soma=$valorFinal[1]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			
                 //verifica desempate				 
                 if($soma>100 && $deci[8]>0.5):
				    $valorFinal[8]=$valorFinal[8]-1;//;//este aqui está encerrado			
                 endif;			     
				 //refaz a soma	 
                 $soma=$valorFinal[1]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			
                 //verifica desempate				 
                 if($soma>100 && $deci[8]>0.5):
				    $valorFinal[8]=$valorFinal[8]-1;//;//este aqui está encerrado			
                 endif;			     
	 		     //$valorFinal[$guardaIndiceMenor]=$valorFinal[$guardaIndiceMenor]-1;//;//este aqui está encerrado		
                  //$soma=100;
				  if($soma==100):
				      $balizaEncerrouCalculo="SIM";
			          //echo("2054 soma=$soma encerrou calculo  <br>");
				      $desempatar="NAO";
		          endif;
			 
             //endif;	
			
		//FINAL DO ALGORITMO CONFORME O LIVRO 	
			
			
			 
             if($soma==100):// testa a primeira vez soma=100  FASE 3  DO DIAGRAMA
			   // $valorFinal[1]=$valorAproximadoPreliminar[1];
			   // $valorFinal[5]=$valorAproximadoPreliminar[5];
			   // $valorFinal[6]=$valorAproximadoPreliminar[6];
			    //$valorFinal[7]=$valorAproximadoPreliminar[7];
			    //$valorFinal[8]=$valorAproximadoPreliminar[8];
                $balizaEncerrouCalculo="SIM";
			 else:
                //SE NAO FECHAOU EM 100 E,E VAI PEGAR A MEDIA PRELIMINAR DO ITEM 1 E MANTER JA NESTE MOMENTO 			 
			    $valorFinal[1]=$valorAproximadoPreliminar[1];//ESTE VALOR MANTEM
	            //aqui entra se a soma >100 faz uma pesquisa rapida para ver onde arredondou para cima e nao devia

                //aqui ele pergunta as precedencias e é aqui que esta o futuro cada tratamento ele vai ter este bloco
                if($deci[1]==0 && $deci[5]==0.5  && $deci[6]==0.5 && $soma>100):
                  $valorFinal[6]=$inteiros[6];	//recua	mortas	
			      $valorFinal[5]+=1;//arredonda para cima
			      $otoVF1=$valorFinal[1];
			      $otoVF5=$valorFinal[5];
			      $otoVF6=$valorFinal[6];
				  $vap1=$valorAproximadoPreliminar[1];
				  $somaNova=$valorFinal[1]+$valorFinal[2]+$valorFinal[3]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			
			      echo("2049 soma anterior=$soma  normais=$oto1  anormais=$otoVF5    mortas=$otoVF6  Nova soma=$somaNova  Finalizou:Anormais e mortas empatadas  <br>");
                  $soma=$valorFinal[1]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			
				  if($soma==100):
				      $balizaEncerrouCalculo="SIM";
			          //echo("2054 soma=$soma encerrou calculo  <br>");
				       $desempatar="NAO";
		          endif;
			   endif;                 

		   //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
           //aqui um caso que teve dormentes(normais 93,75  anormais =4,75  dormentes=0,75 mortas=0,75 amostra 3462/2023 da qualiteste 170823)
		   //echo("2078  fora do laco soma=$soma deci1=$deci[1]  deci5=$deci[5]  deci6=$deci[6]  deci8=$deci[8] <br>");
	           if($deci[1]==0.75 && $deci[5]==0.75  && $deci[6]==0.75 && $deci[8]==0.75 &&  $soma==101):
                  $soma=$valorFinal[1]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];		
				  //echo("2081 mediaBruta[1]=$mediaBruta[1] soma =$soma  normais=$valorFinal[1]  anormais=$valorFinal[5]   dormentes=$valorFinal[8]   mortas=$valorFinal[6]                    <br>");
                  //echo("2082 enderou  soma=$soma deci1=$deci[1]  deci5=$deci[5]  deci6=$deci[6]  deci8=$deci[8]  valorFinal[1]=$valorFinal[1]<br>");
				  //$mediaInteira=round($media);
				  //round($mediaBruta[1]
			      $valorFinal[1]=round($mediaBruta[1]);//normais
			      $valorFinal[5]=round($mediaBruta[5]);//anormais
			      $valorFinal[8]=round($mediaBruta[8]);//dormentes
			      $valorFinal[6]=round($mediaBruta[6])-1;//mortas
				  //$valorFinal[1]=$valorFinal[1];//normais
			      //$valorFinal[5]=$valorFinal[5];//anormais
				  //$valorFinal[8]=$valorFinal[8];//dormentes
                  //$valorFinal[6]=$inteiros[6];	//recua	mortas	
				  //$vap1=$valorAproximadoPreliminar[1];
				  //$somaNova=$valorFinal[1]+$valorFinal[2]+$valorFinal[3]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			
			      //$otoVF6=$inteiros[6];//mortas recua
                  $soma=$valorFinal[1]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];		
			      //echo("2097* soma =$soma  normais=$valorFinal[1]  anormais=$valorFinal[5]   dormentes=$valorFinal[8]   mortas=$valorFinal[6]                    <br>");
				  
				  
				  	
				  if($soma==100):
				      $balizaEncerrouCalculo="SIM";
			          //echo("2079 soma=$soma encerrou calculo  <br>");
				      $desempatar="NAO";
		          endif;
				endif; //perguntou se duras dormentes e mortas estavam empatados 








                //aqui aoareceu um caso esquisito
				//anormais 5  17  11  7 
				//mortas   2  10  3  19  
				//ele despreza a segunda coluna e colacula com 3 repeticoes mas tive que igualar as tres 
			    //echo("2063 deci1=$deci[1]   deci5=$deci[5] deci6=$deci[6] soma anterior=$soma <br>");
                
                if($deci[1]>0.66 && $deci[5]>0.66  && $deci[6]>0.66 && $soma>100):
                  $valorFinal[6]=$inteiros[6];	//recua	mortas	
			      $valorFinal[5]+=1;//arredonda para cima
			      $otoVF1=$valorFinal[1];
			      $otoVF5=$valorFinal[5];
			      $otoVF6=$valorFinal[6];
				  $vap1=$valorAproximadoPreliminar[1];
				  $somaNova=$valorFinal[1]+$valorFinal[2]+$valorFinal[3]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			
			      //echo("2076 soma anterior=$soma  normais=$oto1  anormais=$otoVF5    mortas=$otoVF6  Nova soma=$somaNova  Finalizou:Anormais e mortas empatadas  <br>");
                  $soma=$valorFinal[1]+$valorFinal[4]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			
				  if($soma==100):
				      $balizaEncerrouCalculo="SIM";
			          //echo("2054 soma=$soma encerrou calculo  <br>");
				       $desempatar="NAO";
		          endif;
			   endif;                 




				
                //AGORA DEVE VERIDICAR SE TEM UM DECIMAL MAIOR DENTRE OS 4 DECIMAIS RESTANTES
               //ACHAR AQUELE QUE TEM MAIOR PARTE FRACIONARIA(cuidado com isso pois deve ser o maior E nao SIMPLESMENTE igual aso demais)
			   //e so interessa agora os membros  5,6,7,8(anormais,mortas,duras,dormentes)
               //achar o maior decimal   
	
		       $maiorDecimal=0;
			   for($i=5;$i<=8;$i++):
			     if($deci[$i]> $maiorDecimal)$maiorDecimal=$deci[$i];//VAI ACHAR O DECIMAL MAIOR
			   endfor;
                
               //verificar se algum item tem parte fracionaria maior ###########VER RAS###########################
			   //se tiver apenas uma ocorrencia de ser igual ao maior entao significa que é o maior  
			   $ocorrencias=0;
			   for($i=5;$i<=8;$i++):
	               if($deci[$i]==$maiorDecimal  && $deci[$i]>=0.5):
				     $ocorrencias++;
	                 $indiceGuardado1=$i;			   
			         //echo("decimal do =$i º  $deci[$i]   valor inicial=$valorAproximadoPreliminar[$i]<br>");
				   endif;			   
			   endfor;
			   
			   
			   if(post('transparencia') !== "")echo("PRIMEIRA MAIOR PARTE FRACIONARIA= $maiorDecimal ocorrencias=$ocorrencias <br>");


			   //verifica se o numero de ocorrencias  =2 em anormais e mortas e a fracionaria normais é 0,5 SITUACAO IRGA 260523
               if($ocorrencias==2 && $deci[1]==0.5):
			      if(post('transparencia') !== "")echo("Situação especial NORMAIS nao incrementa mas MORTAS E ANORMAIS incrementa  maior decimal repetido= $maiorDecimal ocorrencias=$ocorrencias <br>");
			      $normaisAtual=$valorFinal[1];
				  $anormaisAtual=$valorFinal[5];
				  $mortasAtual=$valorFinal[6];
		          //echo("2066 normaisAtual=$normaisAtual anormailAtual=$anormaisAtual  mortasAtual=$mortasAtual<br>");   
                  if($deci[5]==0.75 && $deci[6]==0.75 && $deci[1]==0.5 ):
				    $deci1=$deci[1];
				    $deci5=$deci[5];
				    $deci6=$deci[6];
					
			        $normaisAtual-=1;
			        $anormaisAtual+=1;
			        $mortasAtual+=1;
				    //echo("2071 entrou  normaisAtual=$normaisAtual deci[1]=$deci1 deci[5]=$deci5  deci[6]=$deci6<br>");
                    $valorFinal[1]=$normaisAtual;//decrementa normais                       				  
                    $valorFinal[5]=$anormaisAtual;//incrementa anormais                       				  
                    $valorFinal[6]=$mortasAtual;//incrementa amortas                      				  
				  endif;
                  $soma= $valorFinal[1]+$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8]; 
		          //echo("2077 soma=$soma normaisAtual=$normaisAtual anormailAtual=$anormaisAtual  mortasAtual=$mortasAtual<br>");   
                  if($soma==100):                    
				       $balizaEncerrouCalculo="SIM";
					   $desempatar="NAO";
                  endif;
               endif;//			   





			   
			   //verifica se o numero de ocorrencias =1 é porque tem um realmente maior
			   //SE TIVER SO UMA OCORRENCIA ELE JOGA O VALOR FINAL PARA FICIAR IGUAL AO PROELIMINAR E PEGA OS INTEIROS DOS DEMAIS
               if($ocorrencias==1):
			      if($maiorDecimal>=0.5):
	                  $valorFinal[$indiceGuardado1]=$valorAproximadoPreliminar[$indiceGuardado1];//ja define o valor final do item que tem maior decimal e este morre aqui
	                  //vou matar tambem o decimal para ele nao interferir no claculo se eu tiver que procurar por um segundo decimal maior  
					  $deci[$indiceGuardado1]=0;//matei o indice                   
                   endif;
	               //somar o valor inteiro dos demais 
				   $somaInteiros=0;
	       		   for($i=5;$i<=8;$i++):
		               if($i != $indiceGuardado1)://para eu pegar apenas os outros elementos 
	                      $somaInteiros+=$inteiros[$i];    
						  $valorFinal[$i]=$inteiros[$i];
				       endif;			   
				   endfor; 
			       if(post('transparencia') !== "") echo("Fez aproximação de $legenda[$indiceGuardado1] PRIMEIRO MAIOR PARTE FRACIONARIA= $maiorDecimal  Achou $ocorrencias decimal maior!  os demais itens colocou inteiros.<br>");

                   $soma=$somaInteiros+$valorFinal[$indiceGuardado1]+$valorFinal[1];//soma tudo para fzer uma verificaco 
                   //se a soma for diferente de 100 ele repete o calculo ou seja vai procurar um segundo decimal maior 				   
                   if($soma ==100):
				       $balizaEncerrouCalculo="SIM";
				   else:
                       //VAI PROUCURAR POR UM SEGUNDO MAIOR	##VER RAS ##############################			   
                       if(post('transparencia') !== "")echo("deve procurar por UMA POSSIVEL SEGUNDA PARTE FRACIONARIA<br>");
				       //A ESTA ALTURA JA MATEI O DECIMAL ANTERIOR POIS NAO INTERESSA MANTE-LO ENTRE OS PESQUISADOS
					   $maiorDecimal=0;
					   for($i=5;$i<=8;$i++):
					     if($deci[$i]> $maiorDecimal && $deci[$i]>=0.5)$maiorDecimal=$deci[$i];//VAI ACHAR O DECIMAL MAIOR
					   endfor;
		               //verificar se algum item tem parte fracionaria maior 
					   //se tiver apenas uma ocorrencia de ser igual ao maior entao significa que é o maior  
					   $ocorrencias=0;
					   for($i=5;$i<=8;$i++):
			               if($deci[$i]==$maiorDecimal):
						     $ocorrencias++;
			                 $indiceGuardado2=$i;			   
						   endif;			   
					   endfor;
					   if(post('transparencia') !== "") echo("SEGUNDA MAIOR PARTE FRACIONARIA= $maiorDecimal ocorrencias=$ocorrencias <br>");
					   //so vai ajustar para cima se realmente for maior ou igual a o.5
					   if($ocorrencias==1):
						   if($maiorDecimal>=0.5):
		                       $valorFinal[$indiceGuardado2]=$valorAproximadoPreliminar[$indiceGuardado2];//ja define o valor final do item que tem maior decimal e este morre aqui
		                       //vou matar tambem o decimal para ele nao interferir no claculo se eu tiver que procurar por um segundo decimal maior  
						       $deci[$indiceGuardado2]=0;//matei o indice   
						   endif;	                   
			               //somar o valor inteiro dos demais 
						   $somaInteiros=0;
			       		   for($i=5;$i<=8;$i++):
						       //aqui ele vai manter o priemrio e o segundo item ja mantidos
				               if($i != $indiceGuardado2 && $i!= $indiceGuardado1)://para eu pegar apenas os outros elementos 
			                      $somaInteiros+=$inteiros[$i];    
								  $valorFinal[$i]=$inteiros[$i];
						       endif;			   
						   endfor; 
		                   $soma=$somaInteiros+$valorFinal[$indiceGuardado1]+$valorFinal[$indiceGuardado2]+$valorFinal[1];//soma tudo para fzer uma verificaco 
		                   //se a soma for diferente de 100 ele repete o calculo ou seja vai procurar um segundo decimal maior 				   
	                   endif;//testa se so tem uma ocorrencia(pois se tiver mais de uma ja vai para o desempate)
					   if($soma ==100):
					       $balizaEncerrouCalculo="SIM";
					   else:	   
					       $desempatar='SIM'; 	   
					   endif;
				   endif;//testa se achando o PRIMEIRO decimal maior a soma fecha em 100
				   
               else:
			      //aqui entra se todos os decimais forem iguais
                  $desempatar='SIM';
				  
				  
			   endif; //testa para encontrar o priemiro decimal maior TESTOU SE OCORENCIA =1
			 endif;//FIM DO testa a primeira vez soma=100  FASE 3  DO DIAGRAMA
			 
			 
			 //aqui vou fazer um ajuste 10/05/23 onde aparece  percentuais 0,75 em anormais e 0,75 em mortas. Neste caso que o empate da num percentual 0,75 ele nao incrementa as normais(fica so o inteiro)
			 $deciAnormais=$deci[5];
			 $deciMortas=$deci[6];
			 $deciNormais=$deci[1];
			 $inteiroNormais=$inteiros[1];
	    //echo("2109soma=$soma balizaEncerrouCalculo=$balizaEncerrouCalculo desempatar=$desempatar deciAnormais=$deciAnormais deciMortas=$deciMortas  deciNormais=$deciNormais inteiroNormais=$inteiroNormais<br> " );
		
		
		//caso tiver dois percentuais 0,75 e as normais decimal 0.5 ele arredonda normais para baixo e deixa as anormais para cima e mortas para cima 
			 if($soma>100  && $deciAnormais==0.75 && $deciMortas==0.75 && $deciNormais==0.5):
	           $normaisAtual=$valorFinal[1];
			   $valorGuardado1=$valorFinal[$indiceGuardado1];
			   $valorGuardado2=$valorFinal[$indiceGuardado2];
	           echo("2147 normaisAtual=$normaisAtual valorGuardado1=$valorGuardado1  valorGuardado2=$valorGuardado2 somaInteiros=$somaInteiros<br>"); 

	           echo("2149 normaisAtual=$normaisAtual  soma=$soma balizaEncerrouCalculo=$balizaEncerrouCalculo desempatar=$desempatar deciAnormais=$deciAnormais deciMortas=$deciMortas  deciNormais=$deciNormais inteiroNormais=$inteiroNormais<br> " ); 
	           echo("2150 somaInteiros=$somaInteiros  soma=$soma balizaEncerrouCalculo=$balizaEncerrouCalculo desempatar=$desempatar deciAnormais=$deciAnormais deciMortas=$deciMortas  deciNormais=$deciNormais inteiroNormais=$inteiroNormais<br> " ); 
               $valorFinal[1]-=1;//decrementa as normais 
		       $soma=$somaInteiros+$valorFinal[$indiceGuardado1]+$valorFinal[$indiceGuardado2]+$valorFinal[1];//soma tudo para fzer uma verificaco 
			   if($soma ==100):
			       $mediaInteira=$valorFinal[1];
			       $balizaEncerrouCalculo="SIM";
			   else:	   
			       $desempatar='SIM'; 	   
			   endif;
             endif;			 
			 
		  //aqui faz o desempate
		  $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];	
  	      //echo("2164  soma=$soma <br>");
          if($soma<100):
             $valorFinal[1]=$valorFinal[1]+1;
			 $desempatar='NAO'; 
			 $balizaEncerrouCalculo="SIM";
          endif;
		  $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];	
  	      //echo("2166  soma=$soma <br>");



		  if($desempatar=="SIM"):
	          if(post('transparencia') !== ""):
			     echo(" FAZENDO DESEMPATE = $ocorrencias decimais iguais Decimal considerado= $maiorDecimal  <br>");
              endif;
			  //aqui vou colocar um desempate especial caso morta s anosrmais tenha ddo 0,75 ele 
			  //deixa de arredondar para cima as normais
			  //no dia 01/09/2022 limagraim teve um caso que furou este esquema e esta claro na ras
			  //mantem o primeiro valor(normais)e arredonda para baixo conforme criterio de desempate
              //48 50 49 50 48 48 48 49  //deu decimal 0,5
			  //10002121 anormais //deu decimal 0,75
			  //10100100 mortas   //deu decimal 0,75  (neste caso de valor final de mortas=0)

			 if($soma>100):
	          //echo("1764 deci1=$deci[1]  aprox=$valorAproximadoPreliminar[1]<br>"); 
			  //if($deci[1]==0.5 && $maiorDecimal>=0.5) $valorFinal[1]= $inteiros[1];//volta para o valor original
			  $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];	
	         endif;
			  
			  //PEGA PELA PRECEDENCIA , fazendo DESEMPATE dos itens  5(anormais),6(mortas),7(duras),8(dormentes))
              //primeiro as normais 
              if($balizaEncerrouCalculo=="NAO"):
			      //echo "entrou";
			      $valorFinal[5]=$valorAproximadoPreliminar[5];
                  //soma os valores finais
                  $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];
				  if($soma==100)$balizaEncerrouCalculo="SIM";					  
              endif;				   
              //duras
              if($balizaEncerrouCalculo=="NAO"):
			      //echo "entrou";
			      $valorFinal[7]=$valorAproximadoPreliminar[7];
                  //soma os valores finais
                  $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			  
				  if($soma==100)$balizaEncerrouCalculo="SIM";					  
             endif;
			  //dormentes				   
              if($balizaEncerrouCalculo=="NAO"):
			      //echo "entrou";
			      $valorFinal[8]=$valorAproximadoPreliminar[8];
                  //soma os valores finais
                  $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			  
				  if($soma==100)$balizaEncerrouCalculo="SIM";					  
              endif;
			  //mortas				   
              if($balizaEncerrouCalculo=="NAO"):
			      //echo "entrou";
			      $valorFinal[6]=$valorAproximadoPreliminar[6];
                  //soma os valores finais
                  $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];			  
				  if($soma==100)$balizaEncerrouCalculo="SIM";					  
              endif;
			  //echo("2180 desempatando soma=$soma   $valorFinal[1]<br>");
			  
			  
			  				   
		  endif;//SE VAI DESEMPATAR


		  
		  
          if($soma>100):
 	         if($valorFinal[6]>$inteiros[6] && $soma>100)$valorFinal[6]=$inteiros[6];//MORTAS
			 $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];	
 	         if($valorFinal[8]>$inteiros[8] && $soma>100)$valorFinal[8]=$inteiros[8];//DORMENTES
			 $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];	
 	         if($valorFinal[7]>$inteiros[7] && $soma>100)$valorFinal[7]=$inteiros[7];//DURAS
			 $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];	
 	         if($valorFinal[5]>$inteiros[5] && $soma>100)$valorFinal[5]=$inteiros[5];//ANORMAIS
			 $soma=$valorFinal[1]+	$valorFinal[5]+$valorFinal[6]+$valorFinal[7]+$valorFinal[8];
     		 if($soma==100)$balizaEncerrouCalculo="SIM";					  
		  endif;//faz um desempate final para corrigir   		  
	
	//situacao registrada por tabajara dia 14/09/2017 ver arquauivo imagem
          if($soma<100):
			 $valorFinal[1]++;
             $balizaEncerrouCalculo="SIM";
          endif;
         
	
	
	
          if($balizaEncerrouCalculo=="SIM"):
		      if(post('transparencia') !== "")  echo("2252 Cálculo OK. soma=100<br>");	
	           //valores finais
	           $vf1=$valorFinal[1];
	           $vf3=$valorAproximadoPreliminar[3];//este valor nao entra na verificacao de fechamento em 100
	           $vf4=$valorAproximadoPreliminar[4];//nem este
	           $vf5=$valorFinal[5];
	           $vf6=$valorFinal[6];
	           $vf7=$valorFinal[7];
	           $vf8=$valorFinal[8];
			   $vf3=$vf5-$vf4;
          else:
             if(post('transparencia') !== "")echo("vf1=$valorFinal[1] vf5=$valorFinal[5] vf6=$valorFinal[6]  vf7=$valorFinal[7]  vf8=$valorFinal[8]<br>  ");
             if(post('transparencia') !== "") echo("Cálculo não fechou em 100 <br>");		  
		  endif;
		  
		  
		  
		  
		  if($nomeTeste=='TRR'):
		    $vf8=$valorTRR;
		  endif;
		  
		  
		  
		  //aqui vai fazer uma integraxao diferente para forrageiras
        if($cliente=='BAREN'):
    	   $valorBene=$vetorRaioX[118];  
		
           $mortas=100-$capturaMortasTZF; 
		   $normais=round($vFinalBaren1/4);//normais			

           //calcullos para 4 colunas
		   for($coluna=1;$coluna<=4;$coluna++):
               //se for revestida deve preencher os campso duras e dormentes com -N-
			   if($valorBene=='6'):
			      $v160[14][$coluna]='-N-';//duras
			      $v160[15][$coluna]='-N-';//dormentes
			   endif;
			   
			   $somaAnormais=$v160[5][$coluna]+$v160[6][$coluna];
	           $somaBaren=$somaNormais+$somaAnormais;
			   //$dormentes=100-$somaBaren-$v160[13][$coluna];//100-somabaren-mortas
			   //$v160[15][$coluna]=$dormentes;//dormentes
			   $v160[1][$coluna]=$v160[$coluna][$coluna];//dormentes
		       //$v160[16][$coluna]=$somaBaren;//somas
           endfor;

		  // echo("linha1652  valorBene=$valorBene  somaNormais=$somaNormais  somaAnormais=$somaAnormais  somaBaren=$somaBaren    dormentes=$dormentes   <br>");
		endif;//pergunta se´é baren 		  
//vai criar embaixo uma linha de somas
for($coluna=1;$coluna<=$numeroRepeticoes;$coluna++):
   for($i=2;$i<=15;$i++):
     $v160[16][$coluna]+=$v160[$i][$coluna];
	 //if($coluna==1) echo("v160[]=$v160[$posicaotodas]  posicaotodas=$posicaotodas<br>");
   endfor;
   //$v160[16][$coluna]=$somaBaren;//somas
endfor;

//CASO NAO DEU NEM NA SITUACAO 3X100
if($rejeitar=="SIM"):
  	$vf1=$vf2=$vf3=$vf4=$vf5=$vf6=$vf7=$vf8="?";
endif;		  
		  
		  	   

    	$mediaOto[1]="Mn=".$vf1."%";//normais
    	$mediaOto[5]="Ma=".$vf5."%";//anormais
        $mediaOto[13]="Mo=".$vf6."%";//mortas


        
		if($soma==100)
		{
			//AQUI TEM UM DISPOSITIVO QUE SE MARCOU SEMENTE PELOTIZADA COMO TESTES A REALIZAR ELE TRAZ DURAS E DORMENTES COMO -N-
			//o $VALORPEL captura onde finaliza os calculos, pois ja vai salvar o valor ajustado
			//$testesMarcados="xx".$vetorRaioX[47];	
			//$valorPEL=strpos($testesMarcados,"PEL"); 
		    if($valorPEL>0):
				 $vf7="-N-"; 
				 $vf8="-N-"; 
			endif;	 
		
			// echo("soma deu maior que 100<br>");
			 $mediaOto[1]="Mn=".$vf1."%";
			 $mediaOto[2]="M=".$vf2."%";
			 $mediaOto[3]="-";
			 $mediaOto[4]="-";
			 //$mediaOto[5]="D=".$vf3."%";
			 $mediaOto[5]="D=".$mediaBruta[3]."%";
			 $mediaOto[6]="-";
			 $mediaOto[7]="MA=".$vf5."%";
			 $mediaOto[8]="-";
			 //$mediaOto[9]="I=".$vf4."%";
			 $mediaOto[9]="I=".$mediaBruta[4]."%";
			 //$mediaOto[10]="-";
			 $mediaOto[11]="-";
			 $mediaOto[12]="-";
			 $mediaOto[13]="M=".$vf6."%";
			 $mediaOto[14]="M=".$vf7."%";
			 $mediaOto[15]="M=".$vf8."%";
		}  //testou se deu maior que 100









			 //VAI VERIFICAR OS PADROES
		    //$veredito=capturaVeredito($amostraLong,$germinacao,$puras);
			//echo("item 1 do veredito $veredito[0]item 2 do veredito $veredito[1]<br>");
		    $corg="";
			$mensagem1="";
			$mensagem2="";
			if($vf1>0 && $veredito[0]>0)
			{
		        if($vf1< $veredito[0])
		         {
				$corg="red";
		        	$mensagem1="Germinacao fora do padrao";
				$mensagem2="Padrao germinacao=" .$veredito[0];
		         }
			}
			
			
		//echo ("1904 vd1=$vd1 vd6 $vd6<br>");	
         
		//coloca valores atualzados
		//$rotuloLinha[1]="Normais=".$vd1;
		$rotuloLinha[1]="Norm.=".$mediaBruta[1];
		$rotuloLinha[2]="(2ªLeitura)=".$vd2;
		$rotuloLinha[3]="(3ªLeitura)";
		$rotuloLinha[4]="(4ªLeitura)";
		$rotuloDeformadas="Deform.=";
        if($cliente=='LIMAGRAIN' || $cliente=='IRGA')$rotuloDeformadas="Anormais=";	
		//echo("rotuloDeformadas=$rotuloDeformadas cliente=$cliente<br>");	
		$rotuloLinha[5]=$rotuloDeformadas. $mediaBruta[3];
		//$rotuloLinha[5]=$rotuloDeformadas. $vf2;
		//$rotuloLinha[5]="Deform.=". $vd3;
		$rotuloLinha[6]="(2ªLeitura)";
		$rotuloLinha[7]="(3ªLeitura)";
		$rotuloLinha[8]="(4ªLeitura)";
		//$rotuloLinha[9]="Infec.=".$vd4;
		$rotuloLinha[9]="Infec.=".$mediaBruta[4];
		$rotuloLinha[10]="(2ªLeitura)";
		$rotuloLinha[11]="(3ªLeitura)";
		$rotuloLinha[12]="(4ªLeitura)";
		//$rotuloLinha[13]="Mortas=". $vd6;
		//$rotuloLinha[14]="Duras=". $vd7;
		$rotuloLinha[13]="Mortas=".$mediaBruta[6];
		$rotuloLinha[14]="Duras=".$mediaBruta[7];
		$rotuloDormentes="Dorm.=";
		if($cliente=="SEMPRE" && $nomeTeste=='TRR')$rotuloDormentes="Suscep.=";
		//$rotuloLinha[15]=$rotuloDormentes. $vd8;
		$rotuloLinha[15]=$rotuloDormentes. $mediaBruta[8];
		$rotuloLinha[16]="Somas:";
		//calcula o clv que sera fortes(vd1)-fracas(vd2)
		$valorCLV=0;
		//so faz sentido calcular clv se foi realmente lancado fracas
		if($vd2>0):
			$valorCLV1=$vd1-$vd2;
			$valorCLV=floor($valorCLV1/$divisor);
        endif;
		if($valorCLV==100)$valorCLV=0;//precisa disso pois antes de calcular, quando entra, o valor é 100, 
		
		//aqui terminou de calcular entao vai gravar mas so quando apertou o comando CALCULAR/GRAVAR
		
        //aqui vai gravar na tabela rean e depois tambem na tebela ficha
		$objetoValidacao=new validacao();
		$vaiGravar=TRUE;
        //valida a data de entrada
	    if($vaiCalcularGravar!="SIM"):

		   //printMSG('Não houve gravação. ','alerta');
		    
		else:
		   //$objetoValidacao=new validacao();
		   
		   //$dt_entrada=post('direita5');
		   //$dt_entrada="13/06/2023";
		   $dataInicio=post('direita3');
		   $retorno=$objetoValidacao->validaDataEntrada($dataInicio);
		   ///$dataInicioAmericana=$retorno;
           //$dataFinalCalculada=date('d/m/Y', strtotime('+200 days'));
           //$dataFinalCalculada=date('Y-m-d', strtotime('+2 days'));

		   
		   //echo("2533 data entrada em portugues $dt_entrada cavalo=$cavalo dataFinalCalculada=$dataFinalCalculada<br>");
		   $objetoValidacao=new validacao();
		   $retorno=$objetoValidacao->validaDataEntrada($dt_entrada);//esta data vai validar o ano e somente esta
		   if($retorno=='invalida'):
	           printMSG('2530 Preencha corretamente a data do final do teste no formato dd/mm/aaaa, pois nenhum dado foi gravado. ','alerta');
	           $vaiGravar=FALSE;
		   else:
		       $vaiGravar=TRUE;
		       printMSG('2541'.$retorno.' Preencha2541 corretamente a data do final do teste no formato dd/mm/aaaa, pois nenhum dado foi gravado. ','alerta');
			   $dt_entrada_americana=$retorno;
		   endif;
		    //echo("aqui realmente gravavvvvvvvvvvvvvvvvvvvv <br>");
		    //echo("xxxxxxxxxxxxxxxxxxxxg3= $g3  g4=$g4 vf8=$vf8<br>");
            //acerta o combo6 do tratamento
			$tratamento=post('direita6');
			$apoio6=post('apoio6');
			if($apoio6!="")$tratamento=$apoio6;//so vai pegar do combo se tiver sido selecionado algo realmente
            //acerta o combo7 do substrato
			$substrato=post('direita7');
			$apoio7=post('apoio7');
			if($apoio7!="")$substrato=$apoio7;//so vai pegar do combo se tiver sido selecionado algo realmente
            //acerta o combo8 do germinador
			$germinador=post('direita8');
			$apoio8=post('apoio8');
			if($apoio8!="")$germinador=$apoio8;//so vai pegar do combo se tiver sido selecionado algo realmente
            //acerta o combo9 da temperatura
			$temperatura=post('direita9');
			$apoio9=post('apoio9');
			if($apoio9!="")$temperatura=$apoio9;//so vai pegar do combo se tiver sido selecionado algo realmente
			$nomeOperador=$sessao->getVar('nomeuser');
			
			
			
			
			
			
            //SE O CLIENTE É BAREN EU VOU PEGAR O VALOR FINAL = AO VALOR BRUTO COM DECIMAIS 
			if($cliente=='BAREN'):
			   $vf2=$mediaBruta[2];//anormais
			   $vf3=$mediaBruta[3];//anormais
			   $vf4=$mediaBruta[4];//anormais
			   
			   //$vf5=$mediaBruta[5];//mortas	
			   $vf6=$mediaBruta[6];//DURAS
			   $vf7=$mediaBruta[7];//DORMENTES
			   $vf8=$mediaBruta[8];//DORMENTES???
			   $vf5=$mediaBruta[5]-$mediaBruta[4];

		       //$vf4='56.4' ;//anormais
			  // $vf5='56.5' ;//mortas	
			   //$vf6='56.6' ;//DURAS
			  // $vf7='56.7' ;//DORMENTES
			  // $vf8='56.8' ;//DORMENTES???
			
			endif;
			if($repeticao=='2x200') $vf1=round($vd1/2);
			//echo ("2003 vd1=$vd1 vd6 $vd6  vf1=$vf1<br>");	
			
			$duracaoDias=post('direita4');
			$dt_entrada_americana=date('d/m/Y', strtotime('+200 days'));

			//preciso transforemar a data inicial para formato americano e acrescentar duracao
		   $dt_inicioBrasil=post('direita3');
		   $retorno=$objetoValidacao->validaDataEntrada($dt_inicioBrasil);// vai validar
		   if($retorno=='invalida'):
	           printMSG('Preencha corretamente a data do INICIO do teste no formato dd/mm/aaaa, pois nenhum dado foi gravado. ','alerta');
	           $vaiGravar=FALSE;
		   else:
			   $dt_inicio_americana=$retorno;
		   endif;
		   if($duracaoDias<1):
		      printMSG('Para o computador calcular a data final,  informe duração com número. ','alerta');
		   
		   endif;
		   
		   
		   $dataCalculada= date('Y-m-d', strtotime('+1 days'));
		   $dataCalculada= date('Y-m-d', strtotime('+1 days'));
		   //$validade=10;
		   $dataOto = date("m/Y",strtotime(date("Y-m-d", strtotime($dt_inicio_americana)) . " + ".$validade." month"));//isso aqui incrementa meses na data basileira direto funciona
		   $dataOto = date("d/m/Y",strtotime(date("Y-m-d", strtotime($dt_inicio_americana)) . " + ".$duracaoDias." days"));//isso aqui incrementa meses na data basileira direto funciona
           $data_geral_teste_americana=$objetoValidacao->validaDataEntrada($dataOto);// vai validar
		   
		   
		   //echo("2605 dt_inicioBrasil=$dt_inicioBrasil  dt_inicio_americana=$dt_inicio_americana duracaoDias=$duracaoDias dataCalculada=$dataCalculada  dt_final_oto=$dataOto<br>");		
		   
		   
		   
		   	
		   //vai calcular a data final
           //LIMAGRAI QUER SOLARA A DATA DO INICIO COM A DURACAO
		   //if($cliente=="LIMAGRAIN"):
		    // $dt_entrada_americana= date('Y/m/d', strtotime('+'.$duracaoDias.'days', strtotime($dt_inicio_americana)));
           //endif;
		   
		   
		    //$tratamento="copa do mundo";
	 //EXCEÇÃO: se for qualiteste e se tiver informado teste GPE entao o tratamento sera diferente
	 //echo("2631dt_inicio_americana=$dt_inicio_americana duracaoDias=$duracaoDias dt_entrada_americana=$dt_entrada_americana<br>");			




	 if($cliente=='QUALITESTE'):
		    $objetocalculoRaioX1 = new calculosFichaVirtual(); //declara o objeto
            $vetorRaioX1=$objetocalculoRaioX1->capturaGeralRaioX($amostraLong);
            $nomeTesteGer="KK".$vetorRaioX1[47];
            if(strpos($nomeTesteGer,"GPE")>0):
			   $tratamento='Pré condicionamento';
	        endif;	
		    //echo("734 tratamento=$tratamento amostraLong=$amostraLong <br>");
	 endif;//VERIFICA SE É QUALITESTE

            //no caso da seeds ele marca nos checkbox. Se nao marca nada ele salva o que ja tinha se maracar eme salva exatemente o que marcou	
			//nao precisa personalizar para seeds porque nos outros labs nao aparece os check box 
	        $direita10=post('direita10');
			$concatenaSeeds="";	
	        if(post('cb_1') !== "")$concatenaSeeds=$concatenaSeeds.'Ph/';   			   
	        if(post('cb_2') !== "")$concatenaSeeds=$concatenaSeeds.'Fu/';   			   
	        if(post('cb_3') !== "")$concatenaSeeds=$concatenaSeeds.'As/';   			   
	        if(post('cb_4') !== "")$concatenaSeeds=$concatenaSeeds.'Pe/';   			   
	        if(post('cb_5') !== "")$concatenaSeeds=$concatenaSeeds.'Ou/';   			   
	        if(post('cb_6') !== "")$concatenaSeeds=$concatenaSeeds.'Ba/';   			   
            if(strlen($concatenaSeeds)>1) $direita10=$concatenaSeeds;
			
	 	    //echo("2288  gravando anormais vf5=$vf5<br>");
			//posicao referencia2458
            //se esta no ambiente leituras
            if($ambienteLeituras=='SIM'):
                 $user = new rean1(array(
                'rea_v1'=>$vf1,				
                'rea_v2'=>$vf5,				
                'rea_v3'=>$vf7,				
                'rea_v4'=>$vf8,				
                'rea_v5'=>$vf6,				
                'rea_v6'=>$vf4,				
              ));
			endif;//fim do isset ambiente leturas

			//posicao referencia2471
            //se esta no ambiente leituras
			
			
			//echo("2645 dt_geral_teste_americana=$data_geral_teste_americana<br>");
            if($ambienteOutrosDados=='SIM'):
	            $user = new rean1(array(
                'rea_segunda_leitura'=>post('direita2'),			
                'rea_datainicio'=>post('direita3'),			
                'rea_duracao'=>$duracaoDias,				
				'rea_campo60a'=>$tratamento,
				'rea_campo60b'=>$substrato,
				'rea_campo20b'=>$germinador,
				'rea_campo20a'=>$temperatura,
				'rea_campo60c'=>$direita10,
				'rea_operador'=>$nomeOperador, 
				'rea_datageralteste'=>$data_geral_teste_americana, 
				'rea_campo100'=>post('direita12'),
				'rea_validade'=>post('direita13'),
				'rea_finalizada'=>'S',
				'rea_primeira_leitura_data'=> post('dataPrimeiraLeitura')  ,				
	            'rea_primeira_leitura_analista'=> post('analistaPrimeiraLeitura') ,				
	            'rea_segunda_leitura_data'=> post('dataSegundaLeitura')  ,				
	            'rea_segunda_leitura_analista'=> post('analistaSegundaLeitura') ,				
	            'rea_terceira_leitura_data'=> post('dataTerceiraLeitura')  ,				
	            'rea_terceira_leitura_analista'=> post('analistaTerceiraLeitura') ,
                ));
             endif;//fim do isset OutrosDados

//antigo
/*
            $user = new rean1(array(
                'rea_v1'=>$vf1,				
                'rea_v2'=>$vf5,				
                'rea_v3'=>$vf7,				
                'rea_v4'=>$vf8,				
                'rea_v5'=>$vf6,				
                'rea_v6'=>$vf4,				
                'rea_segunda_leitura'=>post('direita2'),			
                'rea_datainicio'=>post('direita3'),			
                'rea_duracao'=>$duracaoDias,				
				'rea_campo60a'=>$tratamento,
				'rea_campo60b'=>$substrato,
				'rea_campo20b'=>$germinador,
				'rea_campo20a'=>$temperatura,
				'rea_campo60c'=>$direita10,
				'rea_operador'=>$nomeOperador, 
				'rea_datageralteste'=>$dt_entrada_americana, 
				'rea_campo100'=>post('direita12'),
				'rea_validade'=>post('direita13'),
				'rea_finalizada'=>'S',
            ));
*/

//referencia 2516  salvamento

            $user->valorpk = $reanLong;
            $user->extras_select = "WHERE   rea_id=$reanLong";
            //$user->selecionaTudo($user);
            //$res = $user->retornaDados();
            $user->atualizar($user);
            if ($user->linhasafetadas==1):
			   if($ambienteLeituras=="SIM"):
			    if($rejeitar=="SIM" ):
                   printMSG('Cálculo não Ok! Rejeitado a nivel de 3x100.  Repetir o teste');
                else:
                    printMSG('1Cálculo Ok! '.$mensagemToleranciaSucesso);
				endif;
                unset($_POST);
 				$objetocalculo->registroDeOcorrencias($amostraLong,0,$nomeOperador,'Germinação',$vf1,$idLabo);					
               endif;//VE SE É AMBIENTE LEITURAS

			   if($ambienteOutrosDados=="SIM"):
			    if($rejeitar=="SIM" ):
                   printMSG('Cálculo não Ok! Rejeitado a nivel de 3x100.  Repetir o teste');
				endif;
                unset($_POST);
 				$objetocalculo->registroDeOcorrencias($amostraLong,0,$nomeOperador,'Germinação',$vf1,$idLabo);					
               endif;//VE SE É AMBIENTE LEITURAS

            else:
				//printMSG('Ok.Nada foi alterado. ','alerta');
            endif;
			
			
			
			
			
            /////////aqui ja le o vetor de novo para mostrar atualizado na tela//////////////
			    //referencia 2558
			 	$rean = new rean1();
				$rean->extras_select =" where  rea_teste='".$nomeTeste."' and rea_boletim='S'  AND rea_ficha=".$amostraLong ;
				//echo("zzzzzzzzzzzzzzzzkkkkkkk1667kkkkk   $rean->extras_select <br>");
                $rean->selecionaTudo($rean);
				while ($resRean = $rean->retornaDados()):
					$reanLong=$resRean->rea_id;
					$finalizada=$resRean->rea_finalizada;
                    $vetorMontado[1]=$resRean->rea_REA_LEI1;
                    $vetorMontado[2]=$resRean->rea_segunda_leitura;
                    $vetorMontado[3]=$resRean->rea_datainicio;
                    $vetorMontado[4]=$resRean->rea_duracao;
					//$vetorMontado[4]=45;
                    $vetorMontado[5]=date("d/m/Y",strtotime($resRean->rea_datageralteste));
                    $vetorMontado[6]=$resRean->rea_campo60a;//tratamento
					$vetorMontado[7]=$resRean->rea_campo60b;//substrato
					$vetorMontado[8]=$resRean->rea_campo20b;//germinador
					$vetorMontado[9]=$resRean->rea_campo20a;//temperatura
					$vetorMontado[10]=$resRean->rea_campo60c;//fungos
					$vetorMontado[11]=$resRean->rea_operador;
					$vetorMontado[12]=$resRean->rea_campo100;
					$vetorMontado[13]=$resRean->rea_validade;
					$vetorMontado[14]="soja";
					$vetorMontado[15]=$reanLong;
                    $primeiraLeituraData=$resRean->rea_primeira_leitura_data; 
					$primeiraLeituraAnalista=$resRean->rea_primeira_leitura_analista;
					$segundaLeituraData=$resRean->rea_segunda_leitura_data;
					$segundaLeituraAnalista=$resRean->rea_segunda_leitura_analista;
					$terceiraLeituraData=$resRean->rea_terceira_leitura_data;
					$terceiraLeituraAnalista=$resRean->rea_terceira_leitura_analista;

					$repeticao=$resRean->rea_lei4;
                    //printf('<td>%s</td>tttttxxxxxxxxxxxxxxx',$res->rea_lei1);
                endwhile;
			//////////////////// 
		endif;//este endif fecha o isset vai calcular gravar






		
		
		
		
//aqui vai atribuir a data de validade 		
	    if(post('bt_validade') !== ""):
		   $dataBras=post('direita5');
		   $dataAmericana=$objetoValidacao->validaData($dataBras);
		   $validade=post('validade');
		   //$dataAmericana=date("Y-d-m",strtotime($dataBras));
           //$data = date("d/m/Y H:i:s",strtotime(date("Y-m-d", strtotime($data)) . " +1 month"));//exemplo do google
           $datax = date("m/Y",strtotime(date("Y-m-d", strtotime($dataAmericana)) . " + ".$validade." month"));
		   //echo("validade  dataBras=$dataBras dataAmericanavd=$dataAmericana  datafinal=$datax<br>");
		   $vetorMontado[13]=$datax;
		   if($cliente!='IRGA'):
		    ?>
		 <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
         alert ("Orientaçao: Os meses de validade, variam conforme a espécie. Cadastre em  ESPECIES: HABILITAR e PADROES Tem um campo para isso.  O botão que voce clicou agora nao salva a validade, voce precisa clicar em salvar para salvar a validade(do teste) que foi calculada. Se for reteste, pode digitar o numero de meses antes de clicar no botão meses.")
         
         </SCRIPT>
		 <?php
         // printMSG('Clique em gravar!' ,'alerta');
		 endif;//PERGURA SE É IRGA SE FOR IRGA NAO MOSTRA MESAGEM JAVASCRIPT 
		endif;//este endif fecha o isset bt validade
		
			$senhaCli=$sessao->getVar('iduser');
			//$objetocalculo = new calculos(); //calcula todos valores finais
			//isso aqui faz ir para ultima amostra caso nao tenha sido selecionado outra antes
			
			
			
			//captura os dados da amostra
			$userAmostra = new amostras();
			$userAmostra->extras_select =  " where fic_id=".$amostraLong;  //fucnciona perfeito
			$userAmostra->selecionaCampos($userAmostra);
			while ($resAmostra = $userAmostra->retornaDados()):
			    //$amostraLong=$resAmostra->fic_id;
			    $idCultivar=$resAmostra->fic_cultivar;
			    $idProdutor=$resAmostra->fic_produtor;
			    $ultima=$resAmostra->fic_amostra;
				if($finalidade=='DEFINITIVA'):
			       $amostra=$resAmostra->fic_amostra;
				else:
			       $amostra=$resAmostra->fic_amostra_previa;
				endif; 
				$lote=$resAmostra->fic_lote;
				$dataEntrada=$resAmostra->fic_dt_entrada;
			endwhile;		
            //$vetorMontado[1]=$amostra.$legendaFinalidade."ddd";
           
			//captura a especie
            $user = new cultivarespecies();
			$user->extras_select =" where esp_id=ctv_especie and  ctv_id=".$idCultivar ;
            $user->selecionaTudo($user);
			while ($res = $user->retornaDados()):
                $validade=$res->esp_validade;			    
				$especie=$res->esp_nome;
				$cultivar=$res->ctv_nome;
				$idEspecie=$res->esp_id;
            endwhile;
			$vetorMontado[14]=$especie;
			$legendaSuperior='Cálculo de '.$legendaTeste. ' Rev:25/06/21  Amostra:' . $amostra .'  Lote:'.$lote .' - Espécie:'. $especie.' - Cultivar:'. $cultivar. ' Ref. ' . $nomeTeste . ' ID='.$reanLong;
			//se for milho ou se for soja e nao estiver preenchido aindaentao vem um valor automatico(sugestao da germinax)
			$valor=$vetorMontado[4];
			$tama=strlen($valor);
			if($tama==0 || $valor==' '):
			    if(trim($especie)=='SOJA')$vetorMontado[4]=5;
			    if(trim($especie)=='MILHO')$vetorMontado[4]=5;
			endif;
			
	///VOLTA AO SISTEMA ANTIGO/////////////////		
	           //aqui vai encher o vetor da lista de apoio  abandonado em 180823
			$idLabo=$sessao->getVar('idLabo');
			$genericaApoio=new tabelagenerica();
			$genericaApoio->tabela="escopo";
			$genericaApoio->campos_valores = array(
			    "esc_nome" => NULL,
			    "esc_nome_legal" => NULL,
			);
			$genericaApoio->extras_select =" order by esc_nome";
			$genericaApoio->selecionaCampos($genericaApoio);
			$registrosApoio=0;
			while ($resApoio = $genericaApoio->retornaDados()):
		        $registrosApoio++;
		        $texto=$resApoio->esc_nome;
				//echo("dentro1 do if texto=$texto idLabo=$idLabo<br>");
		        if(strlen($texto)>12):
					//echo("dentro2 do if texto=$texto  idLabo=$idLabo<br>");
                    if(substr($texto,12)==$idLabo):
	                    $matrizApoio[$registrosApoio][1]= substr($texto,0,12).$cliente."RR";  
	                    $matrizApoio[$registrosApoio][2]= $resApoio->esc_nome_legal;  
						//echo("dentro do if texto=$texto <br>");
					endif; 	
                endif;
            endwhile;		
			
 ///FIM DA VOLTA AO SISTEMA ANTIGO  
/*
if($cliente=="QUALITESTE"):
            //aqui vai encher o vetor da lista de apoio  abandonado em 180823
			$idLabo=$sessao->getVar('idLabo');
			$genericaApoio=new tabelagenerica();
			$genericaApoio->tabela="escopo";
			$genericaApoio->campos_valores = array(
			    "esc_nome" => NULL,
			    "esc_nome_legal" => NULL,
			);
			$genericaApoio->extras_select =" order by esc_nome";
			$genericaApoio->selecionaCampos($genericaApoio);
			$registrosApoio=0;
			while ($resApoio = $genericaApoio->retornaDados()):
		        $registrosApoio++;
		        $texto=$resApoio->esc_nome;
				//echo("dentro1 do if texto=$texto idLabo=$idLabo<br>");
		        if(strlen($texto)>12):
					//echo("dentro2 do if texto=$texto  idLabo=$idLabo<br>");
                    if(substr($texto,12)==$idLabo):
	                    $matrizApoio[$registrosApoio][1]= substr($texto,0,12).$cliente."RR";  
	                    $matrizApoio[$registrosApoio][2]= $resApoio->esc_nome_legal;  
						//echo("dentro do if texto=$texto <br>");
					endif; 	
                endif;
            endwhile;
else:
			//ISSO É O QUE VALE A PARTIR DE 170823 PEGA UM REGISTRO DA ESPECIE QUE ESTA TRABALHANDO
			$generica=new tabelagenerica();
			$generica->tabela="tratamentofrequente";
			$generica->campos_valores = array(
			    "tfg_tratamento" => NULL,
			    "tfg_temperatura" => NULL,
			    "tfg_substrato" => NULL,
			    "tfg_germinador" => NULL,
			);
			$generica->extras_select =" where tfg_cultura=".$idEspecie;
			$generica->selecionaCampos($generica);
			$registros=0;
			while ($res = $generica->retornaDados()):
                $tratamentoFrequente=$res->tfg_tratamento;
                $temperaturFrequente=$res->tfg_temperatura;
                $substratoFrequente=$res->tfg_substrato;
                $germinadorFrequente=$res->tfg_germinador;
            endwhile;                
            //FIM DA CAPTURA DO REGISTRO TRATAMENTO MAIS FREQUENTE para a especie que esta acessada
endif;//exceção para qualliteste

*/

			                
	    if($finalizada=='s'):
		  $desabilita='disabled';
		
		endif;

		?>
        <form class="userform" method="POST" action="">					   
		<!--<body bgcolor="#54ff9f">      este é o verde intenso-->
		<!--<h3><center> Tela de entrada de leituras de germinação</center></h3>-->

		
		
		
		
		<fieldset>
        <legend> <?php echo $legendaSuperior; ?> </legend>
		<table align="center">
		<tr>
		<td><?php echo $mensagemg?> </td>
		</tr>
		</table>
		              
		<!--aqui vai criar a tabela propriamente dita -->
		<!--<table  bgcolor="#e8e8e8"  cellspacing=0 cellpadinng=0 border="0" align=center > -->
	    
		<table  bgcolor="<?php echo $corFundo;?>"  cellspacing=0 cellpadinng=0 border="0" align=center > <!--fundo geral. Pus branco em 060523-->
		
		
		
		<tr>                                     
		  <!--<td><table bgcolor="<?php echo $corFundo;?>">  tela de fundo de toda area de insercao de dados-->
		<tr>
		<?php
		for($i=0;$i<=$numeroRepeticoes2012;$i++)
		{
		     echo("<th>$coluna[$i] </th>");
		}
		?>  

		 </tr>
		<?php
		//imprime a parte da esquerda||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
		for($i=1;$i<=$numeroLinhas+1;$i++)
		{  
		     $bloqueador="";
			 
			if($i==1) $bloqueador="readonly";//esta linha estava 
			 $nomeCampo="direita".$i;
		     if($i==1 || $i==5|| $i==9|| $i==13|| $i==14|| $i==15)
		     {
			     if($i==5|| $i==9|| $i==13|| $i==14|| $i==15):
				    ?><tr><td bgcolor="#a3a3a3"><?php  //outros rotulos
				 else:
				    ?><tr><td bgcolor="#a3a3a3"><?php //so germinacao
				 endif;
			     ?>
				 <b><?php echo($rotuloLinha[$i])?></b></td>
			     <?php
		     }
		     else
			 {
			     ?>
			     <tr><td>
				 
				 <?php echo($rotuloLinha[$i])?>   </td>
			     <?php
			 }
           
		     
		   

		     //parte central onde estao as colunas de  leiturassssssss//////////////////////////////////////////////////
			 //$numeroRepeticoes2012=16;


			 for($j=1;$j<=$numeroRepeticoes2012;$j++):
			     
			     $campo="c".$i.$j;
                 //if($i>10)$campo="c".$i.$j
				 $campo="c".str_pad($i, 2, "0", STR_PAD_LEFT).str_pad($j, 2, "0", STR_PAD_LEFT);
			     //$posicao=$i.$j;
        	     //$conteudo=$v160[$i][$j].'*';
		         //$colunaVermelha=4;
			     //echo("ssssUUUUUUUUUUU posicao =$posicao  campo=$campo CONTEUDO= $conteudo<br>");
				 //<td bgcolor="<?php echo($cor1); x>" >
				 $cor1="silver";
				 if($j==$colunaVermelha || $j==$colunaVermelha1) $cor1="red";
				 //echo("2572  $valorde i=$i $valorde j=$j   <br>");
				 
				 ?>  
				 <td bgcolor="<?php echo($cor1); ?>" >
				  
				 <input class="items" <?php echo $bloqueador?>  type="text"  style="font-size: 80%"  style="font-family:Arial" style="height: 20px"  name=<?php echo($campo)?> id=<?php echo($campo)?>  maxlength="3"  value="<?php echo($v160[$i][$j])?>"  size="1"  /><!--antigo para 4 e 8-->
                
				 
				 </td>
			     <?php


			 endfor;//fecha o fOr interno do numero de repeticoes
			 
			
	 	
		     //parte da direita onde vao as colunas da direita  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
		     ?>
		     <td>
			 <?php   echo($mediaOto[$i]);  ?>
			 </td>

		     <td>

			 <?php
			 if($i>=3 && $i<=9):
				?>
				
				<input type="submit"  class="MeuInput" name="trazer"  value="<?php echo($direita[$i]).'*R';?>"  />
				
				<!--<input type="submit" style="font-size: 100%"  style="font-family:Arial" style="height: 12px"  style="sy" class="MeuInput" name="trazer"  value="*R" />-->
				<?php
			 else:
			    if($i==1):
				   ?>
			       <input type="text" name="leit1" size="1" value="<?php echo $leit1;?>"/>
			       <input type="text" name="leit2" size="1" value="<?php echo $leit2;?>"/>
			       <input type="text" name="leit3" size="1" value="<?php echo $leit3;?>"/>
			       <input type="text" name="leit4" size="1" value="<?php echo $leit4;?>"/>
				   <?php
			    else:
  			       echo($direita[$i]);
				   if($i==10 && $cliente=='SEEDS'):
				   ?>
				      <input type="checkbox" name="cb_1"  value="<?php echo $cb_1;?>"/>Ph
				      <input type="checkbox" name="cb_2"  value="<?php echo $cb_2;?>"/>Fu
					  <input type="checkbox" name="cb_3"  value="<?php echo $cb_3;?>"/>As
					  <input type="checkbox" name="cb_4"  value="<?php echo $cb_4;?>"/>Pe
					  <input type="checkbox" name="cb_5"  value="<?php echo $cb_5;?>"/>Ou
					  <input type="checkbox" name="cb_6"  value="<?php echo $cb_6;?>"/>Ba
				   <?php
				   endif;
				   
				endif;   
			 endif;
             ?>
			 </td>

			 <?php

			 if($i==3  || $i==4 || $i==5)
			 {
	
               if($i==3):
                 //verifica se a data do inicio do teste = data entrada da amostra?
				 $coincidencia="Informe o início e a duração,depois CALCULA&GRAVAR";	
				 $dataInformada=$vetorMontado[$i];		   
                 $dataEntradaAmostra=date("d/m/Y",strtotime($dataEntrada));
			     if($dataInformada==$dataEntradaAmostra)$coincidencia=" Inicio teste=Data de entrada?    Informe o início e a duração,depois CALCULA&GRAVAR"; 
			     
		        ?><td><input type="text" name="<?php echo($nomeCampo)?>" maxlength="<?php echo($vetorMaxLeng[$i])?>" value="<?php echo($vetorMontado[$i])?>" size="8" />DE:<?php echo date("d/m/Y",strtotime($dataEntrada)).$coincidencia;?><?php
               endif;
               if($i==4):  
			     ?><td><input type="text" name="<?php echo($nomeCampo)?>" maxlength="<?php echo($vetorMaxLeng[$i])?>" value="<?php echo($vetorMontado[$i])?>" size="1" />
				 		
				 <?php
                 //if($cliente=="LIMAGRAIN"):
				    echo 'DIAS.  Informe  a duração(SÓ O NÚMERO)';				
			     //endif; 		
	           endif;
	               if($i==5):  
			        ?>
					<td><input type="text" name="<?php echo($nomeCampo)?>" maxlength="<?php echo($vetorMaxLeng[$i])?>" value="<?php echo($vetorMontado[$i])?>" size="8" /> 
					Gravado: Ger= <?php echo $vetorRaioX[14]."%    CLV= ".$vetorRaioX[228]."%";?> 
					<input type="submit"  name="gravaclv"   <?php echo $desabilita; ?>  value="Gravar CLV"  />
					<?php
               endif;



			 }
			 
			 
		     else
			 {
			 
			    if($i!=15 ):
				   echo "<td>";  
		           if($i==1):
                     ?>
	 				<!--campso da primeira laitura baren F,G,H,I  OU COLUNAS 5,6,7,8-->
					<input type="text" name="leit5" maxlength="3" value="<?php echo $leit5;?>" size="1" />
					<input type="text" name="leit6" maxlength="3" value="<?php echo $leit6;?>" size="1" />
					<input type="text" name="leit7" maxlength="3" value="<?php echo $leit7;?>" size="1" />
					<input type="text" name="leit8" maxlength="3" value="<?php echo $leit8;?>" size="1" />	
					<input type="submit" name="ajudaEspecial"  value="<--Ajuda especial" />	
					<a href="?m=tetrazolioEstiloBarenTZF&t=editarTZF" >TZ forrageiras</a></td>

					<?php
				   else://se nao for linha 1 ele coloca varios inputs normais para digitar
				      ?>
					  <input type="text" name="<?php echo($nomeCampo)?>" maxlength="<?php echo($vetorMaxLeng[$i])?>" value="<?php echo($vetorMontado[$i])?>" size="20" />
                   <?php
				   endif; 	  
                   ?>


		              <!--aqui vai botar as listas de apoiio conforme cada um dos 4 casos-->
					  <?php
					   //salva o nome do priemiro analista e a data 
					   if($i==10):
                          ?>
						  Dt. 1ªLeit.<input type="text" name="dataPrimeiraLeitura" size="8" maxlength="10" value="<?php echo $primeiraLeituraData;?>"/> 
						  An.<select name="analistaPrimeiraLeitura"  >  
					   	  <option><?php echo $primeiraLeituraAnalista;?></option>
					     <?php
						 foreach($vetorAnalistas as $vlr)
					     {
						    echo "<option>".$vlr ."</option>";
					     }
					     ?>
					     </select>
						 <?php   
					   endif;

					   if($i==11):
                          ?>
						  Dt. 2ªLeit.<input type="text" name="dataSegundaLeitura" size="8" maxlength="10" value="<?php echo $segundaLeituraData;?>"/> 
						  An.<select name="analistaSegundaLeitura"  >  
					   	  <option><?php echo $segundaLeituraAnalista;?></option>
					     <?php
						 foreach($vetorAnalistas as $vlr)
					     {
						    echo "<option>".$vlr ."</option>";
					     }
					     ?>
					     </select>
						 <?php   
					   endif;

					   if($i==12):
                          ?>
						  Dt. 3ªLeit.<input type="text" name="dataTerceiraLeitura" size="8" maxlength="10" value="<?php echo $terceiraLeituraData;?>"/>
						   
						  An.<select name="analistaTerceiraLeitura"  >  
					   	  <option><?php echo $terceiraLeituraAnalista;?></option>
					     <?php
						 foreach($vetorAnalistas as $vlr)
					     {
						    echo "<option>".$vlr ."</option>";
					     }
					     ?>
					     </select>
						 <?php   
					   endif;


					   //if($i==6 ):
					   
		   
             //if($cliente=="QUALITESTE"):
                 	if($i==6 || $i==7 || $i==8 || $i==9):
						   $casoApoio="apoio".$i;  //vai valer apoio6, apoio7 etc 
						   
                           //echo("matrizamoio(1)=$matrizApoio[1][1]<br>  ");   
						   ?>  
				                <select name="<?php echo $casoApoio;?>" value=""><!--cada linha que vai colocando ele coloca a variavel com neme diferente-->
								    <option></option>
								    <?php 
									for($variavel=1;$variavel<=$registrosApoio;$variavel++):
									//for($variavel=6;$variavel<=6;$variavel++):
									    $codigo=$matrizApoio[$variavel][1];
										echo("codigo=$codigo<br>");
                                        $conteudo=""; 
                                        
										if(substr($codigo,0,2)=="TR" && $i==6)$conteudo=$matrizApoio[$variavel][2];
										if(substr($codigo,0,2)=="SU" && $i==7)$conteudo=$matrizApoio[$variavel][2];
										if(substr($codigo,0,2)=="GE" && $i==8)$conteudo=$matrizApoio[$variavel][2];
										if(substr($codigo,0,2)=="TE" && $i==9)$conteudo=$matrizApoio[$variavel][2];
	                                    if($conteudo!=""):
										?>  
										<option><?php echo $conteudo;?></option>
									   	<?php
										endif;
									endfor;
									?>	
								</select></td>
 						  <?php 
					  endif;//testa se o ié 6,7,8,9

/*
             else: //se nao for qualiteste 

	                   if($i==6 || $i==7 || $i==8 || $i==9):
						   $casoApoio="apoio".$i;  //vai valer apoio6, apoio7 etc 
                           //echo("3213 xxxxxxxxxxxxxxxxxx  matrizamoio(1)=$matrizApoio[1][1]<br>  ");   
						   ?>  
				           <select name="<?php echo $casoApoio;?>" value=""><!--linha do combo-->
						    <option></option>
						    <?php 
							if($i==6)$conteudo=$tratamentoFrequente ;
							if($i==7)$conteudo=$substratoFrequente;
							if($i==8)$conteudo=$germinadorFrequente;
							if($i==9)$conteudo=$temperaturFrequente;
							?>
                            <option><?php echo $conteudo;?></option>
                            </select></td>
 						  <?php 
					  endif;//testa se o ié 6,7,8,9
            endif;  					  
		
		*/	
			/*	  
///USA OS DOI TIPOS////////////////////////
                 	if($i==6 || $i==7 || $i==8 || $i==9):
						   $casoApoio="apoio".$i;  //vai valer apoio6, apoio7 etc 
						   
                           //echo("matrizamoio(1)=$matrizApoio[1][1]<br>  ");   
						   ?>  
				                <select name="<?php echo $casoApoio;?>" value=""><!--cada linha que vai colocando ele coloca a variavel com neme diferente-->
								    <option></option>
								    <?php 
									for($variavel=1;$variavel<=$registrosApoio;$variavel++):
									//for($variavel=6;$variavel<=6;$variavel++):
									    $codigo=$matrizApoio[$variavel][1];
										echo("codigo=$codigo<br>");
                                        $conteudo=""; 
                                        
										if(substr($codigo,0,2)=="TR" && $i==6)$conteudo=$matrizApoio[$variavel][2];
										if(substr($codigo,0,2)=="SU" && $i==7)$conteudo=$matrizApoio[$variavel][2];
										if(substr($codigo,0,2)=="GE" && $i==8)$conteudo=$matrizApoio[$variavel][2];
										if(substr($codigo,0,2)=="TE" && $i==9)$conteudo=$matrizApoio[$variavel][2];
	                                    if($conteudo!=""):
										?>  
										<option><?php echo $conteudo;?></option>
									   	<?php
										endif;
									endfor;
									?>	
								</select></td>
 						  <?php 
					  endif;//testa se o ié 6,7,8,9



	                   if($i==6 || $i==7 || $i==8 || $i==9):
						   $casoApoio="apoio".$i;  //vai valer apoio6, apoio7 etc 
                           //echo("3213 xxxxxxxxxxxxxxxxxx  matrizamoio(1)=$matrizApoio[1][1]<br>  ");   
						   ?>  
				           <select name="<?php echo $casoApoio;?>" value=""><!--linha do combo-->
						    <option></option>
						    <?php 
							if($i==6)$conteudo=$tratamentoFrequente ;
							if($i==7)$conteudo=$substratoFrequente;
							if($i==8)$conteudo=$germinadorFrequente;
							if($i==9)$conteudo=$temperaturFrequente;
							?>
                            <option><?php echo $conteudo;?></option>
                            </select></td>
 						  <?php 
					  endif;//testa se o ié 6,7,8,9




///FIM DO USO DE DOIS TIPOS////////////////////////			
			*/
			
			
					  
					  
					  if($i==13):
					     ?>
						 mais <input type="text" name="validade"  maxlength="2" size="1" value="<?php echo $validade;?>" /> 
					     <input type="submit" name="bt_validade"   value="meses" /> 
						 <?php
					  endif;
					  if($i==14):
					     ?>
					     <input type="submit" name="bt_reteste"   value="Acessar outros testes nesta amostra" /> 
						 <input type="submit" name="bt_refresca"   value="Atualizar" /> 
						 <?php
					  endif;
					  
	

					  
			    else://da pergunta se for  diferente de 15
		              ?><td>
					    <select  name="formato">
                        <option><?php echo $repeticao;?></option>					  
                        <option>4x100</option>					  
                        <option>8x50</option>					  
                        <option>16x25</option>					  
                        <option>4x50</option>					  
                        <option>2x100</option>					  
                        </select>	
						<input type="submit"  name="trocarformato"  value="Ajustar/Fixar"  />
						</td>

					  <?php
				endif; 		  
			 }
			 ?>
		     </td>
		     </tr>
		     <?php
		}//aqui fecha o for
		     ?> 
		     
		     
		     </tr>
			 </thead>
			 </table>
			 <?php
			 
			   if($numeroRepeticoes==16):
			      $larguraTable=1500;
			   else:	  
			      $larguraTable=1200;
			   endif;
			   //$larguraTable=800;	  
			 ?>
			 
		    <!--<table width="<?php echo $larguraTable; ?>" border="1" cellspacing="1"  align="center">--> <!--tabela onde estão os comandos-->
		    <table  bgcolor="#acacac"  width="<?php echo $larguraTable; ?>" border="1" cellspacing="1"  align="center"><!--tabela onde estão os comandos-->
		     <tr>
			 <td><?php echo($mensagem3x100)?></td>
			 <?php  
		  
			  ?>
			 </tr>
			 <td>
             Após digitar todas as leituras, grave-as imediatamente. 
			 </td>
 			</tr>
            <td>

			 <tr>
			 <td>
			 ~~~~~~~~~~<input type="submit" name="bt_gravarLeituras" <?php echo $desabilita; ?> value="Gravar só as LEITURAS <?php echo $gravouLeituras;?>"  />
			 <input type="checkbox"  name="transparencia"/>Com transparência
			 
			 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
			 <!--<input type="submit"  style="font-size: 100%"   style="font-family:Arial" style="height: 22px"  name="bt_outrosDados"   <?php echo $desabilita; ?>  value="Gravar só os outros dados  <?php echo $gravouOutrasInformacoes; ?>"-->
			 <input type="submit"    name="bt_outrosDados"   <?php echo $desabilita; ?>  value="Gravar só os OUTROS DADOS  <?php echo $gravouOutrasInformacoes; ?>" />~~~~~~~~~~
			 
			 
			   
			 <input type="hidden" name="nomeTeste" value="<?php echo($nomeTeste)?>" size=5 /></td>
			 <?php echo($statusAtivado)?>
			 <input type="hidden" name="reanLong" value="<?php echo($reanLong)?>" size=2 /></td>
			 <input type="hidden" name="finalizada" value="<?php echo($finalizada)?>" size=1 />
			 <input type="hidden" name="amostraLong" value="<?php echo($amostraLong)?>" />
			 <input type="hidden" name="valorCLV" value="<?php echo($valorCLV)?>" />
			 </td>
 			</tr>
            <td>

			<label3>Amostra:</label3>
		    <b><input type="text" size="3"  maxlength="5" name="amostra" value="<?php echo $amostra; ?>" /></b>
		    <input type="submit" name="acharDigitada" value="<--Achar" />
			
			<input type="submit" name="acharRecua" value="<" />
			<input type="submit" name="acharAvanca" value=">" />
			<input type="submit" name="acharUltima" value=">|" />
			


		<input type="submit" name="manual" value="Ajuda" />
			
			

			<?php
			if($finalizada=="s"):
			?>
				<input type="submit" name="reabre" value="Reabre" />
			<?php	
			else:
            ?>
				<input type="submit" name="fechar" value="Bloquear" />Sim
				<input type="checkbox" size="1"  name="cb_fechar" />
			<?php	
			endif;
            ?>  			

	        
	        <select name="temposEAC">  
		   	<option><?php echo $eacDestaAmostra;?></option>
			<option>24H</option>
			<option>36H</option>
			<option>48H</option>
			<option>72H</option>
			<option>96H</option>
		    </select>
			<input type="button" onclick="location.href='?m=amplo2023&t=registroAmostra'" value="Ir para Versão 2023" />
			<br>
			Outros testes nesta amostra:<?php echo $concatenaTestes;?>
			<input type="submit" name="bt_reteste"   value="Acessar outros testes nesta amostra" /> 

			
			
			
			
			
			</form>


		     </tr>
		     </table>

		     </td>
		     </tr>
		     </tbody>
		     </table>
		     </center>
			 </<fieldset>
			 
			 
       <?php 	
	}//final da function calculageral   	 
?>