<?php
//linha 2 comentada

require_once(dirname(__FILE__).'/autoload.php');
protegeArquivo(basename(__FILE__));
class calculosFichaVirtual
{
##função1#########################
//ESTA FUNCAO SERVE 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 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


//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
	    $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




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)
{
    $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_safra" => NULL,
		   "fic_beneficiada" => NULL,
		   "fic_analise_reanalise" => NULL,
		   "fic_repre_unid" => NULL,
		   "esp_nome" => NULL,
		   "esp_nome_cientifico" => NULL,
		   "esp_id" => NULL,
		   "esp_min_pureza" => NULL,
		   "prd_nome" => NULL,
		   "amt_nome" => NULL,
		   "prd_apelido" => NULL,
		   "prd_renasem" => NULL,
		   "prd_uf" => NULL,
		   "prd_municipio" => NULL,
		   "ctv_nome" => NULL,
		   "fic_amostra" => NULL,
		   "fic_amostra_previa" => NULL,
		   "fic_dt_entrada" => NULL,
		   "fic_dt_amostragem" => NULL,
		   "fic_categoria" => NULL,
		   "fic_peneira" => NULL,
		   "fic_procedencia" => NULL,
		   "fic_tratamento" => NULL,
		   "fic_aparelho" => NULL,
		   "fic_balanca" => NULL,
		   "fic_observacao" => NULL,
		   "fic_pesodet_nocivas" => NULL,
		   "fic_pesodet_dosn" => 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,
		   
           );
	$genericaFicha->extras_select =" where fic_labo=".$idLabo."  AND  amt_id=fic_amostrador   AND  prd_id=fic_produtor AND  ctv_id=fic_cultivar AND  ctv_especie=esp_id and fic_id=".$amostraLong;
    //echo $genericaFicha->extras_select;
	$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[222]=$resgenericaFicha->fic_definitiva;//
   $vetorRaioX[152]=$resgenericaFicha->fic_dt_amostragem;//
   $vetorRaioX[8]=date("d/m/Y",strtotime($resgenericaFicha->fic_dt_entrada));
   $vetorRaioX[9]=$resgenericaFicha->fic_lote;
   $vetorRaioX[42]=$resgenericaFicha->ctv_nome;
   $vetorRaioX[43]=$resgenericaFicha->esp_nome;
   $vetorRaioX[44]=$resgenericaFicha->prd_nome;
   $vetorRaioX[45]=$resgenericaFicha->prd_apelido;
   $vetorRaioX[46]=$resgenericaFicha->fic_repre_unid;
   $vetorRaioX[48]=$resgenericaFicha->fic_safra;
   $vetorRaioX[49]=$resgenericaFicha->prd_municipio;
   $vetorRaioX[50]=$resgenericaFicha->prd_renasem;
   $vetorRaioX[51]=$resgenericaFicha->prd_uf;
   $vetorRaioX[52]=$resgenericaFicha->prd_telefone;
   $vetorRaioX[53]=$resgenericaFicha->fic_categoria;
   $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[96]=$resgenericaFicha->amt_nome;
   $vetorRaioX[97]=$resgenericaFicha->esp_min_pureza;//pureza RAS
   $vetorRaioX[105]=$resgenericaFicha->fic_pesodet_nocivas;//peso nocivas
   $vetorRaioX[220]=$resgenericaFicha->fic_pesodet_dosn;//peso dosn
   $vetorRaioX[106]=$resgenericaFicha->fic_complemento;//peso nocivas
   $vetorRaioX[107]=$resgenericaFicha->esp_id;
   $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[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,
	);
	$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
       //se foi feito informe entao a cultivar será -O-
       if($tipoDoc=='Informe' && substr($cliente,0,8)=='DIMICRON'):
         $vetorRaioX[42]='-O-';
	   endif;	  
       if($tipoDoc=='Plural')$indice=5;
       if($tipoDoc=='Termo')$indice=6;
       if($tipoDoc=='Certificado')$indice=7;
	   $numeroDoc=$resgenericaDoc->doc_numero;
       $dataDoc=date("d/m/Y",strtotime($resgenericaDoc->doc_data));  
       $vetorRaioX[$indice]=$dataDoc.$numeroDoc;
       if($indice>0)$docAcumulado=$docAcumulado.substr($tipoDoc,0,1).$numeroDoc.';';   //pega a primera letra depois o numero    
       $vetorRaioX[41]=$docAcumulado;    
    endwhile;         



   //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_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=='TZO'):
	       $vetorRaioX[11]=$resgenericaRean->rea_v1;
	   endif;	   
	   
       if($teste=='PURE'):
	       $vetorRaioX[15]=$resgenericaRean->rea_v1;//%pureza
	       $vetorRaioX[21]=$resgenericaRean->rea_lei1;//amostra de trabalho
	       $vetorRaioX[22]=$resgenericaRean->rea_lei2;//puras
	       $vetorRaioX[23]=$resgenericaRean->rea_lei3;//outras sementes
	       $vetorRaioX[24]=$resgenericaRean->rea_lei4;//inerte&nbsp;
	       $vetorRaioX[25]=$resgenericaRean->rea_v2;//inerte
	       $vetorRaioX[26]=$resgenericaRean->rea_v3;//inerte
	       $vetorRaioX[55]=$resgenericaRean->rea_campo60a;//natureza do material inerte
	       $vetorRaioX[193]=$resgenericaRean->rea_campo60b;//HOMOGENEIRZACAO UFLA
	       $vetorRaioX[98]=$resgenericaRean->rea_id;//reanlong 		   
	       $vetorRaioX[104]=$resgenericaRean->rea_campo20a;//reanlong 		   
	   	   $vetorRaioX[153]=$resgenericaRean->rea_operador;
		   if($dataTeste=="01/01/11")$dataTeste="";
	   	   $vetorRaioX[154]=$dataTeste;
	       $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 
	   endif;
	   
	   
	   
       if($teste=='GERM'):
	       $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;//pureza finalizada 
	   endif;	

       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 
	       //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
	   endif;	  

	      

	   if($teste=='CLV')$vetorRaioX[16]=$resgenericaRean->rea_v1;
       if($teste=='INF'):
	   	   $vetorRaioX[18]=$resgenericaRean->rea_v1;
	   	   $vetorRaioX[27]=$resgenericaRean->rea_lei1;
	   	   $vetorRaioX[28]=$resgenericaRean->rea_lei2;
	   	   $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;
	   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

	      
	   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_v3;//duras
	       $vetorRaioX[95]=$resgenericaRean->rea_datainicio;//data final do teste
	       $vetorRaioX[102]=$resgenericaRean->rea_v6;//infecionadas
		   $vetorRaioX[103]=$resgenericaRean->rea_v3;//duras
	       //$vetorRaioX[67]=$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
	   	   $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_primeira_leitura_data;//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
	   endif;
	   //verificacao de especie e grsu de umidade conjugados
       if($teste=='CONJ'):
           // GRAU DE UMIDADE
	   	   $vetorRaioX[183]=$resgenericaRean->rea_v1;
	   	   $vetorRaioX[184]=$resgenericaRean->rea_v2;
	   	   $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=='TRI')$vetorRaioX[19]=$resgenericaRean->rea_v1;
       if($teste=='DTU')$vetorRaioX[20]=$resgenericaRean->rea_v1;
    endwhile;
    return $vetorRaioX;
}
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 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=2;$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];
				   $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)
{
/*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.

*/
 //aqui vou capturar dados da ficha
   	$genericaAmostra=new tabelagenerica();
	$genericaAmostra->tabela="ficha";
	$genericaAmostra->campos_valores = array(
		   "fic_amostra" => NULL,
		   "fic_outrascultivares" => NULL,
	);
	$genericaAmostra->extras_select =" where fic_id=".$amostraLong;
	$genericaAmostra->selecionaCampos($genericaAmostra);
	$registro=0;
    while($resgenericaAmostra=$genericaAmostra->retornaDados()):
       $registro= $resgenericaAmostra->fic_amostra;
       $outrasCultivares= $resgenericaAmostra->fic_outrascultivares;
    endwhile;

//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,
	);
	$genericaRean->extras_select =" where 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;
       if($teste=='PURE')$vetorRaioX[15]=$resgenericaRean->rea_v1;
    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


$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,
);
$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;
   $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
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

//echo("$padraoGer rrrrrrrrrrrrregistro=$registro<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:

     if($vetorRaioX[14]<=90):
	   $vetorFinal[2]="1";
	 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;	 


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

echo('Nº amostra='.$registro. "  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 Binario $binario<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





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