<?php

require_once(dirname(dirname(__FILE__))."/paineladm/funcoes.php");

$pathlocal = dirname(__FILE__);

//require_once(dirname($pathlocal)."/paineladm/classes/fpdf.class.php");

//require_once(dirname($pathlocal)."/paineladm/classes/sessao.class.php");

//$material = $_COOKIE['material'];

$objetoDocumentos = new documentos2024(); //calcula todos valores finais

$objetocalculoRaioX = new calculosFichaVirtual(); //calcula todos valores finais

$sessao = new sessao();

$nivel=$sessao->getVar('nivel');

$senhaCli=$sessao->getVar('iduser');

$idLabo=$sessao->getVar('idLabo');

$inicio=$sessao->getVar('inicio');

$final=$sessao->getVar('final');

//$idDoc=$sessao->getVar('transfere');





$idDocRequest=$_REQUEST['opcaoManual'];

//$donde1= $idDocRequest;

$idDoc=$idDocRequest;






$cliente=$sessao->getVar('cliente');

//$cliente='ADV';

$ocultarPureza=$sessao->getVar('ocultarPureza');

if(substr(strtoupper($cliente ?? ""),0,8)=='DIMICRON')$cliente="DIMICRON";

$viasMescladas=$sessao->getVar('controle7');

$varControle31=$sessao->getVar('controle31');

if($varControle31=='branco')$imprimirBranco='SIM';



//$pdf->Output("uploads/arquivo.pdf","F");//funciona

//verifica se a verificacao do arquivo esta satisfeita

$digital=$sessao->getVar('digital');



//echo("1xxxxxxxxxxxxxxidDocumento= $idDoc<br>");

$nomeOperador=$sessao->getVar('nomeuser');

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

$pdf=new FPDF('P','mm','A4'); //parametos da pagina 

//$pdf1=new PDF_HTML('P','mm','A4');

  $pdf->open();//abre o fpdf

  //aqui vai imprimir tantas vias mescladas num so arquivo

  for($mescladas=1;$mescladas<=$viasMescladas;$mescladas++):

    $indiceVetorNomesContaminantes=0;

    //vai encerrar a sessao ao findar as vias a serem impressas

	if($mescladas==$viasMescladas):

	   //$sessao->setVar('digital',"xxx");//precisa limpar a sessao senao mesmo que nao marcar a sessao continua com valor=SIM

    endif; 



	 $pdf->AddPage();//adicionando a primera pafina

	 $pdf->AliasNbPages();

	 $pdf->SetFont('Arial','',12);

	 $pdf->SetDrawColor(10,10,10);





	 $maximoHAdobe=297;

	 $maximoLAdobe=210;

     $margemEsquerdaExterna=10;

     $margemEsquerda=10;//estava 10.5

	 $margemDireita=$maximoLAdobe-7;

	 $larguraUtil=$maximoLAdobe-17;

	 $alturaUtil=$maximoHAdobe-70;

	 $alturaUtil=$maximoHAdobe-60;//coloquei isso em 140720

     $cotaFinal=$maximoHAdobe-30;

	 $cinza=220;

	 $pdf->SetFillColor($cinza,$cinza,$cinza);

	 $grosso=0.7;

	 $medio=0.4;

	 $fino=0.3;

	 $extraFino=0.2;

	 $cota1=5;

	 $cota2=30;

	 $cota3=40;

	 $cota4=53;

	 

	 //$cliente="BAREN";

	 $cotaVia=277;

	 $posicaoXVia=175;

