<?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'];
$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');
$cliente=$sessao->getVar('cliente');
$codProdutor=$sessao->getVar('codprodutor');



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

$nomeOperador=$sessao->getVar('nomeuser');
$objetocalculo = new calculos(); //calcula todos valores finais
$pdf=new FPDF('P','mm','A4'); //parametos da pagina 
			 $pdf->open();//abre o fpdf
			 //$pdf->AddPage();//adicionando a primera pafina
			 $pdf->AliasNbPages();
			 $pdf->SetFont('Arial','',12);
			 $pdf->SetDrawColor(10,10,10);
			 $maximoHAdobe=297;//isso para vertical
			 $maximoLAdobe=210;//isso para vertical
			 //$maximoLAdobe=297;//isso para horizontal
			 //$maximoHAdobe=210;//isso para horizontal
		     $margemEsquerdaExterna=10;
		     $margemEsquerda=10;
			 $margemDireita=$maximoLAdobe-6;
			 $larguraUtil=$maximoLAdobe-16;
			 $futer=$maximoHAdobe-10;
			 //$larguraUtil=$maximoLAdobe;
			 $cinza=220;
		     $fonte="Arial";
			 $nomeOperador=5;
			 $pdf->SetFillColor($cinza,$cinza,$cinza); 
			 $linha=0;
			 $posicaox1=10;
  
	 //AQUI COMECA PARTE DO BOLETIM 2013
 
     //PARAMETROS GERAIS
     //altura util=210  largura util=297(dados do adobe)
     $pdf->AddPage();//adicionando a primera pafina 
     $margemEsquerda=10;
	 $margemDireita=$maximoLAdobe-6;
	 //largura de uma margem a outra = 281  se eu imprimo algo esta soma nao pode ultrapassar este valor
	 $cinza=220;
	 $pdf->SetFillColor($cinza,$cinza,$cinza);
	 $grosso=0.7;
	 $medio=0.4;
	 $fino=0.3;
	 $extraFino=0.2;
	 //ESTAS COTAS SAO AS COTRAS DAS LINHAS HORINTAIS GROSSAS QUE SERVEM DE ORIGEM PARA O QUE VEM A SEGUIR


	 $cota3=55;
	 $cota4=84;
	 $cota5=145;
	 $cota6=149;
	 $cota7=157; //estas duas cotas sao definidas aqui memsmo
     $cota8=200;  //usara 195 se for colocar o rodape na munheca, mas pode usar a funcao footer que da mais 5 milimetros
     
     //joga a logomarca no canto esquerdo
     $vetorCabecalho=$objetocalculo->dadoslaboratorio();
     $vetorDadosDocumento=$objetocalculo->dados_gerais_documento($idDoc);
	 if($cliente=='BAREN'):
         $codProdutor=$idLabo;
     endif;		 
	 $vetorTecnico=$objetocalculo->dadostecnico($codProdutor,'TECON');

	 $prd_id=$vetorDadosDocumento[39]; 


	 $posicaoCab1=60;
	 $posicaoCab2=245;
	 $caminhoFinal="ImagensClientes/r".$prd_id.".jpg";
	 //echo("caminhofinal=$caminhoFinal<br>");
	 $pdf->Image($caminhoFinal,11,3,48,23,'JPG');
	 $pdf->setXY($posicaoCab1,$cota1);
	 
	 $texto=number_format($vetorDadosDocumento[1]/1000,3,'','');
	 $texto1=$vetorDadosDocumento[4];
	 $texto1="/".$texto1;
	 $pdf->SetFont('Arial','B',12);
     $pdf->Cell(100,13,utf8_decode('BARENBRUG DO BRASIL SEMENTES LTDA'),0,0,'C');
	 $pdf->SetFont('Arial','',8);
	 $pdf->setXY(30,$cota1+15);
	 $pdf->Cell($tama,13,utf8_decode('TERMO DE CONFORMIDADE DE SEMENTES N°' ).$texto.$texto1,0,0,'L');

	 
     //identificacao do produtor de semente
	 $cota2=32;
	 $pdf->SetFont('Arial','B',10);
	 $pdf->setXY($margemEsquerda,$cota2-4);
	 $pdf->Cell($larguraUtil,4,utf8_decode('IDENTIFICAÇÃO DO PRODUTOR DE SEMENTE' ),0,0,'C');

	 $pdf->SetFont('Arial','',8);
	 $pdf->setXY($margemEsquerda,$cota2);
	 $pdf->Cell($larguraUtil,3,utf8_decode('Nome:'.$vetorDadosDocumento[0]),1,1,'L');
	 $pdf->Cell($larguraUtil-100,3,utf8_decode('CNPJ/CPF:'.$vetorDadosDocumento[36] ),1,0,'L');
	 $pdf->Cell(100,3,utf8_decode('Inscrito no Renasem nº:'.$vetorDadosDocumento[6] ),1,1,'L');
	 $pdf->Cell($larguraUtil,3,utf8_decode('Endereço:'.$vetorDadosDocumento[8] ),1,1,'L');
	 $pdf->Cell($larguraUtil-100,3,utf8_decode('Municipio/UF:' .$vetorDadosDocumento[35]),1,0,'L');
	 $pdf->Cell(100,3,utf8_decode('CEP:'.$vetorDadosDocumento[34] ),1,0,'L');

     //captura dados do tecnico
	   
       $user = new tecnico();
		$user->extras_select = "WHERE ret_funcao='TCON' AND ret_id_labo=$codProdutor order by ret_nome ";
        $user->selecionaTudo($user);
        while ($res = $user->retornaDados()):
            $nomeRT=$res->ret_nome;
            $cpfRT=$res->ret_cpf;
            $municipioRT=$res->ret_municipio;
            $renasemRT=$res->ret_renasem;
            $cepRT=$res->ret_cep;
            $enderecoRT=$res->ret_endereco;
            $emailRT=$res->ret_email;
            $telefoneRT=$res->ret_telefone;
            $creaRT=$res->ret_crea;
			$idTecnico=$res->ret_id;
			$cargoRT=$res->ret_cargo;
			$assinaturaAtivada=$res->ret_assinatura;
        endwhile; 


	 $cota2+=20;
	 $pdf->SetFont('Arial','B',10);
	 $pdf->setXY($margemEsquerda,$cota2-4);
	 $pdf->Cell($larguraUtil,4,utf8_decode('IDENTIFICAÇÃO DO RESPONSÁVEL TÉCNICO' ),0,0,'C');
	 $pdf->SetFont('Arial','',8);
	 $pdf->setXY($margemEsquerda,$cota2);
	 $pdf->Cell($larguraUtil,3,utf8_decode('Nome:'.$nomeRT ),1,1,'L');
	 $pdf->Cell($larguraUtil-100,3,utf8_decode('CNPJ/CPF:'.$cpfRT ),1,0,'L');
	 $pdf->Cell(100,3,utf8_decode('Inscrito no RENASEM Nº:'.$renasemRT ),1,1,'L');
	 $pdf->Cell($larguraUtil,3,utf8_decode('End:'.$enderecoRT ),1,1,'L');
	 $pdf->Cell(34,3,utf8_decode('Tel:'.$telefoneRT ),1,0,'L');
	 $pdf->Cell(60,3,utf8_decode('e-mail:'.$emailRT ),1,0,'L');
	 $pdf->Cell(70,3,utf8_decode('Município:'.$municipioRT ),1,0,'L');
	 $pdf->Cell(30,3,utf8_decode('CEP:'.$cepRT ),1,0,'L');

	  //ESPECIE CULTIVAR,CATEGORIA E SAFRA
	  $larg1=120;$posicaoLV1=$margemEsquerda+$larg1;
	  $larg2=27;$posicaoLV2=$posicaoLV1+$larg2;
	  $larg3=27;$posicaoLV3=$posicaoLV2+$larg3;
	  $larg4=18;
	 $cota2+=16;
	 $pdf->Rect($margemEsquerda,$cota2,$larguraUtil,6);//fecha ao redor de especie
	 $pdf->Rect($margemEsquerda,$cota2,$larguraUtil,3);//fecha ao redor de especie
	 //$pdf->Rect($margemEsquerda,$cota2,80,3);//fecha ao redor de especie
	 $pdf->Line($posicaoLV1,$cota2,$posicaoLV1,$cota2+6);//fecha ao redor de especie
	 $pdf->Line($posicaoLV2,$cota2,$posicaoLV2,$cota2+6);//fecha ao redor de especie
	 $pdf->Line($posicaoLV3,$cota2,$posicaoLV3,$cota2+6);//fecha ao redor de especie
	 
	 $pdf->SetFont('Arial','',8);
     //linha de titulos
	 $pdf->setXY($margemEsquerda,$cota2);
	 $pdf->Cell($larg1,3,utf8_decode('Espécie'),0,0,'C');
	 $pdf->Cell($larg2,3,utf8_decode('Cultivar'),0,0,'C');
	 $pdf->Cell($larg3,3,utf8_decode('Categoria'),0,0,'C');
	 $pdf->Cell($larg4,3,utf8_decode('Safra'),0,0,'C');
	 $pdf->setXY($margemEsquerda,$cota2+3);
	 $pdf->Cell($larg1-55,3,utf8_decode($vetorDadosDocumento[2] ),0,0,'L');
	 $pdf->SetFont('Arial','BI',10);
	 $pdf->Cell(60,3,utf8_decode($vetorDadosDocumento[13]),0,0,'C');
	 $pdf->SetFont('Arial','',8);
	 $pdf->Cell($larg2,3,utf8_decode($vetorDadosDocumento[3] ),0,0,'C');
	 $pdf->Cell($larg3,3,utf8_decode($vetorDadosDocumento[10] ),0,0,'C');
	 $pdf->Cell($larg4,3,utf8_decode($vetorDadosDocumento[9] ),0,0,'C');

	  //declaracao
	  
	 $vetorCabecalho=$objetocalculo->dadoslaboratorio();
	 $cota2+=15;
	 $pdf->SetFont('Arial','',6);
	 $pdf->setXY($margemEsquerda,$cota2);
	 //$pdf->Cell($larguraUtil,3,utf8_decode('Atestamos  que os lotes de sementes, abaixo discriminado(s), foram produzidos de acordo com as Normas e Padrões estabelecidos pelo Ministério da Agricultura' ),0,1,'L');
	 //$pdf->Cell($larguraUtil,3,utf8_decode('Pecuária e Abastecimento e analisado(s) pelo Laboratório de análise de semente'.$vetorCabecalho[0] ),0,1,'L');
	 //$pdf->Cell($larguraUtil,3,utf8_decode('no Estado de ___'.$vetorCabecalho[7].'___credenciado no RENASEM sob nº '.$vetorCabecalho[8]),0,0,'L');
	 $pdf->Cell($larguraUtil,3,utf8_decode('Atestamos  que os lotes de sementes, abaixo discriminados, foram produzidos de acordo com as normas e padrões estabelecidos pelo Ministério da Agricultura,Pecuária e Abastecimento  e analisado(s)' ),0,1,'L');
	 $pdf->Cell($larguraUtil,3,utf8_decode('pelo Laboratório de análise de semente LASBAR/Barenbrug do Brasil Sementes Ltda, no Estado de São Paulo, credenciado no RENASEM sob nº SP-15338/2015, apresentando as seguintes'),0,1,'L');
	 $pdf->Cell($larguraUtil,3,utf8_decode('características.'),0,0,'L');


