<?php 
require_once(dirname(dirname(__FILE__))."/funcoes.php");
protegeArquivo(basename(__FILE__));
loadJS('jquery-validate');
loadJS('jquery-validate-messages');
$objetocalculo=new calculos();
$objetoValidacao=new validacao();
$objetocalculoRaioX = new calculosFichaVirtual(); //calcula todos valores finais
$sessao = new sessao();
$amostraLong=$sessao->getVar('amostraLong');
if($amostraLong<1):
     $amostraLong=$objetocalculo->achaUltima();
endif;
$legendaSuperior="ADVERTÊNCIA: Atenda as REGRAS DE ANÁLISE DE SEMENTE.  O Silas pode até ajudar nisso, mas você é o responsável.";


$finalidade=$sessao->getVar('finalidade');
$senhaCli=$sessao->getVar('iduser');
$idLabo=$sessao->getVar('idLabo');
$nomeOperador=$sessao->getVar('nomeuser');
$cliente=$sessao->getVar('cliente');
$vetorRaioX=$objetocalculoRaioX->capturaGeralRaioX($amostraLong);
$cultivar=$vetorRaioX[42];
$peneira=$vetorRaioX[56];
$tratamento=$vetorRaioX[58];


//echo("Operador: $nomeOperador idlabo=$idLabo tela=$tela cliente: $cliente <br>");
//vai capturar a ida da ultima amostrs 
//quando ele entrar aqui ele ja vai ler o numero da amostra a partir de uma session 
//vai ter um modulo perfeito onde ele vai selecionar amostra
//prieira ultima segunte anterior, aleatoria ao localizar vai voltar para o edit trazendo o numero da amostra na session 
//$anoAmostra="2013";
//adv tem lista espciaal(manda qem pode , obedece quem tem juizo)
if(trim($cliente)=='ADV'):
    $listaMaterialInerte[1]="Escleródios";
    $listaMaterialInerte[2]="Fragmento de planta";
    $listaMaterialInerte[3]="Fragmento de semente";
    $listaMaterialInerte[4]="Fungos";
    $listaMaterialInerte[5]="Inseto";
    $listaMaterialInerte[6]="Lema";
    $listaMaterialInerte[7]="Pálea";
    $listaMaterialInerte[8]="Pedra";
    $listaMaterialInerte[9]="Pó";
    $listaMaterialInerte[10]="Resina";
    $listaMaterialInerte[11]="Revestimento";
    $listaMaterialInerte[12]="Semente falhada";
    $listaMaterialInerte[13]="Semente sem tegumento";
    $listaMaterialInerte[14]="Tegumento";
    $listaMaterialInerte[15]="Torrão";
    $listaMaterialInerte[16]="-O-";
    $listaMaterialInerte[17]="Fragmento de Cariopse";
	$limiteMI=17;
elseif($cliente=='BARENxxxxxxxxxxxxxxx'):	//sucata pois barenbrug é diferente
	$listaMaterialInerte[1]="Carvão";
	$listaMaterialInerte[2]="Torrão";
	$listaMaterialInerte[3]="Palha";
	$listaMaterialInerte[4]="Palito";
	$listaMaterialInerte[5]="Terra";
	$listaMaterialInerte[6]="Part.Mat.Aglom.";
	$listaMaterialInerte[7]="Cariopse";
elseif($cliente=='LIMAGRAIN'):	//sucata pois barenbrug é diferente
	$listaMaterialInerte[1]="Restos culturais";
	$listaMaterialInerte[2]="Fragmentos de sementes";//fungo do azevem
	$listaMaterialInerte[3]="Sabugo";
	$listaMaterialInerte[4]="Insetos mortos/vivos";//fica de reserva para algum dia
	$listaMaterialInerte[5]="outros";
	$listaMaterialInerte[6]="-O-";
	$limiteMI=6;

elseif($cliente=='VIGOR'):	//sucata pois barenbrug é diferente
	$listaMaterialInerte[1]="Sem. Quebradas";
	$listaMaterialInerte[2]="Cotilédones";//fungo do azevem
	$listaMaterialInerte[3]="Tegumentos";
	$listaMaterialInerte[4]="Embriões";//fica de reserva para algum dia
	$listaMaterialInerte[5]="Sem. Partidas";
	$listaMaterialInerte[6]="Frag. de tegumento";
	$listaMaterialInerte[7]="Frag. de plantas";
	$listaMaterialInerte[8]="Casca";
	$listaMaterialInerte[9]="Pedaços de sementes";
	$limiteMI=9;
elseif($cliente=='SEMPRE'):	//sucata pois barenbrug é diferente
	$listaMaterialInerte[1]="Fragmento de plantas";
	$listaMaterialInerte[2]="Pó";
	$listaMaterialInerte[3]="Pedra";
	$listaMaterialInerte[4]="Palha";
	$listaMaterialInerte[5]="Torrão";
	$listaMaterialInerte[6]="Insetos";
	$listaMaterialInerte[7]="Sementes quebradas";
	$listaMaterialInerte[8]="Sementes chochas";
	$listaMaterialInerte[9]="-O-";//este é o valor limite de itens basicos para todos
	$listaMaterialInerte[10]="Sementes sem tegumento";//fungo do azevem
	$listaMaterialInerte[11]="Detritos";//fungo do azevem
	$listaMaterialInerte[12]="Areia";//fungo do azevem
	$listaMaterialInerte[13]="Outros";//fungo do azevem
	$limiteMI=13;



elseif($cliente=='IRGA'):	//sucata pois barenbrug é diferente
	$listaMaterialInerte[1]="Tegumento";
	$listaMaterialInerte[2]="Fragmento de Tegumento";
	$listaMaterialInerte[3]="Fragmento de plantas";
	$listaMaterialInerte[4]="Pó";
	$listaMaterialInerte[5]="Pedras";
	$listaMaterialInerte[6]="Inseto morto";
	$listaMaterialInerte[7]="Grãos quebrados";
	$listaMaterialInerte[8]="Palhas";
	//$listaMaterialInerte[9]="Torrões";
	$listaMaterialInerte[9]="Fragmento de Solo";//solicitado por irga 040823
	$listaMaterialInerte[10]="Inseto";
	$listaMaterialInerte[11]="Sementes quebradas";
	$listaMaterialInerte[12]="Cariopses quebradas";
	$listaMaterialInerte[13]="Sementes chochas";
	$listaMaterialInerte[14]="Arista";//fica de reserva para algum dia
	$listaMaterialInerte[15]="Pedaço de cariopse";
	$listaMaterialInerte[16]="Restos vegetais";
	$listaMaterialInerte[17]="Materiais rochosos";
	$listaMaterialInerte[18]="Pedaços de sementes";
	$listaMaterialInerte[19]="Material aglomerante";
	$listaMaterialInerte[20]="-O-";//este é o valor limite de itens basicos para todos
	$listaMaterialInerte[21]="Esclerótio";//esclerotio é uma estrutura um tanto semelhante 
	//Ha uma bosta de rato e é branca por dentro e indica a presenca de esclerotinia em soja condenando o lote
	$listaMaterialInerte[22]="Palea";
	$listaMaterialInerte[23]="Talo";//solicitado por irga
	$listaMaterialInerte[24]="Pedicelo";//solicitado por irga
	$listaMaterialInerte[25]="Grão";//fungo do azevem
	$listaMaterialInerte[26]="Sem s/tegumento";//fungo do azevem
	//$listaMaterialInerte[27]="Terra";//fungo do azevem
	//$listaMaterialInerte[27]="Fezes de roedores";//solicitado por irga 040823
	$listaMaterialInerte[27]="Fezes";//solicitado por irga 040823
	$listaMaterialInerte[28]="Sementes nuas";//solicitado por qualiteste
	$listaMaterialInerte[29]="Pedaço de papel";//solicitado por qualiteste
	$listaMaterialInerte[30]="Casca";//solicitado por qualiteste
	$listaMaterialInerte[31]="Artículos Desmodium";//solicitado por irga
	$listaMaterialInerte[32]="Espigueta estéril";//solicitado por irga
	$listaMaterialInerte[33]="Lema";//solicitado por irga
	$listaMaterialInerte[34]="Palha";//solicitado por irga 040823

	$limiteMI=36;

elseif($cliente=='IAGRO'):	//sucata pois barenbrug é diferente
	$listaMaterialInerte[1]="Torrão";
	$listaMaterialInerte[2]="Pó";
	$listaMaterialInerte[3]="Palha";
	$listaMaterialInerte[4]="Sem. quebradas";
	$listaMaterialInerte[5]="Areia";
	$listaMaterialInerte[6]="Sem. chochas";
	$listaMaterialInerte[7]="Detritos";//solicitado por qualiteste
	$listaMaterialInerte[8]="Sem s/tegumento";//fungo do azevem
	$listaMaterialInerte[9]="Insetos";
	//$listaMaterialInerte[10]="Outras";
	$limiteMI=9;

else:   
	$listaMaterialInerte[1]="Tegumento";
	$listaMaterialInerte[2]="Frag.de Tegumento";
	$listaMaterialInerte[3]="Frag.de plantas";
	$listaMaterialInerte[4]="Pó";
	$listaMaterialInerte[5]="Pedras";
	$listaMaterialInerte[6]="Inseto morto";
	$listaMaterialInerte[7]="Grãos quebrados";
	$listaMaterialInerte[8]="Palhas";
	$listaMaterialInerte[9]="Torrões";
	if(substr($cliente,0,8)=='DIMICRON'):
	   $listaMaterialInerte[9]="Partículas de solo";
	endif;
	$listaMaterialInerte[10]="Inseto";
	$listaMaterialInerte[11]="Sem. quebradas";
	$listaMaterialInerte[12]="Cariopses quebradas";
	$listaMaterialInerte[13]="Sementes chochas";
	$listaMaterialInerte[14]="Arista";//fica de reserva para algum dia
	$listaMaterialInerte[15]="Pedaço de cariopse";
	$listaMaterialInerte[16]="Restos vegetais";
	$listaMaterialInerte[17]="Materiais rochosos";
	$listaMaterialInerte[18]="Pedaços de sementes";
	$listaMaterialInerte[19]="Material aglomerante";
	$listaMaterialInerte[20]="-O-";//este é o valor limite de itens basicos para todos
	$listaMaterialInerte[21]="Esclerótio";//esclerotio é uma estrutura um tanto semelhante 
	//Ha uma bosta de rato e é branca por dentro e indica a presenca de esclerotinia em soja condenando o lote
	$listaMaterialInerte[22]="Palea";
	$listaMaterialInerte[23]="Ergoti";//fungo do azevem
	$listaMaterialInerte[24]="Cotilédones";//fungo do azevem
	$listaMaterialInerte[25]="Grão";//fungo do azevem
	$listaMaterialInerte[26]="Sem s/tegumento";//fungo do azevem
	$listaMaterialInerte[27]="Ergot";//fungo do azevem
	$listaMaterialInerte[28]="Sementes nuas";//solicitado por qualiteste
	$listaMaterialInerte[29]="Núculas quebradas";//solicitado por qualiteste
	$listaMaterialInerte[30]="Casca";//solicitado por qualiteste
	$listaMaterialInerte[31]="Artículos Desmodium";//solicitado por 
	$listaMaterialInerte[32]="Espigueta estéril";//solicitado por 
	$listaMaterialInerte[33]="Lema";//solicitado por 
	$listaMaterialInerte[34]="Núculas sem tegumento";//solicitado por tabajara
	//$listaMaterialInerte[34]="Talo";//solicitado por 
	//$listaMaterialInerte[35]="Pedicelo";//solicitado por 
	$limiteMI=34;