$vetorDadosDocumento=$objetocalculo->dados_gerais_documento($idDoc);

 $funcao=$vetorDadosDocumento[40];

 //$funcao='FISCALIZAÇÃO';

 if($funcao=='FISCALIZAÇÃO'):

   if(substr($cliente,0,5)=="IAGRO"   || $cliente=="INDEA" ):

      $oficial='SIM';

      $tipoBoletim="BOLETIM OFICIAL DE ANÁLISE DE SEMENTES Nº ";

   endif;		

 endif;	

 //$oficial='SIM';

 if($imprimirBranco=='SIM')$vetorDadosDocumento="";

 if($oficial=="SIM"):

   $tipoBoletim="BOLETIM OFICIAL DE ANÁLISE DE SEMENTES Nº ";

 else:

   $tipoBoletim="BOLETIM DE ANÁLISE DE SEMENTES Nº ";

 endif;

 





	 //colocar aqui os nomes dos que querem que imprima o numero da via, em cima

	 if($cliente=="BAREN"||$cliente=="QUALITESTE"):

        $cotaVia=30;

	    $posicaoXVia=175;

     endif;	 

	 

	 if($oficial=='SIM'): 

	     $abate=-1;

		 $cota5=84-$abate;

		 $cota6=92-$abate;

		 $cota7=128-$abate;

		 $cota8=144-$abate;

		 $cota9=167-$abate; 

		 $cota10=215-$abate; 

		 $cota11=240-$abate; //era 250  ate 270620

     else:

	     $abate=4;

		 $cota5=84-$abate;

		 $cota6=92-$abate;

		 $cota7=128-$abate;

		 $cota8=144-$abate;

		 $cota9=167-$abate; 

		 $cota10=215-$abate; 

		 $cota11=240-$abate; //era 250  ate 270620

	 endif;





	 

	 

	 

	 $pdf->SetLineWidth($grosso);





     //contorno do corpao

	 //$alturaUtil-=10;

	 $pdf->rect($margemEsquerdaExterna,$cota3,$larguraUtil,$alturaUtil);



	 

	 



	 $pdf->SetFont('Times','B',10);

	 //$pdf->Cell(30,10,'Angela',1,0,'C'); 30=largura  10=altura   angela=texto   1=com borda    0=quebra de linhya a direita      Centralizado(L,C,R) SINTAXE.....

	     ####################################CABECALHO################################################

     $vetorCabecalho=$objetocalculo->dadoslaboratorio();

	  	 

         //contorno do logotipo 

		 $posicaoCab1=50;

	     $pdf->rect($margemEsquerdaExterna,$cota1,$larguraUtil,25);//d=draw (desenho/borda)  f=fill)	

         if($cliente=="BAREN")$pdf->Line($posicaoCab1+20,$cota1,$posicaoCab1+20,30);//barenbrug vai uma linha depois do cabecalho(se outro pedir é so colocar)

		 $tama=120;

	     $caminhoFinal="ImagensClientes/i".$idLabo.".JPG";

		 $pdf->Image($caminhoFinal,11,6,48,23,'JPG');

		 $pdf->setXY($margemEsquerda,$cota2+1);

		 $pdf->SetFont('Times','B',13);



		 //o/a didentificacao do lab

		 $cota1=5;

		 //if($cliente=='DIMICRON' || $cliente=='BAREN' )://dimicron quero a via la embaixo

		 //    $cotaVia=;//captura a cota para imprimir o numero de via la no final do script

	     //else:

		 //    $cotaVia=$cotaViaSuperior;//captura a cota para imprimir o numero de via la no final do script

		 //endif;

		 

		 

		 

		 //eu ajustei aqui em 01/12/2020 mas talvez precise ajustar o numero da via da dimicron novamente

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

			$tabela = '<table border="1">';

			$tabela .= '<tr>';

			 $tabela .= '<td colspan="8">BOLETIM VERTICAL EM EXCEL - Sistema SilasNet</tr>';//usa para o titulo tantas colunas quanto foi definido em coslpan

			 $tabela .= '</tr>';

			 $tabela .= '<tr>';

			 //$tabela .= '<td>'.utf8_decode($vetorCabecalho[0]).'</td>';

			 $tabela .= '<td>'.utf8_decode("GIRAFA").'</td>';

			 $tabela .= '</tr>';

			 

			 //so para ver como ad 

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









			 

		 $pdf->SetFont('Times','B',9);

         $alturaLinhaCabecalho=5;  			;

         //se  quiser imprimir 5 linhas de cabecalho entao coloca aqui 

		 if($cliente=='BAREN' ):

		    $pdf->SetFont('Times','B',10);

            $alturaLinhaCabecalho=4;  			;

	     endif;	

		 $alinhamento='C';	

         if(substr($cliente,0,5)=='IAGRO')$alinhamento='L';

		 $pdf->setXY($posicaoCab1,$cota1);

		 $pdf->Cell(175,$alturaLinhaCabecalho,utf8_decode($vetorCabecalho[0]),0,1,$alinhamento);//lab nome

		 $pdf->SetFont('Times','B',9);

		 //$pdf->SetFont('Times','',10);

		 $pdf->Ln(0);

		 $pdf->Cell($posicaoCab1-$margemEsquerda);

		 $pdf->Cell(175,$alturaLinhaCabecalho,utf8_decode($vetorCabecalho[1]),0,1,$alinhamento);

		 $pdf->Ln(0);

		 $pdf->Cell($posicaoCab1-$margemEsquerda);

		 $pdf->Cell(175,$alturaLinhaCabecalho,utf8_decode($vetorCabecalho[2]),0,1,$alinhamento);

		 $pdf->Ln(0);

		 $pdf->Cell($posicaoCab1-$margemEsquerda);

		 $pdf->Cell(175,$alturaLinhaCabecalho,utf8_decode($vetorCabecalho[3]),0,1,$alinhamento);

		 //$pdf->Cell(185,5,'toranja',0.5,1,'C');

		 $pdf->Ln(0);

		 $pdf->Cell($posicaoCab1-$margemEsquerda);

		 $pdf->Cell(175,$alturaLinhaCabecalho,utf8_decode($vetorCabecalho[4]),0,1,$alinhamento);

		 

		 if($cliente=='BAREN' ):

			 $pdf->Ln(0);

			 $pdf->Cell($posicaoCab1-$margemEsquerda);

			 $pdf->Cell(175,$alturaLinhaCabecalho,utf8_decode($vetorCabecalho[5]),0,1,$alinhamento);

         endif;





 ////////////////IDENTIFICACAO DO BOLETIM////////////////////////////

 $pdf->SetFont('Arial','B',10);

     

     $texto=str_pad($vetorDadosDocumento[1], 4, "0", STR_PAD_LEFT);

    

	 $texto1=$vetorDadosDocumento[4];//ANO

	 $texto1="/".$texto1;

	 if($cliente=='BAREN'):

	    if($cliente=='BAREN' )$pdf->SetFont('Arial','B',14);

	    $pdf->Cell($larguraUtil,8,utf8_decode($tipoBoletim).$texto.$texto1,0,0,'C'); 	

	 else:
      
	    $pdf->setXY($margemEsquerda,30);

        $pdf->Cell($larguraUtil,7,utf8_decode($tipoBoletim).$texto.$texto1,1,0,'C',1); 	

	 endif;	







     #####################DADOS DO REQUERENTE##################################################
	 $alturaLinhas=3.5;

	 $pdf->SetLineWidth($extraFino);
     $cota3-=3;
	 $pdf->setXY($margemEsquerda,$cota3);
	 $pdf->SetFont('Times','B',9);
     $pdf->Cell($larguraUtil,$alturaLinhas,utf8_decode('IDENTIFICAÇÃO DO REQUERENTE'),1,1,'C',1); 	
     $pdf->SetFont('Times','',8);
	 //Requerente/ReNASEM
	 $cota3+=$alturaLinhas;
	 $pdf->setXY($margemEsquerda,$cota3);
     $pdf->Cell(120,$alturaLinhas,'Requerente: '.utf8_decode($vetorDadosDocumento[0]) ,1,0,'L');
     $pdf->Cell(73,$alturaLinhas,'RENASEM: '.$vetorDadosDocumento[6] ,1,1,'L');
     //linha endereco/cep
	 $cota3+=$alturaLinhas;
	 $pdf->setXY($margemEsquerda,$cota3);
	 $pdf->Cell(120,$alturaLinhas,utf8_decode('Endereço: '.$vetorDadosDocumento[8]) ,1,0,'L');
	 $pdf->Cell(73,$alturaLinhas,'CEP: '.$vetorDadosDocumento[34] ,1,1,'L');

     ################IDENTIFICACAO DA AMOSTRA##################################################

	 //captura o numero da amostra
	//ENTRA DE QUAKQUER MANEIRA
	$generica=new tabelagenerica();
	$generica->tabela="documentosponte";
	$generica->campos_valores = array(
			"dpo_amostra_vinculada" => NULL,
		);
	$generica->extras_select =" where  dpo_documento_autonumerador=".$idDoc;
	$generica->selecionaCampos($generica);
	while ($resgenerica = $generica->retornaDados()):
		$amostraLong=$resgenerica->dpo_amostra_vinculada;
	endwhile;
     //IDENT DA AMOSTRA
	 $pdf->SetFont('Times','B',9);
	 $cota3+=$alturaLinhas;
	 $pdf->setXY($margemEsquerda,$cota3);
     $pdf->Cell($larguraUtil,$alturaLinhas,utf8_decode('IDENTIFICAÇÃO DA AMOSTRA') ,1,0.5,'C',1);	

	
     //VAI IMPRIMIR O MIX OU AMOSTRA , CASO NAO FOR MIX
	 $vetorMix=$objetoDocumentos->capturaTodoMix($amostraLong);
	 $tome="tomas";
	 $tome1=$vetorMix[1][5]."*".$vetorMix[1][7];
	 //$tome1=$vetorMix[1][3].$vetorMix[1][5].$vetorMix[1][7];
     //conta numero de especies no mix
     //$numeroEspeciesMistura=1; 
     
	 

    $vetorAmostraBruto=$objetocalculo->capturaGeralAmostra($amostraLong);//captura TUDO 

	if($imprimirBranco=='SIM')$vetorAmostraBruto="";

	  

     $largo[1]=117;

     $largo[2]=76;

     $posicaox[1]=10;

     $posicaox[2]=10+$largo[1];

	 



     //AQUI precisa contornar alguns problemas

	 //1)se é mamona tem 2 letra m que toma muito espaco e ja deu estouro entao preciso multiplicar por 3

	 //2)se é TOMATE/TOMATE RASTEIRO  E nome cientifico lycopersicum esculentum x lycoparsicum lyxopersicum

	 //gasta tanto espaco que invade o setor a direita

     //se o nome cientifico e o comum forem muito grandes ele diminui a fonte para 7 e diminui o tamnaho para 90%

	 $tamaFonte=8;

	 //aqui um gato para a quantitest  para que possa usar as especies di jeito que foram salvas

	 if($cliente=='QUALITESTE'):

	   //$vetorAmostraBruto[13]="Petunium";

	   if($vetorAmostraBruto[31]=='BS AA0067')$vetorDadosDocumento[13]='Lactuca  sativa var. capitata L';

	   if($vetorAmostraBruto[31]=='BS AC0053')$vetorDadosDocumento[13]='Lactuca  sativa var. crispa L';

	   if($vetorAmostraBruto[31]=='BS AL0071')$vetorDadosDocumento[13]='Lactuca  sativa var. capitata L';

	   if($vetorAmostraBruto[31]=='BS AR0073')$vetorDadosDocumento[13]='Lactuca  sativa var. longifolia Lam';

	 

	 endif;

	 

	 

	 

	 $nomeComum=$vetorDadosDocumento[2];

     $nomeCientifico='('.$vetorDadosDocumento[13].')'; //coloquei um espaco para resolver o boletim 174/2020

	 $tama=strlen($nomeComum);

	 $tamanhoMistura=strlen($nomeComum);

	 $conversor=1.8;//era 1.8

	 $tamanho1=$conversor*strlen('Especie');

	 $pdf->SetFont('Times','',$tamaFonte);

	 $pdf->setXY($margemEsquerda,$cota4+6);
     
     //$pdf->Cell($tamanho1,$larguraDaLinha,utf8_decode('Espécie:'),0,0,'L');

	 $tamanho2=$conversor*strlen($nomeComum);

	 if($nomeComum=="MAMONA")$tamanho2=$tamanho2*1.3;//se for mamona aumenta 30%

	 if($nomeComum=="GRAMA-BERMUDA")$tamanho2=$tamanho2*1.3;//se for mamona aumenta 30%

	 $tamanho3=$conversor*strlen($nomeCientifico);

	 $tamanhoSoma=$tamanho2+$tamanho3;

     //se o nome comum + o nome cientifico é muito grande ai diminui a letra de 8 para 7

	 if($tamanhoSoma>50):

	      $tamaFonte=7;

	      $tamanho2=$tamanho2*0.9;

	      $tamanho3=$tamanho3*0.9;

     endif;

	 $incrementoMistura=0;

	 $alturaLinhaMistura=4.5;

	 $parametroMistura=3.82;

	 $especieMistura="NAO";

     if($tamanhoMistura>40):  //maior que 30 caracteres ja é mistura

	     $incrementoMistura=$parametroMistura;

		 $alturaLinhaMistura=$parametroMistura;

	     $especieMistura="SIM";

	 endif;	 

     //AQUI IMPRIME A ESPECIE
	 $fatorCorretivoNomeCientifico=1;
	 $especieMistura="SIM";
	 
	 $tamaCientifico=97;
	 $tamaTotalEspecies=97;
	 $tamaSafra=20;
	 $tamaCategoria=20;
	 $tamaCultivar=56;
	 if($especieMistura=="SIM"):
		
		$alturaLinha=2.5;
	    $cota3+=4;	
	    $cotaGuardada=$cota3;
		$pdf->setXY($margemEsquerda,$cota3);
		$pdf->SetFont('Arial','B',7);
        $pdf->Cell($tamaTotalEspecies,$alturaLinha,utf8_decode("Espécies(*)"),0,0,"L");//
        $pdf->Cell($tamaSafra,$alturaLinha,utf8_decode("Safra"),0,0,"L");//
        $pdf->Cell($tamaCategoria,$alturaLinha,utf8_decode("Categ."),0,0,"L");//
        $pdf->Cell($tamaCultivar,$alturaLinha,utf8_decode( "Cultivares"),0,0,"L");//

		//comeca imprimeir especies e cultivares
		//$cota3+=$alturaLinha;	
	    $cotaGuardada=$cota3;
		$pdf->setXY($margemEsquerda,$cota3);
     

	 //$numeroEspeciesMistura-=1;
	 $pdf->SetLineWidth($extraFino);
	 $numeroEspeciesMistura=count($vetorMix);
	 $intervaloDisponivelMM=24;
	 $linhasParaImprimir=4+$numeroEspeciesMistura;
  	 $alturaLinha=$intervaloDisponivelMM/$linhasParaImprimir;
	 //MONTA STRING DE SAFRA E DE CATEGORIA
	 $fatorCorretivoNomeComum=1.5;
	 for($i=0;$i<$numeroEspeciesMistura;$i++):
	    $ordem=$i+1;
		$cota3+=$alturaLinha;
			
		$pdf->setXY($margemEsquerda,$cota3);
		$pdf->SetFont('Arial','',7);
	
		$comum=$vetorMix[$i][1];
		$tamaComum=$fatorCorretivoNomeComum*strlen($comum);
		$tamaCientifico=$tamaTotalEspecies-$tamaComum;			
		$cientifico=$vetorMix[$i][2];
		$encontradoNaPureza=$vetorMix[$i][5];
		//if($i==1)$cientifico='Espécie:'.$cientifico;
	    
		//$tamaCientifico=$fatorCorretivoNomeCientifico*strlen($cientifico);
        //$pdf->Cell($tamaComum,$alturaLinha,utf8_decode( $comum),0,0,);//

		$pdf->SetFont('Arial','',7);
        //$pdf->Cell($tamaCientifico,$alturaLinha,utf8_decode($ordem."º)".  $comum."(".$cientifico.")"."(". $encontradoNaPureza."%)"),1,0,"L");//
		$pdf->Line($margemEsquerda,$cota3,$margemEsquerda+$tamaTotalEspecies,$cota3);//
        $pdf->Cell($tamaComum,$alturaLinha,utf8_decode($ordem."º)".  $comum),0,0,"L");//
		$pdf->SetFont('Arial','I',7);
        $pdf->Cell($tamaCientifico,$alturaLinha,utf8_decode("(". $cientifico.")"."(". $encontradoNaPureza."%)"),0,0,"L");//
		$pdf->SetFont('Arial','',7);
        $pdf->Cell($tamaSafra,$alturaLinha,utf8_decode($vetorMix[$i][22]),1,0,"L");//
        $pdf->Cell($tamaCategoria,$alturaLinha,utf8_decode($vetorMix[$i][23]),1,0,"L");//
        $pdf->Cell($tamaCultivar,$alturaLinha,utf8_decode($vetorMix[$i][3]),1,0,"L");//

	    $cotaFinalEspecie=$cota3;	
       
	 endfor;		

    


     /*
	 //cultivar
	 $pdf->SetFont('Arial','',7);
	 $cota3=$cotaGuardada+2;
	 $concatenadoCultivar="Cultivares: ".
	 $vetorMix[1][3]." + ".
	 $vetorMix[2][3]." + ".
	 $vetorMix[3][3]." + ".
	 $vetorMix[4][3];
	 $pdf->setXY($margemEsquerda+$largo[1],$cota3);
	 $pdf->MultiCell($largo[2],$alturaLinha,utf8_decode( $concatenadoCultivar),0,'L',false);//Natureza do Material inerte usar 125
     //coloca aquele risco antes das cultivares
	 $posicaoCultivares=$margemEsquerda+$tamaCientifico;
     $pdf->Line($posicaoCultivares,$cota3-0.5,$posicaoCultivares,$cota3+25);
	 */

	 else:

	     $pdf->SetFont('Times','',$tamaFonte);

	     $pdf->Cell($tamanho2,$larguraDaLinha,utf8_decode($nomeComum),0,0,'L');

	     $pdf->SetFont('Times','I',$tamaFonte);

	     $pdf->Cell($tamanho3,$larguraDaLinha,utf8_decode($nomeCientifico),0,0,'L');

     endif;

	 

	 

	 //imprime cultivar no lugar certo se a especie é muito longa>130 ai empurra a cultivar 20 para a direita

	 $especieMistura="SIM";

	 

	 

	 

	 if($especieMistura=="SIM"):

		 $rebateCultivar=0;

	     if($tamanhoSoma>130)$rebateCultivar=20;//tetsukabuto e com nome de especie duplicada deu 156 

	     if($tamanhoSoma>210)$rebateCultivar=35;//tetsukabuto e com nome de especie duplicada deu 156 

	     //if($tamanhoSoma>130)$rebateCultivar=50;//especie extremamente gradnde dia 02/08/18

		 //$vetorAmostraBruto[31]="Catuaí­ Amarelo IAC 47";

		 //em 021221 ey ciei incremento mistura para criar uma linha mais alta para especie

         $posicaoLocal=$margemEsquerda+$largo[1]+$rebateCultivar; 

		 $cotaLocal=$cota4+$incrementoMistura+0.5+4;

		 $pdf->setXY($posicaoLocal,$cotaLocal); 

	     $pdf->SetFont('Times','',8);

		 $cultivarX=$vetorAmostraBruto[31];

		 $largura=$largo[2]-$rebateCultivar;

		 $altura=$incrementoMistura+$alturaLinhaMistura;

	     //$pdf->Cell($largura,$altura,'Cultivar:'.utf8_decode($cultivarX),1,0,'L');

		 $cota4+=$incrementoMistura;

     else:  //se a especie nao é mistura

		 $rebateCultivar=0;

	     if($tamanhoSoma>130)$rebateCultivar=20;//tetsukabuto e com nome de especie duplicada deu 156 

	     if($tamanhoSoma>210)$rebateCultivar=35;//tetsukabuto e com nome de especie duplicada deu 156 

	     //if($tamanhoSoma>130)$rebateCultivar=50;//especie extremamente gradnde dia 02/08/18

		 //$vetorAmostraBruto[31]="Catuaí­ Amarelo IAC 47";

		 //em 021221 ey ciei incremento mistura para criar uma linha mais alta para especie

		 //$pdf->setXY($margemEsquerda+$largo[1]+$rebateCultivar,$cota4+4.5+0.5); 

		 $posicaoLocal=$margemEsquerda+$largo[1]+$rebateCultivar;

         $cotaLocal=$cota4+4.5;		 

		 $pdf->setXY($posicaoLocal,$cotaLocal); 

	     $pdf->SetFont('Times','',8);

		 $cultivarX=$vetorAmostraBruto[31];

		 $largura=$largo[2]-$rebateCultivar;

		 $altura=$incrementoMistura+$alturaLinhaMistura;
         //if($especieMistura!="SIM"):
	       $pdf->Cell($largura,$altura,'Cultivar:'.utf8_decode($cultivarX),1,0,'L');
		 //endif;
		 $cota4+=$incrementoMistura;

	 endif;
     //A COTA 4 É DEFINIDA DINAMICAMENTE QUANDO TERMINA DE IMPRIMIR AS ESPECIES
     //primeira linha
	 $vetor[1][1]="";
	 $vetor[2][1]="Nº do Lote: ".$vetorAmostraBruto[2];
	 //$vetor[3][1]="Safra: ".$vetorAmostraBruto[34];
	 $vetor[3][1]="";

	 $vetor[1][2]="Cultivar: ".$vetorAmostraBruto[31]; 
	 //$vetor[2][2]="Representatividade:".$pdf->vetorFicha[17].$pdf->vetorFicha[18];
	 /////////BAREN INFORMa EM UNIDADES E DEPOIS MOSTRA EM QUILOS////

     if($cliente=='BAREN'):
        $repre=$vetorAmostraBruto[6];
        list($r1,$r2,$r3,$r4)= explode(" ", $repre);
     	$pesoFinal=number_format($r3*$r1,1,',','.');  //number_format($osg,$casasDecimais,'separador decimal','separador milhar')
        $vetorAmostraBruto[6]=$pesoFinal.' Kg';
     endif;	
	 ////////fim da situacao especial BAREN//////////
	 //primeira linha
	 $vetor[2][2]="Representatividade: ".$vetorAmostraBruto[6];
	 //$vetor[3][2]="Procedencia:".$pdf->vetorFicha[6];    //esta linha esta correta
	 
	 //segunda linha 24
	 $vetor[3][2]="Procedência: ".$vetorDadosDocumento[14];
	 $vetor[3][2]="Procedência: ".$vetorDadosDocumento[14];
     $colunas=2;
	 if($oficial=='SIM'): 
         $linhas=6;
         $vetor[4][1]="Termo de coleta de amostra: ".$vetorAmostraBruto[63];
		 $vetor[4][2]="Autorização de importação: ".$vetorAmostraBruto[99];
		 
		 $vetor[5][1]="Nome do Amostrador: ".$vetorDadosDocumento[5];//ok
		 $vetor[5][2]="RENASEM: ".$vetorDadosDocumento[7];//ok
		 
		 $vetor[6][1]="Data de Amostragem: ".$vetorDadosDocumento[11];//ok
		 $vetor[6][2]="Peneira: ".$vetorAmostraBruto[35];//ok
	 else: //las nao oficial
	 
         $linhas=5;
		 $vetor[4][1]="Nome do Amostrador: ".$vetorDadosDocumento[5];
		 $vetor[4][2]="RENASEM: ".$vetorDadosDocumento[7];
		 
		 $vetor[5][1]="Data de Amostragem: ".$vetorDadosDocumento[11];
		 $vetor[5][2]="Peneira: ".$vetorAmostraBruto[35];
	 endif;





      //$pdf->vetorFicha[11];  categoria........

	 //$cota4+=$incrementoMistura;
     //AQUI VAI IMPRIMIR A IDENTIFICACAO DA AMOSTRA DEPOIS DA MISTURA
	 $pdf->SetLineWidth(0.2); //usar espessura 1 para testar calibraçao
     $cotaLinha+=$cotaFinalEspecie;
     $larguraCategoria=58;
	 $pdf->SetFont('Times','',8);

     for($L=2;$L<=$linhas;$L++):
		 $cotaLinha+=$alturaLinha;
		 $pdf->setXY($margemEsquerda,$cotaLinha);
		     $larguraMembro1=$largo[1];
			 if($L==3)$larguraMembro1=$larguraMembro1= $larguraCategoria;//precisa este ajuste pois a categoria vai na linha 3
			 $pdf->Cell($larguraMembro1,$alturaLinha,utf8_decode($vetor[$L][1]),1,0,'L');	
			 if($L==3):   //se for linha 3, insere categoria 		
				//$pdf->Cell($larguraCategoria+1,$alturaLinhaMistura,'Categoria: '.utf8_decode($vetorDadosDocumento[10]),1,0,'L');	//era 57
				$pdf->Cell($larguraCategoria+1,$alturaLinha,'',1,0,'L');	//era 57
			 endif;
			 $pdf->Cell($largo[2],$alturaLinha,utf8_decode($vetor[$L][2]),1,1,'L');	
	 endfor;

	 $vetor[3][1]="Safra: ".$pdf->vetorFicha[9];



    ################IDENTIFICACAO DA AMOSTRA NO LABORATORIO##################################################

     $cota=$cota5;

	 $pdf->SetFont('Times','B',9);

	 $pdf->setXY($margemEsquerda,$cota);

     $pdf->Cell($larguraUtil,4.5,utf8_decode('IDENTIFICAÇÃO DA AMOSTRA NO LABORATÓRIO') ,1,0.5,'C',1);	

     $largo[1]=96;

     $largo[2]=97;

     $posicaox[1]=10;

     for($i=2;$i<=2;$i++)$posicaox[$i]=$posicaox[$i-1]+$largo[$i-1];  //calcula as posicoes 2,3,  somando as laruras

     if($cliente=='BAREN')://BAREN USA INFORMAR ASSIM 0056/17AD

	      $vetor[1][1]="Nº da amostra: ".str_pad($vetorAmostraBruto[1], 4, "0", STR_PAD_LEFT)."/".substr($vetorAmostraBruto[36],2,2).'-AD';

	 else:

	      $vetor[1][1]="Nº da amostra: ".str_pad($vetorAmostraBruto[1], 4, "0", STR_PAD_LEFT)."/".substr($vetorAmostraBruto[36],2,2);

	 endif;

	 //aqui inverte a data

	 $data=$vetorAmostraBruto[36];

	 $dia=substr($data,8,2);

	 $mes=substr($data,5,2);

	 $ano=substr($data,0,4);//ano   1951-02-28

	 $dataBrasileira=$dia."/".$mes."/".$ano;

	 $vetor[1][2]="Data do Recebimento: ".$dataBrasileira;

     $linhas=1;

     $colunas=2;

	 $pdf->SetLineWidth(0.2); //usar espessura 1 para testar calibraçao

	 $cotaLinha=$cota5;

	 $pdf->SetFont('Times','',8);

     for($L=1;$L<=$linhas;$L++)

	 {

	     $cotaLinha+=4.5;

    	 for($i=1;$i<=$colunas;$i++)

		 {

    		 $pdf->setXY($posicaox[$i],$cotaLinha);

			 $pdf->Cell($largo[$i],4.5,utf8_decode($vetor[$L][$i]),1,1,'L');	

			 $pdf->Ln(-4.5);//-8 é pra ele imprimir na mesma linha

		 }

		 $pdf->Ln(0);

	 }

    ################RESULTADO DE ANÁLISE##################################################

	 $vetor="";

     $cota=$cota6;

	 $pdf->SetFont('Times','B',9);

	 $pdf->setXY($margemEsquerda,$cota);

     $pdf->Cell($larguraUtil,4.5,utf8_decode('RESULTADO DE ANÁLISE') ,1,0.5,'C',1);	

     $largo[1]=54;

     $largo[2]=27;

     $largo[3]=112;

     $posicaox[1]=10;

     for($i=2;$i<=3;$i++)$posicaox[$i]=$posicaox[$i-1]+$largo[$i-1];  //calcula as posicoes 2,3,  somando as laruras

	 $vetor[1][2]="VERIFICAÇÃO";

	 if($ocultarPureza=="SIM"):

	    $vetorAmostraBruto[45]='-O-';

	 endif;

	 $purezaNumero=$vetorAmostraBruto[45];

	 if($purezaNumero*1   >0 ):

        $purezaFinal=str_replace(".",",",$purezaNumero);;

	 else:	

        $purezaFinal=$vetorAmostraBruto[45];

	 endif;

     //captura pesodetnocivas pesodetpureza e fic_testes_realizar

	 $userAmostra = new amostras();

	 $userAmostra->extras_select =  " where fic_id=".$amostraLong;

	 $userAmostra->selecionaCampos($userAmostra);

	 while ($resAmostra = $userAmostra->retornaDados()):

		$pesoDetNocivas=$resAmostra->fic_pesodet_nocivas;

		$testesRealizar=$resAmostra->fic_testes_realizar;

		$statusAnalise=$resAmostra->fic_analise_reanalise;
        $pesoPurezaMisturaTotal=$resAmostra->fic_pesopureza_mistura;  
	 endwhile;	









	 if($purezaFinal=="")$purezaFinal="-0-";

     //examina se marcou pureza

	 $assinalouPureza="NAO";

     $assinalouDOS="NAO";

	 $testesConcatenados="-".$vetorAmostraBruto[44];//coloquei um espaco antes para que a primeira posicao encontrada nao ficar valendo zero nunca

	 if(strpos($testesConcatenados,'PUR')>0)$assinalouPureza="SIM";

	 if(strpos($testesConcatenados,'DOS')>0)$assinalouDOS="SIM";

	 $pesoPurezaCasoIagro=$purezaFinal;

	 //cliente iagro faz reanalise fiscal(status=3) em doureza ou dos ou ambas

     if($cliente=="IAGRO" && $assinalouPureza=="NAO" && $statusAnalise=="3" ):

		$pesoPurezaCasoIagro='-0-';

	 endif;

	 



	 

	 	

	 $vetor[2][1]="PUREZA em ".$pesoPurezaCasoIagro." g"; //aqui imprime o peso

	 $vetor[2][2]="DE OUTRAS";

	 $vetor[2][3]="GERMINAÇÃO";

	 $vetor[3][2]="CULTIVARES"; 

	 $vetor[4][2]="(Nº)"; 

     $linhas=3;

     $colunas=3;

	 $pdf->SetLineWidth(0.2); //usar espessura 1 para testar calibraçao

	 $cotaLinha=$cota+1.2;

	 $pdf->SetFont('Times','B',8);

     //$cota+=10;

  	 //$cotaLinha+=10;





  

  

     for($L=1;$L<=$linhas;$L++)

	 {

	     $cotaLinha+=3.5;

    	 for($i=1;$i<=$colunas;$i++)

		 {

    		 $pdf->setXY($posicaox[$i],$cotaLinha);

			 //aqui vai colocar -N- se a pessoa optou por ocultar pureza(qualiteste 28/05/10))

			 $pdf->Cell($largo[$i],3.5,utf8_decode($vetor[$L][$i]),'0',1,'C');	

			 $pdf->Ln(-3.5);//-8 é pra ele imprimir na mesma linha

		 }

		 $pdf->Ln(0);

	 }

     //cria varias linhas horizontais e verticais deste setor

  

	 $cota6a=$cotaLinha+4.5;

     //2 linhas verticais grossas 

	 $pdf->SetLineWidth($medio); //usar espessura 1 para testar calibraçao

	 $pdf->line($posicaox[2],$cota+4.5,$posicaox[2],$cota7);

	 $pdf->line($posicaox[3],$cota+4.5,$posicaox[3],$cota7);

	 $pdf->SetLineWidth($fino); //usar espessura 1 para testar calibraçao

     $pdf->setXY($posicaox[1],$cota6a-1);

	 $pdf->Cell($largo[1],4.0,'(%)','1',1,'C');	

     $pdf->setXY($posicaox[2],$cota6a-1);

	 $pdf->Cell($largo[2],4.0,utf8_decode('(Nº)'),0,1,'C');	









	 $pdf->SetLineWidth($extraFino); //usar espessura 1 para testar calibraçao

     $pdf->setXY($posicaox[3],$cota6a-1);

	 $pdf->Cell($largo[3],4.0,'(%)','1',1,'C');	

	 #####################setor onde vao vao os identificadores das colunas################## 

	 $vetor="";

	 $cota=$cota6a;

	 $cota6b=$cota+4.5;

     $largo[1]=18;

     $largo[2]=18;

     $largo[3]=18;

     $largo[4]=27;

     $largo[5]=25;

     $largo[6]=21;

     $largo[7]=23;

     $largo[8]=22;

     $largo[9]=21;

     $posicaox[1]=10;

     $linhas=4;

     $colunas=9;

     for($i=2;$i<=$colunas;$i++)$posicaox[$i]=$posicaox[$i-1]+$largo[$i-1];  //calcula as posicoes 2,3,  somando as laruras

	 $vetor[1][1]="Sementes";

	 $vetor[1][2]="Material";

	 $vetor[1][3]="Outras";

     if($ocultarPureza=="SIM"): 

		 $vetorAmostraBruto[49]='-O-';//peso outras cultivares

	 endif; 

	 $vetor[1][4]="em " .$vetorAmostraBruto[49]." g."; 

	 $vetor[1][5]="Plântulas Normais"; 

	 $vetor[1][6]="Plântulas"; 

	 $vetor[1][7]="Sementes"; 

	 $vetor[1][8]="Sementes"; 

	 $vetor[1][9]="Sementes"; 



	 $vetor[2][1]="Puras";

	 $vetor[2][2]="Inerte";

	 $vetor[2][3]="Sementes"; 

	 $vetor[2][4]=""; 

	 $vetor[2][5]=""; 

	 $vetor[2][6]="Anormais"; 

	 $vetor[2][7]="Duras"; 

	 $vetor[2][8]="Dormentes"; 

	 $vetor[2][9]="Mortas"; 

	 $vetor[4][1]=$vetorAmostraBruto[4];//pureza
     $purezaOto=$vetorAmostraBruto[4];
     //$purezaOto="hh";
	 $valorPureza=$vetorAmostraBruto[4];//pureza

	 $vetor[4][2]=$vetorAmostraBruto[17];//mat inerte

	 $vetor[4][3]=$vetorAmostraBruto[18];//outras semenetes

	 $vetor[4][4]=$vetorAmostraBruto[15];//outras cultivares

     if($ocultarPureza=="SIM"): 

    	 $vetor[4][1]='-N-';//pureza

		 $vetor[4][2]='-N-';//mat inerte

		 $vetor[4][3]='-N-';//outras semenetes

		 $vetor[4][4]='-N-';//outras cultivares

	 endif; 

	 $vetor[4][5]=$vetorAmostraBruto[3];//normais

     $infecionadas=$vetorAmostraBruto[40];	 

     $deformadas=$vetorAmostraBruto[11];	 

     $totalAnormais=$infecionadas+$deformadas;	

	 if($vetorAmostraBruto[3]=='-N-') $totalAnormais="-N-";

	 $vetor[4][6]=$totalAnormais;//anormais

	 $vetor[4][7]=$vetorAmostraBruto[12];//duraa

	 $vetor[4][8]=$vetorAmostraBruto[13];//dormentes

	 $vetor[4][9]=$vetorAmostraBruto[14];//mortas

	 

 	 $pdf->SetLineWidth(0.2); //usar espessura 1 para testar calibraçao

	 //imprime os cabeçalhos das colunas

     for($linha=1;$linha<=2;$linha++):

		 $pdf->SetFont('Times','',7);

		 $cota+=3;

		 $pdf->setXY(10,$cota);

	     for($i=1;$i<=9;$i++):

			 $pdf->Cell($largo[$i],3,utf8_decode($vetor[$linha][$i]),0,0,'C');//imprime pureza com virgula 

	     endfor;  

     endfor;   	 

	 

     //aqui vai impirmir os 9 numeros de colunas

	 $pdf->SetFont('Arial','',6);

	 $cota+=3;

	 $pdf->setXY(10,$cota);

     for($i=1;$i<=9;$i++):

		 $pdf->Cell($largo[$i],3,$i,1,0,'C');//imprime pureza com virgula 

     endfor; 

	 

	  

     //aqui vai impirmir os 9 conteudos(RESULTADOS)

	 $cota+=3;

	 $pdf->setXY(10,$cota);

	 $pdf->SetFont('Times','',7);
	 $L=4; 
	 //$vetor[$L][1]=97;
	 //$vetor[$L][2]=2;
	 //$vetor[$L][3]=1;
 //s$purezaOto="";
	 for($i=1;$i<=9;$i++):
          //$vetor[$L][$i]="200";
		  //ajusta as colunas para este relatorio

	     //$pdf->line($posicaox[$i],$cota6b-1,$posicaox[$i],$cota7);//linhas separadoras verticais
         if($i<=4):
		     $valorItemPureza=$vetor[$L][$i];
		     if($valorItemPureza=='-N-'  || $valorItemPureza=='TRAÇO'  || $valorItemPureza=='' ):
			     $pdf->Cell($largo[$i],8,utf8_decode($valorItemPureza),1,0,'C');//imprime pureza do jeito que foi definido
			 else:
			     //$purezaOto="daf";
			     //$pdf->Cell($largo[$i],8,number_format($vetor[$L][$i],",",".")."jk".$purezaOto,1,0,'C');//imprime pureza com virgula
			     $pdf->Cell($largo[$i],8,$vetor[$L][$i],1,0,'C');//imprime pureza com virgula
		     endif;		 	
	     else://se for maior que 4
		    $vetor[$L][$i]=$vetorMix[0][$i+4];
  	        $pdf->Cell($largo[$i],8,$vetor[$L][$i],1,0,'C');//imprime restante
		 endif;		 
     endfor; //fecha for i

	 //vai colocar linhas divisroias	verticais 

     $acumulado=10;

     for($i=1;$i<=8;$i++):

	     $acumulado+= $largo[$i];

		 $pdf->line($acumulado,$cota-9,$acumulado,$cota-3);

     endfor; 



     ########SETOR DESDE NATUREZA DO MATERIAL INERTE ATÉ  DATA DE CONCLUSAO DO TESTE DE GERMINACAO##############

	 $cota+=8;

     $pdf->setXY($margemEsquerda,$cota);

	 //casuismo barenbrug (a natureza do material inerte é informada de forma diferente)

     if($cliente=="BAREN"):

	 	$materialInerteFinal="";

	    $materialInerteLido=$vetorAmostraBruto[19];

	    list($r1,$r2,$r3,$r4,$r5,$r6)= explode(";", $materialInerteLido);

        if(strlen($r1)>0 && substr($r1,0,1)!=" " && substr($r1,0,1)!="-") $materialInerteFinal=$materialInerteFinal.'Carvão;';      

        if(strlen($r2)>0 && substr($r2,0,1)!=" " && substr($r2,0,1)!="-")  $materialInerteFinal=$materialInerteFinal.' Torrão;';         

        if(strlen($r3)>0 && substr($r3,0,1)!=" " && substr($r3,0,1)!="-")  $materialInerteFinal=$materialInerteFinal.' Palha;';        

        if(strlen($r4)>0 && substr($r4,0,1)!=" " && substr($r4,0,1)!="-")  $materialInerteFinal=$materialInerteFinal.' Palito;';          

        if(strlen($r5)>0 && substr($r5,0,1)!=" " && substr($r5,0,1)!="-")  $materialInerteFinal=$materialInerteFinal.' Terra;';      

        if(strlen($r6)>0 && substr($r6,0,1)!=" " && substr($r6,0,1)!="-")  $materialInerteFinal=$materialInerteFinal.' Mat.Aglomerante';

        if($materialInerteFinal==""):$materialInerteFinal='-N-';	endif;  

        //$materialInerteFinal=$materialInerteLido; 

		

		    

	 else:

        $materialInerteFinal=$vetorAmostraBruto[19];

		if($ocultarPureza=="SIM")$materialInerteFinal="-O-"; //material inerte

	 endif;	 

	 $pdf->Cell($larguraUtil,4,'Natureza do Material Inerte: '.utf8_decode($materialInerteFinal),'1',1,'L');

	 //linha intrmediaria

     $cota+=4;	 

     $pdf->setXY($margemEsquerda,$cota);

	 $pdf->Cell(70,4,'Substrato: '.utf8_decode($vetorMix[0][8]),1,0,'L');	

  	 $pdf->Cell(35,4,utf8_decode('Temperatura(ºC): '.$vetorMix[0][7]),1,0,'L');

	 	

	 //aqui pequeno ajuste para adv, que grava o aparelho depois de tratamento e separa por asterisco

	 //se outros fizerem o mesmo que adv, vai funfar igual

	 $tratamentoSalvo=$vetorAmostraBruto[55];//pega o valor original

	 list($tratamento) = explode("*", $tratamentoSalvo);//pega so o tratameto e nao o restante depois do asteridco  ex: soda*67 , vai pegar so soda

	 $pdf->Cell(88,4,'Tratamento Especial: '.utf8_decode($tratamento),1,0,'L');



	 

	 //ultima linha	

     $cota+=4; 

     $pdf->setXY($margemEsquerda,$cota);

	 //$pdf->Cell(105,4,utf8_decode('Data de Conclusão do Teste de Germinação:').date("m/d/Y",strtotime($vetorAmostraBruto[52])),1,0,'L');	

	 $pdf->Cell(105,4,utf8_decode('Data de Conclusão do Teste de Germinação: '). $vetorAmostraBruto[52],1,0,'L');

	 $pdf->Cell(88,4,utf8_decode('Duração do Teste de Germinação: '.$vetorAmostraBruto[53]),1,1,'L');



     //$cota7c=$cota7a+5;

     //linhas verticais separadoras	 

	 //$pdf->line(70,$cota7a,70,$cota7b);

	 //$pdf->SetLineWidth($medio); //usar espessura 1 para testar calibraçao

	 //$pdf->line($posicao2,$cota7a,$posicao2,$cota7c);

     //linhas horizontais separadoras	 

	 //$pdf->SetLineWidth($fino); //usar espessura 1 para testar calibraçao

	 //$pdf->line($margemEsquerda,$cota7a,$margemDireita,$cota7a);

	 //$pdf->line($margemEsquerda,$cota7b,$margemDireita,$cota7b);

	 //$pdf->line($margemEsquerda,$cota7c,$margemDireita,$cota7c);

     ###setor outras sementes por numero###########################################################

	 //$cota8=$cota7c;

     

     $vetor="";

	 $cota8a=$cota;

     $largo[1]=24;

     $largo[2]=24;

     $largo[3]=24;

     $largo[4]=24;

     $largo[5]=24;

     $largo[6]=24;

     $largo[7]=24;

     $largo[8]=25;

	 

	 $cota+=4;

	 $pdf->SetFont('Times','B',9);

     $pdf->setXY($margemEsquerda,$cota);

	 $pdf->Cell($largo[1]+$largo[2]+$largo[3]+$largo[4],4.5,utf8_decode('OUTRAS SEMENTES POR NÚMERO'),1,0,'C');

	 $pdf->Cell($largo[5]+$largo[6]+$largo[7]+$largo[8],4.5,utf8_decode('OUTRAS DETERMINAÇÕES'),1,1,'C');

	 

	 

	 

	 

     $posicaox[1]=10;

     $linhas=5;

     $colunas=8;

     for($i=2;$i<=$colunas;$i++):

	     $posicaox[$i]=$posicaox[$i-1]+$largo[$i-1];  //calcula as posicoes 2,3,  somando as laruras

     endfor;		 

	 $vetor[1][1]="Outras Espécies";

	 $vetor[1][2]="Sementes";

	 $vetor[2][1]="Cultivadas";

	 $vetor[2][2]="Silvestres";

	 $vetor[2][3]="Toleradas"; 

	 $vetor[2][4]="Proibidas"; 



     //OUTRAS DETERMINACOES//////////////////////////////

	 $idEspecie=$vetorDadosDocumento[28];

     //ACHA OS TITULOS NA HIPOTESE DE SER DETERMINACAOE NORMAIS QUE NAO SEJA PM1 QUE LEVA A UM CASO ESPECIAÇ

	 	 //titulos-cabecalhos de outras determinacoes 

	 //acha daddos da determinacaoes VAI ME TRAZER UMA MATRIZ BIDIMENSIONALxxxxxxxxx

	 $matrizTitulosDetes=$objetocalculo->achaTitulosDetes($idEspecie,$idLabo,'deteboletim');	 

	 //primeira linha de titulo

	 $vetor[1][5]=$matrizTitulosDetes[1][1];

	 $vetor[1][6]=$matrizTitulosDetes[1][2];

	 $vetor[1][7]=$matrizTitulosDetes[1][3];

	 $vetor[1][8]=$matrizTitulosDetes[1][4];

	 //segunda linha de titulo

	 $vetor[2][5]=$matrizTitulosDetes[2][1];

	 $vetor[2][6]=$matrizTitulosDetes[2][2];

	 $vetor[2][7]=$matrizTitulosDetes[2][3];

	 $vetor[2][8]=$matrizTitulosDetes[2][4];

     //terceira linha de titulo

	 $vetor[3][5]=$matrizTitulosDetes[3][1];

	 $vetor[3][6]=$matrizTitulosDetes[3][2];

	 $vetor[3][7]=$matrizTitulosDetes[3][3];

	 $vetor[3][8]=$matrizTitulosDetes[3][4];





   	 //ENTRA DE QUAKQUER MANEIRA PARA ACHAR AS DETS DESTA ESPECIE PREPARANDO PARA VERIFICAR SE É PM1 A EXCESSAO PARA SOJA,TRIGO AVEIA ARROZ

     $genericaBoletimBoletim=new tabelagenerica();

	 $genericaBoletimBoletim->tabela="deteboletim";

	 $genericaBoletimBoletim->campos_valores = array(

			"dbo_sigla_dete1" => NULL,

			"dbo_sigla_dete2" => NULL,

			"dbo_sigla_dete3" => NULL,

			"dbo_sigla_dete4" => NULL,

		);

	 $genericaBoletimBoletim->extras_select =" where  dbo_lab=".$idLabo." && dbo_especie=".$idEspecie;

	 //echo $genericaBoletimBoletim->extras_select ;

	

     $genericaBoletimBoletim->selecionaCampos($genericaBoletimBoletim);

	 while ($resgenericaBoletimBoletim = $genericaBoletimBoletim->retornaDados()):

		$sigla[1]=$resgenericaBoletimBoletim->dbo_sigla_dete1;

		$sigla[2]=$resgenericaBoletimBoletim->dbo_sigla_dete2;

		$sigla[3]=$resgenericaBoletimBoletim->dbo_sigla_dete3;

		$sigla[4]=$resgenericaBoletimBoletim->dbo_sigla_dete4;

     endwhile;

	 $detOto3='s1='.$sigla[1].'s2='.$sigla[2].'s3='.$sigla[3].'s4='.$sigla[4];

	 

     //ACHA LICALIZACAO DAS 4 DETERMINACOES

	 //situacao especial vigna em soja mas serve para aveia em trigo etc

	//pode colocar a vigna m qualqeur coluna com qalquer det, desde que as  primeira 5 letras do rotulo sejam VIGNA

	$posicaoDetVigna=0;

	if($sigla[1]=='PM1'):

	   $posicaoDetVigna=5;

	endif;

	if($sigla[2]=='PM1'):

	   $posicaoDetVigna=6;

	endif;

	if($sigla[3]=='PM1'):

	   $posicaoDetVigna=7;

	endif;

	if($sigla[4]=='PM1'):

	   $posicaoDetVigna=8;

	endif;

    //$vetorAmostraBruto[50]=str_replace(".",",",$vetorAmostraBruto[50]);

	//$vetorAmostraBruto[51]=str_replace(".",",",$vetorAmostraBruto[51]);

    

    $nomeComum=trim($nomeComum);

	if($nomeComum=='SOJA'):

		if($posicaoDetVigna>0):

		   $vetor[1][$posicaoDetVigna]="Vigna un-";

		   $vetor[2][$posicaoDetVigna]='guiculata';

		   $vetor[3][$posicaoDetVigna]="Nºem'". $vetorAmostraBruto[51]."g";

		endif;

	endif;

     if($nomeComum=='TRIGO'  || $nomeComum=='TRIGO DURO'   || $nomeComum=='TRITICALE'  || $nomeComum=='CENTEIO' || $nomeComum=='CEVADA' ):

	 //if($nomeComum=='TRIGO'  || $nomeComum=='TRIGO DURO'):

		if($posicaoDetVigna>0):

		   $vetor[1][$posicaoDetVigna]='Aveias';

		   $vetor[2][$posicaoDetVigna]="Nºem" .$vetorAmostraBruto[50]."g";

		   $vetor[3][$posicaoDetVigna]="";

		endif;

	 endif;



	 if($nomeComum=='AVEIA PRETA'):

		if($posicaoDetVigna>0):

		   $vetor[1][$posicaoDetVigna]='Outras';

		   $vetor[2][$posicaoDetVigna]='aveias';

		   $vetor[3][$posicaoDetVigna]="Nºem" .$vetorAmostraBruto[50]."g";

		endif;

	 endif;

	 

	 // adv cadastrou uma especie estrnaha AVEIA-BRANCA OU AVEIA-AMARELA

     if($nomeComum!='AVEIA PRETA' && substr($nomeComum,0,5)=='AVEIA'):

		if($posicaoDetVigna>0):

		   $vetor[1][$posicaoDetVigna]='Avena';

		   $vetor[2][$posicaoDetVigna]='strigosa';

		   $vetor[3][$posicaoDetVigna]="Nºem" .$vetorAmostraBruto[50]."g";

		endif;

	 endif;

	 

	 

	 

	 /*

	 if($nomeComum=='AVEIA BRANCA' || $nomeComum=='AVEIA'  || $nomeComum=='AVEIA AMARELA'):

		if($posicaoDetVigna>0):

		   $vetor[1][$posicaoDetVigna]='Avena ';

		   $vetor[2][$posicaoDetVigna]='strigosa ';

		   $vetor[3][$posicaoDetVigna]="Nºem". $vetorAmostraBruto[50]."g";

		endif;

	 endif;

*/

	 if($nomeComum=='ARROZ' ):

		if($posicaoDetVigna>0):

		   $vetor[1][$posicaoDetVigna]='Outros ';

		   $vetor[2][$posicaoDetVigna]='arroz ';

		   $vetor[3][$posicaoDetVigna]="Nºem" .$vetorAmostraBruto[51]."g";

		endif;

	 endif;

     //$vetor[3][6]="L".$sigla[2].$nomeComum.$posicaoDetVigna;

	  



 for($i=1;$i<=8;$i++) $vetor[4][$i]=$i+9; //cria a numeraçao das colunas

	 $vetor[5][1]=$vetorAmostraBruto[7];

	 $vetor[5][2]=$vetorAmostraBruto[8];

	 $vetor[5][3]=$vetorAmostraBruto[9];

	 $vetor[5][4]=$vetorAmostraBruto[10];

	 

     /////////enxerto la do horizontal////////////////////////////////

	 //OUTRA DETERMINAÇÕES OUTROS FATORES

 	 for($indi=1;$indi<=4;$indi++):

	    $indice=4+$indi;

		//AQUI VAI PEGAR DA REAN

		$vetor[5][$indice]='-N-';//se ele nao achar nada entao poe -N-

		$genericaBoletim=new tabelagenerica();

		$genericaBoletim->tabela="rean1";

		$genericaBoletim->campos_valores = array(

				"rea_v1" => NULL,

                "rea_v2" => NULL,

				"rea_boletim" => NULL,

			);

		$genericaBoletim->extras_select =" where rea_teste='".$sigla[$indi]."' &&  rea_ficha=".$amostraLong;

		//echo $genericaBoletim->extras_select ;

	    $genericaBoletim->selecionaCampos($genericaBoletim);

		while ($resgenericaBoletim = $genericaBoletim->retornaDados()):

			//$vetorResultados[$L][$indice]=$resgenericaBoletim->rea_v1;

			$ocultarOD=$resgenericaBoletim->rea_boletim;

            $valorResultadoOD=$resgenericaBoletim->rea_v1; 

            $concatenaResultados=$concatenaResultados. $valorResultadoOD;

            $concatenasigla=$concatenasigla.$sigla[$indi].$valorResultadoOD;

            //se quer que apareca viabilidade no TZO entao vai pegar o v2 mas se quiser os dois a gente adapta para o segundo quer o lab

			if($ocultarOD=='N'):

    			$valorResultadoOD='-N-';

	        endif;

			//$valorResultadoOD=$sigla[$indi];

			$vetor[5][$indice]=$valorResultadoOD;

			if($valorResultadoOD=="")$vetor[5][$indice]='-N-';

			//$vetorResultados[$L][$indice]="kk";

	    endwhile;

	 endfor;

	 $variavel896="896".

     $detOto3="xxxxx".$concatenasigla;	 

	 $detOto3="";

	 ///////fim do enxerto la do horizontal///////////

	

	 $pdf->SetLineWidth(0.2); //usar espessura 1 para testar calibraçao

	 //$cotaLinha=$cota-3.5;

	 //$pdf->SetFont('Times','',7);

	

	

	 $pdf->SetLineWidth(0.2); //usar espessura 1 para testar calibraçao

	 //imprime os cabeçalhos das colunas

	 $cota+=2;

     for($linha=1;$linha<=3;$linha++):

		 $pdf->SetFont('Times','',7);

		 $cota+=3;

		 $pdf->setXY(10,$cota);

	     for($i=1;$i<=8;$i++):

		     $pdf->SetFont('Times','',7);

             if($linha==2 && ($i==4 || $i==3) ):

			     $pdf->Cell($largo[$i],3,utf8_decode($vetor[$linha][$i]),1,0,'C');//imprime pureza com virgula

		     else:

			     //se a determinacao for vigna ele distribui na primeira e segunda linha excrevendo em italico

     		     if(substr($vetor[1][$i],0,5) =='Vigna' && $linha<3) $pdf->SetFont('Times','I',7);

			     $pdf->Cell($largo[$i],3,utf8_decode($vetor[$linha][$i]),0,0,'C');//imprime pureza com virgula

			 

			 endif;		 

	     endfor;  

     endfor;   	 

     //aqui captura se foi -O- na coluna 

	 if($vetor[2][5]=="-O-")$vetor[5][5]='-N-';

	 if($vetor[2][6]=="-O-")$vetor[5][6]='-N-';

	 if($vetor[2][7]=="-O-")$vetor[5][7]='-N-';

	 if($vetor[2][8]=="-O-")$vetor[5][8]='-N-';

	 

	 

	 //imprime os cabeçalhos  das colunas especiais

	 $pdf->SetFont('Times','',7);

	 $pdf->setXY($margemEsquerda+$largo[1]+$largo[2],$cota-6.5);

	 $pdf->Cell($largo[3]+$largo[4],3.5,'Sementes nocivas',1,0,'C');//

     $pesoPurezaIagro=$vetorAmostraBruto[50];

     $pesoNocivasIagro=$vetorAmostraBruto[51];



     if($ocultarPureza=="SIM"): 

	    $vetorAmostraBruto[50]="-O-";//peso oesp

	    $vetorAmostraBruto[51]="-O-";//peso nocivas

	 endif;

   	 $pdf->setXY(10,$cota);

	 

	 //os comandos a segur coloca virgula no lugar de ponto nos peso de silvestres e peso de nocivas

	 $vetorAmostraBruto[50]=str_replace(".",",",$vetorAmostraBruto[50]);

	 $vetorAmostraBruto[51]=str_replace(".",",",$vetorAmostraBruto[51]);

	 

	 //$cliente="IAGROxxxxxxxxxxxxx";

     $assinalouPureza="NAO";

     $assinalouDOS="NAO";

	 $testesConcatenados="-".$vetorAmostraBruto[44];//coloquei um espaco antes para que a primeira posicao encontrada nao ficar valendo zero nunca

	 if(strpos($testesConcatenados,'PUR')>0)$assinalouPureza="SIM";

	 if(strpos($testesConcatenados,'DOS')>0)$assinalouDOS="SIM";

	 //captura pesodetnocivas pesodetpureza e fic_testes_realizar

	 $userAmostra = new amostras();

	 $userAmostra->extras_select =  " where fic_id=".$amostraLong;

	 $userAmostra->selecionaCampos($userAmostra);

	 while ($resAmostra = $userAmostra->retornaDados()):

		$pesoDetNocivas=$resAmostra->fic_pesodet_nocivas;

		$testesRealizar=$resAmostra->fic_testes_realizar;

		$statusAnalise=$resAmostra->fic_analise_reanalise;

	 endwhile;	

	 

	 if($cliente=="IAGRO"):

        ///$pdf->Cell($largo[1]+$largo[2],3,utf8_decode('(Nº) em '.$vetorAmostraBruto[50].$assinalouPureza.$testesConcatenados.' g'),'1',0,'C');	

        if($cliente=="IAGRO" &&  $assinalouPureza=="NAO"):

			$vetorAmostraBruto[50]=$purezaFinal;

			$vetorAmostraBruto[51]=$pesoDetNocivas;

		endif;	



        if($assinalouPureza=="SIM"): 

			$pdf->Cell($largo[1]+$largo[2],3,utf8_decode('(Nº) em '.$purezaFinal.' g'),'1',0,'C');	

			$pdf->Cell($largo[3]+$largo[4],3,utf8_decode('(Nº) em '.$pesoDetNocivas.' g'),'1',1,'C');//peso de nocivas

			//$pdf->Cell($largo[1]+$largo[2],3,utf8_decode('(N2º) em '.$vetorAmostraBruto[50].' g'),'1',0,'C');	

		   //$pdf->Cell($largo[1]+$largo[2],3,$cliente.utf8_decode('(N3º) em '.$pesoDetNocivas.$testesRealizar.' g'),'1',0,'C');	

	    else:

			$pdf->Cell($largo[1]+$largo[2],3,utf8_decode('(Nº) em '.$vetorAmostraBruto[50].' g'),'1',0,'C');	

			$pdf->Cell($largo[3]+$largo[4],3,utf8_decode('(Nº) em '.$vetorAmostraBruto[51].' g'),'1',1,'C');//peso de nocivas

	      //$pdf->Cell($largo[1]+$largo[2],3,$cliente.utf8_decode('(N3bº) em '.$vetorAmostraBruto[50].' g'),'1',0,'C');	

	    endif;	

	 else://TODOS EXCETO IAGRO

		$pdf->Cell($largo[1]+$largo[2],3,utf8_decode('(Nº) em '.$vetorAmostraBruto[50].' g'),'1',0,'C');	

		$pdf->Cell($largo[3]+$largo[4],3,utf8_decode('(Nº) em '.$vetorAmostraBruto[51].' g'),'1',1,'C');//peso de nocivas

	 endif;







	 

      

	 









     

     //aqui vai impirmir os 8 numeros de colunas  de baixo que vao de 10 a 17##########################################################

     //aqui vai impirmir os 8 numeros de colunas  de baixo que vao de 10 a 17##########################################################

     //aqui vai impirmir os 8 numeros de colunas  de baixo que vao de 10 a 17##########################################################

	 $pdf->SetFont('Arial','',6);

	 $cota+=3;

	 $pdf->setXY(10,$cota);

     for($i=1;$i<=8;$i++):

		 $pdf->Cell($largo[$i],3,$i+9,1,0,'C');//imprime numero das colunas

     endfor;  





    //vai achar quantidade de vigna de aveia de arroz,de outras coisas   casusimo da determinacao PM!



      $indiceVetorNomesContaminantes=0;

      $somaOE=$vetorAmostraBruto[7];//

	  $somaOEIagro=$somaOE;

	  //$vetorRXOESP=$objetocalculoRaioX-> captura_registros_invasorasRX("1OES",$amostraLong);

	  //$limiteOESP=sizeof($vetorRXOESP)-1;

      //$vetor[5][6]="333".$somaOE;

      //$vetor[5][6]=$somaOE;

	  //$somaOEOto=$limiteOESP;

	  //$somaOE=$somaOEOto;

	  //$somaOE=1;

	  

	  if($somaOE>0):

	     $vetor[5][$posicaoDetVigna]=0;

	  	 $praga="";

		 $conteudo="";

		 //ENTRA SO SE TIVER SILV

		 //ENTRA DE QUAKQUER MANEIRA

	     $generica=new tabelagenerica();

         $generica->tabela="contaminantes,invasoras";

		 $generica->campos_valores = array(

				"inv_qtd" => NULL,

				"con_nome_cientifico" => NULL,

			);

	     $generica->extras_select =" where con_id=inv_cod_praga && inv_codigo='1OES' && inv_amostra=".$amostraLong;

	     $generica->selecionaCampos($generica);

		 //$conteudo="10-";

		 $somaQtdTrigo=0;//vai somar varias aveis strigozs bizantina etc

		 $somaQtdAveiaStrigosa=0;//vi somar varias aveias branca amarela etc

		 $somaQtdArroz=0;//pode ter arroz preto e arroz vermelho

		 $quantidadeExcecao=0;

         //$indiceVetorNomesContaminantes=0;	

		 $pragaExcecao="";	 

	     while ($resgenerica = $generica->retornaDados()):

		     $praga=$resgenerica->con_nome_cientifico; //captura o contaminante tal qual foi gravado

		     $qtd=$resgenerica->inv_qtd; //captura a quantidade

             //$pragaComQuantidade=$praga."(".$qtd.")";

             $pragaOespImprimir="10-".$praga;

             $prosicaoRealExcecao=$posicaoDetVigna+9;

            //os casuismos do lanagro rs 

			if($posicaoDetVigna>0):

			 

             if($nomeComum=='SOJA'):

              if(substr($praga,0,5)=='Vigna'):

                $quantidadeExcecao+=$qtd;

				$pragaOespImprimir=$prosicaoRealExcecao."-" .$praga;

                $vetor[5][$posicaoDetVigna]=$quantidadeExcecao; //aqui joga na coluna excecao a soma do que achou   

                $vetor[5][1]=$somaOE-$quantidadeExcecao;//coloca na coluna de oesp

              endif;//testa apraga 

			 endif;//testa a(s) especie(s)



             if($nomeComum=='AVEIA BRANCA' || $nomeComum=='AVEIA' ||$nomeComum=='AVEIA AMARELA' ):

              if(substr($praga,0,14)=='Avena strigosa' ):

                $quantidadeExcecao+=$qtd;

				$pragaOespImprimir=$prosicaoRealExcecao."-" .$praga;

                $vetor[5][$posicaoDetVigna]=$quantidadeExcecao; //aqui joga na coluna excecao a soma do que achou   

                $vetor[5][1]=$somaOE-$quantidadeExcecao;//coloca na coluna de oesp

              endif;//testa apraga 

			 endif;//testa a(s) especie(s)

             

             if($nomeComum=='TRIGO' || $nomeComum=='TRIGO DURO' || $nomeComum=='CENTEIO' || $nomeComum=='CEVADA' || $nomeComum=='TRITICALE' ):

              if(substr($praga,0,5)=='Avena' ):

                $quantidadeExcecao+=$qtd;

				$pragaOespImprimir=$prosicaoRealExcecao."-" .$praga;

                $vetor[5][$posicaoDetVigna]=$quantidadeExcecao; //aqui joga na coluna excecao a soma do que achou   

                $vetor[5][1]=$somaOE-$quantidadeExcecao;//coloca na coluna de oesp

              endif;//testa apraga 

			 endif;//testa a(s) especie(s)

			 

             if(substr($nomeComum,0,5)=='ARROZ' ):

              if(substr($praga,0,5)=='Oryza' ):

                $quantidadeExcecao+=$qtd;

				$pragaOespImprimir=$prosicaoRealExcecao."-" .$praga;

                $vetor[5][$posicaoDetVigna]=$quantidadeExcecao; //aqui joga na coluna excecao a soma do que achou   

                $vetor[5][1]=$somaOE-$quantidadeExcecao;//coloca na coluna de oesp

              endif;//testa apraga 

			 endif;//testa a(s) especie(s)



             if(substr($nomeComum,0,11)=='AVEIA PRETA' ):

              if(substr($praga,0,5)=='Avena' ):

                $quantidadeExcecao+=$qtd;

				$pragaOespImprimir=$prosicaoRealExcecao."-" .$praga;

                $vetor[5][$posicaoDetVigna]=$quantidadeExcecao; //aqui joga na coluna excecao a soma do que achou   

                $vetor[5][1]=$somaOE-$quantidadeExcecao;//coloca na coluna de oesp

              endif;//testa apraga 

			 endif;//testa a(s) especie(s)



            endif;//verifica se posicao dete vidgna para aquela especie é maior que zero

             /////vai jogar os contaminantes no desctitivo das oesp

             $indiceVetorNomesContaminantes++;

			 $tama=strlen($pragaOespImprimir);//mede o tamanho

             //testa se no final tem sp

			 //$pragaOespImprimir="testexxx";

			 $rabichoSP=substr($pragaOespImprimir,$tama-2);//captura as duas ultimas letras

			 if($rabichoSP=='sp')://pegurnta se é sp as ultimas letras

                $praga=substr($pragaOespImprimir,0,$tama-2).']'.$rabichoSP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSP;			 

			 endif;

			 //testa se no final tem spp

			 $rabichoSPP=substr($pragaOespImprimir,$tama-3);//captura as duas ultimas letras

			 if($rabichoSPP=='spp')://pegurnta se é sp as ultimas letras

                $praga=substr($pragaOespImprimir,0,$tama-3).']'.$rabichoSPP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSPP;			 

			 endif;

			 

             $pragaOespImprimir='['.$pragaOespImprimir.']'; //coloca um abridor antes e um fechador depois quuando tem sp vai aparecer 2 fechadores mas nao em problema			 

	    	 $conteudo=$conteudo.$pragaOespImprimir." (".$resgenerica->inv_qtd.");";

             

	         $tamanhoStringFinal=strlen($conteudo);

			 

		     $base[$indiceVetorNomesContaminantes]=$conteudo;

		     $conteudo="";

			 // fim do descritovo das oesp

		 endwhile;//rolador de todas oesp

		 //$conteudo="";

		 $praga="";

	  else: //caso nao tenha encontrado oesp	coloca zero quantidade para vigna ou outra das excecoes

	     $vetor[5][$posicaoDetVigna]=0;

		 //

      endif;//pesquisa se é OE>0

	  

	  //$vetor[5][7]=7;

	  

	  

	  

     /////////fim da soma das quantidades de vigna e outros  itens///////////////////





     //aqui vai imprimir os 8 conteudos das colunas numeradas de 10 a 17

     //aqui cria um artificio - se pureza foi -N- a posicao 5 tembem sera

	 if($valorPureza=='-N-'):

        if($vetor[5][5]=="")$vetor[5][5]="-N-";

     endif;

	 

	  if($valorPureza=='-N-'):

        $vetor[5][$posicaoDetVigna]="-N-";

     endif;

	 //SE ELE NAO LANCOU NADA E É REANALISE CASO ESPECIAL COLOCA ZERO EM ESPECIES

	 if($cliente=="IAGRO" && $assinalouPureza=="SIM" && $somaOEIagro=="-N-"  ):

	    $vetor[5][1]= "0";

     endif; 

 

 

     //AQUI IMPRIME RESULTADOS NA PARTE DE BAIXO#######################################################

	 //cliente iagro faz reanalise fiscal(status=3) em doureza ou dos ou ambas

	 $somaSI=$vetorAmostraBruto[8];//

     

	 if($cliente=="IAGRO" && $assinalouPureza=="NAO" && $statusAnalise=="3" ):

		$quantiaSilvestesIagro= $somaSI;

		if($somaSI=="-N-") $quantiaSilvestesIagro="0"; //ou seja se ele achaou alguma coisa em somasi ele traz caso contrario ele poe zero

	 endif;	

	 if($cliente=="IAGRO" && $assinalouPureza=="SIM" && $statusAnalise=="3" ):

		$quantiaSilvestesIagro= $somaSI;

		if($somaSI=="-N-") $quantiaSilvestesIagro="0"; //ou seja se ele achaou alguma coisa em somasi ele traz caso contrario ele poe zero

	 endif;	

	 



	 





	 $vetor[5][2]=$quantiaSilvestesIagro;

	 if($cliente=="IAGRO" && $assinalouDOS=="NAO" && $statusAnalise=="3" ):

		//$pesoDOSIAGRO='-CDI-';

        $vetor[5][1]="-N-";

        $vetor[5][2]="-N-";

        $vetor[5][3]="-N-";

        $vetor[5][4]="-N-";

	 endif;

	 

	 

	 $cota+=3;

	 $pdf->setXY(10,$cota);

	 $pdf->SetFont('Times','',7);

	 //$vetor[5][8]='dafo';

	 for($i=1;$i<=8;$i++):

	    //$pdf->Cell($largo[$i],8,$vetor[5][$i].$cliente.$assinalouDOS.$statusAnalise,1,0,'C');//imprime restante

	    $pdf->Cell($largo[$i],8,$vetor[5][$i],1,0,'C');//imprime restante

     endfor;

	 

	 