//corpo do termo/////////////////////////////////////////////
	 ############RESULTADO DE ANALISE########################
	 //definir a subcotas logo apos a legenda comentada, para ser facil de achar e regurar a calibração
	 $cota3=$cota2+10;
	 $cota3a=$cota3+14;
	 $cota3b=$cota3+26;
     $cotalinha=$cota3;
     $posicao2=$largo[1]+$largo[2];
	 $largura2=$larguraUtil-$posicao2;//ele vai deduzir
	 $pdf->SetFont('Arial','B',8);
	 $pdf->setXY($margemEsquerda,$cota3);
	 //$pdf->Cell($posicao2);//sempre DEVE DEFINIR ONDE COMECA A CELULA a menos que comeca na coluna 10
     //$pdf->Cell($largura2,$larguraDaLinha,'RESULTADO DE ANALISE' ,1,1,'C',1);
	 
	 $cotaInicioCorpo=$cota3;	
     //$pdf->rect($margemEsquerda,$cota3+50,$margemDireita);
     $x=3;$yinicio=$cotaInicioCorpo+1;$comprimento=50;$altura1=65;
     $pdf->rect($margemEsquerda,$cotaInicioCorpo,$larguraUtil,$altura1);

	 $largo[1]=25;//lote era 17 
	 $largo[2]=14;//era 20 unidades 
     $largo[3]=17;//era 20 inidade
     $largo[4]=12;//era 18 num bol
     $largo[5]=13;//era 18 data
     $largo[6]=10;//era 18 pureza
     $largo[7]=12;//era 18 germ
     $largo[8]=10;//duras
     $largo[9]=15;//era 20  o especies
     $largo[10]=11;//era 20  silv
     $largo[11]=12;//era 20  toleradas
     $largo[12]=12;//poibida
     $largo[13]=13;//verificacao
     $largo[14]=18;//era 34  validade
     $colunas=sizeof($largo); 
	 //VAI CALCULAR AS POSICOES
	 $acumulado=$margemEsquerda;
	 for($i=1;$i<=$colunas;$i++):
        $acumulado+=$largo[$i];
	    $posicao[$i]=$acumulado;//acumula posicoes somando	 largurasa
	 endfor;
	 	 //////////DEFINE AS OUTRAS DETERMINACOES////////////////
	//acha daddos da determinacaoes xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
	//captura os codigos das 5 posições, que inclusive pode ser zero  
	$idEspecie=$vetorDadosDocumento[28];
  		//ENTRA DE QUAKQUER MANEIRA PARA ACHAR AS DETS DESTA ESPECIE
 	 	$generica=new tabelagenerica();
		$generica->tabela="deteatestado";
		$generica->campos_valores = array(
				"dbo_sigla_dete1" => NULL,
				"dbo_sigla_dete2" => NULL,
				"dbo_sigla_dete3" => NULL,
				"dbo_sigla_dete4" => NULL,
			);
		$generica->extras_select =" where  dbo_lab=".$codProdutor." && dbo_especie=".$idEspecie;
		//echo $generica->extras_select ;
		
	    $generica->selecionaCampos($generica);
		while ($resgenerica = $generica->retornaDados()):
			$sigla[1]=$resgenerica->dbo_sigla_dete1;
			$sigla[2]=$resgenerica->dbo_sigla_dete2;
			$sigla[3]=$resgenerica->dbo_sigla_dete3;
			$sigla[4]=$resgenerica->dbo_sigla_dete4;
	    endwhile;
	
	
    //vai achar na tabela de determinacoes, os titulos correspondentes para cada uma das detes
	//captura a primeira coluna das 3 determinacoes
     if($sigla[1]!=""):
		//ENTRA DE QUAKQUER MANEIRA
		$generica->tabela="determinacoes";
		$generica->campos_valores = array(
				"det_tit1" => NULL,
				"det_tit2" => NULL,
				"det_tit3" => NULL,
			);
		$generica->extras_select =" where  det_sigla='".$sigla[1]."'";
		$generica->selecionaCampos($generica);
		while ($resgenerica = $generica->retornaDados()):
			$vetorDete1[1]=$resgenerica->det_tit1;
			$vetorDete1[2]=$resgenerica->det_tit2;
			$vetorDete1[3]=$resgenerica->det_tit3;
		endwhile;
    endif;	
	//captura a segunda coluna das 3 determinacoes
     if($sigla[2]!=""):
		//ENTRA DE QUAKQUER MANEIRA
		$generica->tabela="determinacoes";
		$generica->campos_valores = array(
				"det_tit1" => NULL,
				"det_tit2" => NULL,
				"det_tit3" => NULL,
			);
		$generica->extras_select =" where  det_sigla='".$sigla[2]."'";;
		$generica->selecionaCampos($generica);
		while ($resgenerica = $generica->retornaDados()):
			$vetorDete2[1]=$resgenerica->det_tit1;
			$vetorDete2[2]=$resgenerica->det_tit2;
			$vetorDete2[3]=$resgenerica->det_tit3;
		endwhile;
    endif;	
	//captura a terceiraeira coluna das 3 determinacoes
     if($sigla[3]!=""):
		//ENTRA DE QUAKQUER MANEIRA
		$generica->tabela="determinacoes";
		$generica->campos_valores = array(
				"det_tit1" => NULL,
				"det_tit2" => NULL,
				"det_tit3" => NULL,
			);
		$generica->extras_select =" where  det_sigla='".$sigla[3]."'";
		$generica->selecionaCampos($generica);
		while ($resgenerica = $generica->retornaDados()):
			$vetorDete3[1]=$resgenerica->det_tit1;
			$vetorDete3[2]=$resgenerica->det_tit2;
			$vetorDete3[3]=$resgenerica->det_tit3;
		endwhile;
    endif;
	
	 
	 //imprime cabecalho das colunas  
	 $larguraDaLinha=4;
	 $pdf->SetFont('Arial','',6);
	 //PRIMEIRA lina de rotulos
	 $pdf->setXY($margemEsquerda,$cotaInicioCorpo);
	 $posicaoViabilidade=$margemEsquerda+$largo[1]+$largo[2]+$largo[3]+$largo[4]+$largo[5]+$largo[6];
     $pdf->Cell($largo[1],$larguraDaLinha,utf8_decode('Lote') ,0,0,'C');
     $pdf->Cell($largo[2]+$largo[3],$larguraDaLinha,utf8_decode('REPRESENTATIVIDADE') ,0,0,'C');
     $pdf->Cell($largo[4]+$largo[5],$larguraDaLinha,utf8_decode('BOLETIM DE ANÁLISE') ,0,0,'C');
     $pdf->Cell($largo[6],$larguraDaLinha,utf8_decode('Sementes') ,0,0,'C');
     //aqui nao imprimo nada pois o rotulo pode variar de viabilidade para germinacao 
     $pdf->Cell($largo[7],$larguraDaLinha,utf8_decode('') ,0,0,'C');
     $pdf->Cell($largo[8],$larguraDaLinha,utf8_decode('Sementes') ,0,0,'C');
     $pdf->Cell($largo[9]+$largo[10]+$largo[11]+$largo[12]+$largo[13],$larguraDaLinha,utf8_decode('Outros Fatores') ,1,0,'C');
     $pdf->Cell($largo[14],$larguraDaLinha,utf8_decode('Validade do teste') ,0,1,'C');
