<?php
//linha 2 comentada

require_once(dirname(__FILE__).'/autoload.php');
protegeArquivo(basename(__FILE__));
class calculosFichaVirtual
{
##função1#########################
//ESTA FUNCAO SE RVE PARA IMPRIMIR VARIAS FICHAS 
//esta funcao vai retornar tudo que tem na amostra e com velocidade total
//inclusive acessando minimamente o banco de dados por exemplo a tabela rean
//sera acessada so uma vez criando um vetor especial dos registros encontrados
//a ideia é substituir a funcao capturageralamostras cujo desempenho é lento
//o vetor final vai abastecer a ficha virtual o farejador e o boletim horizontal e o informe
function converte_br_usa($formatoAtual,$valorAtual)//so valor formato br e usa
{
   if($formatoAtual=='br'):
     $valorFinal=str_replace(",",".",$valorAtual);
     return $valorFinal;
   endif;

   if($formatoAtual=='usa'):
     $valorFinal=str_replace(".",",",$valorAtual);
     return $valorFinal;         
   endif;
}

//retorna os contaminantes da amostra enviando a ida da amostra e o codigo que pode ser 1OES,2SIL,3NOT,4NOP
function captura_registros_invasorasRX($codigo,$amostraLong)
{
 	 	//$vetorgenerico['dados']['dados']="";//limpa o array  tracio um item a mais no vetor
		$vetorgenerico=array();//comando legitimo que limpa qalquer vetor
	    $soma=0;
		$generica=new tabelagenerica();
		$generica->tabela="invasoras,contaminantes";
		$generica->campos_valores = array(
				"inv_qtd" => NULL,
				"con_nome_cientifico" => NULL,
			);
		$generica->extras_select =" where   inv_codigo='".$codigo."' && inv_cod_praga=con_id && inv_amostra=" .$amostraLong; 
	    $generica->selecionaCampos($generica);
		$indiceVetor=0;
		while ($resgenerica = $generica->retornaDados()):
		    $indiceVetor++;
			$soma+= $resgenerica->inv_qtd;//joga dentro do ARRAY os elementos da tabela
			$vetorgenerico[$indiceVetor][0]=$resgenerica->con_nome_cientifico;//joga dentro do ARRAY nome do contaminate
			$vetorgenerico[$indiceVetor][1]=$resgenerica->inv_qtd;//joga dentro do ARRAY a quantidade encontrada
	    endwhile;
		$vetorgenerico[0][0]=$soma;//SOMA QUANTIDADE E POE NA POSICAO ZERO
	    return($vetorgenerico);   
}//fecha a function captura registros invasoras

//////////
//CONTAMINANTES
function captura_contaminantesRX($amostraLong)
{
	///////////////captura contaminates com sua quantidade e forma uma lista////////////////////////////////
   	//TRABALHA COM OS CONTAMINANTES  primeiro somente calculando o total por grupo
	//vai somar os totais por grupo
	 $somaOE=0;
	 $somaSI=0;
	 $somaTO=0;
	 $somaPR=0;
	 //ENTRA DE QUAKQUER MANEIRA
	 $generica=new tabelagenerica();
     $generica->tabela="invasoras,contaminantes";
	 $generica->campos_valores = array(
			"inv_qtd" => NULL,
			"inv_codigo" => NULL,
			"con_nome_cientifico" => NULL,
		);
     $generica->extras_select =" where  inv_cod_praga=con_id and  inv_amostra=".$amostraLong;
     $generica->selecionaCampos($generica);
	 $contaContaminantes=0;
	 $vetorContaminante="";
     while ($resgenerica = $generica->retornaDados()):
	    $codigoEncontrado=$resgenerica->inv_codigo;
	    if($codigoEncontrado!='5FRA'): 
            //FAZ UMA MAQUIAGEM NO CODIGO		
		    if($codigoEncontrado=="1OES")$codigoMaquiado="OE=";
		    if($codigoEncontrado=="2SIL")$codigoMaquiado="SI=";
		    if($codigoEncontrado=="3NOT")$codigoMaquiado="NT=";
		    if($codigoEncontrado=="4NOP")$codigoMaquiado="NP=";
		    
		    if($codigoEncontrado=="1OES")$somaOE+=$resgenerica->inv_qtd;
		    if($codigoEncontrado=="2SIL")$somaSI+=$resgenerica->inv_qtd;
		    if($codigoEncontrado=="3NOT")$somaTO+=$resgenerica->inv_qtd;
		    if($codigoEncontrado=="4NOP")$somaPR+=$resgenerica->inv_qtd;
			$vetorContaminante[$contaContaminantes]=$codigoMaquiado.$resgenerica->con_nome_cientifico.'('.$resgenerica->inv_qtd.')';
			$contaContaminantes++;
        endif;
	 endwhile;
     //$vetorMegaAmostra[78]=$vetorContaminante;
	 return $vetorContaminante;
}

///////////


function salvar_na_tabela_REAN()
{
		   $user = new rean1($teste,$amostraLong,$operador,$dataTeste,$observacao,$leitura1,$leitura2,$leitura3,$leitura4,$valor1,$valor2);
		   $user->extras_select = " WHERE  rea_teste='".$teste."' and  rea_ficha=".$amostraLong;
           $user->selecionaTudo($user);
           $registros=$user->linhasafetadas;
		   //echo("lllllllllllllllinhas afetadas= $registros<br>");
           if($registros>0):
		       //se ja tem o teste entao so atualiza
			   //GRAVA AS LEITURAS DiRETO NA REAN
			   $sql="update rean1 set
			   rea_v1='$valor1',
			   rea_v2='$valor2',
			   rea_lei1='$leitura1', 			   
			   rea_datageralteste=date('d/m/Y'), 			   
			   rea_operador='$nomeOperador', 			   
			   rea_campo100='$observacao' 			   
			    where  rea_teste='INF' and  rea_ficha=".$amostraLong;
 	           $generica=new tabelagenerica();
			   $generica->grava_registro_com_retorno($sql); 
               //echo("ggggghhhhh sql=$sql<br>");
           else:
		   	   //se nao tem o teste entao inclui
               //cria registro novoGRAVA AS LEITURAS DiRETO NA REAN
			   $sql="insert into rean1(rea_lei1,rea_v1,rea_teste,rea_ficha) values('$leitura1','$valor1','INF','$amostraLong')";
 	           $generica=new tabelagenerica();
			   $generica->grava_registro_com_retorno($sql); 
               //echo("gggggyyyyy   sql=$sql<br>");
		   endif;
}


function capturaGeralRaioX($amostraLong)
{
   //COLOCA -N- EM TODOS OS LOCAIS 
    for($locais=1;$locais<=251;$locais++):
	   $vetorRaioX[$locais]='-N-';
	endfor;
	
	
	
    $sessao = new sessao(); 
	$idLabo=$sessao->getVar('idLabo');
	$cliente=strtoupper($sessao->getVar('cliente' ) ?? "");
	//captura os dados intrisecos da amostra
   /*


   $user = new amostras();
   $user->valorpk = $fic_id;
   $user->extras_select = "WHERE fic_id=$amostraLong";
   $user->selecionaTudo($user);
   $res = $user->retornaDados();//aqui monta a tela de edição
   //aqui tem uma situacao especial
   //se existe amaostra definitiva ele nao pega o protocolo de previa
   //portanto se so tiver previa ele leva o numero da previa mesmo e coloca AP
   $previa=$res->fic_amostra_previa;
   $definitiva=$res->fic_amostra;
   $vetorRaioX[1]=$definitiva;
   $vetorRaioX[2]=$previa;
   if($definitiva>0):
       $vetorRaioX[10]=$definitiva;//.date("/y",strtotime($res->fic_dt_entrada));
   else:
       $vetorRaioX[10]=$previa.'p';//.date("/y",strtotime($res->fic_dt_entrada));
   endif;
   $vetorRaioX[8]=date("d/m/y",strtotime($res->fic_dt_entrada));
   $vetorRaioX[9]=$res->fic_lote;
   */
   //$sqlSeletor="select fic_id from cultivar,ficha,remetente,especies where   fic_labo=".$idLabo."  AND  prd_id=fic_produtor AND  ctv_id=fic_cultivar AND  ctv_especie=esp_id and ".$pedacoAno.$pedacos." order by fic_amostra";	   
	//ENTRA DE QUAKQUER MANEIRA
	$genericaFicha=new tabelagenerica();
	$genericaFicha->tabela=" cultivar,ficha,remetente,especies,amostrador ";
	$genericaFicha->campos_valores = array(
		   "fic_id" => NULL,
		   "fic_lote" => NULL,
		   "fic_validade" => NULL,
		   "fic_status_pago" => NULL,
		   "fic_custo" => NULL,
		   "fic_status_finalizada" => NULL,
		   "fic_safra" => NULL,
		   "fic_beneficiada" => NULL,
		   "fic_analise_reanalise" => NULL,
		   "fic_repre_unid" => NULL,
		   "fic_binario" => NULL,
		   "fic_amostra" => NULL,
		   "fic_amostra_previa" => NULL,
		   "fic_dt_entrada" => NULL,
		   "fic_dt_protocolo" => NULL,
		   "fic_registrador" => NULL,
		   "fic_dt_amostragem" => NULL,
		   "fic_categoria" => NULL,
		   "fic_funcao" => NULL,
		   "fic_peneira" => NULL,
		   "fic_procedencia" => NULL,
		   "fic_tratamento" => NULL,
		   "fic_aparelho" => NULL,
		   "fic_balanca" => NULL,
		   "fic_observacao" => NULL,
		   "fic_obs2015_a" => NULL,
		   "fic_obs2015_b" => NULL,
		   "fic_pesodet_nocivas" => NULL,
		   "fic_pesodet_dosn" => NULL,
		   "fic_pesodet_octv" => NULL,
		   "fic_complemento" => NULL,
		   "fic_campo_string" => NULL,
		   "fic_preparo_pureza" => NULL,
		   "fic_preparo_complemento" => NULL,
		   "fic_preparo_analista" => NULL,
		   "fic_preparo_data" => NULL,
		   "fic_preparo_dosn" => NULL,
		   "fic_recipiente1" => NULL,
		   "fic_recipiente2" => NULL,
		   "fic_aparelho_umidade" => NULL,
		   "fic_grau_umidade" => NULL,
		   "fic_data_umidade" => NULL,
		   "fic_operador_contaminante" => NULL,
		   "fic_data_contaminante" => NULL,
		   "fic_definitiva" => NULL,
		   "fic_previsao" => NULL,
		   "fic_outrascultivares" => NULL,

		   "esp_nome" => NULL,
		   "esp_nome_cientifico" => NULL,
		   "esp_id" => NULL,
		   "esp_min_pureza" => NULL,
		   "prd_nome" => NULL,
		   "prd_id" => NULL,
		   "amt_nome" => NULL,
		   "amt_renasem" => NULL,
		   "prd_apelido" => NULL,
		   "prd_renasem" => NULL,
		   "prd_uf" => NULL,
		   "prd_municipio" => NULL,
		   "ctv_nome" => NULL,
		   
           );
	$genericaFicha->extras_select =" where amt_id=fic_amostrador   AND  prd_id=fic_produtor AND  ctv_id=fic_cultivar AND  ctv_especie=esp_id and fic_id=".$amostraLong;
   
	$genericaFicha->selecionaCampos($genericaFicha);
	$resgenericaFicha= $genericaFicha->retornaDados();
   //aqui tem uma situacao especial
   //se existe amaostra definitiva ele nao pega o protocolo de previa
   //portanto se so tiver previa ele leva o numero da previa mesmo e coloca AP
   $previa=$resgenericaFicha->fic_amostra_previa;
   $definitiva=$resgenericaFicha->fic_amostra;
   $vetorRaioX[1]=$definitiva;
   $vetorRaioX[2]=$previa;
   if($definitiva>0):
       $vetorRaioX[10]=$definitiva;
       $vetorRaioX[119]=$definitiva;
       $vetorRaioX[120]=date("/Y",strtotime($resgenericaFicha->fic_dt_entrada)).'-AD';//
   else:
       $vetorRaioX[10]=$previa.'p';
       if($cliente=='BAREN')$vetorRaioX[10]=$previa;
	   $vetorRaioX[119]=$previa;
       $vetorRaioX[120]=date("/Y",strtotime($resgenericaFicha->fic_dt_entrada)).'-AP';//.;
   endif;
   $vetorRaioX[263]=$resgenericaFicha->fic_dt_protocolo;//
   $vetorRaioX[222]=$resgenericaFicha->fic_definitiva;//
   $vetorRaioX[152]=$resgenericaFicha->fic_dt_amostragem;//
   $vetorRaioX[8]=date("d/m/Y",strtotime($resgenericaFicha->fic_dt_entrada));
   $vetorRaioX[240]=$resgenericaFicha->fic_registrador;
   $vetorRaioX[9]=$resgenericaFicha->fic_lote;
   $vetorRaioX[311]=$resgenericaFicha->fic_validade;
   $vetorRaioX[287]=$resgenericaFicha->fic_status_pago;
   $vetorRaioX[288]=$resgenericaFicha->fic_custo;
   $vetorRaioX[289]=$resgenericaFicha->fic_status_finalizada;
   $vetorRaioX[48]=$resgenericaFicha->fic_safra;
   $vetorRaioX[246]=$resgenericaFicha->fic_binario;//pega a avaliacao das amostras deas etc
   $vetorRaioX[118]=$resgenericaFicha->fic_beneficiada;//aqui vai salvar o tipo de material(revestida, nua etc))
   $vetorRaioX[121]=$resgenericaFicha->fic_analise_reanalise;
   $vetorRaioX[155]=$resgenericaFicha->fic_campo_string;
   $vetorRaioX[159]=$resgenericaFicha->fic_preparo_pureza;
   $vetorRaioX[160]=$resgenericaFicha->fic_preparo_complemento;
   $vetorRaioX[161]=$resgenericaFicha->fic_preparo_analista;
   $vetorRaioX[162]=$resgenericaFicha->fic_preparo_data;
   $vetorRaioX[53]=$resgenericaFicha->fic_categoria;
   $vetorRaioX[259]=$resgenericaFicha->fic_funcao;
   $vetorRaioX[56]=$resgenericaFicha->fic_peneira;
   $vetorRaioX[57]=$resgenericaFicha->fic_procedencia;
   $vetorRaioX[58]=$resgenericaFicha->fic_tratamento;//tratamento produtor
   $vetorRaioX[59]=$resgenericaFicha->fic_aparelho;//peso da amostra
   $vetorRaioX[60]=$resgenericaFicha->fic_balanca;//balanca
   $vetorRaioX[63]=$resgenericaFicha->fic_observacao;//observacao
   $vetorRaioX[105]=str_replace(".",",",$resgenericaFicha->fic_pesodet_nocivas);//peso nocivas
   $vetorRaioX[220]=$resgenericaFicha->fic_pesodet_dosn;//peso solvestres
   $vetorRaioX[260]=$resgenericaFicha->fic_pesodet_octv;//peso dosn
   $vetorRaioX[106]=$resgenericaFicha->fic_complemento;//peso nocivas
   $vetorRaioX[248]=$resgenericaFicha->fic_previsao;//
   $vetorRaioX[251]=$resgenericaFicha->fic_outrascultivares;//
   $vetorRaioX[46]=$resgenericaFicha->fic_repre_unid;
   $vetorRaioX[285]=$resgenericaFicha->fic_obs2015_a;
   $vetorRaioX[296]=$resgenericaFicha->fic_obs2015_b;

   $vetorRaioX[42]=$resgenericaFicha->ctv_nome;
   $vetorRaioX[43]=$resgenericaFicha->esp_nome;
   $vetorRaioX[44]=$resgenericaFicha->prd_nome;
   $vetorRaioX[45]=$resgenericaFicha->prd_apelido;
   $vetorRaioX[49]=$resgenericaFicha->prd_municipio;
   $vetorRaioX[50]=$resgenericaFicha->prd_renasem;
   $vetorRaioX[51]=$resgenericaFicha->prd_uf;
   $vetorRaioX[52]=$resgenericaFicha->prd_telefone;
   $vetorRaioX[255]=$resgenericaFicha->prd_id;
   $vetorRaioX[96]=$resgenericaFicha->amt_nome;
   $vetorRaioX[261]=$resgenericaFicha->amt_renasem;
   $vetorRaioX[97]=$resgenericaFicha->esp_min_pureza;//pureza RAS
   $vetorRaioX[107]=$resgenericaFicha->esp_id;

   //$vetorRaioX[163]=$resgenericaFicha->fic_preparo_dosn;
   $vetorRaioX[164]=$resgenericaFicha->fic_recipiente1;
   $vetorRaioX[165]=$resgenericaFicha->fic_recipiente2;
   $vetorRaioX[166]=$resgenericaFicha->fic_aparelho_umidade;
   $vetorRaioX[167]=$resgenericaFicha->fic_grau_umidade;
   $vetorRaioX[168]=$resgenericaFicha->fic_data_umidade;
   $vetorRaioX[215]=$resgenericaFicha->fic_operador_contaminante;
   $vetorRaioX[216]=$resgenericaFicha->fic_data_contaminante;
   $vetorRaioX[221]=$resgenericaFicha->esp_nome_cientifico;

  //captura os testes solicitados concatenados para despejar na ficha
    $texto="";
	$userTestes = new testesSolicitados();
	$userTestes->extras_select = "where tes_ficha=".$amostraLong;
	$userTestes->selecionaTudo($userTestes);
	$conta=0;
	while ($resTestes = $userTestes->retornaDados()):
       $texto=$texto.$resTestes->tes_teste.";";
       $vetorTestes[$conta]=$resTestes->tes_teste;
	   $conta++;
	endwhile;                
    $vetorRaioX[47]=$texto;
    $vetorRaioX[54]=$vetorTestes;//testes_realizar


    //captura os documentos
	//ENTRA DE QUAKQUER MANEIRA
	$genericaDoc=new tabelagenerica();
	$genericaDoc->tabela="documentosponte,documentos";
	$genericaDoc->campos_valores = array(
		   "doc_numero" => NULL,
		   "doc_tipo" => NULL,
		   "doc_data" => NULL,
		   "doc_operador" => NULL,
	);
	$genericaDoc->extras_select =" where dpo_documento_autonumerador=doc_id &&  dpo_amostra_vinculada=".$amostraLong;
	$genericaDoc->selecionaCampos($genericaDoc);
	$variosDocs="";//se tem mais de um doc ele pega todos
    $vetorDoc="";
	$docAcumulado="";
    $vetorRaioX[3]='-O-';
    $vetorRaioX[4]='-O-';
    $vetorRaioX[6]='-O-';

	while ($resgenericaDoc= $genericaDoc->retornaDados()):
       $indice=0;//pode ser que fez mais de um doc
	   $tipoDoc=$resgenericaDoc->doc_tipo;
       if($tipoDoc=='Boletim')$indice=3;
       if($tipoDoc=='Informe')$indice=4;
	   //aqui vai um CASUISMO  da dimicron campo cultivar
       //se foi feito informe entao a cultivar será -O-
       if($tipoDoc=='Informe' && substr($cliente,0,8)=='DIMICRON'):
         //$vetorRaioX[42]='-O-';//cultivar
	   endif;	  
       if($tipoDoc=='Plural')$indice=5;
       if($tipoDoc=='Termo')$indice=6;
       if($tipoDoc=='Certificado')$indice=7;
       if($tipoDoc=='Termo_Aditivo')$indice=298;
	   
	   $numeroDoc=$resgenericaDoc->doc_numero;
	   //isso aqui nao pode mudar mais pois outras locais vai procurar nestas posucoes
       $dataDoc=date("d/m/y",strtotime($resgenericaDoc->doc_data));  
	   $operadorDoc=$resgenericaDoc->doc_operador;
       $vetorRaioX[$indice]=$dataDoc.'*'.$numeroDoc.'*'.$operadorDoc.'*';//ELE MONTA INVERTIDO PORQUE A DATA É SOMPRE DO MEMSO TAMANHO  E O NUMERO DO DOCUMENTO NAO É
       if($indice>0)$docAcumulado=$docAcumulado.substr($tipoDoc,0,1).$numeroDoc.';';   //pega a primera letra depois o numero    
       $vetorRaioX[41]=$docAcumulado;
    endwhile; 
	
	//aqui eu coloco -N- em todos testes para nao sair em branco quando nao foi feito        
////////////////////////////////
     //PURE
	       $vetorRaioX[15]='-N-';//%pureza
	       $vetorRaioX[25]='-N-';//inerte
	       $vetorRaioX[26]='-N-';//inerte
     //GERM
	       $vetorRaioX[14]='-N-';//normais
	       $vetorRaioX[64]='-N-';//anormais
	       $vetorRaioX[65]='-N-';//mortas
	       $vetorRaioX[66]='-N-';//duras
	       $vetorRaioX[67]='-N-';//dormentes

      //GE2
	       $vetorRaioX[129]='-N-';//normais
	       $vetorRaioX[130]='-N-';//anormais
	       $vetorRaioX[132]='-N-';//mortas
	       $vetorRaioX[135]='-N-';//duras
	       $vetorRaioX[136]='-N-';//dormentes
	       $vetorRaioX[137]='-N-';//data final do teste
	       $vetorRaioX[133]='-N-';//infecionadas
	       $vetorRaioX[144]='-N-';//data leitura
	       $vetorRaioX[147]='-N-';//analista da leitura
	       $vetorRaioX[145]='-N-';//data leitura
	       $vetorRaioX[148]='-N-';//analista da leitura
	       $vetorRaioX[146]='-N-';//data leitura
	       $vetorRaioX[149]='-N-';//analista da leitura
	       $vetorRaioX[213]='-N-';//ph no barenbrug 
	       $vetorRaioX[238]='-N-';//formato 4x100  8x50 etc
		   $vetorRaioX[122]='-N-';//temperatura
	       $vetorRaioX[123]='-N-';//substrato
	       $vetorRaioX[124]='-N-';//duracao ge2
	       $vetorRaioX[125]='-N-';//germinador
	       $vetorRaioX[126]='-N-';//data
	       $vetorRaioX[127]='-N-';//analista
	       $vetorRaioX[128]='-N-';//tratamento 
	       $vetorRaioX[134]='-N-';//reanlong 
	
       //PMS
	      $vetorRaioX[13]='-N-';

       //INF
	   	   //$vetorRaioX[18]='-N-';
       //VC
	   	   $VC='-N-';
       //TZ0
	   	   $TZO='-N-';

       //EAC
	   	   $vetorRaioX[12]='-N-';//normais
	       $vetorRaioX[76]='-N-';//anormais
	       $vetorRaioX[78]='-N-';//mortas
	       $vetorRaioX[94]='-N-';//data final do teste
	       $vetorRaioX[100]='-N-';//infecionadas
		   $vetorRaioX[101]='-N-';//DURAS
	       $vetorRaioX[77]='-N-';//dORMENTES

       //FRI
	   	   $vetorRaioX[16]='-N-';
	       $vetorRaioX[87]='-N-';//anormais
	       $vetorRaioX[89]='-N-';//mortas
	       $vetorRaioX[88]='-N-';//duras
	       $vetorRaioX[95]='-N-';//data final do teste
	       $vetorRaioX[102]='-N-';//infecionadas
		   $vetorRaioX[103]='-N-';//duras

       //EMER
           //DADOS TABELA ESQUERDA
           //DADOS TABELA DIREITA 
	   	   $vetorRaioX[176]='-N-';
	   	   $vetorRaioX[177]='-N-';
	   	   $vetorRaioX[178]='-N-';
	   	   $vetorRaioX[179]='-N-';
	   	   $vetorRaioX[180]='-N-';//numero de sementes tabela da eDIREITA


       //CONJ
	       // GRAU DE UMIDADE
	   	   $vetorRaioX[183]='-N-';

       //TZF
   	    $vetorRaioX[202]='-N-';//VIAVRID BARNBRUG  tzf
  
       //TZO
	    $vetorRaioX[11]='-N-';
   	    $vetorRaioX[234]='-N-';//
        $vetorRaioX[279]='-N-';//

       //testes que puxam so um valou ou poucos valores
	   //CLV
	   $vetorRaioX[16]='-N-';
	   //TRI
	   $vetorRaioX[19]='-N-';
       
	   
	   //DTU
	       $vetorRaioX[20]='-N-';//teor
	   	   $vetorRaioX[236]='-N-';//data
	   	   $vetorRaioX[235]='-N-';//analista

       //CLV=CLASSEIFICACAO DE VIGOR
	   $vetorRaioX[228]='-N-';
       //VLC = VALOR CULTURAL
	   $vetorRaioX[256]='-N-';
       //GQD
	   $vetorRaioX[229]='-N-';
       //GBT
	   $vetorRaioX[230]='-N-';
       //CAN
	   $vetorRaioX[231]='-N-';
       //DME
	   $vetorRaioX[232]='-N-';
       //MUP
	   $vetorRaioX[233]='-N-';
       //FIM DA ATRIBUICAO DE -N- PARA CADS TESTE SE NEM FOI FEITO


    //aqui vou capturar tudo da REAN1
   	$genericaRean=new tabelagenerica();
	$genericaRean->tabela="rean1";
	$genericaRean->campos_valores = array(
		   "rea_teste" => NULL,
		   "rea_id" => NULL,
		   "rea_v1" => NULL,
		   "rea_v2" => NULL,
		   "rea_v3" => NULL,
		   "rea_v4" => NULL,
		   "rea_v5" => NULL,
		   "rea_v6" => NULL,
		   "rea_lei1" => NULL,
		   "rea_lei2" => NULL,
		   "rea_lei3" => NULL,
		   "rea_lei4" => NULL,
		   "rea_datageralteste" => NULL,
		   "rea_operador" => NULL,
		   "rea_campo20a" => NULL,
		   "rea_campo60a" => NULL,
		   "rea_campo60b" => NULL,
		   "rea_campo60c" => NULL,
		   "rea_campo100" => NULL,
		   "rea_duracao" => NULL,
		   "rea_campo20b" => NULL,
		   "rea_datainicio" => NULL,
		   "rea_operador" => NULL,
		   "rea_validade" => NULL,
		   "rea_primeira_leitura_data" => NULL,
		   "rea_primeira_leitura_analista" => NULL,
		   "rea_segunda_leitura_data" => NULL,
		   "rea_segunda_leitura" => NULL,
		   "rea_segunda_leitura_analista" => NULL,
		   "rea_terceira_leitura_data" => NULL,
		   "rea_terceira_leitura_analista" => NULL,
		   "rea_finalizada" => NULL,
	
	);
	$genericaRean->extras_select =" where rea_boletim='S' and rea_ficha=".$amostraLong;
	$genericaRean->selecionaCampos($genericaRean);
 

    while($resgenericaRean= $genericaRean->retornaDados()):
       $teste= $resgenericaRean->rea_teste;
	   $dataTeste=date("d/m/y",strtotime($resgenericaRean->rea_datageralteste));
       //if($dataTeste="01/01/11")$dataTeste="-";
     
	   
       if($teste=='PURE'):
	       $vetorRaioX[15]=$resgenericaRean->rea_v1;//%pureza
	       $vetorRaioX[21]=$resgenericaRean->rea_lei1;//amostra de trabalho
		   //$vetorRaioX[21]=$amostraLong;//amostra de trabalho
	       $vetorRaioX[22]=$resgenericaRean->rea_lei2;//puras
	       $vetorRaioX[23]=$resgenericaRean->rea_lei3;//outras sementes
	       $vetorRaioX[24]=$resgenericaRean->rea_lei4;//inerte
	       $vetorRaioX[25]=$resgenericaRean->rea_v2;//inerte
	       $vetorRaioX[26]=$resgenericaRean->rea_v3;//OUTRAS SEMENTES
	       $vetorRaioX[55]=$resgenericaRean->rea_campo60a;//natureza do material inerte
	       $vetorRaioX[193]=$resgenericaRean->rea_campo60b;//HOMOGENEIZACAO UFLA
	       $vetorRaioX[98]=$resgenericaRean->rea_id;//reanlong 		   
	       $vetorRaioX[104]=$resgenericaRean->rea_campo20a;//balanca da pureza	   
	       $vetorRaioX[283]=$resgenericaRean->rea_validade;//balanca do complemento   
	   	   $vetorRaioX[153]=$resgenericaRean->rea_operador;
		   if($dataTeste=="01/01/11")$dataTeste="";
	   	   $vetorRaioX[154]=$dataTeste;  //CONTEUDO DO REA_DATAGERALTESTE
	       $vetorRaioX[156]=$resgenericaRean->rea_v4;//percentagem pureza bruta barenbrug 
	       $vetorRaioX[157]=$resgenericaRean->rea_v5;//percentagem osementes bruta barenbrug 
	       $vetorRaioX[158]=$resgenericaRean->rea_v6;//percentagem material inerte bruta barenbrug 
	       $vetorRaioX[194]=$resgenericaRean->rea_duracao;//total de sementes nao identificadas 
           $statusFinalizada='FECHADA';
           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
	       $vetorRaioX[217]=$statusFinalizada;//pureza finalizada 
	       $vetorRaioX[262]=$resgenericaRean->rea_segunda_leitura;//armazena legenda erros casas decimais na pureza
	       $vetorRaioX[286]=$resgenericaRean->rea_segunda_leitura_data;//armazena descricao de  outras cultivares 

	   endif;
	   
	   
	   
	   //aqui sempre vai achar este registro
	   //limagrain tem o teste germ e o teste padare(germinacao em subsstrato areia)
	   //o programa precisa var qual foi marcado pois ou e um ou outro(excludente
	   //para os demais labs so vai perguntar se é germinacao))
	   //$vetorRaioX[308]='Cli'.$cliente;//
       if($cliente=='LIMAGRAIN')://testa se é limagrain
        if($teste=='GERM'): //testa se é germ    
	       //ativado ou desativado
		   	  $vetorRaioX[314]=$resgenericaRean->rea_v1;//
              if($resgenericaRean->rea_terceira_leitura_analista =='*')	://testa se esta marcado
			   $vetorRaioX[308]='Papel';//testa se é limagrain
			   $gerPapel=$resgenericaRean->rea_v1;//normais
			   $vetorRaioX[14]=$resgenericaRean->rea_v1;//gerPapel
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
		      endif;////fim do teste se esta marcado 
	      endif;//fim do teste se é germ
		  
		  
         //agora vai verificar pad are no ambiente limagrain
         if($teste=='PAD_ARE'): //testa se é pad are
		   $vetorRaioX[313]=$resgenericaRean->rea_v1;//normais   
           //para limagrain pode vir ativado ou desativado
              if($resgenericaRean->rea_terceira_leitura_analista =='*')	://testa se esta marcado  
   			   $vetorRaioX[308]='Areia';//testa se é limagrain
		       $vetorRaioX[14]=$resgenericaRean->rea_v1;//normais
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
		      endif;////fim do teste pad are se estiver marcado
            endif;//FIM DO TESTE PADARE
	         //agora vai verificar pad are no ambiente limagrain
        if($teste=='PAD_ARE2'): //testa se é germ    
	       //ativado ou desativado
		   	  $vetorRaioX[315]=$resgenericaRean->rea_v1;//
              if($resgenericaRean->rea_terceira_leitura_analista =='*')	://testa se esta marcado
			   $vetorRaioX[308]='Papel';//testa se é limagrain
			   $gerPapel=$resgenericaRean->rea_v1;//normais
			   $vetorRaioX[14]=$resgenericaRean->rea_v1;//gerPapel
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
		      endif;////fim do teste se esta marcado 
	      endif;//fim do teste se é PADARE2
			
		    //echo(" 696 teste=$teste<br>");	
	        if($teste=='GE2'): //testa se é germ
		   	  $vetorRaioX[129]=$resgenericaRean->rea_v1;//
              if($resgenericaRean->rea_terceira_leitura_analista =='*')	://testa se esta marcado
			   $vetorRaioX[308]='Papel';//testa se é limagrain
			   $gerPapel=$resgenericaRean->rea_v1;//normais
			   $vetorRaioX[14]=$resgenericaRean->rea_v1;//gerPapel
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
		      endif;////fim do teste se esta marcado 
	      endif;//fim do teste se é germ  GE2
	 //AQUI TRABALHA SE NAO DOR LIMAGRIAN DAQUI PARA FRENTE
     else:////se nao for limagrain
	   //aqui sempre vai achar este registro
       if($teste=='GERM')://testa se é germ para outros labs	
	       //ativado ou desativado
			   $gerPapel=$resgenericaRean->rea_v1;//normais
		       $vetorRaioX[14]=$resgenericaRean->rea_v1;//
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
	   endif;//ver se o teste é germ
    endif;//fim do teste else se cliente nao e  limagrain  


//aqui um depurado
    //testa se é limagrain
      //testa se é germ    
         //testa se esta marcado

         //fim do teste se esta marcado 
      //fim do teste se é germ
     
	  //testa se é pad are
      //testa se esta marcado  

      //fim do teste pad are se estiver marcado
      //fim do teste pad are


    //se nao for limagrain
    //testa se é germ para outros labs	



	
     //fim do teste se é germ para os demais	
	//fim do else  limagrain
	


       if($teste=='GE2'):
	       $vetorRaioX[129]=$resgenericaRean->rea_v1;//normais
	       $vetorRaioX[122]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[123]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[124]=$resgenericaRean->rea_duracao;//duracao
	       $vetorRaioX[125]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[126]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[127]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[128]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[134]=$resgenericaRean->rea_id;//reanlong 
	       //echo("achando o valor de reanlongGE=$resgenericaRean->rea_id<br>");
	       $vetorRaioX[130]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[132]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[135]=$resgenericaRean->rea_v3;//duras
	       $vetorRaioX[136]=$resgenericaRean->rea_v4;//dormentes
		   $vetorRaioX[151]=$resgenericaRean->rea_campo100;//observacoes
	       $vetorRaioX[137]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[133]=$resgenericaRean->rea_v6;//infecionadas
	       $vetorRaioX[144]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
	       $vetorRaioX[147]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
	       $vetorRaioX[145]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
	       $vetorRaioX[148]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
	       $vetorRaioX[146]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
	       $vetorRaioX[149]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
	       $vetorRaioX[213]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	       $vetorRaioX[238]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
	       //echo("entrou em geeeeeeeeeeeeeee vetorRaioX[62]=$vetorRaioX[62]<br>");
	   endif;	   

       if($teste=='PMS'):
          //captura as 8 leituras
	      $vetorRaioX[13]=$resgenericaRean->rea_v1;
		  $vetorRaioX[108]=$resgenericaRean->rea_lei4;
		  $vetorRaioX[109]=$resgenericaRean->rea_v2;
		  $vetorRaioX[110]=$resgenericaRean->rea_v3;
		  $vetorRaioX[111]=$resgenericaRean->rea_v4;
		  $vetorRaioX[112]=$resgenericaRean->rea_v5;
		  $vetorRaioX[113]=$resgenericaRean->rea_lei1;
		  $vetorRaioX[114]=$resgenericaRean->rea_lei2;
		  $vetorRaioX[115]=$resgenericaRean->rea_lei3;		  
          $vetorRaioX[116]=$resgenericaRean->rea_campo60a;//variancia,descio.soma.media separados por asterisco
          $vetorRaioX[117]=$resgenericaRean->rea_operador;//operador pms
          $vetorRaioX[189]=$resgenericaRean->rea_segunda_leitura;//numero pelotas puras pms barembrug
	      $vetorRaioX[214]=$resgenericaRean->rea_datageralteste;//data
          $vetorRaioX[253]=$resgenericaRean->rea_segunda_leitura_data;//aparencia
          $vetorRaioX[280]=$resgenericaRean->rea_primeira_leitura_data;//balanca usada no teste pms
	   endif;	  


       
       if($teste=='INF'):
	   	   $vetorRaioX[18]=$resgenericaRean->rea_v1;//valor final
	   	   $vetorRaioX[27]=$resgenericaRean->rea_lei1;//leitura 1
	   	   $vetorRaioX[28]=$resgenericaRean->rea_lei2;//leitura 2
	   	   $vetorRaioX[29]=$resgenericaRean->rea_lei3;
	   	   $vetorRaioX[30]=$resgenericaRean->rea_lei4;
	   	   $vetorRaioX[31]=$resgenericaRean->rea_v2;
	   	   $vetorRaioX[32]=$resgenericaRean->rea_datageralteste;
	   	   $vetorRaioX[33]=$resgenericaRean->rea_operador;
	   	   $vetorRaioX[34]=$resgenericaRean->rea_campo100;
	   	   $vetorRaioX[237]=$resgenericaRean->rea_campo20a;//NUMERO DE SEMENTES
	   	   $vetorRaioX[318]=$resgenericaRean->rea_primeira_leitura_data;
	   	   $vetorRaioX[319]=$resgenericaRean->rea_segunda_leitura_data;
	   	   $vetorRaioX[340]=$resgenericaRean->rea_v3;
	   endif;

       if($teste=='EAC'):
	   	   $vetorRaioX[12]=$resgenericaRean->rea_v1;//normais
	       $vetorRaioX[68]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[69]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[70]=$resgenericaRean->rea_duracao;//duracao
	       $vetorRaioX[71]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[72]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[73]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[74]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[91]=$resgenericaRean->rea_id;//reanlong EAC 
	       $vetorRaioX[76]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[78]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[94]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[100]=$resgenericaRean->rea_v6;//infecionadas
		   $vetorRaioX[101]=$resgenericaRean->rea_v3;//DURAS
	       $vetorRaioX[77]=$resgenericaRean->rea_v4;//dORMENTES
		   $vetorRaioX[239]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
	       $vetorRaioX[243]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
	       $vetorRaioX[244]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
	       $vetorRaioX[245]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		   $vetorRaioX[281]=$resgenericaRean->rea_campo100;//observacoes
	   endif;

       if($teste=='FRI'):
	   	   $vetorRaioX[16]=$resgenericaRean->rea_v1;
	       $vetorRaioX[79]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[80]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[81]=$resgenericaRean->rea_duracao;//duracao
		   $vetorRaioX[82]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[83]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[84]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[85]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[92]=$resgenericaRean->rea_id;//reanlong 
	       $vetorRaioX[87]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[89]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[88]=$resgenericaRean->rea_v4;//dormentes
	       $vetorRaioX[95]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[102]=$resgenericaRean->rea_v6;//infecionadas
		   $vetorRaioX[103]=$resgenericaRean->rea_v3;//duras
		   $vetorRaioX[281]=$resgenericaRean->rea_campo100;//observacoes
	
	   endif;
	   
	   
	   
	   if($teste=='FR2'):
	      $vetorRaioX[312]=$resgenericaRean->rea_v1;
		  
	   endif;	  

       //TESTE ROUNDUP DA SEMPRE
       if($teste=='TRR'):
	   	   $vetorRaioX[264]=$resgenericaRean->rea_v1;
	       $vetorRaioX[265]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[266]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[267]=$resgenericaRean->rea_duracao;//duracao
		   $vetorRaioX[268]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[269]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[270]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[271]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[272]=$resgenericaRean->rea_id;//reanlong 
	       $vetorRaioX[273]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[274]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[275]=$resgenericaRean->rea_v3;//duras
	       $vetorRaioX[276]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[277]=$resgenericaRean->rea_v6;//infecionadas
		   $vetorRaioX[278]=$resgenericaRean->rea_campo100;//observacoes
	       $vetorRaioX[284]=$resgenericaRean->rea_v4;//dormentes
	   endif;





       if($teste=='EMER'):
           //DADOS TABELA ESQUERDA
	   	   $vetorRaioX[169]=$resgenericaRean->rea_lei1;
	   	   $vetorRaioX[170]=$resgenericaRean->rea_lei2;
	   	   $vetorRaioX[171]=$resgenericaRean->rea_lei3;
	   	   $vetorRaioX[172]=$resgenericaRean->rea_lei4;
	   	   $vetorRaioX[173]=$resgenericaRean->rea_duracao;//numero de sementes tabela da esquerda areia
	   	   $vetorRaioX[174]=$resgenericaRean->rea_validade;//data plantio
	   	   $vetorRaioX[175]=$resgenericaRean->rea_datainicio;//percentual germinacao tabela esquerda
	   	   $vetorRaioX[182]=$resgenericaRean->rea_campo20a;//bandeja esquerda
	   	   $vetorRaioX[200]=$resgenericaRean->rea_operador;//analista
           //DADOS TABELA DIREITA 
	   	   $vetorRaioX[176]=$resgenericaRean->rea_v1;
	   	   $vetorRaioX[177]=$resgenericaRean->rea_v2;
	   	   $vetorRaioX[178]=$resgenericaRean->rea_v3;
	   	   $vetorRaioX[179]=$resgenericaRean->rea_v4;
	   	   $vetorRaioX[180]=$resgenericaRean->rea_v5;//numero de sementes tabela da eDIREITA
	   	   $vetorRaioX[181]=$resgenericaRean->rea_datageralteste;//data plantio
	   	   $vetorRaioX[199]=$resgenericaRean->rea_segunda_leitura;//data
	   	   $vetorRaioX[201]=$resgenericaRean->rea_duracao;//varios assinalamentos
		   $vetorRaioX[223]=$resgenericaRean->rea_finalizada;//vai guardar canteiro ou estufa
		   $vetorRaioX[224]=$resgenericaRean->rea_primeira_leitura_data;//vai guardar ras areia
		   $vetorRaioX[225]=$resgenericaRean->rea_segunda_leitura_data;//vai guardar ras solo
	   	   $vetorRaioX[226]=$resgenericaRean->rea_campo20b;//percentual solos 
	   	   $vetorRaioX[227]=$resgenericaRean->rea_terceira_leitura_analista;//percentual em areia
	   endif;
	   //verificacao de especie e grsu de umidade conjugados
       if($teste=='CONJ'):
           // GRAU DE UMIDADE
	   	   $vetorRaioX[183]=$resgenericaRean->rea_v1;//aparelho
	   	   $vetorRaioX[184]=$resgenericaRean->rea_v2;//grau de umidade
		   //$vetorRaioX[20]=$resgenericaRean->rea_v1;//aparelho
	   	   $vetorRaioX[195]=$resgenericaRean->rea_datageralteste;//data umidade
	   	   $vetorRaioX[196]=$resgenericaRean->rea_operador;//analista de umidade
		   //VERIFICACAO DA ESPECIE X
	   	   $vetorRaioX[185]=$resgenericaRean->rea_lei1;
	   	   $vetorRaioX[186]=$resgenericaRean->rea_lei2;//VERIFICACAO DA ESPECIE
	   	   $vetorRaioX[187]=$resgenericaRean->rea_lei3;
	   	   $vetorRaioX[188]=$resgenericaRean->rea_campo100;
	   	   $vetorRaioX[190]=$resgenericaRean->rea_v3;
	   	   $vetorRaioX[191]=$resgenericaRean->rea_v4;
	   	   $vetorRaioX[197]=$resgenericaRean->rea_validade;//data verificacao
	   	   $vetorRaioX[198]=$resgenericaRean->rea_campo20a;//analista veridicacao
	   endif;

       if($teste=='TZF'):
   	    $vetorRaioX[202]=$resgenericaRean->rea_v1;//VIAVRID BARNBRUG
	    $vetorRaioX[203]=$resgenericaRean->rea_duracao;
	    $vetorRaioX[205]=$resgenericaRean->rea_datageralteste;
		$vetorRaioX[206]=$resgenericaRean->rea_operador;
	    $vetorRaioX[207]=$resgenericaRean->rea_campo60a;
	    $vetorRaioX[208]=$resgenericaRean->rea_campo60b;
	    $vetorRaioX[209]=$resgenericaRean->rea_campo60c;
	    $vetorRaioX[210]=$resgenericaRean->rea_campo100;
		$reanLong=$resgenericaRean->rea_id; 
	    $vetorRaioX[212]=$resgenericaRean->rea_operador;
	   endif;
  
       if($teste=='TZO'):
	    $vetorRaioX[11]=$resgenericaRean->rea_v2;//  viabilidade tzo ajustei em 06052020   porem se for forrageira traz  "FORR"
   	    $vetorRaioX[234]=$resgenericaRean->rea_v1;//vigor   porem se for forrrageria é viabilidade
	    $vetorRaioX[241]=$resgenericaRean->rea_datageralteste;
		$vetorRaioX[242]=$resgenericaRean->rea_operador;
		$vetorRaioX[279]=$resgenericaRean->rea_campo20b;
		$vetorRaioX[290]=$resgenericaRean->rea_primeira_leitura_analista; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[291]=$resgenericaRean->rea_lei1; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[292]=$resgenericaRean->rea_lei2; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[293]=$resgenericaRean->rea_segunda_leitura_analista; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[305]=$resgenericaRean->rea_campo100; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[306]=$resgenericaRean->rea_campo60a; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[307]=$resgenericaRean->rea_campo60b; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[320]=$resgenericaRean->rea_validade; //quem fez o corte nas sementes p/tzo
		
		
	   endif;

	   if($teste=='ELISA'):
	      //resultados
	      $vetorRaioX[316]=$resgenericaRean->rea_v1;//percentual de positivas
	      $vetorRaioX[321]=$resgenericaRean->rea_v2;
	      $vetorRaioX[322]=$resgenericaRean->rea_v3;
	      $vetorRaioX[323]=$resgenericaRean->rea_v4;
	      $vetorRaioX[324]=$resgenericaRean->rea_v5;
		  
		  //numero sementes(90 ou 360))
	      $vetorRaioX[325]=$resgenericaRean->rea_lei1;
	      $vetorRaioX[326]=$resgenericaRean->rea_lei2;
	      $vetorRaioX[327]=$resgenericaRean->rea_lei3;
	      $vetorRaioX[328]=$resgenericaRean->rea_lei4;
	      $vetorRaioX[329]=$resgenericaRean->rea_duracao;

          //operador/data/
	      $vetorRaioX[330]=$resgenericaRean->rea_campo60a;
	      $vetorRaioX[331]=$resgenericaRean->rea_campo60b;
	      $vetorRaioX[332]=$resgenericaRean->rea_campo60c;
	      $vetorRaioX[333]=$resgenericaRean->rea_campo100;
	      $vetorRaioX[334]=$resgenericaRean->rea_campo20a;

       endif;

     

       //testes que puxam so um valou ou poucos valores
	   if($teste=='CLV')$vetorRaioX[17]=$resgenericaRean->rea_v1;
	   if($teste=='TRI')$vetorRaioX[19]=$resgenericaRean->rea_v1;
	   if($teste=='E72')$vetorRaioX[258]=$resgenericaRean->rea_v1;
	   if($teste=='E36')$vetorRaioX[294]=$resgenericaRean->rea_v1;
	   if($teste=='E24')$vetorRaioX[295]=$resgenericaRean->rea_v1;
	   if($teste=='E48')$vetorRaioX[297]=$resgenericaRean->rea_v1;
	   if($teste=='ADVENTICIA'):
	     $vetorRaioX[317]=$resgenericaRean->rea_v1;
	   endif;
	   
	   //if($teste=='E48')echo("achou teste e48<br>");
	   
	   
	   
	   if($teste=='ARE')$vetorRaioX[296]=$resgenericaRean->rea_v1;
       if($teste=='DTU'):
	       $vetorRaioX[20]=$resgenericaRean->rea_v1;//teor de umidade
	   	   $vetorRaioX[236]=$resgenericaRean->rea_datageralteste;//data
	   	   $vetorRaioX[235]=$resgenericaRean->rea_operador;//analista
	   	   $vetorRaioX[252]=$resgenericaRean->rea_v2;//aparelho
	   endif;
        
	   //TESTES SO CAPTURANDO VALOR
	   //echo("868 teste=$teste<br>");
       if($teste=='VLC')$vetorRaioX[256]=$resgenericaRean->rea_v1;////VALOR CULTURAL	
       if($teste=='CLV')$vetorRaioX[228]=$resgenericaRean->rea_v1;//classificacao de vigor
       if($teste=='GQD')$vetorRaioX[229]=$resgenericaRean->rea_v1;
       if($teste=='GBT')$vetorRaioX[230]=$resgenericaRean->rea_v1;
       if($teste=='CAN')$vetorRaioX[231]=$resgenericaRean->rea_v1;
       if($teste=='DME')$vetorRaioX[232]=$resgenericaRean->rea_v1;
       if($teste=='MUP')$vetorRaioX[233]=$resgenericaRean->rea_v1;
       if($teste=='PEN')$vetorRaioX[257]=$resgenericaRean->rea_campo100;////VALOR CULTURAL	
       //$vetorRaioX[256]=`kkk`. $resgenericaRean->rea_v1;
       if($teste=='TOLERANTE'):
	       $vetorRaioX[299]= $resgenericaRean->rea_v1;//TESTE BIO ENSAIO
	       $vetorRaioX[301]= $resgenericaRean->rea_v1;//valor roundup
	       $vetorRaioX[302]= $resgenericaRean->rea_v2;//reteste glifosato
	       $vetorRaioX[303]= $resgenericaRean->rea_v3;//valor glufosinato
		   $vetorRaioX[304]= $resgenericaRean->rea_v4;//valor glufosinato
		   $concatenado=$resgenericaRean->rea_campo60a;//valor glufosinato
           list($a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$c1,$c2,$c3,$c4,$c5,$c6,$c7,$c8,$d1,$d2,$d3,$d4,$d5,$d6,$d7,$d8,$anormais,$mortas,$naoTolerantes)= explode("#", $concatenado);

		   $vetorRaioX[335]= $anormais;//valor glufosinato
		   $vetorRaioX[336]= $mortas;//valor glufosinato
		   $vetorRaioX[337]= $naoTolerantes;//valor glufosinato
	    //   $vetorRaioX[304]= $resgenericaRean->rea_terceira_leitura_data;//data glufosinato roundup
	   endif;   
		//echo("882 teste=$teste<br>");   
       if($teste=='CANTEIRO1E2'):
	       $vetorRaioX[300]= $resgenericaRean->rea_v3 .'/'.$resgenericaRean->rea_v1;
	       $vetorRaioX[309]= $resgenericaRean->rea_v3 ;
	       $vetorRaioX[310]= $resgenericaRean->rea_v1;
	       $vetorRaioX[338]= $resgenericaRean->rea_v4;
	       $vetorRaioX[339]= $resgenericaRean->rea_v2;
	   endif;	   
       if($teste=='CANT'):
	       $vetorRaioX[300]= $resgenericaRean->rea_v3 .'/'.$resgenericaRean->rea_v1;
	       $vetorRaioX[309]= $resgenericaRean->rea_v3 ;
	       $vetorRaioX[310]= $resgenericaRean->rea_v1;
	       $vetorRaioX[338]= $resgenericaRean->rea_v4;
	       $vetorRaioX[339]= $resgenericaRean->rea_v2;
	   endif;	   



    endwhile;


    return $vetorRaioX;
}

function achaApenasIdAmostraTendoRegistro($registro)
{
	$sessao = new sessao();
	$finalidade=$sessao->getVar('finalidade');
	$idLabo=$sessao->getVar('idLabo');
	$anoCorrente=$sessao->getVar('anocorrente');
	$anoAmostra=$anoCorrente;

   //ENTRA DE QUAKQUER MANEIRA
	$userAmostra=new tabelagenerica();
	$userAmostra->tabela="ficha";
	$userAmostra->campos_valores = array(
		   "fic_id" => NULL,
	);
    if($finalidade=='DEFINITIVA'):
        $userAmostra->extras_select =  " where  fic_ano='".$anoAmostra."' && fic_labo='".$idLabo."' &&  fic_amostra=".$registro;
    else:
        $userAmostra->extras_select =  " where  fic_ano='".$anoAmostra."' && fic_labo='".$idLabo."' &&  fic_amostra_previa=".$registro;
    endif;
	$userAmostra->selecionaCampos($userAmostra);
    $amostraLong=0;
	while ($resAmostra= $userAmostra->retornaDados()):
       $amostraLong=$resAmostra->fic_id;
    endwhile;         
	return $amostraLong;
}//fim da function AchaIdAmostraTendoRegistro




function leiturasGerminacaoxxxx($reanLong)
{
		//aqui a bre a tabela leituras e le os registros montando o array v160///////////////////////
		$user = new leituras();
		$user->extras_select =" where  lei_rean=".$reanLong;
        $user->selecionaTudo($user);
        $contador=0;
        //atribui o valor da base para poder obter a diferenca
		for($j=1;$j<=8;$j++):
			$linhaFixa=1;
            $indice=$linhaFixa.$j; 			
			$v160[$indice]=100;
		endfor;
		while ($res = $user->retornaDados()):
		    $contador++;
			$gravado=$res->lei_leitura;
			//if ($contador<5)echo("valor lido=$gravado<br>");
			$linha=substr($gravado,1,2); //exemplo L01C03V7   VALOR É  7 NA COLUNA 3    LINHA 1
			$coluna=substr($gravado,4,2); //IRIA LER 01
			$valorRecuperado=substr($gravado,7);
			$i=1*$linha;
			$j=1*$coluna;
			$linhaFixa=1;
            $indice=$linhaFixa.$j; 			
			$v160[$indice]-=$valorRecuperado;
			$posicao=$i.$j;
			$v160[$posicao]=$valorRecuperado;
			//echo("xxx= $posicao=  valor $valorRecuperado<br>");
        endwhile;
        return $v160;
}

function manipulaRepresentatividade($texto)
{
       //REPRESENTATIVIDADE
		  //$texto=$resgenerica->fic_repre_unid." ";
		   //exemplo 200 sc 40 kg   a=200   b=sc c=40   d=sempre kg
		   $a='';
		   $b='';
		   $c='';
		   $quilos=0;
		   list($rep1, $rep2, $rep3, $rep4) = explode(" ", $texto);
		   //$vetorMegaAmostra[6]=$rep1.$rep2.$rep3.$rep4;
		   $b=$rep2;//unidade
		   if($rep2=='sc'):
		       $a=$rep1;//captura quantidade
		       $c=$rep3;//peso unitario
			   $quilos=$a*$c;       
		   endif;
		   if($rep2=='bag'):
		       $a=$rep1;//captura quantidade
		       $c=$rep3;//peso unitario
			   $quilos=$a*$c;       
		   endif;
		   if($rep2=='t'):
		       $a=$rep1;//captura quantidade
		       $c=1000;//peso unitario
			   $quilos=$a*1000;       
		   endif;
		   if($rep2=='kg'):
		       $a=$rep1;//captura quantidade
		       $c=1;//peso unitario
			   $quilos=$a;       
		   endif;
		   
		   if($rep2=='env' || $rep2=='lata'):
		       $a=$rep1;//captura quantidade
		       $c='-O-';//peso unitario
			   $quilos=0;       
		   endif;
		   if($rep2=='-O-'):
		       $a='-O-';//captura quantidade
		       $c='-O-';//peso unitario
			   $quilos=0;       
		   endif;
		   $vetorMegaAmostra[3]=$a;//quantidade de sacas quantidade de latas etc
		   $vetorMegaAmostra[2]=$b;//unidade (bag,env,quilos, latas etc)
		   $vetorMegaAmostra[4]=$c;//peso unitario 
		   $vetorMegaAmostra[5]=$quilos;//liquido em quilos
		   $d=$rep4; 
		   $vetorMegaAmostra[90]=$a." ".$b."/".$c." ".$d;//liquido em quilos	
	       return $vetorMegaAmostra;
	
	
}//fim da funcao manipula representatividade




public function leiturasGerminacaoBIDI($reanLong)
{
if($reanLong>0):
$rean = new rean1();
//$nomeTeste='GERM';
$rean->extras_select =" where  rea_id=".$reanLong;
$rean->selecionaTudo($rean);
while ($resRean = $rean->retornaDados()):
	$repeticao=$resRean->rea_lei4;
endwhile;
if(substr($repeticao,0,1)=='1')$colunas=16;
if(substr($repeticao,0,1)=='4')$colunas=4;
if(substr($repeticao,0,1)=='8')$colunas=8;
if(substr($repeticao,2,1)=='1')$base=100; //exemplo 4x100
if(substr($repeticao,2,1)=='5')$base=50; //exemplo 8x50 ou 4x50
if(substr($repeticao,3,1)=='2')$base=25; //exemplo 16x25





		$user = new leituras();
		$user->extras_select =" where  lei_rean=".$reanLong;
        $user->selecionaTudo($user);
        $contador=0;
		while ($res = $user->retornaDados()):
		    //$contador++;
			$gravado=$res->lei_leitura;
			//if ($contador<5)echo("valor lido=$gravado<br>");
			$linha=substr($gravado,1,2); //exemplo L01C03V7   VALOR É  7 NA COLUNA 3    LINHA 1
			$coluna=substr($gravado,4,2); //IRIA LER 01
			$valorRecuperado=substr($gravado,7);
			$i=1*$linha;
			$j=1*$coluna;
			//$v160BIDI[$indice]=$i.'*'.$j.'*'.$gravado.'*';
			$v160BIDI[$i][$j]=$valorRecuperado;
			$pic=$v160BIDI[$i][$j];
			//if($i==1) echo("i=$i  j=$j valorRecuperado=$pic   colunas=$colunas<br>");
        endwhile;

        //agora vai trabalhar so na grade
		//soma as colunas a partir da linha5 5
		for($colu=1;$colu<=$colunas;$colu++):
		    $soma=0;
			//comeca na 5 pois nao me interessa a parte de normais
     		for($linha=5;$linha<=20;$linha++):
              if($linha!=11) $soma+=$v160BIDI[$linha][$colu];	//por caus aque pode ser codigo 11 da linha 11 da linha 1	     
            endfor;
 
        endfor;
        
        //FAZ AS SOMAS PARA DESEPEJAR O TOTAL NAS FICHAS VIRTUAIS		
        //aqui as normais  linha 25
//primeiro zera tudo
	  for($colu=1;$colu<=$colunas;$colu++):
		  $v160BIDI[25][$colu]=0;  //atribui normais
		  $v160BIDI[26][$colu]=0;  //atribui aMORTAS
		  $v160BIDI[27][$colu]=0;  //atribui infec
      endfor;



		
	if($colunas<16):
		for($colu=1;$colu<=$colunas;$colu++):
     	  for($linha=0;$linha<=20;$linha++):
            if($colunas==8):
	            if($linha<5):
				   $v160BIDI[25][$colu]+=$v160BIDI[$linha-1][$colu];  //atribui NORMAIS(perfeito))
				   //$v160BIDI[25][$colu]-=$colunas;  //atribui NORMAISS
				endif;
            endif;
            if($colunas==4):
	            if($linha<5):
				   $somando=$v160BIDI[$linha-1][$colu];
				   //if($linha==2)$somando=(0)*$v160BIDI[$linha-1][$colu];
				   if($linha==1)$somando=(0)*$v160BIDI[$linha-1][$colu];
				   $v160BIDI[25][$colu]+=$somando;  //atribui NORMAISS
				   //$v160BIDI[25][$colu]-=$colunas;  //atribui NORMAISS
				endif;
            endif;

            //deFormadas  
            if($linha>=5 && $linha<=8):
			   $v160BIDI[26][$colu]+=$v160BIDI[$linha][$colu];  //atribui DEFORMADASA
			endif;
            //INFECIONADAS  
            if($linha>=9 && $linha<=12 && $linha!=11):
			   $v160BIDI[27][$colu]+=$v160BIDI[$linha][$colu];  //INFECIONADAS
			endif;
            //DURAS  
            if($linha==14):
			   $v160BIDI[28][$colu]+=$v160BIDI[$linha][$colu];  //DURAS
			endif;
            //ORMENTES  
            if($linha==15):
			   $v160BIDI[29][$colu]+=$v160BIDI[$linha][$colu];  //DORMENTES
			endif;
            //MORTAS  
            if($linha==13):
			   $v160BIDI[30][$colu]+=$v160BIDI[$linha][$colu];  //atribui MORTAS
			   
			   
			   
			endif;
          endfor;//fecha for linha
        endfor;//fecha for coluna
		
		

      else://se for 16 colunas
	        //fiz somar direo no relatorio
            //INFECIONADAS  
            if($i==9):
			  // $v160BIDI[27][$j]+=$v160BIDI[$linha][$colu];  //INFECIONADAS
			endif;
      endif;

      //aqu faz um ajuste caso a soma de normais anosmais e infecionadas der zero nao precisa aparece nada
 	  for($colu=1;$colu<=$colunas;$colu++):
		  //if($v160BIDI[25][$colu]==0)$v160BIDI[25][$colu]="-";  //atribui normais
		  //if($v160BIDI[26][$colu]==0)$v160BIDI[26][$colu]="-";  //atribui deformadas
	  	  //if($v160BIDI[27][$colu]==0)$v160BIDI[27][$colu]="-";  //atribui infecionadas
      endfor;


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

	  
	  
	  $v160BIDI[24][1]=$repeticao;
	  $v160BIDI[24][2]=$colunas;
	  $v160BIDI[24][3]=$base;
	  
      return $v160BIDI;
	  
	  
	  
}






function padrao2016($amostraLong)
{
$sessao = new sessao(); 
$cliente=$sessao->getVar('cliente');
$idLabo=$sessao->getVar('idLabo');
/*aqui existem varias possibilidades(citar todos casos ISSO É DOCUMENTACAO DE SOFTWARE)
1-nao ter padrao para a especie. Pode acontecer para alguma especie zinia, etc
neste caso o padrao sera - e nao pode comparar
2-
EU QUERO MANDAR A ID DA FICHA E  O SISTEMA VAI CRAIR UM BINARIO PRONTO PARA IMPRIMIR O DEAS 
E TAMBEM PARA MOSTRAR SE A AMOSTRA ESTA DENTRO DO PADRAO.
*/
//primeira coisa que vou fazer é capturar as determinacoes mapeadas pois
//se for  infestadas ele avalia por biaxo e as demais avalia por cima 
//exemplo se na amostra tem 5 e o padrao é 4 reprova , na germnacao é o contrario se tem 85 e o padrao é 80 nao reprova
//vou ter que pegar a especie e as determinacoes
//primeira coisa, capturar a id da especie
/*
//ENTRA DE QUAKQUER MANEIRA
$generica=new tabelagenerica();//esta pega lista de especies
$generica->tabela="especies,cultivar, ficha";
$generica->campos_valores = array(
		"esp_nome" => NULL,
		"esp_id" => NULL,
	);
$generica->extras_select =" where fic_cultivar=ctv_id and ctv_especie=esp_id and  fic_id=".$amostraLong;
$generica->selecionaCampos($generica);
$idEspecie=0;
while ($resgenerica = $generica->retornaDados()):
    $idEspecie=$resgenerica->esp_id;
    $nomeEspecie=$resgenerica->esp_nome;
endwhile;  

//##########vai achar as dets que ja estao vinculadas a especie///////////
$generica1=new tabelagenerica();//esta pegha as det da especie que ja tem det
$detNumero1="-x-";  
$detNumero2="-x-";  
$detNumero3="-x-";  
$detNumero4="-x-";  
$generica1->tabela="deteboletim";
$generica1->campos_valores = array(
"dbo_sigla_dete1" => NULL,
"dbo_sigla_dete2" => NULL,
"dbo_sigla_dete3" => NULL,
"dbo_sigla_dete4" => NULL,
);
$generica1->extras_select =" where dbo_lab=".$idLabo." and  dbo_especie=".$idEspecie;
//echo $generica1->extras_select . $nivel;
$generica1->selecionaCampos($generica1);
while ($resgenerica1 = $generica1->retornaDados()):
   $detNumero1=$resgenerica1->dbo_sigla_dete1;
   $detNumero2=$resgenerica1->dbo_sigla_dete2;
   $detNumero3=$resgenerica1->dbo_sigla_dete3;
   $detNumero4=$resgenerica1->dbo_sigla_dete4;
endwhile;

echo (" $nomeEspecie  id=$idEspecie 1ªdet=$detNumero1 2ªdet=$detNumero2  3ªdet=$detNumero3  4ªdet=$detNumero4<br>");
*/
/////////////////////////////////////////////////////////////////////////////////////////////////////




 //aqui vou capturar dados da ficha
   	$genericaAmostra=new tabelagenerica();
	$genericaAmostra->tabela="ficha";
	$genericaAmostra->campos_valores = array(
		   "fic_amostra" => NULL,
		   "fic_outrascultivares" => NULL,
		   "fic_procedencia" => NULL,
	);
	$genericaAmostra->extras_select =" where fic_id=".$amostraLong;
	$genericaAmostra->selecionaCampos($genericaAmostra);
	$registro=0;
	$procedenciaa="-O-";
    while($resgenericaAmostra=$genericaAmostra->retornaDados()):
       $registro= $resgenericaAmostra->fic_amostra;
       $outrasCultivares= $resgenericaAmostra->fic_outrascultivares;
       $procedencia= $resgenericaAmostra->fic_procedencia ."/";
    endwhile;
    if($cliente=='QUALITESTE'):
      list($inutil,$ufQualiteste)=explode("/",$procedencia);
	  //list($p1,$p2,$p3,$p4,$p5,$p6,$p7,$p8,$p9,$p10,$p11,$p12,$p13,$p14,$p15) = explode("]", $binario);
	endif;     

//aqui vou capturar tudo da REAN1
$genericaRean=new tabelagenerica();
	$genericaRean->tabela="rean1";
	$genericaRean->campos_valores = array(
		   "rea_teste" => NULL,
		   "rea_v1" => NULL,
		   "rea_v2" => NULL,
		   "rea_boletim" => NULL,
	);
	$genericaRean->extras_select =" where rea_boletim='S' and rea_ficha=".$amostraLong;
	$genericaRean->selecionaCampos($genericaRean);
    while($resgenericaRean= $genericaRean->retornaDados()):
       $teste= $resgenericaRean->rea_teste;
       if($teste=='TZO')$vetorRaioX[11]=$resgenericaRean->rea_v1;
       if($teste=='EAC')$vetorRaioX[12]=$resgenericaRean->rea_v1;
       if($teste=='PMS')$vetorRaioX[13]=$resgenericaRean->rea_v1;
       if($teste=='GERM'):
	       $vetorRaioX[14]=$resgenericaRean->rea_v1;
	   endif; 	    
       if($teste=='PURE')$vetorRaioX[15]=$resgenericaRean->rea_v1;
       if($teste=='INF')$vetorRaioX[18]=$resgenericaRean->rea_v1;
       if($teste=='BVI')$vetorRaioX[19]=$resgenericaRean->rea_v1;
	   //echo "xxxxxxxxx<br>";
	   
    endwhile;

//captura os padroes DE GERMINACAO PUREZA OUTRAS CULTIVARES 
$padraoGer="-";//para nao reprovar caso nao encontre o padrao
$padraoPur="-";//para nao reprovar caso nao encontre o padrao
$padraoCTV="-";//para nao reprovar caso nao encontre o padrao
$padraoOE="-";//para nao reprovar caso nao encontre o padrao
$padraoSI="-";//para nao reprovar caso nao encontre o padrao
$padraoNT="-";//para nao reprovar caso nao encontre o padrao
$padraoDet1="-";//para nao reprovar caso nao encontre o padrao


$userAmostra=new tabelagenerica();
$userAmostra->tabela="padraonacional,ficha,cultivar";
$userAmostra->campos_valores = array(
	   "pna_germinacao" => NULL,
	   "pna_pureza" => NULL,
	   "pna_cultivares" => NULL,
	   "pna_tolerada" => NULL,
	   "pna_outras_espe" => NULL,
	   "pna_silvestres" => NULL,
	   "pna_det1" => NULL,
	   "pna_det2" => NULL,
	   "pna_det3" => NULL,
	   "pna_det4" => NULL,

	   "pna_cod_especie" => NULL,
);
$userAmostra->extras_select =  " where   pna_categoria=fic_categoria && pna_cod_especie=ctv_especie && fic_cultivar=ctv_id && fic_id=".$amostraLong;
$userAmostra->selecionaCampos($userAmostra);
$temPadrao="NAO";

while ($resAmostra= $userAmostra->retornaDados()):
   $padraoGer=$resAmostra->pna_germinacao;
   $padraoPur=$resAmostra->pna_pureza;
   $padraoCTV=$resAmostra->pna_cultivares;
   $padraoOE=$resAmostra->pna_outras_espe;
   $padraoSI=$resAmostra->pna_silvestres;
   $padraoNT=$resAmostra->pna_tolerada;
   //CAPTURA OS PADOES DE POSICOES FIXAS PERMANENTES PARA TODAS ESPECIES
   $padraoINF=$resAmostra->pna_det1;
   $padraoVC=$resAmostra->pna_det2;
   $padraoTZ=$resAmostra->pna_det3;
   $padraoBVI=$resAmostra->pna_det4;
   $codEspecie=$resAmostra->pna_cod_especie;
   $temPadrao="SIM";
endwhile;         
//echo $userAmostra->extras_select   ."  padraooe=". $padraoOE ."    hhhh  "; 




//CASO NAO TENHA ACHADO O PADRAO O VALOR VEM -(TRACO) E 
//SE ACHAR E TE TRACO ELE COLOCA UM VALOR QUE NAO REPROVA
if($padraoGer=='-')$padraoGer="0";//para nao reprovar caso nao encontre o padrao
if($padraoPur=='-')$padraoPur="0";//para nao reprovar caso nao encontre o padrao
if($padraoCTV=='-')$padraoCTV="1000";//para nao reprovar caso nao encontre o padrao
if($padraoOE=='-')$padraoOE="1000";//para nao reprovar caso nao encontre o padrao
if($padraoSI=='-')$padraoSI="1000";//para nao reprovar caso nao encontre o padrao
if($padraoNT=='-')$padraoNT="1000";//para nao reprovar caso nao encontre o padrao
//aqui joga todos os padroes para zero no caso de nao terem sido digitados
$guardaPadraoINF=$padraoINF;
$guardaPadraoVC=$padraoVC;
$guardaPadraoTZ=$padraoTZ;
$guardaPadraoBVI=$padraoBVI;


if($padraoINF=='-')$padraoINF="1000";//para nao reprovar caso nao encontre o padrao NO CASO AQUI É SI ENTAO SE FOR 
if($padraoVC=='-')$padraoVC="0";//para nao reprovar caso nao encontre o padrao
if($padraoTZ=='-')$padraoTZ="0";//para nao reprovar caso nao encontre o padrao
if($padraoBVI=='-')$padraoBVI="1000";//para nao reprovar caso nao encontre o padrao
//aqui tem uma siuacao especial para sementes infestadas que o valor aprovado fica abaixo do valor padrao limite
//e eu nao sei a priori qual determinacao foi mapeada entao devo redefinir estes padroes
//SEMENTES INFESTADAS E BVI  APROVA POR BAIXO POR ISSO JOGA O PADRAO PRA CIMA
//isso aqui depende do mapeamento que foi feito para esta especie

//echo("$padraoGer rrrrrrrrrrrrregistro=$registro   codEspecie  $codEspecie<br>");

//AQUI CAPTURA A QUANTIDADE PARA CADA CODIGO
	 $generica=new tabelagenerica();
     $generica->tabela="invasoras";
	 $generica->campos_valores = array(
			"inv_qtd" => NULL,
			"inv_codigo" => NULL,
		);
     $generica->extras_select =" where  inv_amostra=".$amostraLong;
     $generica->selecionaCampos($generica);
     $somaOE=0;
	 $somaSI=0;
     $somaNT=0;
	 $somaNP=0;
     while ($resgenerica = $generica->retornaDados()):
	    if($resgenerica->inv_codigo=="1OES")$somaOE+=$resgenerica->inv_qtd;
	    if($resgenerica->inv_codigo=="2SIL")$somaSI+=$resgenerica->inv_qtd;
	    if($resgenerica->inv_codigo=="3NOT")$somaNT+=$resgenerica->inv_qtd;
	    if($resgenerica->inv_codigo=="4NOP")$somaNP+=$resgenerica->inv_qtd;
	 endwhile;
	 
	 
	 //echo("somato=$somaNT <br>");

//VAI COMECAR AS COMPARACOES E PRIMEIRO ZERA Os futuros membros do BINARIO
for($b=1;$b<=20;$b++):
  $vetorFinal[$b]="0";
endfor;
//vai comparar com os padroes**************************************************
//examina germinacao nas 3 faixas abaixo do padrao abaixo de 90 e acima de 90


$statusGerminacao="Não reprovado";	
if($vetorRaioX[14]<$padraoGer &&  $vetorRaioX[14]>0):
     $vetorFinal[1]="1";
	 $statusGerminacao="Reprovado";	
 else:
     //pergunta se o numero for menos que 90 entao coloca 1 na posicao 2
     if($vetorRaioX[14]<=90):
	   $vetorFinal[2]="1";
	 endif; 
     //pergunta se nao foi informado entao coloca 0 na posicao 2
     if($vetorRaioX[14]=='-N-'):
	   $vetorFinal[2]="0";
	 endif; 
	 
	  
     if($vetorRaioX[14]>90):
	   $vetorFinal[3]="1";
	 endif;  
endif;

//compara purezas	
$statusPureza="Não reprovado";		 
if($vetorRaioX[15]<$padraoPur  && $vetorRaioX[15]>0):
     $vetorFinal[4]="1";
     $statusPureza="Reprovado";	 
endif;	 

//compara outras cultivares	 REPROVA SE FOR MAIOR QUE O PADRAO
$statusCTV="Não reprovado";		 
if($outrasCultivares>$padraoCTV  && $outrasCultivares>0):
     $vetorFinal[5]="1";
     $statusCTV="Reprovado";	 
endif;	 




//compara oesp	REPROVA SE FOR MAIOR QUE O PADRAO
$statusOE="Não reprovado";		 
if($somaOE>$padraoOE  && $somaOE>0):
     $vetorFinal[6]="1";
     $statusOE="Reprovado";	 
endif;	 
//compara SILV	REPROVA SE FOR MAIOR QUE O PADRAO
$statusSI="Não reprovado";		 
if($somaSI>$padraoSI  && $somaSI>0):
     $vetorFinal[7]="1";
     $statusSI="Reprovado";	 
endif;	 

//compara NOCIVA TOLERADA	REPROVA SE FOR MAIOR QUE O PADRAO
$statusNT="Não reprovado";		 
if($somaNT>$padraoNT  && $somaNT>0):
     $vetorFinal[8]="1";
     $statusNT="Reprovado";	 
endif;	 

//compara NOCIVA PROIBIDA	REPROVA SE FOR MAIOR QUE O PADRAO
$statusNP="Não reprovado";		 
if($somaNP>0):
     $vetorFinal[9]="1";
     $statusNP="Reprovado";	 
endif;	 

//aqui as outras determinacoes que podem estar em qualquer posicao
//Sementes infestadas
$statusInfestada="Não reprovado";		 
$vetorFinal[10]="0";
$valorInfestadas=$atglido=str_replace(",",".",$vetorRaioX[18]);
if($valorInfestadas>$padraoINF  && $valorInfestadas>0):
     $vetorFinal[10]="1";
     $statusInfestadas="Reprovado";	 
endif;	 

//valor cultural
$VC=0;
//calcula o vc
if($vetorRaioX[14]>0  && $vetorRaioX[15]>0):
   $VC=$vetorRaioX[14]*$vetorRaioX[15]/100;
endif;
$statusVC="Não reprovado";		 
$vetorFinal[11]="0";
if($VC<$padraoVC  && $VC>0):
     $vetorFinal[11]="1";
     $statusVC="Reprovado";	 
endif;	 

//calcula tzo
$statusTZO="Não reprovado";		
$vetorFinal[12]="0";
$TZO=$vetorRaioX[11]; 
if($TZO<$padraoTZ  && $TZO>0):
     $vetorFinal[12]="1";
     $statusTZO="Reprovado";	 
endif;	 

//criei BV broca viva no cafe det4 para qualiteste dia 18/05/20
$statusBrocaViva="Não reprovado";
$BVI=$vetorRaioX[19];
$vetorFinal[13]="0";
if($BVI>$padraoBVI  && $BVI>0):
     $vetorFinal[13]="1";
     $statusBrocaViva="Reprovado";	 
endif;	 

//CRIA O BINARIO
$binario="";
for($b=1;$b<=20;$b++):
  $binario=$binario.$vetorFinal[$b]; 
endfor;

//aqui acabou de gerar o binario e ja vai salvar
//nao tirar esta gambarra  Y daqui
//na qualliteste usam colocar a procedencia UF no campo procedencia/us exemplo UBERTLANDI/MG
//ENTAO NESTE CASO DA QUALITESTE VOU PEGAR A UF E COLOCAR NO CAMPO FIC_RECIPIENTE2 QUE SO É USADO NO BAREN E ESTE NUNCA VAI USAR ISSO
if($cliente=="QUALITESTE"):
	$user = new amostras(array(
	    'fic_binario'=>substr($binario,0,19).'Y',
	    'fic_recipiente2'=>trim($ufQualiteste),
	));
else:
	$user = new amostras(array(
	    'fic_binario'=>substr($binario,0,19).'Y',
	));
endif;




$user->valorpk = $amostraLong;
$user->atualizar($user);
//quero ja capturar o que salvou
////////////////////////////////////
$userAmostra=new tabelagenerica();
$userAmostra->tabela="ficha";
$userAmostra->campos_valores = array(
	   "fic_binario" => NULL,
);
//aqui recupera o valor para conferir
$userAmostra->extras_select =  " where  fic_id=".$amostraLong;
$userAmostra->selecionaCampos($userAmostra);
while ($resAmostra= $userAmostra->retornaDados()):
   $bs=$resAmostra->fic_binario;
endwhile; 
////////////////////////////////////	

echo('Nº amostra='.$registro. ' Os valores a seguir mostram a transparência dos calculos de avaliação desta amostra<br>');
echo("PUREZA:    Análise=$vetorRaioX[15] Padrão= $padraoPur   Status= $vetorFinal[4].$statusPureza<br>");
echo("GERMINACAO: Análise=$vetorRaioX[14] Padrão= $padraoGer   Status= $vetorFinal[1].$vetorFinal[2].$vetorFinal[3].$statusGerminacao <br>");
echo("Outras Cultivares: Análise=$outrasCultivares Padrão= $padraoCTV   Status= $vetorFinal[5].$statusCTV <br>");
echo("Outras Especies: Análise=$somaOE   Padrão= $padraoOE   Status= $vetorFinal[6].$statusOE <br>");
echo("Silvestres: Análise=$somaSI   Padrão= $padraoSI   Status= $vetorFinal[7].$statusSI <br>");
echo("Nocivas Toleradas: Análise=$somaNT   Padrão= $padraoNT   Status= $vetorFinal[8].$statusNT <br>");
echo("Nocivas Proibidas: Análise=$somaNP   Padrão= $padraoNP   Status= $vetorFinal[9].$statusNP  <br>");
echo("INF(Infestadas): Análise=$vetorRaioX[18]   Padrão= $padraoINF   Status= $vetorFinal[10].$statusInf  <br>");
echo("VC: Análise=$VC   Padrão= $padraoVC   Status= $vetorFinal[11]. <br>");
echo("TZO: Análise=$TZO   Padrão= $padraoTZ   Status= $vetorFinal[12]  <br>");
echo("BVI: Análise=$BVI   Padrão= $padraoBVI   Status= $vetorFinal[13] Binario salvado=$bs  <br>");
//echo("Atenção:  Se os padrões que voce implantou estão corretos então nao precisa mais mandar calcular padrões a partir de 28/02/2019 <br>");
echo("========================================================<br>");

//aqui ja vai orinto para salvar na amostra na tela paineladm/avaliarAmostra.php
return $binario;
}//fim da funcao pasdrao2016


function padrao2016_GERMINACAO_G1_G2($amostraLong)
{
/*Aqui vou avaliar apenas GERM E GE2 
Aaqui existem varias possibilidades(citar todos casos ISSO É DOCUMENTACAO DE SOFTWARE)
1-nao ter padrao para a especie. Pode acontecer para alguma especie zinia, etc
neste caso o padrao sera - e nao pode comparar
*/
//VAI COMECAR AS COMPARACOES E PRIMEIRO ZERA O BINARIO
for($b=1;$b<=20;$b++):
  $vetorFinal[$b]="-";
endfor;
$binario='--';//caso ele nao criar o binario entao ele ja vem anulado

//captura os padroes DE GERMINACAO PUREZA OUTRAS CULTIVARES 
$padraoGer="-";//para nao reprovar caso nao encontre o padrao
$userAmostra=new tabelagenerica();
$userAmostra->tabela="padraonacional,ficha,cultivar";
$userAmostra->campos_valores = array(
	   "pna_germinacao" => NULL,
);
$userAmostra->extras_select =  " where   pna_categoria=fic_categoria && pna_cod_especie=ctv_especie && fic_cultivar=ctv_id && fic_id=".$amostraLong;
$userAmostra->selecionaCampos($userAmostra);
$temPadrao="NAO";
$padraoGer="0";
while ($resAmostra= $userAmostra->retornaDados()):
   $padraoGer=$resAmostra->pna_germinacao;
   $temPadrao="SIM";
endwhile;         
//CASO NAO TENHA ACHADO O PADRAO O VALOR VEM -(TRACO) E 
//SE ACHAR E TE TRACO ELE COLOCA UM VALOR QUE NAO REPROVA
//if($padraoGer=='-')$padraoGer="0";//para nao reprovar caso nao encontre o padrao

//se o padrao nao existe ou se esta zerado nem vai pegar os valore de rean
if($padraoGer>0):
	//aqui VAI capturar G1 da REAN1
	$genericaRean=new tabelagenerica();
	$genericaRean->tabela="rean1";
	$genericaRean->campos_valores = array(
		   "rea_v1" => NULL,
	);
	$genericaRean->extras_select =" where rea_teste='GERM' AND rea_ficha=".$amostraLong;
	$genericaRean->selecionaCampos($genericaRean);
	$germinacaoFinalG1="";
	while($resgenericaRean= $genericaRean->retornaDados()):
	   $germinacaoFinalG1=$resgenericaRean->rea_v1;
	endwhile;

	//aqui VAI capturar G2 da REAN1
	$genericaRean=new tabelagenerica();
	$genericaRean->tabela="rean1";
	$genericaRean->campos_valores = array(
		   "rea_v1" => NULL,
	);
	$genericaRean->extras_select =" where rea_teste='GE2' AND rea_ficha=".$amostraLong;
	$genericaRean->selecionaCampos($genericaRean);
	$germinacaoFinalG2="";
	while($resgenericaRean= $genericaRean->retornaDados()):
	   $germinacaoFinalG2=$resgenericaRean->rea_v1;
	endwhile;
	//echo("$padraoGer rrrrrrrrrrrrregistro=$registro<br>");
	 //echo("somato=$somaNT <br>");
	//vai comparar com os padroes**************************************************
	//examina germinacao nas 3 faixas abaixo do padrao abaixo de 90 e acima de 90
	$padraoGerNumero=1*$padraoGer;
	$gfg1=1*$germinacaoFinalG1;
	$gfg2=1*$germinacaoFinalG2;
    //germinacao g1
    //se esta abaixo do padrao e se esta acima de zero
	if($gfg1<$padraoGerNumero &&  $gfg1>0):
	   $vetorFinal[1]="1";//se reprovar G1,o primeiro elemento do binario sera 1 
	endif;
    //se esta igual ou acma do padrao
	if($gfg1>=$padraoGerNumero):
	   $vetorFinal[1]="0";//se reprovar G1,o primeiro elemento do binario sera 1 
	endif;

    //germinacao g2
    //se esta abaixo do padrao e se esta acima de zero
	if($gfg2<$padraoGerNumero &&  $gfg2>0):
	   $vetorFinal[2]="1";//se reprovar G2,o  segundo elemento do binario sera 1 
	endif;
    //se esta igual ou acma do padrao
	if($gfg2>=$padraoGerNumero):
	   $vetorFinal[2]="0";//se reprovar G1,o primeiro elemento do binario sera 1 
	endif;

	//CRIA O BINARIO
	$binario="";
	for($b=1;$b<=20;$b++):
	  $binario=$binario.$vetorFinal[$b]; 
	endfor;
endif;//testa se tem padrao acima de zsro para reprovar se for o caso 
$vf1=$vetorFinal[1];
$vf2=$vetorFinal[2];
//echo("binario $binario     padraoGerNumero=$padraoGerNumero  gfg1=$gfg1  gfg2=$gfg2   vetorFinal[1]=$vf1  vetorFinal[2]=$vf2<br>");




return $binario;
}//fim da funcao AVALIA GERMINACAO APENAS

function pesosAjustaCasasDecimais($pesoTrazido)
{
    $casas=4;
	if($pesoTrazido>0)://so trabalha se for um numero acima de zero...
	   if($pesoTrazido>=1)$casas=3;
	   if($pesoTrazido>=10)$casas=2;
	   if($pesoTrazido>=100)$casas=1;
	   if($pesoTrazido>=1000)$casas=0;
       $pesoDevolvido=number_format($pesoTrazido,$casas,'.','');//peso nocivas
    else:
	   $pesoDevolvido=$pesoTrazido;
	endif;
	
    /*
	if($pesoTrazido>0)://so trabalha se for um numero acima de zero...
       $casas=4;
	   if($pesoTrazido>=1)$casas=3;
	   if($pesoTrazido>=10)$casas=2;
	   if($pesoTrazido>=100)$casas=1;
	   if($pesoTrazido>=1000)$casas=0;
      
	   //tem que ver se o numero de casas informadas ja nao é maior que a variavel casas, neste caso mantem o que tem la
       $tamanhoDoInteiro=strlen(intval($pesoTrazido));  // exemplo 14.345  tamano do inteiro =2  tamanho total=5   caas encontrada=5-2-1(este 1 é para abater o ponto)
	   $tamanhoTotal=strlen($pesoTrazido);
	   $casasEncontradas=$tamanhoTotal-$tamanhoDoInteiro-1;
       if($casasEncontradas<$casas):	   
           $pesoDevolvido=number_format($pesoTrazido,$casas,'.','');//peso nocivas
	   else:	   
	       $pesoDevolvido=$pesoTrazido;
       endif;
	  
	else://se ele nao troux peso, como por exemplo -O- ele nao converte nada   
       $pesoDevolvido=$pesoTrazido;
	endif; 
	*/
	  
    return $pesoDevolvido;
}

/*
function capturaGeralRaioXLimaXXX($amostraLong)
{
   //COLOCA -N- EM TODOS OS LOCAIS 
    for($locais=1;$locais<=251;$locais++):
	   $vetorRaioX[$locais]='-N-';
	endfor;
	
	
	
    $sessao = new sessao(); 
	$idLabo=$sessao->getVar('idLabo');
	$cliente=strtoupper($sessao->getVar('cliente' ) ?? "");
	//captura os dados intrisecos da amostra
   /*


   $user = new amostras();
   $user->valorpk = $fic_id;
   $user->extras_select = "WHERE fic_id=$amostraLong";
   $user->selecionaTudo($user);
   $res = $user->retornaDados();//aqui monta a tela de edição
   //aqui tem uma situacao especial
   //se existe amaostra definitiva ele nao pega o protocolo de previa
   //portanto se so tiver previa ele leva o numero da previa mesmo e coloca AP
   $previa=$res->fic_amostra_previa;
   $definitiva=$res->fic_amostra;
   $vetorRaioX[1]=$definitiva;
   $vetorRaioX[2]=$previa;
   if($definitiva>0):
       $vetorRaioX[10]=$definitiva;//.date("/y",strtotime($res->fic_dt_entrada));
   else:
       $vetorRaioX[10]=$previa.'p';//.date("/y",strtotime($res->fic_dt_entrada));
   endif;
   $vetorRaioX[8]=date("d/m/y",strtotime($res->fic_dt_entrada));
   $vetorRaioX[9]=$res->fic_lote;
   */
   //$sqlSeletor="select fic_id from cultivar,ficha,remetente,especies where   fic_labo=".$idLabo."  AND  prd_id=fic_produtor AND  ctv_id=fic_cultivar AND  ctv_especie=esp_id and ".$pedacoAno.$pedacos." order by fic_amostra";	   
	//ENTRA DE QUAKQUER MANEIRA
	