//vai colocar linhas divisroias	verticais 

     $acumulado=10;

     for($i=1;$i<=8;$i++):

	     $acumulado+= $largo[$i];

		 if($i==1 ) $pdf->line($acumulado,$cota-12.5,$acumulado,$cota-6);

		 if($i>4) $pdf->line($acumulado,$cota-12.5,$acumulado,$cota-3);



     endfor; 



	//contaminantes

	//$indiceVetorNomesContaminantes=0;

	//so entra se tiver sislvestre

    $somaOE=$vetorAmostraBruto[7];//

    $somaSI=$vetorAmostraBruto[8];//

    $somaTO=$vetorAmostraBruto[9];//

    $somaPR=$vetorAmostraBruto[10];//

	//$somaOEOto=$somaOE;

    //$vetor[5][2]=200;



//$indiceVetorNomesContaminantes=2;

	if($somaSI>0):

	     $praga="";

		 $conteudo="";

		 //ENTRA SO SE TIVER SILV

		 //ENTRA DE QUAKQUER MANEIRA

	     $generica=new tabelagenerica();

         $generica->tabela="contaminantes,invasoras";

		 $generica->campos_valores = array(

				"inv_qtd" => NULL,

				"con_nome_cientifico" => NULL,

			);

	     $generica->extras_select =" where con_id=inv_cod_praga && inv_codigo='2SIL' && inv_amostra=".$amostraLong;

	     $generica->selecionaCampos($generica);

		 $conteudo="11-";



	     while ($resgenerica = $generica->retornaDados()):

	    	 $praga=$resgenerica->con_nome_cientifico; //captura o contaminante tal qual foi gravado

			 $tama=strlen($praga);//mede o tamanho

             //testa se no final tem sp

			 $rabichoSP=substr($praga,$tama-2);//captura as duas ultimas letras

			 if($rabichoSP=='sp')://pegurnta se é sp as ultimas letras

                $praga=substr($praga,0,$tama-2).']'.$rabichoSP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSP;			 

			 endif;

			 //testa se no final tem spp

			 $rabichoSPP=substr($praga,$tama-3);//captura as duas ultimas letras

			 if($rabichoSPP=='spp')://pegurnta se é sp as ultimas letras

                $praga=substr($praga,0,$tama-3).']'.$rabichoSPP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSPP;			 

			 endif;

             $praga='['.$praga.']'; //coloca um abridor antes e um fechador depois quuando tem sp vai aparecer 2 fechadores mas nao em problema			 

	    	 $conteudo=$conteudo.$praga." (".$resgenerica->inv_qtd.");";

			 //aqui o gato quebrador caso ja estiver muito longo

	         $tamanhoStringFinal=strlen($conteudo);

             if($tamanhoStringFinal>130):

				 $indiceVetorNomesContaminantes++;

			     $base[$indiceVetorNomesContaminantes]=$conteudo;

			     $conteudo="";

			 endif;

		 endwhile;

		 $indiceVetorNomesContaminantes++;

	     $base[$indiceVetorNomesContaminantes]=$conteudo;

	endif;



	if($somaTO>0):

		 $praga="";

		 $conteudo="";

		 //ENTRA SO SE TIVER tolerada

		 //ENTRA DE QUAKQUER MANEIRA

	     $generica=new tabelagenerica();

         $generica->tabela="contaminantes,invasoras";

		 $generica->campos_valores = array(

				"inv_qtd" => NULL,

				"con_nome_cientifico" => NULL,

			);

	     $generica->extras_select =" where con_id=inv_cod_praga && inv_codigo='3NOT' && inv_amostra=".$amostraLong;

	     $generica->selecionaCampos($generica);

		 $conteudo="12-";

	     while ($resgenerica = $generica->retornaDados()):

		     $praga=$resgenerica->con_nome_cientifico; //captura o contaminante tal qual foi gravado

			 $tama=strlen($praga);//mede o tamanho

             //testa se no final tem sp

			 $rabichoSP=substr($praga,$tama-2);//captura as duas ultimas letras

			 if($rabichoSP=='sp')://pegurnta se é sp as ultimas letras

                $praga=substr($praga,0,$tama-2).']'.$rabichoSP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSP;			 

			 endif;

			 //testa se no final tem spp

			 $rabichoSPP=substr($praga,$tama-3);//captura as duas ultimas letras

			 if($rabichoSPP=='spp')://pegurnta se é sp as ultimas letras

                $praga=substr($praga,0,$tama-3).']'.$rabichoSPP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSPP;			 

			 endif;

             $praga='['.$praga.']'; //coloca um abridor antes e um fechador depois quuando tem sp vai aparecer 2 fechadores mas nao em problema			 

	    	 $conteudo=$conteudo.$praga." (".$resgenerica->inv_qtd.");";

			 //aqui o gato quebrador caso ja estiver muito longo

	         $tamanhoStringFinal=strlen($conteudo);

             if($tamanhoStringFinal>130):

				 $indiceVetorNomesContaminantes++;

			     $base[$indiceVetorNomesContaminantes]=$conteudo;

			     $conteudo="";

			 endif;

		 endwhile;

		 $indiceVetorNomesContaminantes++;

	     $base[$indiceVetorNomesContaminantes]=$conteudo;

		 //AQUI VAI RACHAR O NOME caso for muito comprido

	     //$tamanhoStringFinal=strlen($conteudo);

		 //$base[$indiceVetorNomesContaminantes]=substr($conteudo,0,50).$tamanhoStringFinal;

		 

		 

		 

	endif;

	 

	if($somaPR>0):

		 $praga="";

		 $conteudo="";

		 //ENTRA SO SE TIVER proibida

		 //ENTRA DE QUAKQUER MANEIRA

	     $generica=new tabelagenerica();

         $generica->tabela="contaminantes,invasoras";

		 $generica->campos_valores = array(

				"inv_qtd" => NULL,

				"con_nome_cientifico" => NULL,

			);

	     $generica->extras_select =" where con_id=inv_cod_praga && inv_codigo='4NOP' && inv_amostra=".$amostraLong;

	     $generica->selecionaCampos($generica);

		 $conteudo="13-";

	     while ($resgenerica = $generica->retornaDados()):

			 $praga=$resgenerica->con_nome_cientifico; //captura o contaminante tal qual foi gravado

			 $tama=strlen($praga);//mede o tamanho

             //testa se no final tem sp

			 $rabichoSP=substr($praga,$tama-2);//captura as duas ultimas letras

			 if($rabichoSP=='sp')://pegurnta se é sp as ultimas letras

                $praga=substr($praga,0,$tama-2).']'.$rabichoSP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSP;			 

			 endif;

			 //testa se no final tem spp

			 $rabichoSPP=substr($praga,$tama-3);//captura as duas ultimas letras

			 if($rabichoSPP=='spp')://pegurnta se é sp as ultimas letras

                $praga=substr($praga,0,$tama-3).']'.$rabichoSPP; //se for =sp coloca um ]fechador  e o rabicho

				$rabichoFinal=$rabichoSPP;			 

			 endif;

             $praga='['.$praga.']'; //coloca um abridor antes e um fechador depois quuando tem sp vai aparecer 2 fechadores mas nao em problema			 

	    	 $conteudo=$conteudo.$praga." (".$resgenerica->inv_qtd.");";

			 //aqui o gato quebrador caso ja estiver muito longo

	         $tamanhoStringFinal=strlen($conteudo);

             if($tamanhoStringFinal>130):

				 $indiceVetorNomesContaminantes++;

			     $base[$indiceVetorNomesContaminantes]=$conteudo;

			     $conteudo="";

			 endif;

		 endwhile;

		 $indiceVetorNomesContaminantes++;

	     $base[$indiceVetorNomesContaminantes]=$conteudo;

	endif;

	 

	 

	 

     ###########setor de OUTRAS SEMENTES POR NUMERO IDENTIFICACAO#####################     

	 $pdf->SetFont('Times','B',9);

     $pdf->setXY($margemEsquerda,$cota9);

	 $pdf->Cell(200,4.5,utf8_decode('OUTRAS SEMENTES POR NÚMERO(Identificação e nº de sementes)').$detOto3,'0',1,'L');

     $cotaLocal=$cota9+4.5;



	 $parametroAltura=3.5;

     for($i=1;$i<=9;$i++):

	     //if($base[$i]=="")$base[$i]="dafo".$i;

         if($base[$i]!=""):

			 $pdf->setXY($margemEsquerda,$cotaLocal);

             $texto=$base[$i]; 

			 //$catifunda="italico";

             //if(substr($texto,4,19)=='Não identificada')$catifunda='Normal'	;		 	

             //$captura=substr($texto,4,3);	

			 //if($captura=='Nao')$catifunda='normal'; 	 	

             $tamaGeral=strlen($texto); 

			 $pdf->SetFont('Times','',8);

			 //vai imprimir caracter por caracter alternando entre italico e nao italico

			 //sendo italico depois do caractar [ e nao italico depois de ]

             //$montaSubTexto="";

             for($letra=0;$letra<=$tamaGeral;$letra++):                 

                //se achar um abridor [ vai passar para italico

				$caracter=substr($texto,$letra,1);

                //$montaSubTexto= $montaSubTexto.$caracter;               

				$teste=0;

				if($caracter=='['):

 			        $pdf->SetFont('Times','I',8);//aqui vai italico

					$teste=1;

                    //$tama=strlen($montaSubTexto);

				endif;



				if($caracter==']'   ):

 			        $pdf->SetFont('Times','',8);

					$teste=1;

                    //$tama=strlen($montaSubTexto);

				endif;

				//aqui faz um casuismo pois algumas letras sao muito estreitas e ficava um espaco esquisito

                $largura=1.5;

                if($caracter=="l" || $caracter=="r"  || $caracter=="i"  || $caracter=="t"   || $caracter=="s"   || $caracter=="y" )$largura=1;

                if($caracter=="m")$largura=1.8;

				if(substr($texto,4,3)=="Nao") $pdf->SetFont('Times','',8); //nao escrever em italico NAO IDENTIFICADA

			

	    	    if($teste!=1) $pdf->Cell($largura,$parametroAltura,utf8_decode($caracter),0,0,'L');

			 endfor;

			 $cotaLocal+=$parametroAltura;

		 endif;   

	 endfor;

	 //para o baren o -0- vai ate o final da linha...

     if($cliente=="BAREN"):

	     $tracoBola="-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-";

     else:     

	     $tracoBola="-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-";

     endif;



	 $pdf->setXY($margemEsquerda,$cotaLocal);

	 $pdf->SetFont('Times','',8);

   	 $pdf->Cell(200,4.5,$tracoBola,'0',1,'L');

	 //final de contaminantes e inicio de observacoes

	 

	 //existem 8 linhas ao criar o boletim mas so barenbrug pediu para imprimir todas

	 $formato8LinhasDeObservacoes='SIM';

	 if($cliente=='BAREN') $formato8LinhasDeObservacoes='SIM';

     if($formato8LinhasDeObservacoes=='SIM'):

        $limiteLinhas=8;

		$cota10-=10;

     else:

        $limiteLinhas=5;

	 endif;    	 

	 $cota10=200;//fixei em 14/0720 para poder colocar qrcode

	 $pdf->line($margemEsquerda,$cota10,$margemDireita,$cota10);//linha divisoria entre contaminantes e observacoes

	 

     #####################OBSERVACOES###############

     #####################OBSERVACOES###############

	 

	 

	 $pdf->SetFont('Times','B',9);

     $pdf->setXY($margemEsquerda,$cota10-0.7);

	 $pdf->Cell(200,4.5,utf8_decode('OBSERVAÇÕES'),'0',1,'L');

	 $pdf->SetFont('Times','',8);

	 $parametro=2.5;

	 if($cliente=='BAREN')$parametro=4.4;

     $cotaLocal=$cota10+$parametro;

     //VAI PERCORRER TODAS LINHAS

	 for($i=1;$i<=$limiteLinhas;$i++):

         $imprimeItalico='NAO';

		 $pdf->setXY($margemEsquerda,$cotaLocal);

	     $volatil=$i+18;

         $texto=$vetorDadosDocumento[$volatil];

		 $tama=strlen($texto);

		 $posicaoColchete=0;

		 if($tama>1):

		     //VAI PERGUNTAR SE vai impirmi com italico, talves eu terire logo este if

			 //$conteudoParcial=$conteudoParcial.$stringAtomica;

	         //if($stringAtomica=="[")$pdf->SetFont('Times','I',9);

	         //if($stringAtomica=="]")$pdf->SetFont('Times','',9);

		     //if($stringAtomica!='['  && $stringAtomica!=']'):

			 //se ele acha um colchete abrindo,  ele vai imprimir italico

			 $posicaoColchete=strpos($texto,'[');

			 if($posicaoColchete>0)$imprimeItalico='SIM';

	     	 if($imprimeItalico=='SIM'):

			     //procura pelo primeiro [

                 $conteudoParcial="";

				 for($posi=1;$posi<=$tama;$posi++):

                    $stringAtomica=substr($texto,$posi,1);

					//so vai concatenar se nao for colchetes

					if($stringAtomica!='[' &&  $stringAtomica!=']')$conteudoParcial=$conteudoParcial.$stringAtomica;

				    if($stringAtomica=="["):

					    $parte1=$conteudoParcial;

                        $conteudoParcial="";

                    endif;					

				    if($stringAtomica=="]"):

					    $parte2=$conteudoParcial;

                        $conteudoParcial="";

                    endif;					

				    //if($stringAtomica=="]")$pdf->SetFont('Times','',9);

					//if($stringAtomica!='['  && $stringAtomica!=']'):

		    	    //   $pdf->Cell(1,4.5,utf8_decode($stringAtomica),0,0,'L');

					//endif;   

                 endfor;

  			     $parte3=$conteudoParcial;

			     $cotaLocal+=$parametro;//incrementa se realmente tem texto dentro

				 //$parte1="Foram encontradas sementes de ";

				 //$parte2="Vigna unguiculata ";

				 //$parte3="sp determinadas em 1000g.";

				 $pdf->SetX($margemEsquerda,$cotaLocal);

				 //mede o tamanho em milimetros de cada parte

				 $tamanho_mm=$objetocalculo->calculaTamanhoMM($parte1);

		    	 $pdf->Cell($tamanho_mm,$parametro,utf8_decode($parte1),0,0,'L');

	             $pdf->SetFont('Times','I',8);

				 $tamanho_mm=$objetocalculo->calculaTamanhoMM($parte2);

		    	 $pdf->Cell($tamanho_mm,$parametro,utf8_decode($parte2),0,0,'L');

	             $pdf->SetFont('Times','',8);

				 $tamanho_mm=$objetocalculo->calculaTamanhoMM($parte3);

		    	 $pdf->Cell($tamanho_mm,$parametro,utf8_decode($parte3),0,0,'L');

		    	

             else:

			     //aqui imprime do jeito tradicional, sem tratamento de italicao 

		    	 $pdf->Cell(200,$parametro,utf8_decode($texto),'0',1,'L');

			     $cotaLocal+=$parametro;//incrementa se realmente tem texto dentro

			 endif;   

         endif;

	 endfor;//



     //aqui vai colocar uma observacao para qualiteste se la escolheu TRA para aquela amostra	 

	 if($cliente=="QUALITESTE"):

	     $testesConcatenados="-".$vetorAmostraBruto[44];//coloquei um espaco antes para que a primeira posicao encontrada nao ficar valendo zero nunca

		 if(strpos($testesConcatenados,'TRA')>0):

		    $pdf->Cell(200,$parametro,utf8_decode('Testes realizados em sementes tratadas.'),'0',1,'L');

     	    $cotaLocal+=$parametro;//incrementa se realmente tem texto dentro

		    $pdf->setXY($margemEsquerda,$cotaLocal);

		 endif;//testa se te, tra	

         $observacoesFicha=$vetorAmostraBruto[37];

		 if(strlen($observacoesFicha)>1):

            //se for qualiteste e nao tiver colocado algo em observacao1 entao coloca observacao1=observacaoficha

		    $pdf->Cell(200,$parametro,utf8_decode($observacoesFicha),'0',1,'L');

     	    $cotaLocal+=$parametro;//incrementa se realmente tem texto dentro

		    $pdf->setXY($margemEsquerda,$cotaLocal);

         endif; 

	 endif;//se o cliente é qualiteste

	 

	 //de toda maneira coloca o fechamanto na cota calculada

	 $pdf->Cell(200,4.5,$tracoBola,'0',1,'L');	 



     if($cliente=='BAREN')$cota11=244;  

    

	 //AQUI CONTROLE E APRESENTA GRADE DE MIX ESPECIES============================================

 //AQUI CONTROLE E APRESENTA GRADE DE MIX ESPECIES============================================

 //AQUI CONTROLE E APRESENTA GRADE DE MIX ESPECIES============================================

 $posicao1=$margemEsquerda;

 $apresentaMix="SIM";

 if($apresentaMix=="SIM"):

	$largDeful=12;

	//define as larguras

	$larguraOto[1]=$largDeful+25;

	$larguraOto[2]=$largDeful;

	$larguraOto[3]=$largDeful;

	$larguraOto[4]=$largDeful;

	$larguraOto[5]=$largDeful;

	$larguraOto[6]=$largDeful;

	$larguraOto[7]=$largDeful;

	$larguraOto[8]=$largDeful;

	$larguraOto[9]=$largDeful;

	$larguraOto[10]=$largDeful;

	$larguraOto[11]=$largDeful;

	$larguraOto[12]=$largDeful;
	$larguraOto[13]=$largDeful;
	$larguraOto[14]=$largDeful;

	$larguraGerminacao=$larguraOto[7]+$larguraOto[8]+$larguraOto[9]+$larguraOto[10]+$larguraOto[11];

	$alturaLinha=3;

	//DEFINE A POSICAO DAS COLUNAS

	$posicaoColunas[1]=$margemEsquerda;

	 for($i=2;$i<=14;$i++):

		$posicaoColunas[$i]=$posicaoColunas[$i-1]+$larguraOto[$i-1];

	 endfor;

	 $cota1+=$alturaLinha;

     //IMPRIME OS RISCOS VERTICAIS na regiao dos cabecalho table MIX

	 $pdf->SetFont('Arial','',6);//troca fonte para imprimir o restante da linha sem italico

	 $cota1=220;
     //poe dois rect no final para fechar as ultumas legendas
	 for($i=1;$i<=14;$i++):

		 if($i<=6 || $i==12  || $i==13 || $i==14) :

		     $pdf->Rect($posicaoColunas[$i],$cota1,$larguraOto[$i],3*$alturaLinha);//mais longo e comecando na linha 1

	     else:

			 $pdf->Rect($posicaoColunas[$i],$cota1+$alturaLinha,$larguraOto[$i],2*$alturaLinha);//

		 endif;		

	 endfor;

	 $pdf->SetFont('Arial','B',6);

	 

	 //imprime a 1ª linha do mix (cabecalho)
	 
	 //imprime a 1ª linha do mix (cabecalho)
	 
	 //imprime a 1ª linha do mix (cabecalho)

	 $posicao1=10;

	 $pdf->setXY($posicao1,$cota1);

	 $pdf->Cell($larguraOto[1],$alturaLinha,utf8_decode(""),0,0,'C');//

     $pdf->Cell($larguraOto[2],$alturaLinha,utf8_decode("Declarado"),0,0,'C');//

	  //$pdf->setXY($posicao[3],$cota1);

	 $pdf->Cell($larguraOto[3],$alturaLinha,utf8_decode("Calculado"),0,0,'C');//

	 $pdf->Cell($larguraOto[4],$alturaLinha,utf8_decode("Tempera-"),0,0,'C');//

	 $pdf->Cell($larguraOto[5],$alturaLinha,utf8_decode(""),0,0,'C');//
	 $pdf->Cell($larguraOto[6],$alturaLinha,utf8_decode("Trata-"),0,0,'C');//

	 $pdf->Cell($larguraGerminacao,$alturaLinha,utf8_decode("GERMINAÇÃO(%)"),1,0,'C');//

	 $pdf->Cell($larguraOto[12],$alturaLinha,utf8_decode("Duração"),0,0,'C');//
	 $pdf->Cell($larguraOto[13],$alturaLinha,utf8_decode("Conclusão"),0,0,'C');//

	 $pdf->Cell($larguraOto[14],$alturaLinha,utf8_decode("Validade"),0,0,'C');//



	 //imprime a 2ª linha do mix (cabecalho)////////////////////////////////
	
	 $cota1+=$alturaLinha;

	 $pdf->setXY($posicao1,$cota1);

	 $pdf->Cell($larguraOto[1],$alturaLinha,utf8_decode("Espécie"),0,0,'C');//

	 $pdf->Cell($larguraOto[2],$alturaLinha,utf8_decode("(%)"),0,0,'C');//

	 $pdf->Cell($larguraOto[3],$alturaLinha,utf8_decode("(%)"),0,0,'C');//

	 $pdf->Cell($larguraOto[4],$alturaLinha,utf8_decode("tura"),0,0,'C');//

	 $pdf->Cell($larguraOto[5],$alturaLinha,utf8_decode("Substrato"),0,0,'C');//
	 $pdf->Cell($larguraOto[6],$alturaLinha,utf8_decode("mento"),0,0,'C');//

	 $pdf->Cell($larguraOto[7],$alturaLinha,utf8_decode("Plântulas"),0,0,'C');//

	 $pdf->Cell($larguraOto[8],$alturaLinha,utf8_decode("Plântulas"),0,0,'C');//

	 $pdf->Cell($larguraOto[9],$alturaLinha,utf8_decode("Sementes"),0,0,'C');//

	 $pdf->Cell($larguraOto[10],$alturaLinha,utf8_decode("Sementes"),0,0,'C');//

	 $pdf->Cell($larguraOto[11],$alturaLinha,utf8_decode("Sementes"),0,0,'C');//

	 $pdf->Cell($larguraOto[12],$alturaLinha,utf8_decode("do teste de"),0,0,'C');//
	 $pdf->Cell($larguraOto[13],$alturaLinha,utf8_decode("-"),0,0,'C');//
	 $pdf->Cell($larguraOto[14],$alturaLinha,utf8_decode(" "),0,0,'C');//



	  //imprime a 3ª linha do mix (cabecalho)/////////////////////////////////////////////////////////
	 $cota1+=$alturaLinha;

	 $pdf->setXY($posicao1,$cota1);

	 $pdf->Cell($larguraOto[1],$alturaLinha,utf8_decode(""),0,0,'C');//

	 $pdf->Cell($larguraOto[2],$alturaLinha,utf8_decode(""),0,0,'C');//

	 $pdf->Cell($larguraOto[3],$alturaLinha,utf8_decode(""),0,0,'C');//

	 $pdf->Cell($larguraOto[4],$alturaLinha,utf8_decode(""),0,0,'C');//

	 $pdf->Cell($larguraOto[5],$alturaLinha,utf8_decode(""),0,0,'C');//

	 $pdf->Cell($larguraOto[6],$alturaLinha,utf8_decode("-"),0,0,'C');//
	 $pdf->Cell($larguraOto[7],$alturaLinha,utf8_decode("Normais"),0,0,'C');//

	 $pdf->Cell($larguraOto[8],$alturaLinha,utf8_decode("Anormais"),0,0,'C');//

	 $pdf->Cell($larguraOto[9],$alturaLinha,utf8_decode("Duras"),0,0,'C');//

	 $pdf->Cell($larguraOto[10],$alturaLinha,utf8_decode("Dormentes"),0,0,'C');//

	 $pdf->Cell($larguraOto[11],$alturaLinha,utf8_decode("Mortas"),0,0,'C');//

	 $pdf->Cell($larguraOto[12],$alturaLinha,utf8_decode("Germinação"),0,0,'C');//
	 $pdf->Cell($larguraOto[13],$alturaLinha,utf8_decode("-"),0,0,'C');//
	 $pdf->Cell($larguraOto[14],$alturaLinha,utf8_decode("-"),0,0,'C');//



	 //4ª linha do mix 

	 //LINHAS DE RESULTADOS resultados destas especies

     //adaptador pois a matriz é lida de uma forma e geralmente ou eventualmente impressa de uma forma diversa no documento

	 //$numeroEspeciesMistura=4;

 

	 for($linhasEspeciesMistura=0;$linhasEspeciesMistura<=$numeroEspeciesMistura;$linhasEspeciesMistura++):
         $ordem=$linhasEspeciesMistura+1;
		 for($i=1;$i<=14;$i++):
			 //$nestaAmostra=$vetorMix[$linhasEspeciesMistura][5];
			 //$pesoPurezaMisturaTotal= $vetorMix[$linhasEspeciesMistura][5];
			 //$temperatura=$vetorMix[$linhasEspeciesMistura][7];
			 //$temperatura="32";
			 // $ponderado=number_format(100*$vetorMix[$linhasEspeciesMistura][5]/$pesoPurezaMisturaTotal),1,',','.');  //number_format($osg,$casasDecimais,'separador decimal','separador milhar')
             $ponderado=$vetorMix[$linhasEspeciesMistura][16]; 
			 // $ponderado=format100*$vetorMix[$linhasEspeciesMistura][5]/$pesoPurezaMisturaTotal;  //peso pureza encontrado/peso toral de sementes puras
             $ponderado=$vetorMix[$linhasEspeciesMistura][5];
             if($i==1)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=utf8_decode($ordem."º)".$vetorMix[$linhasEspeciesMistura][2].$pesoPurezaMisturaTotal);//puxa nome cientifico
             if($i==2)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][4];//puxa declarada
             if($i==3)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$ponderado;//puxa encontrado 
             //comeca germinacao
             if($i==4)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][7];//puxa temperaura
             if($i==5)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][8];//puxa substrato
             if($i==6)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][21];//puxa tratamento

             if($i==7)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][9];//puxa normais

             if($i==8)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][10];//puxa anormais

             if($i==8)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][11];//puxa duras

             if($i==10)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][12];//puxa dormentes

             if($i==11)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][13];//puxa mortas

             if($i==12)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][14];//puxa duracao
             if($i==13)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][20];//puxa conclusao

             if($i==14)$vetorMixAdaptado[$linhasEspeciesMistura][$i]=$vetorMix[$linhasEspeciesMistura][15];//puxa validade
		 endfor;	 

	 endfor;

	 $pdf->SetFont('Arial','',6);//troca fonte para imprimir o restante da linha sem italico







	

	 //imprime os valores na grade mix=========================================================================

	 //imprime os valores na grade mix=========================================================================

	 //imprime os valores na grade mix=========================================================================

	 //imprime os valores na grade mix=========================================================================
	 $cota1+=$alturaLinha;

	 $pdf->setXY($posicao1,$cota1);

	 $posicaoInicialx=10;
	 //$numeroEspeciesMistura=3;  
	  for($linhasEspeciesMistura=0;$linhasEspeciesMistura<$numeroEspeciesMistura;$linhasEspeciesMistura++):

	     $posicao1=$posicaoInicialx;  

		 $pdf->SetFont('Arial','I',6);//toda vez que ele muda para linha nova ele troca para italico para imprimir o nome cientifico

		 $pdf->setXY($posicao1,$cota1);//muda a posicao para o inicio da linha

		 $alinhamento='L';

		 for($coluna=1;$coluna<=14;$coluna++):

			 $pdf->Cell($larguraOto[$coluna],$alturaLinha,$vetorMixAdaptado[$linhasEspeciesMistura][$coluna],1,0, $alinhamento);//

			 $pdf->SetFont('Arial','',6);//troca fonte para imprimir o restante da linha sem italico

			 $alinhamento= $alinhamento="C";		 

		 endfor;

		 $cota1+=$alturaLinha;

	 endfor;



	 //fim do mix

 endif; //fim do if que testa se é amostra de mix

	 

	 

	  

	 

     #####################NOTAS ###############
      $cota11=250;
	 $pdf->line($margemEsquerda,$cota11,$margemDireita,$cota11);

	 $pdf->SetFont('Times','B',9);

     $pdf->setXY($margemEsquerda,$cota11);

	 $pdf->Cell(85,4.5,'NOTAS:','0',1,'L');

	 $pdf->SetFont('arial','',7);

     $pdf->Ln(0);

	 $pdf->Cell(85,3,utf8_decode('1-A identificação da amostra é de exclusiva responsabilidade do remetente.'),'0',1,'L');

	 //$pdf->Cell(85,3,'remetente.','0',1,'L');

	 $pdf->Cell(85,3,utf8_decode('2-A presente análise tem seu valor restrito à amostra entregue ao laboratório.'),'0',1,'L');

	 //$pdf->Cell(85,3,utf8_decode('laboratório.'),'0',1,'L');

	 $pdf->Cell(85,3,utf8_decode('3-Métodos de análise segundo as RAS em vigor ou outro informado no campo observações.'),'0',1,'L');

	 //$pdf->Cell(85,3,"0703".$imprimeItalico.$limiteLinhas.$cliente.$formato8LinhasDeObservacoes ,'0',1,'L');

	 

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

	 $numeroVias=$sessao->getvar('controle2');

	 if($numeroVias>1):

	     $viaAtual=$sessao->getvar('controle1');

		 $viaAtual++;

	     $sessao->setVar('controle1',$viaAtual);

		 $viaFinal=$viaAtual.'ª via';

         

	 else:

	     $viaAtual=1;

         $viaFinal=$sessao->getvar('controle1');

     endif;	

	     //vai encerrar a sessao ao findar as vias a serem impressas

		 if($viaAtual>=$numeroVias):

		   $sessao->setVar('digital',"xxx");//precisa limpar a sessao senao mesmo que nao marcar a sessao continua com valor=SIM

	     endif; 

	 

	 //se estou mandando fazer mais de uma via pela opção mesclado entao prioriza o mesclado

     if($viasMescladas>1):	 

		 $viaFinal=$mescladas.'ª via';

     endif;	

	 

	//VAI ACESSAR A CLASSE E PREPARA O NOME DO ARQUIVO

	if($digital=='SIM'):

		$objetoEncriptar=new encriptar();

		$amostraEncriptada=$objetoEncriptar->certificado($idDoc.$viaFinal);

	endif;

	  

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









     if(strlen($amostraEncriptada)>1):

		 $pdf->Cell(85,3,utf8_decode('Para imprimir este certificado digital acesse: www.gugeler.net Link Certificado digital'),'0',1,'L');

		 $pdf->Cell(85,3,utf8_decode($amostraEncriptada),1,1,'L');

     endif;





	 //$pdf->Cell(85,3,utf8_decode('observações.'),'0',1,'L');







	 

     #####################LOCAL DATA###############

	 $posicao2=115;

	 $vetorTecnico=$objetocalculo->dadostecnico($idLabo,'BOLE');

	 if($imprimeBranco=='SIM')$vetorTecnico="";

     $idTecnico=$vetorTecnico[5];

	 $assinaturaAtivada=$vetorTecnico[4];

     if($nivel=='PRODUTOR') $assinaturaAtivada='SIM';	

	 ////////

	 $cotrole11=$sessao->getVar('controle11'); 

	 /////////

	 if($assinaturaAtivada=='SIM'   &&  $cotrole11!='ASSINATURADESATIVADA'):

		 $caminhoFinalTecnico="ImagensClientes/a".$idTecnico.".JPG";

         //se o cliente é o barem entao vai colocar uma assinatura de formato diferente(pode acontecer com outros))

         if($cliente=='BAREN'):

    		 $pdf->Image($caminhoFinalTecnico,145,$cota11+4,30,17,'JPG');

         else:

    		 $pdf->Image($caminhoFinalTecnico,125,$cota11+7,61,14,'JPG');

		 endif;

     endif;



	 $pdf->SetFont('Times','',8);

     $pdf->setXY($posicao2,$cota11);

	 $pdf->Cell(85,4.5,utf8_decode($vetorCabecalho[6].", ".$vetorDadosDocumento[27]) ,'0',1,'L');



	 //$pdf->Cell(85,4.5,'xxxxx'.", ".$vetorDadosDocumento[27] ,'0',1,'L');

     //linha da assinatura nem todos querem isso

	 if($cliente=='BAREN'):

    	 $pdf->line($posicao2+10,$cota11+19,$posicao2+70,$cota11+18);

	 endif;

	 

     $cota11Acumulada=$cota11+15;

	 $pdf->SetFont('Times','',8);

     $pdf->setXY($posicao2,$cota11Acumulada);

	 

	 $pdf->Cell(88,$parametro,utf8_decode($vetorTecnico[0]),'0',1,'C');

     $cota11Acumulada+=$parametro;

     $pdf->setXY($posicao2,$cota11Acumulada);

	 $pdf->Cell(88,$parametro,utf8_decode($vetorTecnico[1]),'0',1,'C');

	 $cota11Acumulada+=$parametro;

     $pdf->setXY($posicao2,$cota11Acumulada);

	 $pdf->Cell(88,$parametro,' CREA:'.utf8_decode($vetorTecnico[2]).'  RENASEM:'.utf8_decode($vetorTecnico[3]),'0',1,'C');

	 $cota11Acumulada+=$parametro;

	 $pdf->setXY($posicao2,$cota11Acumulada);

	 $pdf->Cell(88,$parametro,utf8_decode($vetorTecnico[7]),'0',1,'C');

	 

	 //LINHA VERTICA  SEPARADORA

     if($cliente=='BAREN'):	 

	    $pdf->line($posicao2,$cota11,$posicao2,$cotaFinal+10);

	 else:

	    $pdf->line($posicao2,$cota11,$posicao2,$cotaFinal+10);//estava -10

	 endif;

	 //numero da via

	 $afastaVia=180;

     if($cliente=='BAREN')$afastaVia=190;



	 $pdf->setXY($afastaVia,$cotaVia);



	 $pdf->SetFont('Times','B',12);

	 /*

	 $numeroVias=$sessao->getvar('controle2');

	 if($numeroVias>1):

	     $viaAtual=$sessao->getvar('controle1');

		 $viaAtual++;

	     $sessao->setVar('controle1',$viaAtual);

		 $viaFinal=$viaAtual.'ª via';

         

	 else:

	     $viaAtual=1;

         $viaFinal=$sessao->getvar('controle1');

     endif;	

	     //vai encerrar a sessao ao findar as vias a serem impressas

		 if($viaAtual>=$numeroVias):

		   $sessao->setVar('digital',"xxx");//precisa limpar a sessao senao mesmo que nao marcar a sessao continua com valor=SIM

	     endif; 

	 

	 //se estou mandando fazer mais de uma via pela opção mesclado entao prioriza o mesclado

     if($viasMescladas>1):	 

		 $viaFinal=$mescladas.'ª via';

     endif;	 

	 */

	 

	 //$pdf->Cell(20,5,utf8_decode($contaAcesso.$viaFinal.'ª'),0,1,'C');	

	 

 

     if($viaFinal=='*Vias 1,2 e 3'):   

	    $pdf->SetFont('Times','B',8);

        $pdf->setXY($posicaoXVia,$cotaVia);

		$pdf->Cell(20,3,utf8_decode("1ªVia:Requerente"),0,1,'L');	

        $pdf->setXY($posicaoXVia,$cotaVia+3.5);

		$pdf->Cell(20,3,utf8_decode("2ªVia:Laboratório"),0,1,'L');	

        $pdf->setXY($posicaoXVia,$cotaVia+7);

		$pdf->Cell(20,3,utf8_decode("3ªVia:MAPA"),0,1,'L');	

     else:



		$pdf->setXY($posicaoXVia,$cotaVia);

  		if($cliente!='LACADOR' ):

		   if(substr($cliente,0,5)=="IAGRO")$viaFinal="";

	       $pdf->Cell(20,5,utf8_decode($viaFinal),0,1,'C');

		endif;   

     endif;	 

	 

	 

	 

    

	 endfor;//aqui varre para que saia as vias mescladas num so arquivo