//segunda lina de rotulos
$pdf->setXY($margemEsquerda,$cotaInicioCorpo+4);
$pdf->Cell($largo[1],$larguraDaLinha,utf8_decode('Nº') ,0,0,'C');
$pdf->Cell($largo[2]+$largo[3],$larguraDaLinha,utf8_decode('DO LOTE') ,0,0,'C');
//$pdf->setXY($posicao[4],$cotaInicioCorpo+4);
$pdf->Cell($largo[4]+$largo[5],$larguraDaLinha,utf8_decode('') ,0,0,'C');
$pdf->Cell($largo[6],$larguraDaLinha,utf8_decode('Puras') ,0,0,'C');
$pdf->Cell($largo[7],$larguraDaLinha,'' ,0,0,'C');
$pdf->Cell($largo[8],$larguraDaLinha,'Duras' ,0,0,'C');
$pdf->Cell($largo[9],$larguraDaLinha,'Outras' ,0,0,'C');
$pdf->Cell($largo[10],$larguraDaLinha,'Sementes' ,0,0,'C');
$pdf->Cell($largo[11]+$largo[12],$larguraDaLinha,utf8_decode('Sementes Nocivas(Nº)') ,0,0,'C');
$pdf->Cell($largo[13],$larguraDaLinha,utf8_decode('Verificação') ,0,0,'C');
$pdf->Cell($largo[14],$larguraDaLinha,utf8_decode('de Viabilidade') ,0,0,'C');