endif;
//$limiteMI=16;



$objetocalculo = new calculos(); //calcula todos valores finais





//echo("Operador: $nomeOperador idlabo=$idLabo tela=$tela<br>");


switch ($tela):

    case 'editar':
	     //localiza as outras sementes
		 //$amostraLong=10;
       	if(post('manual') !== ""):
	           echo '<iframe src="manual2010.php?opcaoManual=pureza" style="border:5px dotted red" width="100%" height="150"></iframe>';//funciona
 	    endif;	 
		


		$generica=new tabelagenerica();
		$generica->tabela="invasoras,contaminantes";
		$generica->campos_valores = array(
				"inv_qtd" => NULL,
				"con_nome_cientifico" => NULL,
			);
		$generica->extras_select =" where   inv_cod_praga=con_id && inv_amostra=" .$amostraLong; 
	    $generica->selecionaCampos($generica);
		$indiceVetor=0;
		while ($resgenerica = $generica->retornaDados()):
		    $indiceVetor++;
			$vetorSementes[$indiceVetor]=$resgenerica->con_nome_cientifico;//joga dentro do ARRAY os elementos da tabela
	    endwhile;

	
	
	
	
	        $controlador=post('controlador');
            if(empty($controlador)==TRUE)$controlador='R1';  
	
	
	
	        if(post('bt_r1') !== "")$controlador="R1";
	        if(post('bt_r2') !== "")$controlador="R2";
	        if(post('bt_r3') !== "")$controlador="R3";
	        if(post('bt_r4') !== "")$controlador="R4";
			/*
			$reanLong=post('reanLong');
			echo("185 cod rean1 = $reanLong  controlador=$controlador<br>");
            //vai ver se tem registro. Se nao tem cria se tem vai ler
			///////////////////////////////////////////////////
			//ENTRA DE QUAKQUER MANEIRA
	 	 	$generica=new tabelagenerica();
			$generica->tabela="camposRepeticaoPureza";
			$generica->campos_valores = array(
					"crp_id" => NULL,
					"crp_complemento" => NULL,
					"crp_observacao" => NULL,
				);
			$generica->extras_select =" where  crp_repeticao='".$controlador."'  &&  crp_rea_pure=" . $reanLong;
		    $generica->selecionaCampos($generica);
            $crpID=0; 
			while ($resgenerica = $generica->retornaDados()):
				$crpID=$resgenerica->crp_id;
                $crpComplemento=$resgenerica->crp_complemento;
				$crpObservacao=$resgenerica->crp_observacao; 
		    endwhile;
			///////////////////////////////////////////////////
            // se nao acha registro entao ele cria um imediatamente
		    $sql="insert into camposRepeticaoPureza(crp_rea_pure,crp_repeticao )";
	        $sql.="values('$reanLong','$controlador')";
	        $userNota = new generica();
	        $userNota->campos_valores = $sql;				 
		    $crpLong=$userNota->inserirEspecial($userNota);
			
			echo("212 xxxxxxxxxxxesta na insercao do controledor crpLong=$crpLong   <br");
*/
			if(post('bt_fechar') !== ""):
			  if(post('cb_fechar') !== ""):
	    		   //GRAVA AS LEITURAS DiRETO NA REAN
				   $sql="update rean1 set rea_finalizada='s' where  rea_teste='PURE' 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='PURE' and  rea_ficha=".$amostraLong;
  	 	           $generica=new tabelagenerica();
				   $generica->grava_registro_com_retorno($sql); 
		           printMSG('Teste foi reaberto! Ok. Gravação normal.' ,'alerta');
				   //grava ocorrencia
				   $finalidade="Reabrir Pureza";
	               $valor='-O-';				   
				   $objetocalculo->registroDeOcorrencias($amostraLong,0,$nomeOperador,$finalidade,$valor,$idLabo);
				   printMSG('Gravou Ok. 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 REABRIR
	        
			
			if(post('bt_media') !== ""):
                //echo(" media=$media<br>");
                //acha dados da rean1
			 	$rean = new rean1();
				$rean->extras_select =" where  rea_teste='PURE' AND rea_ficha=".$amostraLong ;
                $rean->selecionaTudo($rean);
				$montado2="";
				while ($resRean = $rean->retornaDados()):
					$montado1=$resRean->rea_campo20b;
					$montado2=$resRean->rea_campo60b;
					$montado3=$resRean->rea_campo60c;
					//$montado4=$resRean->rea_campo100;
					$sppFinal1=$resRean->rea_v1;
					$mipFinal1=$resRean->rea_v2;
					$ospFinal1=$resRean->rea_v3;
					$reanLong=$resRean->rea_id;
                endwhile;
			   if(post('cb_r1') !== "")list($sppFinal1,$mipFinal1,$ospFinal1)= explode(";", $montado1);
			   if(post('cb_r2') !== "")list($atglido,$spglido,$osglido,$miglido,$sppFinal2,$mipFinal2,$ospFinal2)= explode(";", $montado2);
			   if(post('cb_r3') !== "")list($atglido,$spglido,$osglido,$miglido,$sppFinal3,$mipFinal3,$ospFinal3)= explode(";", $montado3);
			   if(post('cb_r4') !== "")list($atglido,$spglido,$osglido,$miglido,$sppFinal4,$mipFinal4,$ospFinal4)= explode(";", $montado4);
               
			   //verifica quantos componentes foram assinalados e tem valores de pureza(pois pode nao ter feito a repeticao e clicar erradamente)
			   $componentes=0;
			   if(post('cb_r1') !== "" && $sppFinal1>0 )$componentes++;
			   if(post('cb_r2') !== "" && $sppFinal2>0 )$componentes++;
			   if(post('cb_r3') !== "" && $sppFinal3>0 )$componentes++;
			   if(post('cb_r4') !== "" && $sppFinal4>0 )$componentes++;



               //se marcou dois
               $somaPureza=0;
               $somaInerte=0;

               if(post('cb_r1') !== ""):
			       $somaPureza+=$sppFinal1;
			       $somaInerte+=$mipFinal1;
			   endif;	   

               if(post('cb_r2') !== ""):
			       $somaPureza+=$sppFinal2;
			       $somaInerte+=$mipFinal2;
			   endif;	   
               if(post('cb_r3') !== ""):
			       $somaPureza+=$sppFinal3;
			       $somaInerte+=$mipFinal3;
			   endif;	   
               if(post('cb_r4') !== ""):
			       $somaPureza+=$sppFinal4;
			       $somaInerte+=$mipFinal4;
			   endif;	   


               //se realmente marcou e se tem dados faz a media do que encontrou
			   if($componentes>0):
			       $valorPureza=$somaPureza/$componentes;
			       $valorInerte=$somaInerte/$componentes;
			       $valorOS=100-$valorInerte-$valorPureza;
				   
				   //$media=number_format($somaPureza/$componentes,1,'.','.');
                   //$mediaInerte=number_format($somaInerte/$componentes,1,'.','.');
                   //$mediaOS=number_format(100-$mediaInerte-$media,1,'.','.');
				   $media=number_format($valorPureza,1,'.','.');
                   $mediaInerte=number_format($valorInerte,1,'.','.');
                   $mediaOS=number_format($valorOS,1,'.','.');
				   //se deu valor menor que 0.05 coloca traco(pois se teu 0.05 ou mais ai arredonda para 0,1 hihihihi)
                   if($valorPureza<0.05)$media='TRAÇO';
                   if($valorInerte<0.05)$mediaInerte='TRAÇO';
                   if($valorOS<0.05)$mediaOS='TRAÇO';
				   //se deu zero
                   $valorZero=0;
                   if($valorPureza==0)$media=number_format($valorZero,1,'.','.');
                   if($valorInerte==0)$mediaInerte=number_format($valorZero,1,'.','.');
                   if($valorOS==0)$mediaOS=number_format($valorZero,1,'.','.');

				   
				   
                   //echo("media=$media mediaInerte= $mediaInerte mediaOS0$mediaOS<br>");
                   //aqui vai salvar no registro da tabela rean os campos rea_v1,rea_v2,rea_v3 
                   ///////////////////////////////////////////////////////////////////////////////
		            $user = new rean1(array(
		                'rea_v1'=>$media,				
		                'rea_v2'=>$mediaInerte,				
		                'rea_v3'=>$mediaOS,
		            ));
		            $user->valorpk = $reanLong;
		            $user->extras_select = "WHERE rea_id=$reanLong";
		            $user->selecionaTudo($user);
		            $res = $user->retornaDados();
		            $user->atualizar($user);
	                printMSG('Dados alterados com sucesso.Valores finais, que serão levados para boletim, informe etc: Pureza='.$media. '% Inerte='. $mediaInerte. '% Outras semente='.$mediaOS.'%');
		         endif;//testou se o componente >0
				   ////////////////////////////////////////////////////////////////////////////// 
	        endif;//fecha isset botao media
	
			if(post('bt_media_dica') !== ""):
               echo(" dica<br>");	
	           echo '<iframe src="manual2010.php?opcaoManual=mediaRepeticoesPureza" style="border:0" width="100%" height="350"></iframe>';//funciona
	        endif;



	
	
	 	///////////////////////setor achar/////////////////////////////////
	      
		   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);
				$controlador='R1';
		   else:	
    	     $reanLong=post('reanLong'); //toda vez que nao for achar ele pega o reanlong do post
			 $finalizada=post('finalizada');				
		   endif;////fim da busca de amostra (botao achar))
		  
	
	///////////////////////fim do setor achar/////////////////////////////////
		if (post('bt_salvarData') !== "" ):
		   $dt_entrada=post('dataPureza');
		   //echo("data entrada em portugues $dt_entrada <br>");
		   $retorno=$objetoValidacao->validaDataEntrada($dt_entrada);//esta data vai validar o ano e somente esta
		   if($retorno=='invalida'):
	            printMSG('Preencha corretamente a data do final do teste no formato dd/mm/aaaa, pois nenhum dado foi gravado. ','alerta');
	            $vaiGravar=FALSE;
		   else:
			    $dt_entrada_americana=$retorno;
			    $user = new rean1(array(
		            'rea_datageralteste'=>$dt_entrada_americana,
	            ));
	            //vai salvar
	            $user->valorpk = $reanLong;
	            $user->extras_select = "WHERE   rea_id=$reanLong";
	            $user->atualizar($user);
		   endif;
           //$dataSalvar="2020-09-11";
           echo "Salvou a data digitada:";	
		endif;

        if (post('bt_criaRegistroPURExx') !== "" ):
            $reanNova = new rean1(array(
                'rea_ficha'=> $amostraLong,
                'rea_teste'=> 'PURE',
				'rea_lei1'=> '',
                'rea_lei2'=> '',
                'rea_lei3'=> '',
                'rea_lei4'=> '',
            ));
            $reanLong=$reanNova->inserir($reanNova);
            echo("amostraLong = $amostraLong  reanLong=$reanLong<br>");
        endif;


        //AQUI A ORIGINAL
		if (post('bt_salvarAlteracoes') !== "" ):
			//echo("406 aspectoSalvar=" . $aspecto."<br>"); 
			//echo("xxxxxxxxxxxxxxespecie=$espCultivada <br>");
			if(trim($especie)=='SOJA' && substr($cliente,0,2)!="TS" && $voc!='-N-'):
			    //echo("yyyyyyyyyyyespecie=$espCultivada <br>");
				printMSG('Atenção:Em soja não é feito teste de pureza varietal e o sistema sempre vai colocar -N-. Se isso não dor a sua realidade, entra em contato com programador.','alerta');
		
                $voc="-N-";			 
			endif;
			//echo("374 cliente  $cliente aspectoSalvar=" . $aspecto."<br>"); 
			
			if($cliente=="LIMAGRAIN" ):
			    //echo("857  GRAVANDO -N- EM OUTRAS CULTIVARES<br>");
                $voc="-N-";			 
			endif; 
			
			
			
			
			 
            $complemento=str_replace(",",".",post('tx_compl'));//peso complemento
     		$pesoOutrasSementes=str_replace(",",".",post('pesoOutrasSementes'));//peso pureza
			$pesoOutrasCultivares=post('pesoOutrasCultivares');
 			$voc=post('tx_voc');		
			$aspecto=post('aspecto');
		    //para tabajara coloca peso pureza no campo peso dosn(silvestres e nocivas) DIA 06/05/19
            //aqui grava para todos exceto tabajara
             $user = new amostras(array(
                 'fic_pesodet_octv'=>$pesoOutrasCultivares,
                 'fic_outrascultivares'=>$voc,
                 'fic_pesodet_dosn'=>$pesoOutrasSementes,
				 'fic_sit_export'=>$aspecto,
            ));
				
            $user->valorpk = $amostraLong;
            $user->extras_select = "WHERE   fic_id=$amostraLong";
			$sqlCava=$user->extras_select;
            $user->selecionaTudo($user);
            $res = $user->retornaDados();
            $user->atualizar($user);
			//echo("374xxxxxxxxxxx sqlCava=  $sqlCava especie=$especie <br>"); 
		
		     $opcaoPeletizada=post('opcaoPeletizada');
			 $pesoPurezaRas=post('pesoPurezaRas');
             
			 
			 //aqui vai ler os valores digitados, vai calcular e vai fazer a gravação na talebela rean
			 if (post('ch1') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[1].";";
   		     if (post('ch2') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[2].";";
   		     if (post('ch3') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[3].";";
   		     if (post('ch4') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[4].";";
   		     if (post('ch5') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[5].";";
   		     if (post('ch6') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[6].";";
   		     if (post('ch7') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[7].";";
   		     if (post('ch8') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[8].";";
   		     if (post('ch9') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[9].";";
   		     if (post('ch10') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[10].";";
   		     if (post('ch11') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[11].";";
   		     if (post('ch12') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[12].";";
   		     if (post('ch13') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[13].";";
   		     if (post('ch14') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[14].";";
   		     if (post('ch15') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[15].";";
   		     if (post('ch16') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[16].";";
   		     if (post('ch17') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[17].";";
   		     if (post('ch18') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[18].";";
   		     if (post('ch19') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[19].";";
   		     if (post('ch20') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[20].";";
   		     if (post('ch21') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[21].";";
   		     if (post('ch22') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[22].";";
   		     if (post('ch23') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[23].";";
   		     if (post('ch24') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[24].";";
   		     if (post('ch25') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[25].";";
   		     if (post('ch26') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[26].";";
   		     if (post('ch27') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[27].";";
   		     if (post('ch28') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[28].";";
   		     if (post('ch29') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[29].";";
   		     if (post('ch30') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[30].";";
   		     if (post('ch31') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[31].";";
   		     if (post('ch32') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[32].";";
   		     if (post('ch33') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[33].";";
   		     if (post('ch34') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[34].";";

             //AQUI ELE FAZ UMA EXCEÇÃO PARA IAGRO. Se digitou algum material inerte ele junta com o que ja tem 			 
			 if($cliente=='IAGRO'):
			    $naturezaDigitar=post('naturezaDigitar');
				//$naturezaDigitar="Detritos".$naturezaDigitar1;
				if(strlen($naturezaDigitar)>0):
				   //if(strpos($inerteJa,"Inseto")>0)$xmi3='x';   
 			       //echo("538  vai adicionar   naturezaDigitar=$naturezaDigitar inerteJa(antes de atualiar)=$inerteJa<br>");
			       $inerteJa=$inerteJa.$naturezaDigitar;
 			       //echo("540  vai adicionar   naturezaDigitar=$naturezaDigitar inerteJa(depois de atualiar)=$inerteJa<br>");
			    endif;
			 endif;
			 
             //echo("531 passou cliente=$cliente  naturezaDigitar =$naturezaDigitar <br>");
			 
   		     //if (post('ch35') !== "")  $inerteJa=$inerteJa.$listaMaterialInerte[35].";";
             //SE FOR BARENBRUG VAI SALVAR PESOS DE MATERIAL INERTE
			 if($cliente=='BAREN'):
			    $spglido = post('spgr');
				 $spglido=str_replace(",",".",$spglido);
				 $spglido=str_replace("-","",$spglido);//se tem sinal de - ele apaga
				 $miglido = strtoupper(post('migr' ?? ""));
				 $miglido=str_replace(",",".",$miglido);
				 $osglido =strtoupper(post('osgr' ?? ""));
				 $osglido=str_replace(",",".",$osglido);
				 $pesoConsiderado=$spglido+$miglido+$osglido;
                $inerteJa="";
				$atglido = post('atgr');
				//captura o peso digitado . Se for maior que zero ele joga para o campo percentagem senao ele paga o post
				$percentagemCarvao=post('inerteBaren1');
				$percentagemTorrao=post('inerteBaren2');
				$percentagemPalha =post('inerteBaren3');
				$percentagemPalito =post('inerteBaren4');
				$percentagemTerra =post('inerteBaren5');
				$percentagemCariopse =post('inerteBaren6');
				$percentagemAglomerado =post('inerteBaren7');

				$pesoCarvao=str_replace(",",".",post('inerteBaren1Peso'));
				$pesoTorrao=str_replace(",",".",post('inerteBaren2Peso'));
				$pesoPalha=str_replace(",",".",post('inerteBaren3Peso'));
				$pesoPalito=str_replace(",",".",post('inerteBaren4Peso'));
				$pesoTerra=str_replace(",",".",post('inerteBaren5Peso'));
				$pesoCariopse=str_replace(",",".",post('inerteBaren7Peso'));
				$pesoAglomerado=str_replace(",",".",post('inerteBaren6Peso'));
				//$atglido=str_replace(",",".",$atglido);
				
				
				
                //faz uma excecao para cada peso para poder mante o esquema antigo que digitava percentual direto
				//calcula todas as percentagens caso tiver sido digitado o peso 
				//$pesoConsiderado=100;
				//$pesoConsiderado=$vetorFinal[9];
				if($pesoConsiderado>0)://para evitar erro
					if($pesoCarvao>0)$percentagemCarvao=number_format($pesoCarvao/$pesoConsiderado*100,1,'.','.');
					//$percentagemCarvao=$pesoConsiderado;
					if($pesoTorrao>0)$percentagemTorrao=number_format($pesoTorrao/$pesoConsiderado*100,1,'.','.');
					if($pesoPalha>0)$percentagemPalha=number_format($pesoPalha/$pesoConsiderado*100,1,'.','.');
					if($pesoPalito>0)$percentagemPalito=number_format($pesoPalito/$pesoConsiderado*100,1,'.','.');
					if($pesoTerra>0)$percentagemTerra=number_format($pesoTerra/$pesoConsiderado*100,1,'.','.');
					if($pesoAglomerado>0)$percentagemCariopse=number_format($pesoAglomerado/$pesoConsiderado*100,1,'.','.');
					
					if($pesoCariopse>0)$percentagemAglomerado=number_format($pesoCariopse/$pesoConsiderado*100,1,'.','.');

					//echo("percentagem cariopse=  $percentagemCariopse percentagem aglom=$percentagemAglomerado pesoAglomerado=$pesoAglomerado pesoCariopse=$pesoCariopse<br> ");


                endif;//evita erro 

                $somaPesos=$pesoCarvao+$pesoTorrao+$pesoPalha+$pesoPalito+$pesoTerra+$pesoCariopse+$pesoAglomerado;
                $somaPercentagens=$percentagemCarvao+$percentagemTorrao+$percentagemPalha+$percentagemPalito+$percentagemTerra+$percentagemCariopse+$percentagemAglomerado;
				 				
				
				
				//$percentagemCarvao=$atglido;
				$inerteJa=$percentagemCarvao.';'.$percentagemTorrao.';'.$percentagemPalha.';'.$percentagemPalito.';'.$percentagemTerra.';'.$percentagemCariopse.';'.$percentagemAglomerado.';'.post('inerteBaren1Peso').';'.post('inerteBaren2Peso').';'.post('inerteBaren3Peso').';'.post('inerteBaren4Peso').';'.post('inerteBaren5Peso').';'.post('inerteBaren6Peso').';'.post('inerteBaren7Peso').';';			 
			 endif;//pergunta se é barembrug
            // echo("iiiiiiiiiiiiiinerteja=$inerteJa<br>");
			 
			 
			 //echo("xxxxxxxxxxpesopurezars=  $pesoPurezaRas   <br>");
		     $vaiGravar="SIM";
			 //avis aque excedeu o limite
			 $limiteMITama=80;
			 if($cliente=='UFLA')$limiteMITama=120;
             if(strlen($inerteJa)>$limiteMITama):
			    printMSG('Foi informado excesso de natureza do material inerte.'. strlen($inerteJa).' Caracteres. Informe o que faltar em observações.','alerta');
			 endif;
             if(strlen($inerteJa)<2):
			    $inerteJa='-O-';
			    printMSG('Não foi informado material inerte, então para o campo não ficar em branco, será gravado -O-, mas isso pode ser removido depois.','alerta');
			 endif;
	               

			 //echo("valorteste1=$valorTeste1<br>");
             //prepara os campos que vao ser enviados para a rotina de calculo de pureza
			
             $controlador=post('controlador');
			 $atglido = post('atgr');
			 $atglido=str_replace(",",".",$atglido);
			 $spglido = post('spgr');
			 $spglido=str_replace(",",".",$spglido);
			 $spglido=str_replace("-","",$spglido);//se tem sinal de - ele apaga
			 $miglido = strtoupper(post('migr' ?? ""));
			 $miglido=str_replace(",",".",$miglido);
			 $osglido =strtoupper(post('osgr' ?? ""));
			 $osglido=str_replace(",",".",$osglido);
			 //pega numero de casas decimais
			 $posicaoPontoOsglido=strpos($osglido,".");
			 //echo ("casss osglido $posicaoPontoOsglido<br>");

			 //no caso de ser r2,r3,r4 a pessoa so precisa informar amostra de trabalho e pureza,
			 // peso de mi é calculado por diferenca e o peso de OUTRAS SEMENTES ja veio da R1 
			 $casasDecimais=post('casasDecimais');
             if($controlador=='R2' || $controlador=='R3'  || $controlador=='R4'):
				 $deltaMigLido=$atglido-$spglido-$osglido;              
	             if($miglido==0) $miglido=number_format($deltaMigLido,$casasDecimais,'.','.');
				 
			 endif;
             $transigir='NAO';
             if(post('transigir') !== "")$transigir='SIM';
             //SE CLIENTE = BAREM E SE A AMOSTRA FOR REVESTIDA ENTAO CAI NO TRASNSIGIR
			 //$cliente=$sessao->getVar('cliente');
			 if($cliente=='BAREN'):
			    $user = new amostras();
				$user->extras_select =" where  fic_id=".$amostraLong ;
                $user->selecionaTudo($user);
				$valorBene="0";
				while ($resAmostra = $user->retornaDados()):
				   $valorBene=$resAmostra->fic_beneficiada;
                endwhile;

                //

				
				//aqui vai verificar se tem pms nesta amostra e se tiver ele vai comparar com o pms prevalecendo este calculo
				//mas isso nao vale para PRODUTO ACABADO REVESTIDO

		 	 	$generica=new tabelagenerica();
				$generica->tabela="rean1";
				$generica->campos_valores = array(
						"rea_v1" => NULL,
					);
				$generica->extras_select =" where  rea_teste='PMS'  &&  rea_ficha=" . $amostraLong;
			    $generica->selecionaCampos($generica);
				$pmsEncontrado=0;
		        $opcaoPeletizada=0;
				while ($resgenerica = $generica->retornaDados()):
					//$pesoPurezaRas=2.5*$resgenerica->rea_v1;
                    $pmsEncontrado=$resgenerica->rea_v1;
			    endwhile;				

                //aqui decide qual opcao pegar . Se for revestida(bene=6)  e tiver pms vai comparar com este  
			    if($valorBene=='6'):
					$transigir='SIM';
			        echo("Amostra revestida nao compara peso incial com peso RAS. <br>");
                endif; 
                //se for beneficiada ae tiver pms , prioriza este 
			    if($valorBene=='6' && $pmsEncontrado>0):
				    printMSG('O cálculo de pureza de sementes pelotizadas, exige que seja feita em 2500 sementes. Para isso determina-se o PMS ='.$resgenerica->rea_v1. '(Usando o Silas) e em seguida multiplica-se por 2,5.  Este valor vai substituir o peso mínimo para teste de pureza previsto na RAS. Outrossim o termo [Outras sementes] passa a ser [Sementes não pelotizadas] e o material inerte é desconsiderado(Fica valendo zero). ' ,'alerta');	
                    $opcaoPeletizada=1;
					$transigir='SIM';
				    $pesoPurezaRas=2.5*$pmsEncontrado;
                endif; 
			 endif;//perguntou se cliente=baren

			 //GRAVA SEMENTES INFESTADAS DiRETO NA REAN com data deful 01/11/2011
			 $dataAmericana=date("Y-m-d");
             $inf=post('tx_inf');                         
			 $sql="update rean1 set rea_v1='".$inf."', rea_datageralteste='".$dataAmericana."' where  rea_teste='INF' and  rea_ficha=".$amostraLong;
 	         $generica=new tabelagenerica();
			 $generica->grava_registro_com_retorno($sql); 
			    

	         //echo("valorBene==============$valorBene  pesoPurezaRas=$pesoPurezaRas pmsEncontrado=$pmsEncontrado<br>");
			 $balanca =post('balanca');
			 $operadorRegistrado =post('operadorRegistrado');
			 $vetorFinal=$objetocalculo->calculaPureza($reanLong,$pesoPurezaRas,$atglido,$spglido,$miglido,$osglido,$transigir);
             $sppf=	$vetorFinal[1];		 
             $mipf=	$vetorFinal[2];		 
             $ospf=	$vetorFinal[3];	
			 
			 //echo("a1=$reanLong  a2=$pesoPurezaRas  a3=$atglido   a4=$spglido   a5=$miglido  a6=$osglido<br>");
			 
			 
			 	 
             $spglido=$vetorFinal[8];//PODE SER QUE ELE NAO DIGITOU ENTAO O SISTEMA DEVE TRAZER A DIFERENÇA		 
             $pesoConsiderado=$vetorFinal[9];//		 
             $impg=$vetorFinal[10];//		 
             $mensagemErroRas=$vetorFinal[11];//			 
  			 //echo("valor retornonnnnnnn=$vetorFinal[1]<br>");
             $nomeOperador=$sessao->getVar('nomeuser');
            //aqui vai gravar
			//$controlador=post('controlador');
		//echo("ccccccccccccccccccccccccccccccccontrolador=$controlador<br>");
		//aqui faz um diagnostico
	//AMOSTRA DE TRABALHO
	$posicaoPonto=strpos($atglido,'.');
	$casasDecimaisATG=strlen($atglido)-$posicaoPonto-1;
	if($posicaoPonto==""  || $posicaoPonto==0)$casasDecimaisATG=0;
	//echo("561nnnnnn atglido  $atglido posicaoPonto=$posicaoPonto casasDecimais=$casasDecimaisATG casasDecimais=$casasDecimais <br>");
	//PUREZA
	$posicaoPonto=strpos($spglido,'.');
	$casasDecimaisSPG=strlen($spglido)-$posicaoPonto-1;
	if($posicaoPonto==""  || $posicaoPonto==0)$casasDecimaisSPG=0;
	//POUTRAS SEMENTES
	$posicaoPonto=strpos($osglido,'.');
	$casasDecimaisOSG=strlen($osglido)-$posicaoPonto-1;
	if($posicaoPonto==""  || $posicaoPonto==0)$casasDecimaisOSG=0;
	//MATERIAL INERTE
	$posicaoPonto=strpos($miglido,'.');
	$casasDecimaisMIG=strlen($miglido)-$posicaoPonto-1;
	if($posicaoPonto==""  || $posicaoPonto==0)$casasDecimaisMIG=0;
			
	//COMPARA COM NUMERO DE CASAS DECIMAIS OBRIGATORIOS		
	$problemaCasas="NAO";		
	if($casasDecimaisATG<$casasDecimais)$problemaCasas="SIM";	
	if($casasDecimaisSPG<$casasDecimais)$problemaCasas="SIM";	
	if($casasDecimaisOSG<$casasDecimais)$problemaCasas="SIM";	
	if($casasDecimaisMIG<$casasDecimais)$problemaCasas="SIM";	
			
			
		if($controlador=='R1'):
		    //se deixou peso inicail sem informar ele traz -N- nos campos
			if($atglido==""):
			   $sppf="";
			   $mipf="";
			   $ospf="";
			endif;
            $concatenaR1=$sppf.';'.$mipf.';'.$ospf.';';
			
			//TRABALHA A DATA DO TESTE
			$dt_entrada=post('dataPureza');//data que ja esta presente
			//se a data presente nao for valida po ter sido mal digitada ele vai gravar a data do dia e vai avisar
			//echo("dt_entrada=$dt_entrada<br>");
			$retorno=$objetoValidacao->validaDataEntrada($dt_entrada);//esta data vai validar o ano e somente esta
		    if($retorno=='invalida'):
	            printMSG('Data digitada não é válida. Preencha corretamente a data  formato dd/mm/aaaa. Sera gravada data de hoje. ','alerta');
			    $dataSalvar=date("Y-m-d");
				//echo("datainvalidaSalvarpegou data do dia =$dataSalvar<br>");
            else:
			    $dataSalvar=$retorno;//converte o formato portugues para o ingles
				//echo("datavaiidaSalvar =$dataSalvar<br>");
			endif;
			
			
			
			//echo("667   balanca $balanca<br>");
            //se cliente é LAS CONCEITO entao nao graga aqui o cam rea_campo100			
			if($cliente=="LAS CONCEITO"):
                $user = new rean1(array(
                'rea_lei1'=>$atglido,
                'rea_lei2'=>$spglido,
                'rea_lei3'=>$osglido,
                'rea_lei4'=>$miglido,
                'rea_campo60a'=>$inerteJa,
                'rea_v1'=>$sppf,				
                'rea_v2'=>$mipf,				
                'rea_v3'=>$ospf,
                'rea_campo20b'=> $concatenaR1,
                'rea_campo20a'=>$balanca,
                'rea_operador'=>$operadorRegistrado,
	            'rea_datageralteste'=>$dataSalvar,
                'rea_operador'=>$nomeOperador,
                'rea_segunda_leitura'=>$problemaCasas."#".$casasDecimais,
                ));
			else:
                $user = new rean1(array(
                'rea_lei1'=>$atglido,
                'rea_lei2'=>$spglido,
                'rea_lei3'=>$osglido,
                'rea_lei4'=>$miglido,
                'rea_campo60a'=>$inerteJa,
                'rea_campo60c'=>$naturezaDigitar,
                'rea_v1'=>$sppf,				
                'rea_v2'=>$mipf,				
                'rea_v3'=>$ospf,
                'rea_campo20b'=> $concatenaR1,
                'rea_campo20a'=>$balanca,
                'rea_operador'=>$operadorRegistrado,
	            'rea_datageralteste'=>$dataSalvar,
                'rea_operador'=>$nomeOperador,
				'rea_campo100'=>post('observacao'),
				'rea_segunda_leitura_data'=>post('outraCultivar1'),
				'rea_segunda_leitura'=>$problemaCasas."#".$casasDecimais,
                ));
			endif;
         endif;//testou se o controlador é R1



		 //aqui vai as mensagens tipo se a peso ras diferencia mais de 3% do peso da amostra media
		 if($mensagemErroRas!=""):
		    printMSG($vetorFinal[11]);
		 endif;
		 
		 
		 
		if($controlador=='R2' || $controlador=='R3' ||$controlador=='R4'):
		    $compl=post('tx_compl');
		    $aspecto=post('aspecto');
		    $dataPureza=post('dataPureza');
			$nomeOperador=$sessao->getVar('nomeuser');

            $concatena=$atglido.';'.$spglido.';'.$osglido.';'.$miglido.';'.$sppf.';'.$mipf.';'.$ospf.';';
			$concatenado2022=$balanca."#".$nomeOperador."#".$inerteJa."#".$compl."#".$aspecto."#".$dataPureza."#" ;
			
			if($controlador=='R2'):
				$user = new rean1(array(
	                'rea_campo60b'=> $concatena,
		            'rea_datageralteste'=>date("Y-m-d"),
					'rea_duracao'=>$concatenado2022,
	            ));
                //SE O CLIENTE FOR LIMAGRAIiN EU vou USAR  CAMPO REA_DURACAO PARA CONCATENAR DADOSESPECIAIS  
	         endif;//testou se o controlador é R2
			//echo("765 o que salva concatenado2022=$concatenado2022<br>"); 
			if($controlador=='R3'):
	            $user = new rean1(array(
	                'rea_campo60c'=> $concatena,
					'rea_validade'=>$concatenado2022,
	            ));
	         endif;//testou se o controlador é R2
			echo("controlador=$controlador<br>"); 

			//eu retirei o r4 pois ele usava o campo 100 que eu precisei para observcoes  SO O LAS CONCEITO VAI USAR R4
			if($cliente=="LAS CONCEITO"):
				if($controlador=='R4'):
		            $user = new rean1(array(
		                'rea_campo100'=> $concatena,
		                'rea_campo60a'=>$inerteJa,
		                'rea_campo20a'=>$balanca,
			            'rea_datageralteste'=>date("Y-m-d"),
		                'rea_operador'=>$nomeOperador,
		                'rea_primeira_leitura_analista'=>$nomeOperador,
		            ));
		        endif;//testou se o controlador é R4
            endif;			 
        endif;//TESTA SE É UMA REPETICAO R2,R3, OU R4    		 
    
            //vai salvar

            $user->valorpk = $reanLong;
            $user->extras_select = "WHERE   rea_id=$reanLong";
            //$user->selecionaTudo($user);
            //$res = $user->retornaDados();
			//echo("766 sqlgravacao=$user->extras_select  balanca $balanca<br>");
            $user->atualizar($user);
			$legendaProblema="";
			if($problemaCasas=="SIM")$legendaProblema="Corrija numero de casas para atender a RAS, pois isso é objeto de desconformidade.";
			if($controlador=='R1'):
			    $mensagemEspecifica="Foi gravada pureza=".$sppf. " e este será o valor que vai para os documentos. Obs: Material inerte com ". strlen($inerteJa)." caracteres.".$legendaProblema;
		    else:
			    $mensagemEspecifica='Dados alterados com sucesso. Se quiser, pode usar este valor para compor a media ou até levar o proprio valor como resultado final que será enviado  para boletim e informe.';
			endif;
			
			
					
            if ($user->linhasafetadas==1):
			    if($problemaCasas=="SIM")printMSG($mensagemEspecifica,'alerta');
			    if($problemaCasas=="NAO")printMSG($mensagemEspecifica,'aviso');
                unset($_POST);
                //vai gravar ocorrencia 
                $objetocalculo->registroDeOcorrencias($amostraLong,0,$nomeOperador,'Pureza',$sppf,$idLabo);							
				
            else:
				printMSG('Ok.Nada foi alterado. ','aviso');
            endif;
           // echo("833  salva sit export  user->extras_select= $v  <br>");
        endif;//testa se é O BT_SALVAR ALTERACOES

		
		////////vai  abrir e ler a amostra para pegar seu numero, o codigo da especie////////////
		////////vai  abrir e ler a amostra para pegar seu numero, o codigo da especie////////////
		////////vai  abrir e ler a amostra para pegar seu numero, o codigo da especie////////////
		////////vai  abrir e ler a amostra para pegar seu numero, o codigo da especie////////////
                $user = new amostras();
				$user->extras_select =" where  fic_id=".$amostraLong ;
                $user->selecionaTudo($user);
				
				//echo("extraselect=$user->extras_select<br>");
				while ($resAmostra = $user->retornaDados()):
				    $idCultivar=$resAmostra->fic_cultivar;
					if($finalidade=='DEFINITIVA'):
				       $amostra=$resAmostra->fic_amostra;
					else:
				       $amostra=$resAmostra->fic_amostra_previa;
					endif; 
				    $idProdutor=$resAmostra->fic_produtor;
				    $ultima=$resAmostra->fic_amostra;
					$lote=$resAmostra->fic_lote;

	                //$aspecto='NÃO';
					$pesoNocivas=$resAmostra->fic_pesodet_nocivas;
					$pesoOutrasCultivares=$resAmostra->fic_pesodet_octv;
					$voc=$resAmostra->fic_outrascultivares;
					$aspecto=$resAmostra->fic_sit_export;
					$compl=$resAmostra->fic_complemento;
					if($compl=="-")$compl="";
					//echo("851 voc=$voc   lote=$lote  ultima=$ultima<br>");
                    //acha dados da rean1
				 	$rean = new rean1();
					$rean->extras_select =" where  rea_teste='PURE' AND rea_ficha=".$amostraLong ;
	                $rean->selecionaTudo($rean);
					while ($resRean = $rean->retornaDados()):
						$reanLong=$resRean->rea_id;
					    $finalizada=$resRean->rea_finalizada;						
	                    $vetorMontado[1]=$amostra;
	                    $vetorMontado[2]=$lote;
					    $repeticao=$resRean->rea_lei4;
						//$dataPureza->rea_datageralteste;
						//$operadorRegistrado->rea_operador;						
	                    //printf('<td>%s</td>tttttxxxxxxxxxxxxxxx',$res->rea_lei1);
	                endwhile;
                    //printf('<td>%s</td>hhhhhhhhh',$idCultivar );
                endwhile;
		        ////////vai abrir a tabela especies para pegar o nome eo peso da amostra de trabaio da especie////////////
                //echo("1-opcaopeletizada=$opcaoPeletizada<br>");

                $user = new cultivarespecies();
				$user->extras_select =" where esp_id=ctv_especie and  ctv_id=".$idCultivar ;
                $user->selecionaTudo($user);
				while ($res = $user->retornaDados()):
				    $especie=$res->esp_nome;
					$pesoPurezaRasEspecie=$res->esp_min_pureza;
                endwhile;
			   
			    //se a pessoa clicou em pelotizada ele vai capturar o peso que ja esteja no campo text
			    if($opcaoPeletizada== 1 ):
	                //$pesoPurezaRas=post('pesoPurezaRas');
			    else:		
				    $pesoPurezaRas=$pesoPurezaRasEspecie;
                endif;
				//ATRIBUI PARA VOC E PARA INF SEMPRE O VALOR -N- POIS ESTAS DUAS DETER NAO SAO FEITAS
	             if(trim($especie)=='SOJA'):
	                $voc="-N-";			 
				    $inf="-N-"; 
				 endif; 			  
		        //vai capturar o valor de sementes infesadas		
			    //ENTRA DE QUAKQUER MANEIRA
		 	 	$generica=new tabelagenerica();
				$generica->tabela="rean1";
				$generica->campos_valores = array(
						"rea_v1" => NULL,
					);
				$generica->extras_select =" where  rea_teste='INF'  &&  rea_ficha=" . $amostraLong;
			    $generica->selecionaCampos($generica);
				while ($resgenerica = $generica->retornaDados()):
					$inf=$resgenerica->rea_v1;
			    endwhile;
				
				
				
				
			 //vai capturar o valor de peso pureza ras do pms	
             if(post('bt_pelotizada') !== ""):
			    //ENTRA DE QUAKQUER MANEIRA
		 	 	$generica=new tabelagenerica();
				$generica->tabela="rean1";
				$generica->campos_valores = array(
						"rea_v1" => NULL,
					);
				$generica->extras_select =" where  rea_teste='PMS'  &&  rea_ficha=" . $amostraLong;
			    $generica->selecionaCampos($generica);
				while ($resgenerica = $generica->retornaDados()):
					$pesoPurezaRas=2.5*$resgenerica->rea_v1;
					printMSG('O cálculo de pureza de sementes pelotizadas, exige que seja feita em 2500 sementes. Para isso determina-se o PMS ='.$resgenerica->rea_v1. '(Usando o Silas) e em seguida multiplica-se por 2,5.  Este valor vai substituir o peso mínimo para teste de pureza previsto na RAS. Outrossim o termo [Outras sementes] passa a ser [Sementes não pelotizadas] e o material inerte é desconsiderado(Fica valendo zero). EM DESEVOLVIMENTO' ,'alerta');	
                    $opcaoPeletizada=1;
			    endwhile;
				//echo("22xxxxxxxxxxpesopurezars=  $pesoPurezaRas   <br>");
			 endif;
				
				
				
				
			 				
				
			    //echo '<h2>Achar uma amostra</h2>';
echo '<h2>Cálculo de PUREZA</h2>';	


	
echo("Amostra:$amostra $legendaPrevia  Lote:$lote Espécie:$especie  Cultivar: $cultivar  Peneira:$peneira  Tratamento:$tratamento Peso previsto na RAS=$pesoPurezaRas   Cod: $reanLong <br>");
             ?>
			 
			 <?php 
			 if($pesoPurezaRas>=1000)$casasDecimais=0;
			 if($pesoPurezaRas>=100  && $pesoPurezaRas<1000 )$casasDecimais=1;
			 if($pesoPurezaRas>=10  && $pesoPurezaRas<100 )$casasDecimais=2;
			 if($pesoPurezaRas>=1  && $pesoPurezaRas<10 )$casasDecimais=3;
			 if($pesoPurezaRas>0  && $pesoPurezaRas<1 )$casasDecimais=4;
			 if($pesoPurezaRas==0 )$casasDecimais="Falta dado";		
                		
		
        ///////////vai abrir o registro de pureza///////////////
		   if($controlador=="R1"):
                $user = new rean1();
				$user->extras_select =" where  rea_teste='PURE' AND rea_ficha=".$amostraLong ;
                $user->selecionaTudo($user);
				$atglido="Sem registro";
				while ($res = $user->retornaDados()):
				    $atglido=$res->rea_lei1;
				    //if($atglido=='-')$atglido="";//tira o tracinhao e coloca branco
				    $spglido=$res->rea_lei2;
				    //if($spglido=='-')$spglido="";//tira o tracinhao e coloca branco
				    $osglido=$res->rea_lei3;
				    //if($osglido=='-')$osglido="";
				    $miglido=$res->rea_lei4;
				    //if($miglido=='-')$miglido="";
				    $sppf=$res->rea_v1;
				    $mipf=$res->rea_v2;
				    $ospf=$res->rea_v3;
					$reanLong=$res->rea_id;
                    $inerteJa=$res->rea_campo60a;//inerte ja (completinho)
                    $naturezaDigitar=$res->rea_campo60c;//inerte digitado(solucao iagro)
                    $balanca=$res->rea_campo20a;
                    $observacao=$res->rea_campo100;
                    $outraCultivar1=$res->rea_segunda_leitura_data;
					$dataPureza=date("d/m/Y",strtotime($res->rea_datageralteste));
					$operadorRegistrado=$res->rea_operador;		
                endwhile;
				
				
				
				
				if($atglido=="Sem registro"):
				    $reanNova = new rean1(array(
	                'rea_ficha'=> $amostraLong,
	                'rea_teste'=> 'PURE',
					'rea_lei1'=> '',
	                'rea_lei2'=> '',
	                'rea_lei3'=> '',
	                'rea_lei4'=> '',
		            ));
		            $reanLong=$reanNova->inserir($reanNova);
		            echo("amostraLong = $amostraLong  reanLong=$reanLong<br>");
				    echo("Criou registro automaticamente. Entra pelo menu novamente. <br>");
                endif;  				
				//$operadorRegistrado="yacht";
				//$dataPureza="hoje";
				//echo("operadorregistrado=$operadorRegistrado dataPureza=$dataPureza atglido=$atglido balanca=$balanca<br>");
           endif;
	
		if(post('bt_somarComplemento') !== ""):
			//$pesoOutrasSementes=str_replace(",",".",post('pesoOutrasSementes'));//peso pureza
			$compl=post('tx_compl');
            $complementoAmericano=str_replace(",",".",$compl);//peso complemento
			$pesoPurezaAmericano=str_replace(",",".",post('atgr'));//peso pureza
			$somaPN=$pesoPurezaAmericano+$complementoAmericano;
			$pesoNocivas=str_replace(".",",",$somaPN);//converte para virgula
			//se for qualiteste excecao abate nocivas-pureza
            if($cliente=='QUALITESTE'):
              $pesoNocivas=post('tx_pnx');//AQUI LE pesoNocivasDigitado
              $pesoNocivasAmericano=str_replace(",",".",$pesoNocivas);//peso nocivas
			  $complementoAmericano=$pesoNocivasAmericano-$pesoPurezaAmericano;//faz a subtracao NOCIVAS-PUREZA
			  $compl=str_replace(".",",",$complementoAmericano);//converte para virgula
			  $pesoNocivas=str_replace(".",",",$pesoNocivasAmericano);//converte para virgula
			endif;			
	        //$pesoNocivas=str_replace(",",".",post('atgr'))$pesoPurezaAmericano+$complementoAmericano;
			//$pesoOutrasCultivares=post('pesoOutrasCultivares');
			$user = new amostras(array(
                'fic_complemento'=>$compl,
                'fic_pesodet_nocivas'=>$pesoNocivas,
                'fic_pesodet_dosn'=>$pesoPurezaAmericano,
            ));
            $user->valorpk = $amostraLong;
            $user->extras_select = "WHERE   fic_id=$amostraLong";
            $user->selecionaTudo($user);
            $res = $user->retornaDados();
            $user->atualizar($user);
////

///
            $cavalo=$user->extras_select;
		    //echo("1374  salvando complemento:tx_compl=$compl  pesoNocivas=$pesoNocivas  cavalo=$cavalo<br>");
	    endif;
	
	
	
	
		   
		   if($controlador=='R1' ||$controlador=='R2' || $controlador=='R3' ||$controlador=='R4'):
                $user = new rean1();
				$user->extras_select =" where  rea_teste='PURE' AND rea_ficha=".$amostraLong ;
                $user->selecionaTudo($user);
				while ($res = $user->retornaDados()):
				    if($controlador=='R1'):
					   $espandido=$res->rea_campo20b;
					   //do r1 nao precisa pois ja existe os arranjos prontos 
					endif;   
				    if($controlador=='R2'):
					    $espandido=$res->rea_campo60b;
					    $expandido2022=$res->rea_duracao;
                    endif;						
				    if($controlador=='R3'):
					   $espandido=$res->rea_campo60c;
					   $expandido2022=$res->rea_validade;
					endif;   
				    if($controlador=='R4' && $cliente=="LAS CONCEITO")$espandido=$res->rea_campo100;
                    $pesoLeituraOutrasSementes= $res->rea_lei3;                   
					$reanLong=$res->rea_id;
                    $inerteJa=$res->rea_campo60a;
					if($controlador=='R2' || $controlador=='R3'):
					
					endif;
					
					
					
                    $balanca=$res->rea_campo20a;
					$dataPureza=date("d/m/Y",strtotime($res->rea_datageralteste));
					$operadorRegistrado=$res->rea_operador;
					$analistaR2=$res->rea_segunda_leitura_analista;
					$analistaR3=$res->rea_terceira_leitura_analista;
					$analistaR4=$res->rea_primeira_leitura_analista;//estava vago este campo
					
					
					
					
							
                endwhile;
				//$operadorRegistrado="yacht";
				//$dataPureza="hoje";
				//echo("operadorregistrado=$operadorRegistrado dataPureza=$dataPureza atglido=$atglido balanca=$balanca<br>");
           endif;
		   
		if($controlador=='R2' || $controlador=='R3'):
           list($balanca,$operador,$inerteJa,$compl,$aspecto,$dataPureza)= explode("#", $expandido2022);
        endif;	   
		   
		   
	    //aquio pega o conteudo gravado e coloca nos cheques
		list($valor[1], $valor[2], $valor[3], $valor[4], $valor[5], $valor[6], $valor[7], $valor[8], $valor[9], $valor[10], $valor[11], $valor[12], $valor[13], $valor[14], $valor[15], $valor[16], $valor[17], $valor[18], $valor[19], $valor[20], $valor[21], $valor[22], $valor[23]) = explode(";", $inerteJa);
		
		
	   $v1=$valor[1];	
	   $v2=$valor[2];	
	   $v3=$valor[3];
	   //$valorTeste[6]="sim";//marca o sexto	
	   	
       //echo("1068 controlador=$controlador  inerteJa=$inerteJa valor[1]=$v1 valor[2]=$v2 valor[3]=$v3 limiteMI=$limiteMI <br> "); 
       //percorre todos testes assinalados para comparar
	    for($i1=1;$i1<=$limiteMI;$i1++):
           for($i2=1;$i2<=$limiteMI;$i2++):
		      $listaMI= $listaMaterialInerte[$i1];  //$listaMI é aquela lista original especifica de alguns cliente
		      $valorCapturado= $valor[$i2];         //valor é o que achou dentro do inerteja
			  //echo("1081 listaMI=$listaMI  valor=$valorCapturado <br>");
              if($listaMaterialInerte[$i1]==$valor[$i2])	$valorTeste[$i1]="sim";	   	
		   endfor;
		endfor;


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

		if($controlador=='R2' || $controlador=='R3' ||$controlador=='R4'):
           list($atglido,$spglido,$osglido,$miglido,$sppf,$mipf,$ospf)= explode(";", $espandido);
        endif;


        		
		
		
		if($controlador=='R1' ):
           list($sppf,$mipf,$ospf)= explode(";", $espandido);
        endif;

	            //loadCSS('style_BAREN');
	
		?>			
				
				
                <form class="userform" method="POST" action="">
                <table bgcolor="white" >
                   <tr>
				   <td> TRANSIGIR<input type="checkbox" name="transigir" /></td>
				   <?php
				   if($cliente=='QUALITESTE'):
                     ?>
                     <td bgcolor="red"><a href="?m=conjugado&t=editarHomogeneizacaoTipoQualiteste" >HOMOGENEIZAÇÃO</a></td>
					 <?php
				   else:
                     ?>
                     <td bgcolor="red"><a href="?m=conjugado&t=editarHomogeneizacao" >HOMOGENEIZAÇÃO</a></td>
					 <?php
				   endif;
				   ?>
				   <td><input type="text"  name="espCultivada"  readonly="readonly"  value="<?php echo($especie);?>" size="12" />    </td>
				   
				   </tr>				
				
				</table>				
  
					
                 <a href="?m=conjugado&t=editarVerificacaoEspecie" id="meulink">VERIFICACAO</a>	
				
				<br>
				
				<fieldset>
                <legend> <?php echo $legendaSuperior; ?> </legend>
				
                <table border="1" width="900" cellspacing="1" align="center" >
                 <td><table>
				 <thead>
                        <tr>
                            <th>Quesito   </th>
                            <th>Peso      </th>
                            <th>Percentagem </th>
                        </tr>

                    </thead><font color="#ff0000">
					<?php
					$legendaSingularPlural=" casa decimal ";
					if($casasDecimais>1)$legendaSingularPlural=" casas decimais, ";
					//echo $nomeOperador ?>
                    Pesos com <input type="text" name="casasDecimais"  style="font-size:200%"  style="font-family:Arial"  style="height: 10px"  style="color:#ff0000;" readonly="readonly" value="<?php echo $casasDecimais; ?>" size="1" /> <?php echo $legendaSingularPlural; ?>no mínimo.<br></font>
                    <tbody>
                    <input type="hidden" name="reanLong" value="<?php echo $reanLong; ?>" size="5" />
                    <input type="hidden" name="pesoPurezaRas" value="<?php echo $pesoPurezaRas; ?> " />
                    <input type="hidden" name="opcaoPeletizada" value="<?php echo $opcaoPeletizada; ?>"  />

                    <tr>
                        <td>Am.Trabalho(AT)</td>
                        <td><input type="text" name="atgr"  style="color:#ff0000;" value="<?php echo $atglido;?>" size="5" />
						<input type="text" name="controlador"  style="color:#17a855;"  readonly="readonly" value="<?php echo($controlador)?>" size="1" />
                        <td><input type="submit" name="bt_pelotizada" value="Pelotizada" /></td></td>
						
						
						
						
                    </tr>
                    <tr >
                        <td>Puras(a)</td>
                        <td ><input type="text" name="spgr"  style="color:#ff0000;" value="<?php echo $spglido;?>" size="5" />
                        <td  bgcolor=<?php echo($corp)?> ><?php echo $sppf?>% 
						</td>
                    </tr>
					
		            <!--qualiteste pediu em 05/08/19 uma inversao nos dois itens mat inerte e outras sementes-->			
					<?php
					if($cliente=="QUALITESTE"):
                    ?>  
                     <tr>
                     <td>O.Sementes(c)</td>
                     <!--aqui faz um artificio preenchendo o valor de outras sementes com o peso da primeira leitura pois poupa de recontar-->
					 <?php  if($osglido==0)$osglido=$pesoLeituraOutrasSementes;?>
                     <td><input type="text" name="osgr"  style="color:#ff0000;" value="<?php echo $osglido;?>" size="5" />
					 <td><?php echo $ospf?>%</td>
                     </tr>
                     <tr>
                     <td>Mat.inerte(b)</td>
                     <td><input type="text" name="migr"  style="color:#ff0000;" value="<?php echo $miglido;?>" size="5" />
					 <td  bgcolor=<?php echo($coro)?>><?php echo $mipf?>%</td>
                     </tr>

					<?php
					else:
                    ?>  
                     <tr>
	                     <td>Mat.inerte(b)</td>
	                     <td><input type="text" name="migr"  style="color:#ff0000;" value="<?php echo $miglido;?>" size="5" />
						 <td  bgcolor=<?php echo($coro)?>><?php echo $mipf?>%</td>
                     </tr>
                     <tr>
	                     <td>O.Sementes(c)</td>
                         <!--aqui faz um artificio preenchendo o valor de outras sementes com o peso da primeira leitura pois poupa de recontar-->
						 <?php  if($osglido==0)$osglido=$pesoLeituraOutrasSementes;?>
	                     <td><input type="text" name="osgr"  style="color:#ff0000;" value="<?php echo $osglido;?>" size="5" />
						 <td><?php echo $ospf?>%</td>
                     </tr>
					 
					<?php
					endif;
                    ?>  
					 
					 
					 
                     <tr>
	                     <td>Soma(b+c)=</td>
	                     <td><?php echo $impg; ?>g</td>
                     </tr>
                     <tr>
	                     <td>P.final(a+b+c)=</td>
	                     <td><?php echo $pesoConsiderado;  ?>g</td>
                     </tr>
                     <tr>
	                     <td>Balança:</td>
	                     <td>
						 <input type="text" name="balanca" value="<?php echo $balanca;?>" size="5" /></td>
	                     <td>V.O.C:
	                     <input type="text" name="tx_voc" maxlength="5" value="<?php echo $voc;?>" size="2" />
						 </td>
						 
                     </tr>
                     <tr>
	                     <td>Data:
 	 					 <input type="submit" name="bt_salvarData"  value="Salvar" />
						 </td>
	                     <td><input type="text" name="dataPureza" 	 value="<?php echo $dataPureza;?>" size="8" /></td>
	                     <td>INF.:
	                     <input type="text" name="tx_inf" value="<?php echo $inf;?>"  maxlength="5" size="4" />
                     </tr>
                     <tr>
	                     <td>Analista R1:</td>
						 <td> <input type="text" name="operadorRegistrado"  readonly="readonly"	 value="<?php echo $operadorRegistrado;?>" size="8" />
						 <td>Peso OC:
	                     <input type="text"     size="4" name="pesoOutrasCultivares"  value="<?php echo $pesoOutrasCultivares; ?>" /></td>
						  </td>
						 



                     </tr>
                     <tr>
	                     <td>

						 </td>

                     </tr>

	</table></td>
	<td><table  bgcolor="#eddab1">
         <tr><td>
         Natureza do material inerte: <?php echo $cliente;?>
	
<!--aqui comeca umas configuracoes conforme os clientes baren,limagran,iagro, e os restantes-->	
	 <?php
	 if($cliente=='BAREN'):
	 ?>
	  <tr>
	  <td>Carvão................
	  <input type="text" name="inerteBaren1"     size="4" maxlength="5"   value = "<?php echo $valor[1];?>"/>%
	  <input type="text" name="inerteBaren1Peso" size="4" maxlength="7"   value = "<?php echo $valor[8];?>"/>g
	  </td></tr>
	  				 
	  <tr>
	  <td>Torrão.................
	  <input type="text" name="inerteBaren2"    size="4"     maxlength="5"   value = "<?php echo $valor[2];?>"/>%
	  <input type="text" name="inerteBaren2Peso"    size="4" maxlength="7"   value = "<?php echo $valor[9];?>"/>g
	  </td></tr>
	  				 
	  <tr>
	  <td>Palha..................
	  <input type="text" name="inerteBaren3"    size="4" maxlength="5"   value = "<?php echo $valor[3];?>"/>%
	  <input type="text" name="inerteBaren3Peso"    size="4" maxlength="7"   value = "<?php echo $valor[10];?>"/>g
	  </td></tr>				 


	  <tr>
	  <td>Palito..................
	  <input type="text" name="inerteBaren4"    size="4" maxlength="5"   value = "<?php echo $valor[4];?>"/>%
	  <input type="text" name="inerteBaren4Peso"    size="4" maxlength="7"   value = "<?php echo $valor[11];?>"/>g
	  </td></tr>				 
	  
	  
	  <tr>
	  <td>Terra...................
	  <input type="text" name="inerteBaren5"        size="4" maxlength="5"   value = "<?php echo $valor[5];?>"/>%
	  <input type="text" name="inerteBaren5Peso"    size="4" maxlength="7"   value = "<?php echo $valor[12];?>"/>g
	  </td></tr>
	  
	  <tr>
	  <td>Cariopse...........
	  <input type="text" name="inerteBaren7"    size="4" maxlength="5"   value = "<?php echo $valor[7];?>"/>%
	  <input type="text" name="inerteBaren7Peso"    size="4" maxlength="7"   value = "<?php echo $valor[14];?>"/>g 
	  </td></tr>
	  				 
	  <tr>
	  <td>Part.Mat.Aglom.
	  <input type="text" name="inerteBaren6"    size="4" maxlength="5"   value = "<?php echo $valor[6];?>"/>%
	  <input type="text" name="inerteBaren6Peso"    size="4" maxlength="7"   value = "<?php echo $valor[13];?>"/>g
	  </td></tr>				 
	 
	 <?php
	 elseif($cliente=='LIMAGRAIN'):
	 ?><!--se nao é baren e serve para limagrain-->
		 <tr><td>
		 <?php echo $listaMaterialInerte[1];?><input type="checkbox" name="ch1" <?php if($valorTeste[1] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[2];?><input type="checkbox" name="ch2" <?php if($valorTeste[2] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[3];?><input type="checkbox" name="ch3" <?php if($valorTeste[3] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[4];?><input type="checkbox" name="ch4" <?php if($valorTeste[4] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[5];?><input type="checkbox" name="ch5" <?php if($valorTeste[5] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[6];?><input type="checkbox" name="ch6" <?php if($valorTeste[6] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[31];?><input type="checkbox" name="ch31" <?php if($valorTeste[31] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>


	 <?php
	 elseif($cliente=='IAGRO')://se  é iagro
	 ?>
	 <tr><td>
		 <?php echo $listaMaterialInerte[1];?><input type="checkbox" name="ch1" <?php if($valorTeste[1] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[2];?><input type="checkbox" name="ch2" <?php if($valorTeste[2] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[3];?><input type="checkbox" name="ch3" <?php if($valorTeste[3] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[4];?><input type="checkbox" name="ch4" <?php if($valorTeste[4] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>

		 <tr><td>
		 <?php echo $listaMaterialInerte[5];?><input type="checkbox" name="ch5" <?php if($valorTeste[5] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[6];?><input type="checkbox" name="ch6" <?php if($valorTeste[6] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[7];?><input type="checkbox" name="ch7" <?php if($valorTeste[7] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[8];?><input type="checkbox" name="ch8" <?php if($valorTeste[8] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>

		 <tr><td>
		 <?php echo $listaMaterialInerte[9];?><input type="checkbox" name="ch9" <?php if($valorTeste[9] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>

		 <tr><td>
		 <?php
		 echo $listaMaterialInerte[10];?>
		 Outros <input type="checkbox" name="ch10" <?php if(strlen($naturezaDigitar)>2)  echo 'checked="checked"'; ?>/>
		 <input type="text" name="naturezaDigitar" size="20"  value="<?php echo $naturezaDigitar; ?>"/>
     	 </td></tr>

	 <?php
	 elseif($cliente=='SEMPRE')://se  é iagro
	 ?>
	 <tr><td>
		 <?php echo $listaMaterialInerte[1];?><input type="checkbox" name="ch1" <?php if($valorTeste[1] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[2];?><input type="checkbox" name="ch2" <?php if($valorTeste[2] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[3];?><input type="checkbox" name="ch3" <?php if($valorTeste[3] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[4];?><input type="checkbox" name="ch4" <?php if($valorTeste[4] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[5];?><input type="checkbox" name="ch5" <?php if($valorTeste[5] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[6];?><input type="checkbox" name="ch6" <?php if($valorTeste[6] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[7];?><input type="checkbox" name="ch7" <?php if($valorTeste[7] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[8];?><input type="checkbox" name="ch8" <?php if($valorTeste[8] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>
		 
		 <tr><td>
		 <?php echo $listaMaterialInerte[9];?><input type="checkbox" name="ch9" <?php if($valorTeste[9] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[10];?><input type="checkbox" name="ch10" <?php if($valorTeste[10] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[11];?><input type="checkbox" name="ch11" <?php if($valorTeste[11] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[12];?><input type="checkbox" name="ch12" <?php if($valorTeste[12] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>

		 <tr><td>
		 <?php echo $listaMaterialInerte[13];?><input type="checkbox" name="ch13" <?php if($valorTeste[13] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>
<!--vigor7777777777777777777777777777777777777777777777777777777777777777777777777777777777777777-->
	 <?php
	 elseif($cliente=='VIGOR')://se  é VIGOR
	 ?>
	 <tr><td>
		 <?php echo $listaMaterialInerte[1];?><input type="checkbox" name="ch1" <?php if($valorTeste[1] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[2];?><input type="checkbox" name="ch2" <?php if($valorTeste[2] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[3];?><input type="checkbox" name="ch3" <?php if($valorTeste[3] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[4];?><input type="checkbox" name="ch4" <?php if($valorTeste[4] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[5];?><input type="checkbox" name="ch5" <?php if($valorTeste[5] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[6];?><input type="checkbox" name="ch6" <?php if($valorTeste[6] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[7];?><input type="checkbox" name="ch7" <?php if($valorTeste[7] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[8];?><input type="checkbox" name="ch8" <?php if($valorTeste[8] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>
		 
		 <tr><td>
		 <?php echo $listaMaterialInerte[9]; ?><input type="checkbox" name="ch9" <?php  if($valorTeste[9] != '')  echo 'checked="checked"'; ?>/>

     	 </td></tr>

	 <?php
	 else:  //restante todos demias e se precisar outro cliente entao so coloca um elseif
	 ?>
		 <tr><td>
		 <?php echo $listaMaterialInerte[1];?><input type="checkbox" name="ch1" <?php if($valorTeste[1] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[2];?><input type="checkbox" name="ch2" <?php if($valorTeste[2] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[3];?><input type="checkbox" name="ch3" <?php if($valorTeste[3] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[4];?><input type="checkbox" name="ch4" <?php if($valorTeste[4] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[5];?><input type="checkbox" name="ch5" <?php if($valorTeste[5] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[6];?><input type="checkbox" name="ch6" <?php if($valorTeste[6] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>

		 <tr><td>
		 <?php echo $listaMaterialInerte[7];?><input type="checkbox" name="ch7" <?php if($valorTeste[7] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[8];?><input type="checkbox" name="ch8" <?php if($valorTeste[8] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[9];?><input type="checkbox" name="ch9" <?php if($valorTeste[9] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[32];?><input type="checkbox" name="ch32" <?php if($valorTeste[32] != '')  echo 'checked="checked"'; ?>/>
		 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[10];?><input type="checkbox" name="ch10" <?php if($valorTeste[10] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[11];?><input type="checkbox" name="ch11" <?php if($valorTeste[11] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[12];?><input type="checkbox" name="ch12" <?php if($valorTeste[12] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[13];?><input type="checkbox" name="ch13" <?php if($valorTeste[13] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[14];?><input type="checkbox" name="ch14" <?php if($valorTeste[14] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[33];?><input type="checkbox" name="ch33" <?php if($valorTeste[33] != '')  echo 'checked="checked"'; ?>/>
	     <?php echo $listaMaterialInerte[15];?><input type="checkbox" name="ch15" <?php if($valorTeste[15] != '')  echo 'checked="checked"'; ?>/>
     	 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[16];?><input type="checkbox" name="ch16" <?php if($valorTeste[16] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[17];?><input type="checkbox" name="ch17" <?php if($valorTeste[17] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[18];?><input type="checkbox" name="ch18" <?php if($valorTeste[18] != '')  echo 'checked="checked"'; ?>/>
    	 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[19];?><input type="checkbox" name="ch19" <?php if($valorTeste[19] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[20];?><input type="checkbox" name="ch20" <?php if($valorTeste[20] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[21];?><input type="checkbox" name="ch21" <?php if($valorTeste[21] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[34];?><input type="checkbox" name="ch34" <?php if($valorTeste[34] != '')  echo 'checked="checked"'; ?>/>
		 <!--
		 <?php echo $listaMaterialInerte[35];?><input type="checkbox" name="ch35" <?php if($valorTeste[35] != '')  echo 'checked="checked"'; ?>/>
		 -->
    	 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[22];?><input type="checkbox" name="ch22" <?php if($valorTeste[22] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[23];?><input type="checkbox" name="ch23" <?php if($valorTeste[23] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[24];?><input type="checkbox" name="ch24" <?php if($valorTeste[24] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[25];?><input type="checkbox" name="ch25" <?php if($valorTeste[25] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[29];?><input type="checkbox" name="ch29" <?php if($valorTeste[29] != '')  echo 'checked="checked"'; ?>/>
    	 </td></tr>
		 <tr><td>
		 <?php echo $listaMaterialInerte[26];?><input type="checkbox" name="ch26" <?php if($valorTeste[26] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[27];?><input type="checkbox" name="ch27" <?php if($valorTeste[27] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[28];?><input type="checkbox" name="ch28" <?php if($valorTeste[28] != '')  echo 'checked="checked"'; ?>/>
		 <?php echo $listaMaterialInerte[30];?><input type="checkbox" name="ch30" <?php if($valorTeste[30] != '')  echo 'checked="checked"'; ?>/>
    	 </td></tr>
		 
		 
    <?php
	endif;//aqeui fecha o teste que comecoeu testando se é barenbrug
  	?><!--fecha o else que perguntou se era baren-->

		<tr><td>
		<!--Aqui ajusto para barem pois ele tem material inerte diferente dos outros e uso o local para as somas-->
	    <?php
		if($cliente=='BAREN'):
		   ?>
		   <input type="hidden" name="campoInertes" disabled="disabled" value="<?php echo $inerteJa; ?>" size="60" />
           .............................<input type="text" name="xxx" disabled="disabled" value="<?php echo $somaPercentagens; ?>" size="3" />
           <input type="text" name="xxx" disabled="disabled" value="<?php echo $somaPesos; ?>" size="3" />
           <?php
		else:
		   ?>
		   <input type="text" name="campoInertes" disabled="disabled" value="<?php echo $inerteJa; ?>" size="60" />
		   <?php
		endif;
		?>   
		</td></tr>


		<!--botao de acesso a outras sementes-->
		<tr>
        <td bgcolor="silver">Informar outras sementes(Se houver)<a href="?m=Nocivas&t=editar" title="Link p/outras sementes" >  <img src="images/edit.png" alt="Informar outras sementes"</a></td>
			
		
		
		</tr>
		<!--combo outras sementes-->
		<td><select name="contaminante2"  onchange="ClikButton(11)">  
	    <?php
		 foreach($vetorSementes aS $vlr)
	     {
		  ?>
		  <option><?php echo($vlr)?></option>
		  <?php
	     }
		 ?>
		</td>
		</tr>
        
		
		<tr>
		 <td>
		 Analistas: R2=<?php echo $analistaR2; ?>   R3=<?php echo $analistaR3; ?>    R4=<?php echo $analistaR4; ?>		 </td>
		
		
		</tr> 				
				
				
				
				
				
  </table> </td>


<!--tabela so para mostrar os botoes-->
<td><table bgcolor="#73eca6">
<tr>
<td><input type="submit" name="bt_r1" value="R1" /></td>
<td><input type="checkbox" name="cb_r1" value="1" /></td>
</tr>
<tr>
<td><input type="submit" name="bt_r2" value="R2" /></td>
<td><input type="checkbox" name="cb_r2" value="0" /></td>
</tr>
<tr>
<td><input type="submit" name="bt_r3" value="R3" /></td>
<td><input type="checkbox" name="cb_r3" value="0" /></td>
</tr>


<!--SO PARA O CONCEITP-->
<?php
if($cliente=="LAS CONCEITO"):
?>
<tr>
<td><input type="submit" name="bt_r4" value="R4" /></td>
<td><input type="checkbox" name="cb_r4" value="0" /></td>
</tr>
<?php
endif;
?>

<tr>
<td><input type="submit" name="bt_media" value="Média" /></td>
</tr>
<tr>
<td><input type="submit" name="bt_media_dica" value="Dica" /></td>
</tr>
<?php
 //ja tenho o valor da variavel asepcto
 $statusAspecto0="";
 $statusAspecto1="";
 $statusAspecto2="";
 $statusAspecto3="";
 
if($aspecto=='0' || $aspecto=='NÃO'  || $aspecto==''  ):
   $statusAspecto0="checked"; //ZERO É O QUE GRAVA SE NAO MARCA NADA ELE SALVA EM BRANCO E DA MIGRACAO VEIO MUITOS NAO-->TUDO ISSO VAI PARA OTIMO
 elseif($aspecto=='1'):
    $statusAspecto1="checked"; 								 
 elseif($aspecto=='2'):
    $statusAspecto2="checked"; 								 
 elseif($aspecto=='3'):
    $statusAspecto3="checked"; 								 
 endif;
 
 //echo("xxxxxxxxxxxxx1480 cliente=$cliente<br>");
 
 ?>



<tr>
<td>---Aspecto---></td>
</tr>
<tr>
<td><input type="radio" name="aspecto" value="0"   <?php echo $statusAspecto0; ?>   >Ótimo</td>
</tr>
<tr>
<td><input type="radio" name="aspecto" value="1"   <?php echo $statusAspecto1; ?>   >Bom </td>
</tr>
<tr>
<td><input type="radio" name="aspecto" value="2"   <?php echo $statusAspecto2; ?>   >Regular </td>
</tr>
<tr>
<td><input type="radio" name="aspecto" value="3"   <?php echo $statusAspecto3; ?>   >Irregular </td>
</tr>
<!--
<tr>
<td> <?php echo $statusAspecto0.'  ASPECTO='.$aspecto; ?> </td>
</tr>
-->

</table></td>
</table>
	  
                    <table bgcolor="white" align="center">
					<tr>
                    <td><?php echo $mensagemDefeito;?> </td>
                    </tr>
					
					<tr>
                    <td><?php echo $mensagem?> </td>
                    </tr>
					
					<tr>
                    <td><?php echo $mensagem1?> </td>
                    </tr>
					</table>
					
				 <!--AQUI ENXERTO QUALITESTE 211119-->
		         <table width="900" bgcolor="#88a4a4">
		          <tr>
		             <td>Peso Nocivas(PN):<input type="text" name="tx_pnx"  maxlength="8" value="<?php echo $pesoNocivas;?>" size="6" /></td>
		             <td>Complemento(PC):<input type="text" name="tx_compl" maxlength="8" value="<?php echo $compl;?>" size="6" />
		  			<input type="submit" name="bt_somarComplemento" value="Só soma os pesos: Pureza+Complemento." />PN=AT(Já Salvado)+PC
				   </tr>
				</table>
					
					<table>
					<!--para o LAS CONCEITO nao usa este campo pois o o campo rea_campo100 é usado para r4-->
					<?php
					if($cliente!="LAS CONCEITO"):
					?>
					<tr>
					<td>
					Observação:<input type="text" size="60"  maxlength="100" name="observacao" value="<?php echo $observacao; ?>" />
					Outra cultivar:<input type="text" size="25"  maxlength="40" name="outraCultivar1" value="<?php echo $outraCultivar1; ?>" />

					</td>
					
					
					
					
					</tr>
					<?php
					endif;
					?>
					
					</table>
					<table>
	                <tr>
					<!--<input type="submit" name="Enviar" value="Calcula e grava" />-->
					<td>Amostra:			
				    <input type="text" size="3"  maxlength="5" name="amostra" value="<?php echo $amostra; ?>" />
				    <input type="submit" name="acharDigitada" value="<--Achar" />
					</td>
					
					<td><input type="submit" name="acharRecua" value="<" />
					<input type="submit" name="acharAvanca" value=">" />
					<input type="submit" name="acharUltima" value=">|" />
					</td>
					
                    <td bgcolor="silver">
					<input type="submit" name="bt_salvarAlteracoes" <?php echo $desabilita; ?> value="Salvar Alterações" />
					<?php
					if($finalizada=="s"):
					?>
						<input type="submit" name="reabre" value="Reabre" />
					<?php	
					else:
		            ?>
						<input type="submit" name="bt_fechar" value="Fechar" />Sim
						<input type="checkbox"   name="cb_fechar" />
					<?php	
					endif;
							
		            ?>  			

					<input type="hidden" name="finalizada" value="<?php echo($finalizada)?>" size="1" />


					   <!--<input type="text" name="controlador"  style="color:#93f0ba;"  readonly="readonly" value="<?php echo($controlador)?>" size="1" />-->
					   <input type="submit" name="manual" value="Ajuda." />
					   <input type="submit" name="bt_criaRegistroPURE" value="CRIA REGISTRO" />

					</td>
                    </tr>
                    </table>
					<table>
					<tr>
					<td>
					Orientação:Se quiser que o computador some pureza + complemento entao marque Somar AT+CP, antes de salvar alterações.  
					<input type="button" onclick="location.href='?m=amplo2023&t=registroAmostra'" value="Versão 2023" />

					</td>
					</tr> 
					</table>
					
					</<fieldset>
					</form>
       <?php 		 
    break;//fim do case editar

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