$tabela .= '</table>';

$sessao->setVar('controleExcel',$tabela);



ob_clean(); // Quando usava essa classe o ob_clean() resolvia meu problema



if($amostraEncriptada!=""):

   $pdf->Output("uploads/".$amostraEncriptada.".pdf","F");//funciona

endif;





$pdf->Output("uploads/arquivo.pdf","I");//arquivo vai para impressao









//$amostraEncriptada





/*

$nome = $idDoc ."-".$pdf->Output("arquivo.pdf","F");

$dir = $_SERVER['DOCUMENT_ROOT'] .'semente2013/php/paineladm/uploads/';

		//$tmpName = $_FILES[$nome]['tmp_name']; // Recebe o arquivo temporário.

		$name = $dir .$_FILES[$nome]['name']; // Recebe o nome do arquivo.

		// move_uploaded_file( $arqTemporário, $nomeDoArquivo )

		if( move_uploaded_file( $tmpName, $name ) ) { // move_uploaded_file irá realizar o envio do arquivo.		

			//header('Location: sucesso.php'); // Em caso de sucesso, retorna para a página de sucesso.	

			printMSG('okvvvvvvv','alerta');		

		} else {

		    printMSG('nao okvvvvv','alerta'); 

					

			//header('Location: erro.php'); // Em caso de erro, retorna para a página de erro.			

		}

*/		



?>