//terceira linha de rotulos
$pdf->setXY($posicao[1],$cotaInicioCorpo+8);
$pdf->Cell($largo[2],$larguraDaLinha,utf8_decode('Nº de') ,0,0,'C');
$pdf->Cell($largo[3],$larguraDaLinha,utf8_decode('Peso por') ,0,0,'C');
$pdf->Cell($largo[4],$larguraDaLinha,utf8_decode('Nº') ,0,0,'C');
$pdf->Cell($largo[5],$larguraDaLinha,utf8_decode('Data') ,0,0,'C');
$pdf->Cell($largo[6],$larguraDaLinha,utf8_decode('(%)') ,0,0,'C');
$pdf->Cell($largo[7],$larguraDaLinha,utf8_decode('(%)') ,0,0,'C');
$pdf->Cell($largo[8],$larguraDaLinha,utf8_decode('(%)') ,0,0,'C');
$pdf->Cell($largo[9],$larguraDaLinha,utf8_decode('Espécies') ,0,0,'C');
$pdf->Cell($largo[10],$larguraDaLinha,utf8_decode('Silvestres') ,0,0,'C');
$pdf->Cell($largo[11],$larguraDaLinha,utf8_decode('Toleradas') ,0,0,'C');
$pdf->Cell($largo[12],$larguraDaLinha,utf8_decode('Proibidas') ,0,0,'C');
$pdf->Cell($largo[13],$larguraDaLinha,utf8_decode('da Espécie') ,0,0,'C');
$pdf->Cell($largo[14],$larguraDaLinha,utf8_decode('(Mês/Ano)') ,0,0,'C');//primeiro t



//quarta linha de rotulos
$pdf->setXY($posicao[1],$cotaInicioCorpo+12);
$pdf->Cell($largo[2],$larguraDaLinha,utf8_decode('embalagens') ,0,0,'C');
$pdf->Cell($largo[3],$larguraDaLinha,utf8_decode('embalagem Kg') ,0,0,'C');
$pdf->setXY($posicao[8],$cotaInicioCorpo+12);
$pdf->Cell($largo[9],$larguraDaLinha,utf8_decode('Cultivadas(Nº)') ,0,0,'C');
$pdf->Cell($largo[10],$larguraDaLinha,utf8_decode('(Nº)') ,0,0,'C');
$pdf->Cell($largo[11],$larguraDaLinha,utf8_decode('') ,0,0,'C');
$pdf->Cell($largo[12],$larguraDaLinha,utf8_decode('') ,0,0,'C');
$pdf->Cell($largo[13],$larguraDaLinha,utf8_decode('(Nº)') ,0,0,'C');



//coloca a linha abaixo dos rotulos
$pdf->Line($margemEsquerda,$cotaInicioCorpo+16,$margemDireita,$cotaInicioCorpo+16);
//coloca a linha abaixo de representatividade e boletim de analise
$pdf->Line($posicao[1],$cotaInicioCorpo+8,$posicao[5],$cotaInicioCorpo+8);
//coloca a linha abaixo de sementes nocivas
$pdf->Line($posicao[10],$cotaInicioCorpo+8,$posicao[12],$cotaInicioCorpo+8);