	/*
	$genericaFicha=new tabelagenerica();
	$genericaFicha->tabela=" ficha left join cultivar on  ctv_id=fic_cultivar
	left join remetente on prd_id=fic_produtor
	left join especies on   ctv_especie = esp_id
	left join amostrador on  amt_id=fic_amostrador";
	
	$genericaFicha->campos_valores = array(
		   "fic_id" => NULL,
		   "fic_lote" => NULL,
		   "fic_validade" => NULL,
		   "fic_status_pago" => NULL,
		   "fic_custo" => NULL,
		   "fic_status_finalizada" => NULL,
		   "fic_safra" => NULL,
		   "fic_beneficiada" => NULL,
		   "fic_analise_reanalise" => NULL,
		   "fic_repre_unid" => NULL,
		   "fic_binario" => NULL,
		   "fic_amostra" => NULL,
		   "fic_amostra_previa" => NULL,
		   "fic_dt_entrada" => NULL,
		   "fic_dt_protocolo" => NULL,
		   "fic_registrador" => NULL,
		   "fic_dt_amostragem" => NULL,
		   "fic_categoria" => NULL,
		   "fic_funcao" => NULL,
		   "fic_peneira" => NULL,
		   "fic_procedencia" => NULL,
		   "fic_tratamento" => NULL,
		   "fic_aparelho" => NULL,
		   "fic_balanca" => NULL,
		   "fic_observacao" => NULL,
		   "fic_obs2015_a" => NULL,
		   "fic_pesodet_nocivas" => NULL,
		   "fic_pesodet_dosn" => NULL,
		   "fic_pesodet_octv" => NULL,
		   "fic_complemento" => NULL,
		   "fic_campo_string" => NULL,
		   "fic_preparo_pureza" => NULL,
		   "fic_preparo_complemento" => NULL,
		   "fic_preparo_analista" => NULL,
		   "fic_preparo_data" => NULL,
		   "fic_preparo_dosn" => NULL,
		   "fic_recipiente1" => NULL,
		   "fic_recipiente2" => NULL,
		   "fic_aparelho_umidade" => NULL,
		   "fic_grau_umidade" => NULL,
		   "fic_data_umidade" => NULL,
		   "fic_operador_contaminante" => NULL,
		   "fic_data_contaminante" => NULL,
		   "fic_definitiva" => NULL,
		   "fic_previsao" => NULL,
		   "fic_outrascultivares" => NULL,

		   "esp_nome" => NULL,
		   "esp_nome_cientifico" => NULL,
		   "esp_id" => NULL,
		   "esp_min_pureza" => NULL,
		   "prd_nome" => NULL,
		   "prd_id" => NULL,
		   "amt_nome" => NULL,
		   "amt_renasem" => NULL,
		   "prd_apelido" => NULL,
		   "prd_renasem" => NULL,
		   "prd_uf" => NULL,
		   "prd_municipio" => NULL,
		   "ctv_nome" => NULL,
		   
           );
	   $genericaFicha->extras_select =" where fic_id =".$amostraLong;
 
	$genericaFicha->selecionaCampos($genericaFicha);
	

	
	$resgenericaFicha= $genericaFicha->retornaDados();
	
   //aqui tem uma situacao especial
   //se existe amaostra definitiva ele nao pega o protocolo de previa
   //portanto se so tiver previa ele leva o numero da previa mesmo e coloca AP

   $previa=$resgenericaFicha->fic_amostra_previa;
   $definitiva=$resgenericaFicha->fic_amostra;
   $vetorRaioX[1]=$definitiva;
   $vetorRaioX[2]=$previa;
   if($definitiva>0):
       $vetorRaioX[10]=$definitiva;
       $vetorRaioX[119]=$definitiva;
       $vetorRaioX[120]=date("/Y",strtotime($resgenericaFicha->fic_dt_entrada)).'-AD';//
   else:
       $vetorRaioX[10]=$previa.'p';
       if($cliente=='BAREN')$vetorRaioX[10]=$previa;
	   $vetorRaioX[119]=$previa;
       $vetorRaioX[120]=date("/Y",strtotime($resgenericaFicha->fic_dt_entrada)).'-AP';//.;
   endif;
   $vetorRaioX[263]=$resgenericaFicha->fic_dt_protocolo;//
   $vetorRaioX[222]=$resgenericaFicha->fic_definitiva;//
   $vetorRaioX[152]=$resgenericaFicha->fic_dt_amostragem;//
   $vetorRaioX[8]=date("d/m/Y",strtotime($resgenericaFicha->fic_dt_entrada));
   $vetorRaioX[240]=$resgenericaFicha->fic_registrador;
   $vetorRaioX[9]  =$resgenericaFicha->fic_lote;
   //$vetorRaioX[311]=$resgenericaFicha->fic_validade;
   
   $vetorRaioX[311]=$resgenericaFicha->fic_validade;
   $vetorRaioX[287]=$resgenericaFicha->fic_status_pago;
   $vetorRaioX[288]=$resgenericaFicha->fic_custo;
   $vetorRaioX[289]=$resgenericaFicha->fic_status_finalizada;
   $vetorRaioX[48]=$resgenericaFicha->fic_safra;
   $vetorRaioX[246]=$resgenericaFicha->fic_binario;//pega a avaliacao das amostras deas etc
   $vetorRaioX[118]=$resgenericaFicha->fic_beneficiada;//aqui vai salvar o tipo de material(revestida, nua etc))
   $vetorRaioX[121]=$resgenericaFicha->fic_analise_reanalise;
   $vetorRaioX[155]=$resgenericaFicha->fic_campo_string;
   $vetorRaioX[159]=$resgenericaFicha->fic_preparo_pureza;
   $vetorRaioX[160]=$resgenericaFicha->fic_preparo_complemento;
   $vetorRaioX[161]=$resgenericaFicha->fic_preparo_analista;
   $vetorRaioX[162]=$resgenericaFicha->fic_preparo_data;
   $vetorRaioX[53]=$resgenericaFicha->fic_categoria;
   $vetorRaioX[259]=$resgenericaFicha->fic_funcao;
   $vetorRaioX[56]=$resgenericaFicha->fic_peneira;
   $vetorRaioX[57]=$resgenericaFicha->fic_procedencia;
   $vetorRaioX[58]=$resgenericaFicha->fic_tratamento;//tratamento produtor
   $vetorRaioX[59]=$resgenericaFicha->fic_aparelho;//peso da amostra
   $vetorRaioX[60]=$resgenericaFicha->fic_balanca;//balanca
   $vetorRaioX[63]=$resgenericaFicha->fic_observacao;//observacao
   $vetorRaioX[105]=$resgenericaFicha->fic_pesodet_nocivas;//peso nocivas
   $vetorRaioX[220]=$resgenericaFicha->fic_pesodet_dosn;//peso solvestres
   $vetorRaioX[260]=$resgenericaFicha->fic_pesodet_octv;//peso dosn
   $vetorRaioX[106]=$resgenericaFicha->fic_complemento;//peso nocivas
   $vetorRaioX[248]=$resgenericaFicha->fic_previsao;//
   $vetorRaioX[251]=$resgenericaFicha->fic_outrascultivares;//
   $vetorRaioX[46]=$resgenericaFicha->fic_repre_unid;
   $vetorRaioX[285]=$resgenericaFicha->fic_obs2015_a;

   $vetorRaioX[42]=$resgenericaFicha->ctv_nome;
   $ctg=$resgenericaFicha->ctv_nome;
   //echo("1929 classe calculos cultivar=$ctg<br>");

   $vetorRaioX[43]=$resgenericaFicha->esp_nome;
   $vetorRaioX[44]=$resgenericaFicha->prd_nome;
   $vetorRaioX[45]=$resgenericaFicha->prd_apelido;
   $vetorRaioX[49]=$resgenericaFicha->prd_municipio;
   $vetorRaioX[50]=$resgenericaFicha->prd_renasem;
   $vetorRaioX[51]=$resgenericaFicha->prd_uf;
   $vetorRaioX[52]=$resgenericaFicha->prd_telefone;
   $vetorRaioX[255]=$resgenericaFicha->prd_id;
   $vetorRaioX[96]=$resgenericaFicha->amt_nome;
   $vetorRaioX[261]=$resgenericaFicha->amt_renasem;
   $vetorRaioX[97]=$resgenericaFicha->esp_min_pureza;//pureza RAS
   $vetorRaioX[107]=$resgenericaFicha->esp_id;

   //$vetorRaioX[163]=$resgenericaFicha->fic_preparo_dosn;
   $vetorRaioX[164]=$resgenericaFicha->fic_recipiente1;
   $vetorRaioX[165]=$resgenericaFicha->fic_recipiente2;
   $vetorRaioX[166]=$resgenericaFicha->fic_aparelho_umidade;
   $vetorRaioX[167]=$resgenericaFicha->fic_grau_umidade;
   $vetorRaioX[168]=$resgenericaFicha->fic_data_umidade;
   $vetorRaioX[215]=$resgenericaFicha->fic_operador_contaminante;
   $vetorRaioX[216]=$resgenericaFicha->fic_data_contaminante;
   $vetorRaioX[221]=$resgenericaFicha->esp_nome_cientifico;

  //captura os testes solicitados concatenados para despejar na ficha
    $texto="";
	$userTestes = new testesSolicitados();
	$userTestes->extras_select = "where tes_ficha=".$amostraLong;
	$userTestes->selecionaTudo($userTestes);
	$conta=0;
	while ($resTestes = $userTestes->retornaDados()):
       $texto=$texto.$resTestes->tes_teste.";";
       $vetorTestes[$conta]=$resTestes->tes_teste;
	   $conta++;
	endwhile;                
    $vetorRaioX[47]=$texto;
    $vetorRaioX[54]=$vetorTestes;


    //captura os documentos
	//ENTRA DE QUAKQUER MANEIRA
	$genericaDoc=new tabelagenerica();
	$genericaDoc->tabela="documentosponte,documentos";
	$genericaDoc->campos_valores = array(
		   "doc_numero" => NULL,
		   "doc_tipo" => NULL,
		   "doc_data" => NULL,
		   "doc_operador" => NULL,
	);
	$genericaDoc->extras_select =" where dpo_documento_autonumerador=doc_id &&  dpo_amostra_vinculada=".$amostraLong;
	$genericaDoc->selecionaCampos($genericaDoc);
	$variosDocs="";//se tem mais de um doc ele pega todos
    $vetorDoc="";
	$docAcumulado="";
    $vetorRaioX[3]='-O-';
    $vetorRaioX[4]='-O-';
    $vetorRaioX[6]='-O-';

	while ($resgenericaDoc= $genericaDoc->retornaDados()):
       $indice=0;//pode ser que fez mais de um doc
	   $tipoDoc=$resgenericaDoc->doc_tipo;
       if($tipoDoc=='Boletim')$indice=3;
       if($tipoDoc=='Informe')$indice=4;
	   //aqui vai um CASUISMO  da dimicron campo cultivar
       //se foi feito informe entao a cultivar será -O-
       if($tipoDoc=='Informe' && substr($cliente,0,8)=='DIMICRON'):
         //$vetorRaioX[42]='-O-';//cultivar
	   endif;	  
       if($tipoDoc=='Plural')$indice=5;
       if($tipoDoc=='Termo')$indice=6;
       if($tipoDoc=='Certificado')$indice=7;
       if($tipoDoc=='Termo_Aditivo')$indice=298;
	   
	   $numeroDoc=$resgenericaDoc->doc_numero;
	   //isso aqui nao pode mudar mais pois outras locais vai procurar nestas posucoes
       $dataDoc=date("d/m/y",strtotime($resgenericaDoc->doc_data));  
	   $operadorDoc=$resgenericaDoc->doc_operador;
       $vetorRaioX[$indice]=$dataDoc.'*'.$numeroDoc.'*'.$operadorDoc.'*';//ELE MONTA INVERTIDO PORQUE A DATA É SOMPRE DO MEMSO TAMANHO  E O NUMERO DO DOCUMENTO NAO É
       if($indice>0)$docAcumulado=$docAcumulado.substr($tipoDoc,0,1).$numeroDoc.';';   //pega a primera letra depois o numero    
       $vetorRaioX[41]=$docAcumulado;
    endwhile; 
	
	//aqui eu coloco -N- em todos testes para nao sair em branco quando nao foi feito        
////////////////////////////////
     //PURE
	       $vetorRaioX[15]='-N-';//%pureza
	       $vetorRaioX[25]='-N-';//inerte
	       $vetorRaioX[26]='-N-';//inerte
     //GERM
	       $vetorRaioX[14]='-N-';//normais
	       $vetorRaioX[64]='-N-';//anormais
	       $vetorRaioX[65]='-N-';//mortas
	       $vetorRaioX[66]='-N-';//duras
	       $vetorRaioX[67]='-N-';//dormentes

      //GE2
	       $vetorRaioX[129]='-N-';//normais
	       $vetorRaioX[130]='-N-';//anormais
	       $vetorRaioX[132]='-N-';//mortas
	       $vetorRaioX[135]='-N-';//duras
	       $vetorRaioX[136]='-N-';//dormentes
	       $vetorRaioX[137]='-N-';//data final do teste
	       $vetorRaioX[133]='-N-';//infecionadas
	       $vetorRaioX[144]='-N-';//data leitura
	       $vetorRaioX[147]='-N-';//analista da leitura
	       $vetorRaioX[145]='-N-';//data leitura
	       $vetorRaioX[148]='-N-';//analista da leitura
	       $vetorRaioX[146]='-N-';//data leitura
	       $vetorRaioX[149]='-N-';//analista da leitura
	       $vetorRaioX[213]='-N-';//ph no barenbrug 
	       $vetorRaioX[238]='-N-';//formato 4x100  8x50 etc
		   $vetorRaioX[122]='-N-';//temperatura
	       $vetorRaioX[123]='-N-';//substrato
	       $vetorRaioX[124]='-N-';//duracao ge2
	       $vetorRaioX[125]='-N-';//germinador
	       $vetorRaioX[126]='-N-';//data
	       $vetorRaioX[127]='-N-';//analista
	       $vetorRaioX[128]='-N-';//tratamento 
	       $vetorRaioX[134]='-N-';//reanlong 
	
       //PMS
	      $vetorRaioX[13]='-N-';

       //INF
	   	   $vetorRaioX[18]='-N-';
       //VC
	   	   $VC='-N-';
       //TZ0
	   	   $TZO='-N-';

       //EAC
	   	   $vetorRaioX[12]='-N-';//normais
	       $vetorRaioX[76]='-N-';//anormais
	       $vetorRaioX[78]='-N-';//mortas
	       $vetorRaioX[94]='-N-';//data final do teste
	       $vetorRaioX[100]='-N-';//infecionadas
		   $vetorRaioX[101]='-N-';//DURAS
	       $vetorRaioX[77]='-N-';//dORMENTES

       //FRI
	   	   $vetorRaioX[16]='-N-';
	       $vetorRaioX[87]='-N-';//anormais
	       $vetorRaioX[89]='-N-';//mortas
	       $vetorRaioX[88]='-N-';//duras
	       $vetorRaioX[95]='-N-';//data final do teste
	       $vetorRaioX[102]='-N-';//infecionadas
		   $vetorRaioX[103]='-N-';//duras

       //EMER
           //DADOS TABELA ESQUERDA
           //DADOS TABELA DIREITA 
	   	   $vetorRaioX[176]='-N-';
	   	   $vetorRaioX[177]='-N-';
	   	   $vetorRaioX[178]='-N-';
	   	   $vetorRaioX[179]='-N-';
	   	   $vetorRaioX[180]='-N-';//numero de sementes tabela da eDIREITA


       //CONJ
	       // GRAU DE UMIDADE
	   	   $vetorRaioX[183]='-N-';

       //TZF
   	    $vetorRaioX[202]='-N-';//VIAVRID BARNBRUG  tzf
  
       //TZO
	    $vetorRaioX[11]='-N-';
   	    $vetorRaioX[234]='-N-';//
        $vetorRaioX[279]='-N-';//

       //testes que puxam so um valou ou poucos valores
	   //CLV
	   $vetorRaioX[16]='-N-';
	   //TRI
	   $vetorRaioX[19]='-N-';
       
	   
	   //DTU
	       $vetorRaioX[20]='-N-';//teor
	   	   $vetorRaioX[236]='-N-';//data
	   	   $vetorRaioX[235]='-N-';//analista

       //CLV=CLASSEIFICACAO DE VIGOR
	   $vetorRaioX[228]='-N-';
       //VLC = VALOR CULTURAL
	   $vetorRaioX[256]='-N-';
       //GQD
	   $vetorRaioX[229]='-N-';
       //GBT
	   $vetorRaioX[230]='-N-';
       //CAN
	   $vetorRaioX[231]='-N-';
       //DME
	   $vetorRaioX[232]='-N-';
       //MUP
	   $vetorRaioX[233]='-N-';
	   //PAD_ARE
	   $vetorRaioX[313]='-N-';
	   //PAD_ARE2
	   $vetorRaioX[315]='-N-';
	   
	   
       //FIM DA ATRIBUICAO DE -N- PARA CADS TESTE SE NEM FOI FEITO


    //aqui vou capturar tudo da REAN1
   	$genericaRean=new tabelagenerica();
	$genericaRean->tabela="rean1";
	$genericaRean->campos_valores = array(
		   "rea_teste" => NULL,
		   "rea_id" => NULL,
		   "rea_v1" => NULL,
		   "rea_v2" => NULL,
		   "rea_v3" => NULL,
		   "rea_v4" => NULL,
		   "rea_v5" => NULL,
		   "rea_v6" => NULL,
		   "rea_lei1" => NULL,
		   "rea_lei2" => NULL,
		   "rea_lei3" => NULL,
		   "rea_lei4" => NULL,
		   "rea_datageralteste" => NULL,
		   "rea_operador" => NULL,
		   "rea_campo20a" => NULL,
		   "rea_campo60a" => NULL,
		   "rea_campo60b" => NULL,
		   "rea_campo60c" => NULL,
		   "rea_campo100" => NULL,
		   "rea_duracao" => NULL,
		   "rea_campo20b" => NULL,
		   "rea_datainicio" => NULL,
		   "rea_operador" => NULL,
		   "rea_validade" => NULL,
		   "rea_primeira_leitura_data" => NULL,
		   "rea_primeira_leitura_analista" => NULL,
		   "rea_segunda_leitura_data" => NULL,
		   "rea_segunda_leitura" => NULL,
		   "rea_segunda_leitura_analista" => NULL,
		   "rea_terceira_leitura_data" => NULL,
		   "rea_terceira_leitura_analista" => NULL,
		   "rea_finalizada" => NULL,
	
	);
	$genericaRean->extras_select =" where rea_boletim='S' and rea_ficha=".$amostraLong;
	$genericaRean->selecionaCampos($genericaRean);
 

    while($resgenericaRean= $genericaRean->retornaDados()):
       $teste= $resgenericaRean->rea_teste;
	   $dataTeste=date("d/m/y",strtotime($resgenericaRean->rea_datageralteste));
       //if($dataTeste="01/01/11")$dataTeste="-";
     
	   
       if($teste=='PURE'):
	       $vetorRaioX[15]=$resgenericaRean->rea_v1;//%pureza
	       $vetorRaioX[21]=$resgenericaRean->rea_lei1;//amostra de trabalho
		   //$vetorRaioX[21]=$amostraLong;//amostra de trabalho
	       $vetorRaioX[22]=$resgenericaRean->rea_lei2;//puras
	       $vetorRaioX[23]=$resgenericaRean->rea_lei3;//outras sementes
	       $vetorRaioX[24]=$resgenericaRean->rea_lei4;//inerte
	       $vetorRaioX[25]=$resgenericaRean->rea_v2;//inerte
	       $vetorRaioX[26]=$resgenericaRean->rea_v3;//OUTRAS SEMENTES
	       $vetorRaioX[55]=$resgenericaRean->rea_campo60a;//natureza do material inerte
	       $vetorRaioX[193]=$resgenericaRean->rea_campo60b;//HOMOGENEIZACAO UFLA
	       $vetorRaioX[98]=$resgenericaRean->rea_id;//reanlong 		   
	       $vetorRaioX[104]=$resgenericaRean->rea_campo20a;//balanca da pureza	   
	       $vetorRaioX[283]=$resgenericaRean->rea_validade;//balanca do complemento   
	   	   $vetorRaioX[153]=$resgenericaRean->rea_operador;
		   if($dataTeste=="01/01/11")$dataTeste="";
	   	   $vetorRaioX[154]=$dataTeste;  //CONTEUDO DO REA_DATAGERALTESTE
	       $vetorRaioX[156]=$resgenericaRean->rea_v4;//percentagem pureza bruta barenbrug 
	       $vetorRaioX[157]=$resgenericaRean->rea_v5;//percentagem osementes bruta barenbrug 
	       $vetorRaioX[158]=$resgenericaRean->rea_v6;//percentagem material inerte bruta barenbrug 
	       $vetorRaioX[194]=$resgenericaRean->rea_duracao;//total de sementes nao identificadas 
           $statusFinalizada='FECHADA';
           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
	       $vetorRaioX[217]=$statusFinalizada;//pureza finalizada 
	       $vetorRaioX[262]=$resgenericaRean->rea_segunda_leitura;//armazena legenda erros casas decimais na pureza
	       $vetorRaioX[286]=$resgenericaRean->rea_segunda_leitura_data;//armazena descricao de  outras cultivares 

	   endif;
	   
	   
	   //aqui sempre vai achar este registro
	   //limagrain tem o teste germ e o teste padare(germinacao em subsstrato areia)
	   //o programa precisa var qual foi marcado pois ou e um ou outro(excludente
	   //para os demais labs so vai perguntar se é germinacao))
	   //$vetorRaioX[308]='Cli'.$cliente;//
       if($cliente=='LIMAGRAIN')://testa se é limagrain

         if($teste=='GERM'): //testa se é germ    
	       //ativado ou desativado
		      $vetorRaioX[314]=$resgenericaRean->rea_v1;//gerPapel
              if($resgenericaRean->rea_terceira_leitura_analista =='*')	://testa se esta marcado
			   $vetorRaioX[308]='Papel';//testa se é limagrain
			   $gerPapel=$resgenericaRean->rea_v1;//normais
			   $vetorRaioX[14]=$resgenericaRean->rea_v1;//gerPapel
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
		      endif;////fim do teste se esta marcado 
	      endif;//fim do teste se é germ
		  
		  
         //agora vai verificar pad are no ambiente limagrain
         if($teste=='PAD_ARE'): //testa se é pad are
           //para limagrain pode vir ativado ou desativado
		   	  $vetorRaioX[313]=$resgenericaRean->rea_v1;//normais
              if($resgenericaRean->rea_terceira_leitura_analista =='*')	://testa se esta marcado  
   			   $vetorRaioX[308]='Areia';//testa se é limagrain
		       $vetorRaioX[14]=$resgenericaRean->rea_v1;//normais
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
		      endif;////fim do teste pad are se estiver marcado
	   endif;////fim do teste pad are no ambiente limagrian
       echo("2288 teste $teste<br>");   
         if($teste=='PAD_ARE2'): //testa se é pad are
           //para limagrain pode vir ativado ou desativado
		   	  $vetorRaioX[315]=$resgenericaRean->rea_v1;//normais
              if($resgenericaRean->rea_terceira_leitura_analista =='*')	://testa se esta marcado  
                 $vetorRaioX[14]=$resgenericaRean->rea_v1;//n 
			  endif;	 
         endif;    

		  
   else:////se nao for limagrain
	   //aqui sempre vai achar este registro
       if($teste=='GERM')://testa se é germ para outros labs	
	       //ativado ou desativado
			   $gerPapel=$resgenericaRean->rea_v1;//normais
		       $vetorRaioX[14]=$resgenericaRean->rea_v1;//temperatura
		       $vetorRaioX[35]=$resgenericaRean->rea_campo20a;//temperatura
		       $vetorRaioX[36]=$resgenericaRean->rea_campo60b;//substrato
		       $vetorRaioX[37]=$resgenericaRean->rea_duracao;//duracao
		       $vetorRaioX[38]=$resgenericaRean->rea_campo20b;//germinador
		       $vetorRaioX[39]=$resgenericaRean->rea_datageralteste;//data
		       $vetorRaioX[40]=$resgenericaRean->rea_operador;//analista
		       $vetorRaioX[61]=$resgenericaRean->rea_campo60a;//tratamento 
		       $vetorRaioX[62]=$resgenericaRean->rea_id;//reanlong 
		       $vetorRaioX[64]=$resgenericaRean->rea_v2;//anormais
		       $vetorRaioX[65]=$resgenericaRean->rea_v5;//mortas
		       $vetorRaioX[66]=$resgenericaRean->rea_v3;//duras
		       $vetorRaioX[67]=$resgenericaRean->rea_v4;//dormentes
		       $vetorRaioX[93]=$resgenericaRean->rea_datainicio;//data final do teste
		       $vetorRaioX[99]=$resgenericaRean->rea_v6;//infecionadas
		       $vetorRaioX[138]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
		       $vetorRaioX[139]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
		       $vetorRaioX[140]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		       $vetorRaioX[141]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
		       $vetorRaioX[142]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
		       $vetorRaioX[143]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
		       $vetorRaioX[150]=$resgenericaRean->rea_campo100;//observacoes
		       $vetorRaioX[192]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
		       $vetorRaioX[211]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	           $statusFinalizada='FECHADA';
	           if($resgenericaRean->rea_finalizada=='N') $statusFinalizada='';
		       $vetorRaioX[218]=$statusFinalizada;//germinacao finalizada 
			   $vetorRaioX[247]=$resgenericaRean->rea_validade;//data plantio
	   endif;//ver se o teste é germ
    endif;//fim do teste else se cliente nao e  limagrain  


//aqui um depurado
    //testa se é limagrain
      //testa se é germ    
         //testa se esta marcado

         //fim do teste se esta marcado 
      //fim do teste se é germ
     
	  //testa se é pad are
      //testa se esta marcado  

      //fim do teste pad are se estiver marcado
      //fim do teste pad are


    //se nao for limagrain
    //testa se é germ para outros labs	



	
     //fim do teste se é germ para os demais	
	//fim do else  limagrain
	


       if($teste=='GE2'):
	       $vetorRaioX[129]=$resgenericaRean->rea_v1;//normais
	       $vetorRaioX[122]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[123]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[124]=$resgenericaRean->rea_duracao;//duracao
	       $vetorRaioX[125]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[126]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[127]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[128]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[134]=$resgenericaRean->rea_id;//reanlong 
	       //echo("achando o valor de reanlongGE=$resgenericaRean->rea_id<br>");
	       $vetorRaioX[130]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[132]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[135]=$resgenericaRean->rea_v3;//duras
	       $vetorRaioX[136]=$resgenericaRean->rea_v4;//dormentes
		   $vetorRaioX[151]=$resgenericaRean->rea_campo100;//observacoes
	       $vetorRaioX[137]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[133]=$resgenericaRean->rea_v6;//infecionadas
	       $vetorRaioX[144]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
	       $vetorRaioX[147]=$resgenericaRean->rea_primeira_leitura_analista;//analista da leitura
	       $vetorRaioX[145]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
	       $vetorRaioX[148]=$resgenericaRean->rea_segunda_leitura_analista;//analista da leitura
	       $vetorRaioX[146]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
	       $vetorRaioX[149]=$resgenericaRean->rea_terceira_leitura_analista;//analista da leitura
	       $vetorRaioX[213]=$resgenericaRean->rea_segunda_leitura;//ph no barenbrug 
	       $vetorRaioX[238]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
	       //echo("entrou em geeeeeeeeeeeeeee vetorRaioX[62]=$vetorRaioX[62]<br>");
	   endif;	   

       if($teste=='PMS'):
          //captura as 8 leituras
	      $vetorRaioX[13]=$resgenericaRean->rea_v1;
		  $vetorRaioX[108]=$resgenericaRean->rea_lei4;
		  $vetorRaioX[109]=$resgenericaRean->rea_v2;
		  $vetorRaioX[110]=$resgenericaRean->rea_v3;
		  $vetorRaioX[111]=$resgenericaRean->rea_v4;
		  $vetorRaioX[112]=$resgenericaRean->rea_v5;
		  $vetorRaioX[113]=$resgenericaRean->rea_lei1;
		  $vetorRaioX[114]=$resgenericaRean->rea_lei2;
		  $vetorRaioX[115]=$resgenericaRean->rea_lei3;		  
          $vetorRaioX[116]=$resgenericaRean->rea_campo60a;//variancia,descio.soma.media separados por asterisco
          $vetorRaioX[117]=$resgenericaRean->rea_operador;//operador pms
          $vetorRaioX[189]=$resgenericaRean->rea_segunda_leitura;//numero pelotas puras pms barembrug
	      $vetorRaioX[214]=$resgenericaRean->rea_datageralteste;//data
          $vetorRaioX[253]=$resgenericaRean->rea_segunda_leitura_data;//aparencia
          $vetorRaioX[280]=$resgenericaRean->rea_primeira_leitura_data;//balanca usada no teste pms
	   endif;	  


       
       if($teste=='INF'):
	   	   $vetorRaioX[18]=$resgenericaRean->rea_v1;//valor final
	   	   $vetorRaioX[27]=$resgenericaRean->rea_lei1;//leitura 1
	   	   $vetorRaioX[28]=$resgenericaRean->rea_lei2;//leitura 2
	   	   $vetorRaioX[29]=$resgenericaRean->rea_lei3;
	   	   $vetorRaioX[30]=$resgenericaRean->rea_lei4;
	   	   $vetorRaioX[31]=$resgenericaRean->rea_v2;
	   	   $vetorRaioX[32]=$resgenericaRean->rea_datageralteste;
	   	   $vetorRaioX[33]=$resgenericaRean->rea_operador;
	   	   $vetorRaioX[34]=$resgenericaRean->rea_campo100;
	   	   $vetorRaioX[237]=$resgenericaRean->rea_campo20a;
	   endif;

       if($teste=='EAC'):
	   	   $vetorRaioX[12]=$resgenericaRean->rea_v1;//normais
	       $vetorRaioX[68]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[69]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[70]=$resgenericaRean->rea_duracao;//duracao
	       $vetorRaioX[71]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[72]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[73]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[74]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[91]=$resgenericaRean->rea_id;//reanlong EAC 
	       $vetorRaioX[76]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[78]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[94]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[100]=$resgenericaRean->rea_v6;//infecionadas
		   $vetorRaioX[101]=$resgenericaRean->rea_v3;//DURAS
	       $vetorRaioX[77]=$resgenericaRean->rea_v4;//dORMENTES
		   $vetorRaioX[239]=$resgenericaRean->rea_lei4;//formato 4x100  8x50 etc
	       $vetorRaioX[243]=$resgenericaRean->rea_primeira_leitura_data;//data leitura
	       $vetorRaioX[244]=$resgenericaRean->rea_segunda_leitura_data;//data leitura
	       $vetorRaioX[245]=$resgenericaRean->rea_terceira_leitura_data;//data leitura
		   $vetorRaioX[281]=$resgenericaRean->rea_campo100;//observacoes
	   endif;

       if($teste=='FRI'):
	   	   $vetorRaioX[16]=$resgenericaRean->rea_v1;
	       $vetorRaioX[79]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[80]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[81]=$resgenericaRean->rea_duracao;//duracao
		   $vetorRaioX[82]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[83]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[84]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[85]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[92]=$resgenericaRean->rea_id;//reanlong 
	       $vetorRaioX[87]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[89]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[88]=$resgenericaRean->rea_v4;//dormentes
	       $vetorRaioX[95]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[102]=$resgenericaRean->rea_v6;//infecionadas
		   $vetorRaioX[103]=$resgenericaRean->rea_v3;//duras
		   $vetorRaioX[281]=$resgenericaRean->rea_campo100;//observacoes
	
	   endif;

       //TESTE ROUNDUP DA SEMPRE
       if($teste=='TRR'):
	   	   $vetorRaioX[264]=$resgenericaRean->rea_v1;
	       $vetorRaioX[265]=$resgenericaRean->rea_campo20a;//temperatura
	       $vetorRaioX[266]=$resgenericaRean->rea_campo60b;//substrato
	       $vetorRaioX[267]=$resgenericaRean->rea_duracao;//duracao
		   $vetorRaioX[268]=$resgenericaRean->rea_campo20b;//germinador
	       $vetorRaioX[269]=$resgenericaRean->rea_datageralteste;//data
	       $vetorRaioX[270]=$resgenericaRean->rea_operador;//analista
	       $vetorRaioX[271]=$resgenericaRean->rea_campo60a;//tratamento 
	       $vetorRaioX[272]=$resgenericaRean->rea_id;//reanlong 
	       $vetorRaioX[273]=$resgenericaRean->rea_v2;//anormais
	       $vetorRaioX[274]=$resgenericaRean->rea_v5;//mortas
	       $vetorRaioX[275]=$resgenericaRean->rea_v3;//duras
	       $vetorRaioX[276]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[277]=$resgenericaRean->rea_v6;//infecionadas
		   $vetorRaioX[278]=$resgenericaRean->rea_campo100;//observacoes
	       $vetorRaioX[284]=$resgenericaRean->rea_v4;//dormentes
	   endif;





       if($teste=='EMER'):
           //DADOS TABELA ESQUERDA
	   	   $vetorRaioX[169]=$resgenericaRean->rea_lei1;
	   	   $vetorRaioX[170]=$resgenericaRean->rea_lei2;
	   	   $vetorRaioX[171]=$resgenericaRean->rea_lei3;
	   	   $vetorRaioX[172]=$resgenericaRean->rea_lei4;
	   	   $vetorRaioX[173]=$resgenericaRean->rea_duracao;//numero de sementes tabela da esquerda areia
	   	   $vetorRaioX[174]=$resgenericaRean->rea_validade;//data plantio
	   	   $vetorRaioX[175]=$resgenericaRean->rea_datainicio;//percentual germinacao tabela esquerda
	   	   $vetorRaioX[182]=$resgenericaRean->rea_campo20a;//bandeja esquerda
	   	   $vetorRaioX[200]=$resgenericaRean->rea_operador;//analista
           //DADOS TABELA DIREITA 
	   	   $vetorRaioX[176]=$resgenericaRean->rea_v1;
	   	   $vetorRaioX[177]=$resgenericaRean->rea_v2;
	   	   $vetorRaioX[178]=$resgenericaRean->rea_v3;
	   	   $vetorRaioX[179]=$resgenericaRean->rea_v4;
	   	   $vetorRaioX[180]=$resgenericaRean->rea_v5;//numero de sementes tabela da eDIREITA
	   	   $vetorRaioX[181]=$resgenericaRean->rea_datageralteste;//data plantio
	   	   $vetorRaioX[199]=$resgenericaRean->rea_segunda_leitura;//data
	   	   $vetorRaioX[201]=$resgenericaRean->rea_duracao;//varios assinalamentos
		   $vetorRaioX[223]=$resgenericaRean->rea_finalizada;//vai guardar canteiro ou estufa
		   $vetorRaioX[224]=$resgenericaRean->rea_primeira_leitura_data;//vai guardar ras areia
		   $vetorRaioX[225]=$resgenericaRean->rea_segunda_leitura_data;//vai guardar ras solo
	   	   $vetorRaioX[226]=$resgenericaRean->rea_campo20b;//percentual solos 
	   	   $vetorRaioX[227]=$resgenericaRean->rea_terceira_leitura_analista;//percentual em areia
	   endif;
	   //verificacao de especie e grsu de umidade conjugados
       if($teste=='CONJ'):
           // GRAU DE UMIDADE
	   	   $vetorRaioX[183]=$resgenericaRean->rea_v1;//aparelho
	   	   $vetorRaioX[184]=$resgenericaRean->rea_v2;//grau de umidade
		   //$vetorRaioX[20]=$resgenericaRean->rea_v1;//aparelho
	   	   $vetorRaioX[195]=$resgenericaRean->rea_datageralteste;//data umidade
	   	   $vetorRaioX[196]=$resgenericaRean->rea_operador;//analista de umidade
		   //VERIFICACAO DA ESPECIE X
	   	   $vetorRaioX[185]=$resgenericaRean->rea_lei1;
	   	   $vetorRaioX[186]=$resgenericaRean->rea_lei2;//VERIFICACAO DA ESPECIE
	   	   $vetorRaioX[187]=$resgenericaRean->rea_lei3;
	   	   $vetorRaioX[188]=$resgenericaRean->rea_campo100;
	   	   $vetorRaioX[190]=$resgenericaRean->rea_v3;
	   	   $vetorRaioX[191]=$resgenericaRean->rea_v4;
	   	   $vetorRaioX[197]=$resgenericaRean->rea_validade;//data verificacao
	   	   $vetorRaioX[198]=$resgenericaRean->rea_campo20a;//analista veridicacao
	   endif;

       if($teste=='TZF'):
   	    $vetorRaioX[202]=$resgenericaRean->rea_v1;//VIAVRID BARNBRUG
	    $vetorRaioX[203]=$resgenericaRean->rea_duracao;
	    $vetorRaioX[205]=$resgenericaRean->rea_datageralteste;
		$vetorRaioX[206]=$resgenericaRean->rea_operador;
	    $vetorRaioX[207]=$resgenericaRean->rea_campo60a;
	    $vetorRaioX[208]=$resgenericaRean->rea_campo60b;
	    $vetorRaioX[209]=$resgenericaRean->rea_campo60c;
	    $vetorRaioX[210]=$resgenericaRean->rea_campo100;
		$reanLong=$resgenericaRean->rea_id; 
	    $vetorRaioX[212]=$resgenericaRean->rea_operador;
	   endif;
  
       if($teste=='TZO'):
	    $vetorRaioX[11]=$resgenericaRean->rea_v2;//  viabilidade tzo ajustei em 06052020   porem se for forrageira traz  "FORR"
   	    $vetorRaioX[234]=$resgenericaRean->rea_v1;//vigor   porem se for forrrageria é viabilidade
	    $vetorRaioX[241]=$resgenericaRean->rea_datageralteste;
		$vetorRaioX[242]=$resgenericaRean->rea_operador;
		$vetorRaioX[279]=$resgenericaRean->rea_campo20b;
		$vetorRaioX[290]=$resgenericaRean->rea_primeira_leitura_analista; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[291]=$resgenericaRean->rea_lei1; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[292]=$resgenericaRean->rea_lei2; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[293]=$resgenericaRean->rea_segunda_leitura_analista; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[305]=$resgenericaRean->rea_campo100; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[306]=$resgenericaRean->rea_campo60a; //quem fez o corte nas sementes p/tzo
		$vetorRaioX[307]=$resgenericaRean->rea_campo60b; //quem fez o corte nas sementes p/tzo
		
		
		
	   endif;
     

       //testes que puxam so um valou ou poucos valores
	   if($teste=='CLV')$vetorRaioX[17]=$resgenericaRean->rea_v1;
	   if($teste=='TRI')$vetorRaioX[19]=$resgenericaRean->rea_v1;
	   if($teste=='E72')$vetorRaioX[258]=$resgenericaRean->rea_v1;
	   if($teste=='E36')$vetorRaioX[294]=$resgenericaRean->rea_v1;
	   if($teste=='E24')$vetorRaioX[295]=$resgenericaRean->rea_v1;
	   if($teste=='E48')$vetorRaioX[297]=$resgenericaRean->rea_v1;
	   if($teste=='FR2')$vetorRaioX[312]=$resgenericaRean->rea_v1;
	   
	   
	   if($teste=='PAD_ARE2')$vetorRaioX[315]=$resgenericaRean->rea_v1;
	   //if($teste=='E48')echo("achou teste e48<br>");
	   
	   
	   
	   if($teste=='ARE')$vetorRaioX[296]=$resgenericaRean->rea_v1;
       if($teste=='DTU'):
	       $vetorRaioX[20]=$resgenericaRean->rea_v1;//teor de umidade
	   	   $vetorRaioX[236]=$resgenericaRean->rea_datageralteste;//data
	   	   $vetorRaioX[235]=$resgenericaRean->rea_operador;//analista
	   	   $vetorRaioX[252]=$resgenericaRean->rea_v2;//aparelho
	   endif;
        
	   //TESTES SO CAPTURANDO VALOR
	   //echo("868 teste=$teste<br>");
       if($teste=='VLC')$vetorRaioX[256]=$resgenericaRean->rea_v1;////VALOR CULTURAL	
       if($teste=='CLV')$vetorRaioX[228]=$resgenericaRean->rea_v1;//classificacao de vigor
       if($teste=='GQD')$vetorRaioX[229]=$resgenericaRean->rea_v1;
       if($teste=='GBT')$vetorRaioX[230]=$resgenericaRean->rea_v1;
       if($teste=='CAN')$vetorRaioX[231]=$resgenericaRean->rea_v1;
       if($teste=='DME')$vetorRaioX[232]=$resgenericaRean->rea_v1;
       if($teste=='MUP')$vetorRaioX[233]=$resgenericaRean->rea_v1;
       if($teste=='PEN')$vetorRaioX[257]=$resgenericaRean->rea_campo100;////VALOR CULTURAL	
       //$vetorRaioX[256]=`kkk`. $resgenericaRean->rea_v1;
       if($teste=='TOLERANTE'):
	       $vetorRaioX[299]= $resgenericaRean->rea_v1;//TESTE BIO ENSAIO
	       $vetorRaioX[301]= $resgenericaRean->rea_v1;//valor roundup
	       $vetorRaioX[302]= $resgenericaRean->rea_v2;//data
	       $vetorRaioX[303]= $resgenericaRean->rea_v3;//valor glufosinato
		   $vetorRaioX[304]= $resgenericaRean->rea_v4;//valor glufosinato
	    //   $vetorRaioX[304]= $resgenericaRean->rea_terceira_leitura_data;//data glufosinato roundup
	   endif;   
		//echo("882 teste=$teste<br>");   
       if($teste=='CANTEIRO1E2'):
	       $vetorRaioX[300]= $resgenericaRean->rea_v3 .'/'.$resgenericaRean->rea_v1;
	       $vetorRaioX[309]= $resgenericaRean->rea_v3 ;
	       $vetorRaioX[310]= $resgenericaRean->rea_v1;
	   endif;	   
    endwhile;


    return $vetorRaioX;
}
//fim da classe lucio 
*/


				
}///////////final da classe calculos////////////////////
 ?>