//coloca as linhas verticais
$posicaox=$margemEsquerda;
for($i=1;$i<=$colunas-1;$i++):
   $posicaox +=$largo[$i];
   $incremento=0;
   if($i==2 || $i==4 || $i==11  )$incremento=8;
   if($i==9|| $i==10 ||  $i==12 || $i==13 || $i==14 || $i==15  )$incremento=4;
   $cotaInicial=$cotaInicioCorpo+$incremento;
   $pdf->Line($posicaox,$cotaInicial,$posicaox,$cotaInicioCorpo+$altura1);
endfor;







	 $pdf->setXY($margemEsquerda,$cotaInicioCorpo+30);//est alinha so pra afastar joio
	 
	 //aqui pega o numero de amostras que tem no boletim para fins de
	//fazer um casuismo interessante
	//se tem 1 so amostra ele deve pegar os pesos minimos direto da amostra
	//se tiver varia amostras ele vai pegar o peso que esta cadastrado na especie
	//ENTRA DE QUAKQUER MANEIRA
	$contaAmostrasCasuismo=0;
	$generica=new tabelagenerica();
	$generica->tabela="documentosponte";
	$generica->campos_valores = array(
			"dpo_amostra_vinculada" => NULL,
		);
	$generica->extras_select =" where  dpo_documento_autonumerador=".$idDoc." order by dpo_amostra_vinculada LIMIT 12";
	$generica->selecionaCampos($generica);
	while ($resgenerica = $generica->retornaDados()):
	    $contaAmostrasCasuismo++;
		$vetorDPO[$contaAmostrasCasuismo]=$resgenerica->dpo_amostra_vinculada;
	endwhile;
	//se tem SO UMA AMOSTRA VAI PEGR DA AMOSTRA SE TEM MASI DE UMA PEGA DO DOCUMENTO
	if($contaAmostrasCasuismo>1):
	   $pesoPureza= $vetorDadosDocumento[15];
	   $pesoOCV= $vetorDadosDocumento[18];
	   $pesoDOSN= $vetorDadosDocumento[17];
	   $pesoNocivas= $vetorDadosDocumento[16];
	else:
	   $amostraLong=$vetorDPO[1]; 
	  // $vetorAmostraBruto=$objetocalculo->capturaGeralAmostra($amostraLong);//captura TUDO 
	   $pesoPureza= $vetorAmostraBruto[45];
	   $pesoOCV= $vetorAmostraBruto[49];
	   $pesoDOSN= $vetorAmostraBruto[50];
	   $pesoNocivas= $vetorAmostraBruto[51];
	endif;
	 

	 #################vai imprimir resultados##########################################
//aqui vou preparar o vetor de resultados/amostras
//captura o numero de registros e as id das amostras atraves da leitura da tabela documentosponte amarrada com a id do documento
//ENTRA DE QUAKQUER MANEIRA
//echo("3xxxxxxxxxxxxxxidDocumento= $idDoc<br>");

$generica=new tabelagenerica();
$generica->tabela="documentosponte";
$generica->campos_valores = array(
		"dpo_amostra_vinculada" => NULL,
	);
$generica->extras_select =" where  dpo_documento_autonumerador=".$idDoc." order by dpo_amostra_vinculada LIMIT 12";

//echo("eeeeexxxxxxxxxxxxxxxxxxxxxxxxxxeeeeeeerro $generica->extras_select <br>");
$generica->selecionaCampos($generica);
$contaAmostras=0;
while ($resgenerica = $generica->retornaDados()):
    $contaAmostras++;
	$vetorDPO[$contaAmostras]=$resgenerica->dpo_amostra_vinculada;
endwhile;
//echo("4xxxxxxxxxxxxxxidDocumento= $idDoc  contaAmostras =$contaAmostras $vetorDPO[1]<br>");

$indiceVetorNomesContaminantes=1;
//zera o vetor que vai carrgar os contaminantes
$base="";//limpa o array
$base[1][1]="Outras sementes:";


//pega dados da tabela ficha preenchendo o vetor  RESULTADOS, pois ja te as id das amostras
//ENTRA DE QUAKQUER MANEIRA
$L=1;
while($L<=$contaAmostras):
	$amostraLong=$vetorDPO[$L]; 
    //captura todos campos da tabela ficha
    $generica->tabela="ficha";
    $generica->campos_valores = array(
        "fic_amostra"     => NULL,
        "fic_ano"     => NULL,
        "fic_lote"     => NULL,
        "fic_repre_quant"     => NULL,
        "fic_repre_unid"     => NULL,
        "fic_peneira"     => NULL,
		"fic_outrascultivares"=>NULL,
		"fic_dt_entrada"=>NULL,
	);
	//echo("5xxxxxxxxxxxxxxidDocumento= $idDoc  registros =$registros dpo=$vetorDPO[$L] L=$L<br>");
	
	$generica->extras_select =" where  fic_id=".$amostraLong;
	//$vetorAmostraBruto=$objetocalculo->capturaGeralAmostra($amostraLong);//
	$generica->selecionaCampos($generica);
	while ($resgenerica = $generica->retornaDados()):
	    $amostra=$resgenerica->fic_amostra;
	    $vetorResultados[$L][1]=$resgenerica->fic_lote;//lote
	    $loteria=$resgenerica->fic_lote;//lote
		$vetorResultados[$L][2]=$resgenerica->fic_peneira;
        //caso maikel que colocoau 15000kg
		//$texto=$resgenerica->fic_repre_quant;
	    $texto=$resgenerica->fic_repre_unid." ";
	    //exemplo 200 sc 40 kg   a=200   b=sc     c=40   d=sempre kg
	    $a='';
	    $b='';
	    $c='';
	    list($rep1, $rep2, $rep3, $rep4) = explode(" ", $texto);
		if($rep2=='kg')://so tem 2 componentes  exemplo 5000 kg
		   $embalagemFinal=$rep1;//é o caso de 5000 kg
		   $pesoEmbalagemFinal=$rep2;//é o caso de 5000 kg
        else://todos demais casos tem 40 componentes
		   $embalagemFinal=$rep1.' '.$rep2;// 40 bag 900 kg
		   $pesoEmbalagemFinal=$rep3.' '.$rep4;//40 bag 900 kg
		endif;
        $numeroEmbalagens= $embalagemFinal; 		
        $pesoEmbalagens= $pesoEmbalagemFinal; 		
	    $vetorResultados[$L][2]=$numeroEmbalagens;//  representatividade //numerode embalagem
	    $vetorResultados[$L][3]=$pesoEmbalagens;//  representatividade peso por embalagem		
	    $vetorResultados[$L][4]="numbol";//  
	    $vetorResultados[$L][5]="databol";//  


	//$dataEntrada=$resgenerica->fic_dt_entrada;//data entrada
	endwhile;
	//$vetorAmostraBruto=$objetocalculo->capturaGeralAmostra($amostraLong);//
	 //$vetorAmostraBruto=$objetocalculo->capturaGeralAmostra($amostraLong);//captura TUDO 
	$vetorResultados[$L][1]=$loteria;//LOTE
	
    //captura todos campos de pureza da tabela rean1
    $generica->tabela="rean1";
    $generica->campos_valores = array(
		"rea_v1" => NULL,
    );
	$generica->extras_select =" where   rea_teste='PURE' &&  rea_ficha=".$amostraLong;
	$generica->selecionaCampos($generica);
	while ($resgenerica = $generica->retornaDados()):
		$vetorResultados[$L][6]=$resgenerica->rea_v1;//puras
   	endwhile;

   //captura todos campos de germinacao da tabela rean1
    $generica->tabela="rean1";
    $generica->campos_valores = array(
		"rea_v1" => NULL,
        "rea_v2"     => NULL,
        "rea_v3"     => NULL,
        "rea_v4"     => NULL,
        "rea_v5"     => NULL,
        "rea_datageralteste"     => NULL,
        "rea_duracao"     => NULL,
        "rea_campo60b"     => NULL,
        "rea_campo60a"     => NULL,
        "rea_campo20a"     => NULL,
        "rea_validade"     => NULL,
    );
	
	
	
	$generica->extras_select =" where   rea_teste='GERM' &&  rea_ficha=".$amostraLong;
	$generica->selecionaCampos($generica);
	while ($resgenerica = $generica->retornaDados()):
		$vetorResultados[$L][7]=$resgenerica->rea_v1;//normais
		$vetorResultados[$L][8]=$resgenerica->rea_v3;//duras
		$vetorResultados[$L][14]=$resgenerica->rea_validade;//validade do teste
	endwhile;

    ////////////aqui faz um casuismo bem interessante para barenbrug////////////////////
    //se existe o valor de TZF  ELE COLOCA ESTE valor e coloca o rotulo VIABILIDADE
	//CASO CONTRARIO MANTEM O VALOR DE GERMINACAO E COLOCA O ROTULO GEMRINACAO NA COLUNA 7 A DIREITA DE PUREZA 
	//LA EM CIMA O ROTULO 
    //captura o valor de tzf da tabela rean1
    $generica->tabela="rean1";
    $generica->campos_valores = array(
		"rea_v1" => NULL,
    );
	$generica->extras_select =" where   rea_teste='TZF' &&  rea_ficha=".$amostraLong;
	$generica->selecionaCampos($generica);
	$valorTZF="";
	while ($resgenerica = $generica->retornaDados()):
		$valorTZF=$resgenerica->rea_v1;//tzf
   	endwhile;
    if($valorTZF==""  || $valorTZF=="-N-" )://pergunta se nao tem nada em valor tzf
       $cabecalhoViabilidade="Germinação";
    else:
       $cabecalhoViabilidade="Viabilidade";
	   $vetorResultados[$L][7]=$valorTZF;//viabilidad
    endif;
	 $pdf->setXY($posicaoViabilidade,$cotaInicioCorpo);
     $pdf->Cell($largo[7],$larguraDaLinha,utf8_decode($cabecalhoViabilidade) ,0,0,'C');
	//////fim do casuismo viabildade/germincao/////////	





	//TRABALHA COM OS CONTAMINANTES  primeiro somente calculando o total por grupo
	 $somaOE=0;
	 $somaSI=0;
	 $somaTO=0;
	 $somaPR=0;
	 //ENTRA DE QUAKQUER MANEIRA
     $generica->tabela="invasoras";
	 $generica->campos_valores = array(
			"inv_qtd" => NULL,
			"inv_codigo" => NULL,
		);
     $generica->extras_select =" where  inv_amostra=".$amostraLong;
     $generica->selecionaCampos($generica);
     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")$somaTO+=$resgenerica->inv_qtd;
	    if($resgenerica->inv_codigo=="4NOP")$somaPR+=$resgenerica->inv_qtd;
	 endwhile;
     $vetorResultados[$L][9]=$somaOE;
     $vetorResultados[$L][10]=$somaSI;
     $vetorResultados[$L][11]=$somaTO;
     $vetorResultados[$L][12]=0;
     //captura a verificacao da especie	da tabela rean1 
     //$vetorResultados[$L][13]=33;
    $generica->tabela="rean1";
    $generica->campos_valores = array(
		"rea_lei2" => NULL,
    );
	$generica->extras_select =" where   rea_teste='CONJ' &&  rea_ficha=".$amostraLong;
	$generica->selecionaCampos($generica);
	while ($resgenerica = $generica->retornaDados()):
		$vetorResultados[$L][13]=$resgenerica->rea_lei2;//verificacao da especie 
   	endwhile;
	 

     //PREPARA A LISTA DE CONTAMINANTES POR AMOSTRA
/////////////////////////////////
//pega todas as invasoras pelo nome, quentidade grupo que estao no documento..............
//se em algum grupo tem realmente invasora, entao ele abre e trabalha , cria linha nova etc
//so entra se tiver s outras especies
//aqui coloca o numero da amostra

if($somaOE>0||$somaSI>0||$somaTO>0):
  //barenbrug so imprime uma amostra em cada termo entao nao precisa imprimir numero da amaostra 
  //$indiceVetorNomesContaminantes++;
  //$base[$indiceVetorNomesContaminantes][1]="Amostra:".$amostra;
endif;


if($somaOE>0):
	 //ENTRA SO SE TIVER OESP
     $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-";
     while ($resgenerica = $generica->retornaDados()):
    	 $conteudo=$conteudo.$resgenerica->con_nome_cientifico." (".$resgenerica->inv_qtd."); ";
	 endwhile;
	 $indiceVetorNomesContaminantes++;
     $base[$indiceVetorNomesContaminantes][1]=$conteudo;
endif;
//so entra se tiver sislvestre
if($somaSI>0):
	 //ENTRA SO SE TIVER SILV
     $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()):
    	 $conteudo=$conteudo.$resgenerica->con_nome_cientifico." (".$resgenerica->inv_qtd."); ";
	     // echo("conteudo $conteudo<br>"); 
	 endwhile;
	 $indiceVetorNomesContaminantes++;
     $base[$indiceVetorNomesContaminantes][1]=$conteudo;
endif;
//so entra se tiver tolerada
if($somaTO>0):
	 //ENTRA SO SE TIVER TOLERADA
     $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()):
    	 $conteudo=$conteudo.$resgenerica->con_nome_cientifico." (".$resgenerica->inv_qtd."); ";
	 endwhile;
	 $indiceVetorNomesContaminantes++;
     $base[$indiceVetorNomesContaminantes][1]=$conteudo;
endif;
//so entra se tiver proibida
if($somaPR>0):
	 //ENTRA SO SE TIVER TOLERADA
     $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()):
    	 $conteudo=$conteudo.$resgenerica->con_nome_cientifico." (".$resgenerica->inv_qtd."); ";
	 endwhile;
	 $indiceVetorNomesContaminantes++;
     $base[$indiceVetorNomesContaminantes][1]=$conteudo;
  endif;
  
  //VAI CAPTURAR O NUMERO DO BOLETIM E A DATA
      //localiza o numero do boletim e a data do mesmo
		//ENTRA DE QUAKQUER MANEIRA
		$data="-x-";
		$numero="-x-";
 	 	$generica=new tabelagenerica();
		$generica->tabela="documentos,documentosponte";
		$generica->campos_valores = array(
				"doc_data" => NULL,
				"doc_numero" => NULL,
			);
		$generica->extras_select =" where  doc_tipo='Boletim' AND dpo_documento_autonumerador=doc_id AND dpo_amostra_vinculada=" . $amostraLong;
	    $generica->selecionaCampos($generica);
		$numero="Nenhum";
		
		while ($resgenerica = $generica->retornaDados()):
			$numero=number_format($resgenerica->doc_numero/1000,3,'','').'/'.substr($resgenerica->doc_data,0,4);
			$data=date("d/m/Y",strtotime($resgenerica->doc_data));
	    endwhile;
		$vetorResultados[$L][4]=$numero;
		$vetorResultados[$L][5]=$data;
		if($cliente=='SÃO FRANCISCO'):
		    $vetorResultados[$L][17]="DEZ/2016"; //validade
		    $vetorResultados[$L][14]="-O-"; //AQUI É A PRIMEIRA DET ADICIONAL DO TERMO
		    $vetorResultados[$L][15]="-O-"; //AQUI É A PRIMEIRA DET ADICIONAL DO TERMO
		    $vetorResultados[$L][16]="-O-"; //AQUI É A PRIMEIRA DET ADICIONAL DO TERMO
			// MAS NAO ESTA PRONTO ISSO , ME PARECE E ESTOU DEIXANDO PROVISORIO PARA RESOLVAR
		endif;	
  
  
  
  
  
$L++;//incrementa o valor de L ate chegar ao numero de registros
endwhile; //aqui termina o while que pega todas id


     $cota4=$cota3+12;  
	 //resultaso sao impressoas a partr da cota 4
	 $pdf->SetFont('Arial','',6);
	 $cotaLinha=$cota4;//define o começo da impressao de resultados , apenas para naoa ficar em cima da  linha divisoria muito grossa
	 $alturaLinhaResultados=4.3;//define a largura das linhas de resultados
	 
     for($L=1;$L<=$contaAmostras;$L++)
	 {
	     $cotaLinha+=$alturaLinhaResultados;
		 $pdf->setXY($margemEsquerda,$cotaLinha);
    	 for($i=1;$i<=$colunas;$i++)
		 {
			 $pdf->Cell($largo[$i],$alturaLinhaResultados,utf8_decode($vetorResultados[$L][$i]),1,0,'C');
		 }
	 }

//impriem fechador com -0-
	     $cotaLinha+=$alturaLinhaResultados;
		 $pdf->setXY($margemEsquerda,$cotaLinha);
    	 for($i=1;$i<=$colunas;$i++)
		 {
			 $pdf->Cell($largo[$i],$alturaLinhaResultados,'-o-o-',0,0,'C');
		 }

       
	 $pdf->SetXY(10,$cota5);
     #########3 ULTIMAS CAIXAS################################################
	 $altura2=38;
     $cotaUltimasCaixas=$cotaInicioCorpo+$altura1+2;
	 //$pdf->rect($margemEsquerda,$cotaUltimasCaixas,$larguraUtil,$altura2);
     $finalUltimasCaixas=$cotaUltimasCaixas+$altura2;
	 //conteudos
     //daque pra frente fica defnicido pela penultima cota que é a cota 7	 
	 $base[1][2]="Observações:";
	 $base[2][2]=$vetorDadosDocumento[19];
	 $base[3][2]=$vetorDadosDocumento[20];
	 $base[4][2]=$vetorDadosDocumento[21];
	 $base[5][2]=$vetorDadosDocumento[22];
	 $base[6][2]=$vetorDadosDocumento[23];
	 $base[7][2]=$vetorDadosDocumento[24];
	 $base[8][2]=$vetorDadosDocumento[25];
	 $base[9][2]=$vetorDadosDocumento[26];

     //NOTAS ,DATA E responsavel tecnico
	 //$base[1][3]="NOTAS:A presente análise tem seu valor restrito à amostra";
	 //$base[2][3]="entregue ao laboratório.";
	 //$base[3][3]="2-A identificação da amostra é de exclusiva responsabilidade" ;
	 //$base[4][3]="do remetente.";
	 //$base[5][3]="3-Métodos de análise segundo as RAS em vigor ou outro";
	 //$base[6][3]="informado no campo observações.";
	 //$base[8][3]="";
	 //$base[9][3]="";
	 //captura o rt
     //$idTecnico=$vetorTecnico[5];
	 //$assinaturaAtivada=$vetorTecnico[4];
     if($nivel=='PRODUTOR') $assinaturaAtivada='SIM';	 
	 if($assinaturaAtivada=='SIM'):
		 $caminhoFinalTecnico="ImagensClientes/a".$idTecnico.".JPG";
		 $pdf->Image($caminhoFinalTecnico,229,$cotaUltimasCaixas+15,61,14,'JPG');
     endif;

	//$base[10][3]=$vetorTecnico[1];//nome do rt
    //$base[11][3]="RENASEM:".$vetorTecnico[3]."  CREA:".$vetorTecnico[2];	
    $base[5][3]=$vetorCabecalho[6].", ".$vetorDadosDocumento[27];
	$base[10][3]=$nomeRT;//nome do rt
    $base[11][3]="RENASEM:".$renasemRT."  CREA:".$creaRT;	
    $base[12][3]=$cargoRT;  //cargo responsavel tecnico substituto etc
     
	 $largo[1]=115;
	 $largo[2]=105;
	 $largo[3]=65;
	 $pdf->SetXY(10,$cotaUltimasCaixas);
	 $positron[1]=10;
	 $larguraDaLinha=4.0;
     $posicao1=$margemEsquerda;
	 $posicao2=$posicao1+$largo[1];
	 $posicao3=$posicao2+$largo[2];


	 //imprime as contaminamates///////////////////////////////
	 $cotaLinha=$cotaUltimasCaixas;
	 $pdf->SetFont('Arial','I',7);
     for($L=1;$L<=10;$L++):
		 $pdf->SetXY($posicao1,$cotaLinha);
         //se nao tem nada numa linha, significa que encerrou entao imprime -o-o- para finalizar
	     if($base[$L][1]!=""):
		      $pdf->Cell($largo[1],$larguraDaLinha,utf8_decode($base[$L][1]),0,0,'L');	
		 else:
		      $pdf->Cell($largo[1],$larguraDaLinha,'-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-o-o-',0,0,'L');	
	          $cotaLinha+=$larguraDaLinha;

			  break;
		 endif; 	  
	     $cotaLinha+=$larguraDaLinha;
     endfor;
    	 
	 
	 
	 	 
//AQUI VAI IMPRIMIR O RT
	 $pdf->SetFont('Arial','',7);
	 $cotaLinha+=5;
	 $pdf->Line($posicao1,$cotaLinha+24,$posicao1+70,$cotaLinha+24);
     for($L=5;$L<=12;$L++):
		 $pdf->SetXY($posicao1,$cotaLinha);
		 $pdf->Cell($largo[3],4,utf8_decode($base[$L][3]),0,0,'C');	
	     $cotaLinha+=5;
     endfor;	 




	 /////////assinatura
	 if($assinaturaAtivada=='SIM'):
		 $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,30,$cotaLinha-35,30,17,'JPG');//tamnaho especial
         else:
    		 $pdf->Image($caminhoFinalTecnico,30,$cotaLinha-35,61,14,'JPG');//tamanho padrao
		 endif;
     endif;

		// $pdf->SetXY(10,250);//era -10//

	   //  $pdf->Cell(20,5,'KKK'.$assinaturaAtivada.$idTecnico."c1=".$cota1,0,1,'R');	



     $pdf->setXY(20,194);
	 //$total=595.28*193/184;
	 //$pdf->Cell(50,5,$total,0,1,'L');
     //coloca  as 3 linhas separadoras verticais 
	 $posicao1=$largo[1]+10;
	 $posicao2=$posicao1+$largo[2];
  	 //$pdf->Line($posicao1,$cotaUltimasCaixas,$posicao1,$finalUltimasCaixas);//linha separadora
	 //$pdf->Line($posicao2,$cotaUltimasCaixas,$posicao2,$finalUltimasCaixas);//linha separadora
	 //vai imprimir numero de via
	 //$pdf->SetFont('Arial','B',8);
	 //$pdf->SetXY(271,$cota8);//era -10//
     //$pdf->Cell(20,$larguraDaLinha,$pdf->vetorCabecalho[17],1,1,R);	
	 	 //imprime numero de vias
	 //vai imprimir numero de via
	 $viaFinal=$sessao->getvar('controle1');
	 //echo("finallllll $viaFinal <br>");
	 $pdf->SetFont('Arial','B',8);
	 $pdf->SetXY(270,$finalUltimasCaixas);//era -10//
	 $numeroVias=$sessao->getvar('controle2');
	 if($numeroVias>1):
	     $viaAtual=$sessao->getvar('controle1');
		 $viaAtual++;
	     $sessao->setVar('controle1',$viaAtual);
		 $viaFinal=$viaAtual.'ª via';
     endif;	
	 $pdf->Cell(20,$larguraDaLinha,utf8_decode($viaFinal),1,1,'R');	
				 
	ob_clean(); // Quando usava essa classe o ob_clean() resolvia meu problema
$pdf->Output("arquivo.pdf","I");
		
?>
