<?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();
$modelo=$sessao->getVar('controle');

$cliente=$sessao->getVar('cliente');
$senhaCli=$sessao->getVar('iduser');
$idLabo=$sessao->getVar('idLabo');
$inicio=$sessao->getVar('inicio');
$final=$sessao->getVar('final');
$anoCorrente=$sessao->getVar('anocorrente');

$anoAmostra=$anoCorrente;
$finalidade=$sessao->getVar('finalidade');
echo ("finalidade= $finalidade<br>");
$enquadramento=$finalidade;
$nomeOperador=$sessao->getVar('nomeuser');
$amostraLong=$sessao->getVar('amostraLong');
//echo("amostralong= $amostraLong<br>");
$objetocalculo = new calculos(); //calcula todos valores finais
$vetorCabecalho=$objetocalculo->dadoslaboratorio();
$idDoc=$sessao->getVar('transfere');
$pdf=new FPDF('L','mm','A4'); //parametos da pagina 
			 $pdf->open();//abre o fpdf
			 //$pdf->AddPage();//adicionando a primera pafina
			 $pdf->SetFont('Arial','',7);
             if($modelo=='CURTO_A')$pdf->SetFont('Arial','',9);


			 $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;
			 $nomeOperador=5;
			 $pdf->SetFillColor($cinza,$cinza,$cinza); 
				/*atencao para o detalhe
				    //nao deletar estes comentarios
                    Esta é a coleção STANDART que provavelmente nenhum vai querer mas que referecncia todo relatorio
                    quando vou criar um novo pego daqui e personalizo, mudando as larguras, os titulos e removendo
					as linhas indesejadas.
					Detalhe: Posso até trocar de posicao colocando amostra depois de lote e vice versa 
					
	

                    Exemplo: A posicao 1 SEMPRE será AMOSTRA,  indiferente do modelo
				    entretanto um vai chamar de amostra e outro quer que chame de protocolo 
				    por isso preciso colocar os titulos dentro do if do modelo
					CUIDADO: O primeiro indice deful do vetor é zero. Exemplo: Se eu defino array[4,5,6] o indice 4 é o item zero do arrray
					
                */ 
                //venho aqui e simplesmente escolho as colunas que eu quero no meu livro
				//este nome deve ser exatamente igual esta em MANUTENÇÃO-->CONFIGURACOES-->LIVRO PROTOCOLO
				if($modelo=='conceito'):
                    //para cada modelo defino as larguras e os titulos. Suprimo as colunas que nao usar
					//com isso ja consigo que ele me mostre so o que eu realmente quero no livro
					//no vetor indices eu digo quais as colunas e em que posicao relativa
					$matrizLargura[1]=10;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=20;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=20; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=35; $matrizTitulo[4]='Requerente';
					$matrizLargura[5]=30; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=25; $matrizTitulo[6]='RENASEM/CPF';//renasem do requerente
					$matrizLargura[7]=30; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=25; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=15; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=18; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=12; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
					$matrizLargura[23]=23; $matrizTitulo[23]='Procedencia';
					$matrizLargura[24]=10; $matrizTitulo[24]='Campo';
					$matrizLargura[25]=10; $matrizTitulo[25]='Resul.';
					$matrizLargura[26]=10; $matrizTitulo[26]='Saida';
                    $vetorIndices=array(1,17,4,6,23,9,3,2,12,10,24,11,5,25,16,26);//define as colunas que vou ter e  as posicoes delas
				endif;

				if($modelo=='adv'):
                    //para cada modelo defino as larguras e os titulos. Suprimo as colunas que nao usar
					//com isso ja consigo que ele me mostre so o que eu realmente quero no livro
					//no vetor indices eu digo quais as colunas e em que posicao relativa
					$matrizLargura[1]=10;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=25;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=25; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=35; $matrizTitulo[4]='Requerente';
					$matrizLargura[5]=30; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=25; $matrizTitulo[6]='RENASEM/CPF';//renasem do requerente
					$matrizLargura[7]=30; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=25; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=15; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=20; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=10; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=12; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
					$matrizLargura[23]=23; $matrizTitulo[23]='Procedencia';
					$matrizLargura[24]=10; $matrizTitulo[24]='Campo';
					$matrizLargura[25]=10; $matrizTitulo[25]='Informe';
					$matrizLargura[26]=10; $matrizTitulo[26]='Saida';
					$matrizLargura[27]=13; $matrizTitulo[27]='Dt BAS';
					$matrizLargura[28]=13; $matrizTitulo[28]='Dt Inf';
                    $vetorIndices=array(1,17,4,23,9,3,2,12,10,13,11,16,27,25,28,26);//define as colunas que vou ter e  as posicoes delas
                    
					
					//$vetorIndices=array(1,17,4,23,9,3,2);//define as colunas que vou ter e  as posicoes delas
				endif;

				if($modelo=='adv2019'):
                    //para cada modelo defino as larguras e os titulos. Suprimo as colunas que nao usar
					//com isso ja consigo que ele me mostre so o que eu realmente quero no livro
					//no vetor indices eu digo quais as colunas e em que posicao relativa
					$matrizLargura[1]=10;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=25;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=25; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=35; $matrizTitulo[4]='Requerente';
					$matrizLargura[5]=30; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=25; $matrizTitulo[6]='RENASEM/CPF';//renasem do requerente
					$matrizLargura[7]=30; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=25; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=15; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=20; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=10; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=12; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
					$matrizLargura[23]=23; $matrizTitulo[23]='Procedencia';
					$matrizLargura[24]=10; $matrizTitulo[24]='Campo';
					$matrizLargura[25]=10; $matrizTitulo[25]='Informe';
					$matrizLargura[26]=10; $matrizTitulo[26]='Saida';
					$matrizLargura[27]=13; $matrizTitulo[27]='Dt BAS';
					$matrizLargura[28]=13; $matrizTitulo[28]='Dt Inf';
                    $vetorIndices=array(1,17,4,23,9,3,2,12,10,13,11,16,27,25,28,26);//define as colunas que vou ter e  as posicoes delas
                    
					
					//$vetorIndices=array(1,17,4,23,9,3,2);//define as colunas que vou ter e  as posicoes delas
				endif;



				if($modelo=='CURTO'):
                    //para cada modelo defino as larguras e os titulos. Suprimo as colunas que nao usar
					//com isso ja consigo que ele me mostre so o que eu realmente quero no livro
					//no vetor indices eu digo quais as colunas e em que posicao relativa
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=15;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=30; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=50; $matrizTitulo[4]='Requerente';
					$matrizLargura[5]=80; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=15; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=50; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=10; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=30; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=10; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=10; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=7; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
                    $vetorIndices=array(1,2,3,4,5);//define as colunas que vou ter e  as posicoes delas
				endif;
				
				
				
				
				
				if($modelo=='CURTO_A'):
                    //para cada modelo defino as larguras e os titulos. Suprimo as colunas que nao usar
					//com isso ja consigo que ele me mostre so o que eu realmente quero no livro
					//no vetor indices eu digo quais as colunas e em que posicao relativa
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=50;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=50; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=65; $matrizTitulo[4]='Requerente';
					$matrizLargura[5]=90; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=15; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=50; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=10; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=30; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=10; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[15]=10; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=7; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
                    $vetorIndices=array(1,2,3,4,5);//define as colunas que vou ter e  as posicoes delas
				endif;
				
				if($modelo=='CURTO_GERMINAX'):
                    //VALI LOCALIZAR A PRIMEIRA E A ULTIMA AMOSTRA
					$generica=new tabelagenerica();
					$generica->tabela="documentosponte,ficha";
					$generica->campos_valores = array(
							"fic_amostra" => NULL,
						);
					$generica->extras_select =" where dpo_amostra_vinculada=fic_id and  dpo_documento_autonumerador=".$idDoc." order by fic_amostra ";
					//echo("eeeeexxxxxxxxxxxxxxxxxxxxxxxxxxeeeeeeerro $generica->extras_select <br>");
					$generica->selecionaCampos($generica);
                    $contador=0;
					while ($resgenerica = $generica->retornaDados()):
                        $contador++;
					    if($contador==1):
						   $inicio=$resgenerica->fic_amostra;
						else:
						   $final=$resgenerica->fic_amostra;
						endif;   
                    endwhile;

					
					/////FIM DA LOCALIZACAO DA PRIMEIRA E DA ULTIMA AMOSTRA////////

                    //para cada modelo defino as larguras e os titulos. Suprimo as colunas que nao usar
					//com isso ja consigo que ele me mostre so o que eu realmente quero no livro
					//no vetor indices eu digo quais as colunas e em que posicao relativa
					$matrizLargura[1]=14;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=33;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=25; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=37; $matrizTitulo[4]='Requerente';
					$matrizLargura[5]=30; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=18; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=50; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=10; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=12; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=12; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=11; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=18; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=12; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=15; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
					$matrizLargura[23]=33; $matrizTitulo[23]='Procedencia';
                    $vetorIndices=array(16,17,1,4,23,6,9,3,2,12,13,11,10,5);//define as colunas que vou ter e  as posicoes delas
				endif;







				
				
				if($modelo=='QUALITESTEDEFINITIVAS'):
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=15;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=15; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=20; $matrizTitulo[4]='Requerente';
					$matrizLargura[5]=60; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=15; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=20; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=15; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=10; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=15; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=7; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
                    $vetorIndices=array(1,4,6,7,8,9,3,2,10,11,12,13,14,5,15,16);
				endif;
				if($modelo=='QUALITESTEPREVIAS'):
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=15;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=15; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=20; $matrizTitulo[4]='Remetente';
					$matrizLargura[5]=60; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=15; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=20; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=15; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=10; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=15; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=7; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=20; $matrizTitulo[18]='Observações';
                    $vetorIndices=array(1,4,9,3,2,11,17,18,12,13,5);
				endif;
				
				if($modelo=='QUALITESTEL4'):
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=15;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=35; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=40; $matrizTitulo[4]='Remetente';
					$matrizLargura[5]=50; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=15; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=20; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=15; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=10; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=15; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=17; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=50; $matrizTitulo[18]='Dados adicionais';
					$matrizLargura[19]=10; $matrizTitulo[19]='Plural';

                    $vetorIndices=array(1,4,9,3,2,11,17,18,12,13,5,19);
				endif;

				if($modelo=='CELEIRO'):
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=25;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=30; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=22; $matrizTitulo[4]='Remetente';
					$matrizLargura[5]=15; $matrizTitulo[5]='Tipo Análi';
					$matrizLargura[6]=15; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=20; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=13; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=12; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=18; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=20; $matrizTitulo[14]='Dt.Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=10; $matrizTitulo[16]='Nº BAS';
					$matrizLargura[17]=17; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=50; $matrizTitulo[18]='Dados adicionais';
					$matrizLargura[19]=10; $matrizTitulo[19]='Plural';
					$matrizLargura[20]=10; $matrizTitulo[20]='GERM';
					$matrizLargura[21]=10; $matrizTitulo[21]='PURE';
					$matrizLargura[22]=10; $matrizTitulo[22]='PMS';
					$matrizLargura[23]=33; $matrizTitulo[23]='Procedencia';
					$matrizLargura[24]=10; $matrizTitulo[24]='Campo';
					$matrizLargura[25]=10; $matrizTitulo[25]='Informe';
					$matrizLargura[26]=10; $matrizTitulo[26]='Saida';
					$matrizLargura[27]=13; $matrizTitulo[27]='Data BAS';
					$matrizLargura[28]=13; $matrizTitulo[28]='Dt Inf';
					$matrizLargura[29]=17; $matrizTitulo[29]='Visto Resp.';
					$matrizLargura[30]=20; $matrizTitulo[30]='Dt.An.Crítica';

                    //$vetorIndices=array(1,2,3,10,11,12,13,16,20,21,22);
                    $vetorIndices=array(1,30,14,4,23,9,3,2,13,12,11,10,5,16,27,29);
				endif;


				
				if($modelo=='QUALITESTEL4A'):
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=25;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=45; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=40; $matrizTitulo[4]='Remetente';
					$matrizLargura[5]=40; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=15; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=20; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=15; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=10; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=15; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=17; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=40; $matrizTitulo[18]='Dados adicionais';
					$matrizLargura[19]=20; $matrizTitulo[19]='Documento';

                    $vetorIndices=array(1,4,9,3,2,11,17,18,12,5,19);
				endif;
				
				//este é o modelo do tabajara
				if($modelo=='QUALITESTEL4B'):
					$matrizLargura[1]=15;$matrizTitulo[1]='Amostra';
					$matrizLargura[2]=22;$matrizTitulo[2]='Lote';
					$matrizLargura[3]=25; $matrizTitulo[3]='Cultivar';
					$matrizLargura[4]=31; $matrizTitulo[4]='Remetente';//era 38
					$matrizLargura[5]=35; $matrizTitulo[5]='Testes';
					$matrizLargura[6]=19; $matrizTitulo[6]='RENASEM';//renasem do requerente
					$matrizLargura[7]=20; $matrizTitulo[7]='Amostrador';
					$matrizLargura[8]=15; $matrizTitulo[8]='RENASEM';//rensem do amostrador
					$matrizLargura[9]=21; $matrizTitulo[9]='Espécie';
					$matrizLargura[10]=10; $matrizTitulo[10]='Safra';
					$matrizLargura[11]=10; $matrizTitulo[11]='Categoria';
					$matrizLargura[12]=17; $matrizTitulo[12]='Represent.';
					$matrizLargura[13]=10; $matrizTitulo[13]='Peneira';
					$matrizLargura[14]=10; $matrizTitulo[14]='Dt Amostragem';
					$matrizLargura[15]=7; $matrizTitulo[15]='Previa';
					$matrizLargura[16]=7; $matrizTitulo[16]='BAS';
					$matrizLargura[17]=17; $matrizTitulo[17]='DT.Receb.';
					$matrizLargura[18]=37; $matrizTitulo[18]='Dados adicionais';
					$matrizLargura[19]=20; $matrizTitulo[19]='Documento';
					$matrizLargura[23]=30; $matrizTitulo[23]='Procedencia';//era 23
					$matrizLargura[31]=12; $matrizTitulo[31]='Dt Doc';
					$matrizLargura[32]=22; $matrizTitulo[32]='Nº Doc';

                    $vetorIndices=array(1,17,4,23,9,3,2,12,31,32,5,18);
				endif;

				
				
				
            //esta linha mede quantos itens eu defini no array e é basica para imperessao
            $limite=sizeof($vetorIndices);
			$sessao->setVar('controle3',$limite+1);	
 
			
	
            //cria o array conteudo################################################33
			//ENTRA DE QUAKQUER MANEIRA
			$generica=new tabelagenerica();
			$generica1=new tabelagenerica();
			echo $finalidade;
			
			
			$campos=" select fic_procedencia,fic_amostra, fic_lote,ctv_nome, prd_apelido,prd_nome, prd_renasem, prd_cpf, amt_apelido, amt_renasem,fic_categoria,fic_safra,fic_peneira,fic_dt_entrada,fic_repre_unid,fic_id,esp_nome,fic_dt_amostragem,fic_amostra_previa,fic_observacao,fic_campo_string ";
    		//aqui pode pesquisar a sql por numero de amostra ou por mes
			//se for por mes, o mes vem na sessao inicio e na sessao final vem a palavra mes
			//verifica se por acaso foi solicitado pelo dia(data no formato dd/mm/aaaa)
        $pelaData="NAO";
		if(strlen($inicio)==10  && strlen($final)==10):
		  $pelaData='SIM';
		  $inicio_americana=$inicio;
		  $final_americana=$final;
		  $generica->extras_select =$campos ."  from  ficha,cultivar,remetente,amostrador,especies  where  fic_dt_entrada between  '".$inicio_americana."' and '".$final_americana."'  && prd_id=fic_produtor   && amt_id=fic_amostrador && fic_cultivar=ctv_id   && ctv_especie=esp_id  and fic_ano='".$anoCorrente."'  && fic_labo=" . $idLabo." order by fic_amostra";
		endif;
 
        if($pelaData=='NAO'):
			if($final=='mes'):
				if($finalidade=='DEFINITIVA'):
				   $generica->extras_select =$campos ."  from  ficha,cultivar,remetente,amostrador,especies  where month(fic_dt_entrada)='".$inicio."'  && prd_id=fic_produtor   && amt_id=fic_amostrador && fic_cultivar=ctv_id   && ctv_especie=esp_id  and fic_ano='".$anoCorrente."'  && fic_labo=" . $idLabo." order by fic_amostra";
				
				else:
				   $generica->extras_select =$campos ." from   ficha,cultivar,remetente,amostrador,especies  where  fic_previa='S' && fic_amostra_previa>='".$inicio."' &&   fic_amostra_previa<='".$final."' && prd_id=fic_produtor   && amt_id=fic_amostrador && fic_cultivar=ctv_id   && ctv_especie=esp_id  and fic_ano='".$anoCorrente."'  && fic_labo=" . $idLabo." order by fic_amostra_previa";


				   $farofa="prev";
				endif;
            else://se for por numero de amosta
				if($finalidade=='DEFINITIVA'):
				   $generica->extras_select =$campos ."  from  ficha,cultivar,remetente,amostrador,especies  where fic_amostra>='".$inicio."' &&   fic_amostra<='".$final."'            && prd_id=fic_produtor   && amt_id=fic_amostrador && fic_cultivar=ctv_id   && ctv_especie=esp_id  and fic_ano='".$anoCorrente."'  && fic_labo=" . $idLabo." order by fic_amostra";

				
				else:
				   $generica->extras_select =$campos ." from   ficha,cultivar,remetente,amostrador,especies  where  fic_previa='S' && fic_amostra_previa>='".$inicio."' &&   fic_amostra_previa<='".$final."' && prd_id=fic_produtor   && amt_id=fic_amostrador && fic_cultivar=ctv_id   && ctv_especie=esp_id  and fic_ano='".$anoCorrente."'  && fic_labo=" . $idLabo." order by fic_amostra_previa";
				   $farofa="prev";
				endif;
			
			endif;// fim do teste se é por mes ou por data
        endif;//testa se é pela data       




			$generica->selecionaCamposEspecial($generica);
			$contador=1;
            //vou criar a matriz de conteudos que vai ter linhas e colunas
			$userNota = new generica();
	       //vai gravar o cabecalho no primeiro registro criado,
            $matrizCabecalho[1]='Amostra';
            $matrizCabecalho[2]=$matrizTitulo[$vetorIndices[1]];//LOTE
            $matrizCabecalho[3]=$matrizTitulo[$vetorIndices[2]];
            $matrizCabecalho[4]=$matrizTitulo[$vetorIndices[3]];
            $matrizCabecalho[5]=$matrizTitulo[$vetorIndices[4]];
            $matrizCabecalho[6]=$matrizTitulo[$vetorIndices[5]];
            $matrizCabecalho[7]=$matrizTitulo[$vetorIndices[6]];
            $matrizCabecalho[8]=$matrizTitulo[$vetorIndices[7]];
            $matrizCabecalho[9]=$matrizTitulo[$vetorIndices[8]];
            $matrizCabecalho[10]=$matrizTitulo[$vetorIndices[9]];
            $matrizCabecalho[11]=$matrizTitulo[$vetorIndices[10]];
            $matrizCabecalho[12]=$matrizTitulo[$vetorIndices[11]];
            $matrizCabecalho[13]=$matrizTitulo[$vetorIndices[12]];
            $matrizCabecalho[14]=$matrizTitulo[$vetorIndices[13]];
            $matrizCabecalho[15]=$matrizTitulo[$vetorIndices[14]];
			//examina campo por campo. se tiver algo em branco poe traco
			for($j=0;$j<=20;$j++):
		      if($matrizCabecalho[$j]=="")$matrizCabecalho[$j]="-";
			endfor;
			
			
			//aqi limpa a tabela temsila
	        //vai limpar a tabela temporaria
			$sql=" delete from tempsila";
			$userNota = new generica();
			$userNota->campos_valores = $sql;				 
			$userNota->inserirEspecial($userNota);
            
			//aqui cria o registro do cabecalho
			$sql=" insert into tempsila(obs_labo,obs1,obs2,obs3,obs4,obs5,obs6,obs7,obs8,obs9,obs10,obs11,obs12,obs13,obs14,obs15,obs16,obs17,obs18,obs19,obs20)";
			$sql.="values('$idLabo','$matrizCabecalho[1]','$matrizCabecalho[2]','$matrizCabecalho[3]','$matrizCabecalho[4]','$matrizCabecalho[5]','$matrizCabecalho[6]','$matrizCabecalho[7]','$matrizCabecalho[8]','$matrizCabecalho[9]','$matrizCabecalho[10]','$matrizCabecalho[11]','$matrizCabecalho[12]','$matrizCabecalho[13]','$matrizCabecalho[14]','$matrizCabecalho[15]','$matrizCabecalho[16]','$matrizCabecalho[17]','$matrizCabecalho[18]','$matrizCabecalho[19]','$matrizCabecalho[20]')";
			$userNota = new generica();
			$userNota->campos_valores = $sql;				 
			$userNota->inserirEspecial($userNota);	
			
			
					
	
			
			
			while ($resgenerica= $generica->retornaDados()):
	    		if($finalidade=='DEFINITIVA'):
 			       //$matrizConteudo[$contador][1]=$resgenerica->fic_amostra;//
 			       $numAmostra=$resgenerica->fic_amostra;//
				else:
			       //$matrizConteudo[$contador][1]=$resgenerica->fic_amostra_previa;//
 			       $numAmostra=$resgenerica->fic_amostra_previa;//
				endif;
			    $dataReceb=date("y",strtotime($resgenerica->fic_dt_entrada));//
			    $matrizConteudo[$contador][1]=$numAmostra.'/'.$dataReceb;//
				
				
				
                $matrizConteudo[$contador][2]=$resgenerica->fic_lote;//LOTE
			    $matrizConteudo[$contador][3]=$resgenerica->ctv_nome;//CULTIVAR
				
				$larguraReme=round($matrizLargura[4]*0.6);
				
				$requerenteCortado=(substr($resgenerica->prd_nome,0,$larguraReme));
			    $matrizConteudo[$contador][4]=$requerenteCortado;//PRODUTOR
		
				
				$renasem=$resgenerica->prd_renasem;
				$cpf=$resgenerica->prd_cpf;
                if($renasem=="" || $renasem=="-"  || $renasem=="-O-" ):
                   $colunas6=$cpf;
				else:   
                   $colunas6=$renasem;
                endif;				
			    $matrizConteudo[$contador][6]=$colunas6;//REN.PROD
			    $matrizConteudo[$contador][7]=$resgenerica->amt_apelido;//AMOST
			    $matrizConteudo[$contador][8]=$resgenerica->amt_renasem;//REN.AMOSTR

				$larguraEspe=round($matrizLargura[9]*0.6);
				$especieCortado=(substr($resgenerica->esp_nome,0,$larguraEspe));
			    $matrizConteudo[$contador][9]=$especieCortado;//especie

			    $matrizConteudo[$contador][10]=$resgenerica->fic_safra;//SAFRA
			    $matrizConteudo[$contador][11]=$resgenerica->fic_categoria;//CATEGORIA
			    $matrizConteudo[$contador][12]=$resgenerica->fic_repre_unid;//REPRE
			    $matrizConteudo[$contador][13]=$resgenerica->fic_peneira;//
			    $matrizConteudo[$contador][14]=$resgenerica->fic_dt_amostragem;//
			    $matrizConteudo[$contador][15]=$resgenerica->fic_amostra_previa;//NUMERO PREVIA
			    $matrizConteudo[$contador][17]=date("d/m/y",strtotime($resgenerica->fic_dt_entrada));//
                $dataEntradaGerminax=date("d/m/y",strtotime($resgenerica->fic_dt_entrada)); 
				
				$larguraObs=round($matrizLargura[18]*0.63);
				$texto=$resgenerica->fic_observacao;
				$obsCortado=(substr($texto,0,$larguraObs));
			    $matrizConteudo[$contador][18]=$obsCortado;//observacao
				
			    $matrizConteudo[$contador][23]=$resgenerica->fic_procedencia;//
				//SE FOR TABAJARA ELE CORTA os campos procedencia e requerente NUM TAMANHO RAZOAVEL 
 				if(substr($cliente,0,4)=='TS L'):
			        $matrizConteudo[$contador][23]=substr($resgenerica->fic_procedencia,0,19);//PRODUTOR cortado manualmente para tabajara
			        $matrizConteudo[$contador][4]=substr($resgenerica->prd_nome,0,18);//PRODUTOR cortado manualmente para tabajara
			        $matrizConteudo[$contador][3] =substr($resgenerica->ctv_nome,0,15);//CULTIVAR
			        $matrizConteudo[$contador][12]=substr($resgenerica->fic_repre_unid,0,12);//REPRE
                endif;				
			    $matrizConteudo[$contador][24]=$resgenerica->fic_campo_string;//
				//$matrizConteudo[$contador][26]=$excedeu;//
                $amostraLong=$resgenerica->fic_id;
				//acha os testes solicitados
				$generica1->extras_select =" select tes_teste from  testessolicitados where tes_ficha=".$amostraLong;
				$generica1->selecionaCamposEspecial($generica1);
                $texto="";
				while ($resgenerica1= $generica1->retornaDados()):
				    $texto=$texto.$resgenerica1->tes_teste.'; ';//
				endwhile; 
			    $matrizConteudo[$contador][5]=$texto;//e

				//acha o numero do bas
				$generica1->extras_select =" select doc_numero,doc_data from  documentos,documentosponte where doc_tipo='Boletim' && dpo_documento_autonumerador=doc_id and dpo_amostra_vinculada=".$amostraLong;
				$generica1->selecionaCamposEspecial($generica1);
                $texto="";
                $texto1="";
				while ($resgenerica1= $generica1->retornaDados()):
				    $texto=$resgenerica1->doc_numero.date("/y",strtotime($resgenerica1->doc_data));//
				    $texto1=date("d/m/y",strtotime($resgenerica1->doc_data));
				endwhile; 
			    $matrizConteudo[$contador][16]=$texto;//e
			    $matrizConteudo[$contador][27]=$texto1;//e
				//acha o numero do Plural
				$generica1->extras_select =" select doc_numero,doc_data from  documentos,documentosponte where doc_tipo='Plural' && dpo_documento_autonumerador=doc_id and dpo_amostra_vinculada=".$amostraLong;
				$generica1->selecionaCamposEspecial($generica1);
                $texto="";
                $texto1="";
				while ($resgenerica1= $generica1->retornaDados()):
				    $texto=$resgenerica1->doc_numero.date("/y",strtotime($resgenerica1->doc_data));//
					$texto1=date("d/m/y",strtotime($resgenerica1->doc_data));
				endwhile; 
			    $matrizConteudo[$contador][19]=$texto;//e
				


				//acha o numero do resultado informe coluna 25
				$generica1->extras_select =" select doc_numero,doc_data from  documentos,documentosponte where doc_tipo='Informe' && dpo_documento_autonumerador=doc_id and dpo_amostra_vinculada=".$amostraLong;
				$generica1->selecionaCamposEspecial($generica1);
                $texto="";
                $texto1="";
				while ($resgenerica1= $generica1->retornaDados()):
				    $texto=$resgenerica1->doc_numero;//
					$texto1=date("d/m/y",strtotime($resgenerica1->doc_data));
				endwhile; 
			    $matrizConteudo[$contador][25]=$texto;//e
			    $matrizConteudo[$contador][28]=$texto1;//e
                $matrizConteudo[$contador][29]=" ";//em branco pois serve para assinatura/visto do tecnico





                //acha qualquer um documento colocando uma letrinha antes i234 b332 p443 
                if($modelo=='QUALITESTEL4A'  || $modelo=='QUALITESTEL4B' ):
					$generica1->extras_select =" select doc_numero,doc_tipo,doc_data from  documentos,documentosponte where dpo_documento_autonumerador=doc_id and dpo_amostra_vinculada=".$amostraLong;
					$generica1->selecionaCamposEspecial($generica1);
	                $texto="";
                    $montagemTabajara="";
					while ($resgenerica1= $generica1->retornaDados()):
					    $tipoDoc=$resgenerica1->doc_tipo;
						$texto=substr($tipoDoc,0,3)." " . $resgenerica1->doc_numero;//
                        $matrizConteudo[$contador][31]=date("d/m/y",strtotime($resgenerica1->doc_data));
                        $matrizConteudo[$contador][32]=$resgenerica1->doc_numero;
                        //aqu entra o caso do tabajara que coloca a letra p ou i ou b antes do numero do ddocumentod dependento que tipo é
                        if($modelo=='QUALITESTEL4B'):
					       $montagemTabajara=$montagemTabajara.substr($texto,0,3).$resgenerica1->doc_numero ."; "; 	
						endif;
					endwhile;
				    $matrizConteudo[$contador][19]=$texto;//e
				endif;//testa o modelo L4A...
                $matrizConteudo[$contador][32]=$montagemTabajara;


				//aqui vai ACHAR GERINACAO
					$generica1->extras_select =" select rea_v1 from rean1 where rea_teste='GERM' and rea_ficha=".$amostraLong;
					$generica1->selecionaCamposEspecial($generica1);
	                $texto="";
					while ($resgenerica1= $generica1->retornaDados()):
						$texto=$resgenerica1->rea_v1;//
					endwhile; 
				   $matrizConteudo[$contador][20]=$texto;//e
				//aqui vai ACHAR GERINACAO
					$generica1->extras_select =" select rea_v1 from rean1 where rea_teste='GERM' and rea_ficha=".$amostraLong;
					$generica1->selecionaCamposEspecial($generica1);
	                $texto="";
					while ($resgenerica1= $generica1->retornaDados()):
						$texto=$resgenerica1->rea_v1;//
					endwhile; 
				   $matrizConteudo[$contador][20]=$texto;//e
				//aqui vai ACHAR pureza
					$generica1->extras_select =" select rea_v1 from rean1 where rea_teste='PURE' and rea_ficha=".$amostraLong;
					$generica1->selecionaCamposEspecial($generica1);
	                $texto="";
					while ($resgenerica1= $generica1->retornaDados()):
						$texto=$resgenerica1->rea_v1;//
					endwhile; 
				   $matrizConteudo[$contador][21]=$texto;//e
				//aqui vai ACHAR pureza
					$generica1->extras_select =" select rea_v1 from rean1 where rea_teste='PMS' and rea_ficha=".$amostraLong;
					$generica1->selecionaCamposEspecial($generica1);
	                $texto="";
					while ($resgenerica1= $generica1->retornaDados()):
						$texto=$resgenerica1->rea_v1;//
					endwhile; 
				   $matrizConteudo[$contador][22]=$texto;//e

                //$matrizConteudo[$contador][2]=$farofa;
			    $contador++;
				
				//no germinax os relatorios podem ter ate 42 linhas  nos demais vai criar novas paginas
				if(substr($cliente,0,8)=="GERMINAX"):
                   $limiteDeAmostras=42;
                   if($contador>$limiteDeAmostras):
				       break;
				   endif;	   
				else:
                   $limiteDeAmostras=30;
				endif;
				
				
				
				
			endwhile; 
			
//agora imprime	o corpo		
//o indice vai permitir eu imprimir na ordem que eu quiser e inclusive suprimir linhas	
$tabela = '<table border="1">';
$tabela .= '<tr>';
 $tabela .= '<td colspan="8">Exportacao de dados para Excel - Sistema SilasNet</tr>';//usa para o titulo tantas colunas quanto foi definido em coslpan
 $tabela .= '</tr>';
 $tabela .= '<tr>';
 for($je=1;$je<=20;$je++):
	$tabela .= '<td>'.utf8_decode($matrizCabecalho[$je]).'</td>';
 endfor;
 //so para ver como adiciona as colunas...hihihi
 //$tabela .= '<td><b>Nome</b></td>';
 //$tabela .= '<td><b>Email</b></td>';
  $tabela .= '</tr>';
 					
			
			
            $linhasRelatorio=0;			    
			for($i=1;$i<$contador;$i++):
				//se linhas relatorio for zero entao imprime o cbecalho
				if($linhasRelatorio==0)://xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
				   $pdf->AddPage();//adicionando a primera pafina 
				 //cabecalho
				 //CRIA UM CABECALHO ESPECILA PARA GERMINAX
				 if(substr($cliente,0,8)=="GERMINAX"):
				    $cota1=3;
				    $pdf->SetFont('Arial','B',8);
					
	 			    $posicaoCab2=170;
				 	$posicaoCab1=60;$posicaoCab2=245;
		            $caminhoFinal="ImagensClientes/i".$idLabo.".JPG";
		            $pdf->Image($caminhoFinal,11,3,48,23,'JPG');
					$pdf->setXY($posicaoCab1,$cota1);$pdf->Cell(185,8,utf8_decode('FORMULÁRIO'),1,1,'C');//lab nome
	     			$pdf->setXY($posicaoCab2,$cota1+0);$pdf->Cell(45,4,utf8_decode("Identificação:FR.5.8.01.01"),1,1,'L');//lab nome
	     			$pdf->setXY($posicaoCab2,$cota1+4);$pdf->Cell(45,4,utf8_decode('Revisão:02'),1,1,'L');//lab nome
		            //penultima caixa			
	     			$pdf->setXY($posicaoCab2,$cota1+8);$pdf->Cell(22,3,utf8_decode('Data de'),0,1,'L');//lab nome
	     			$pdf->setXY($posicaoCab2,$cota1+11);$pdf->Cell(22,3,utf8_decode('Revisão:'),0,1,'L');//lab nome
	     			$pdf->setXY($posicaoCab2,$cota1+14);$pdf->Cell(22,3,utf8_decode('01/01/2016'),0,1,'L');//lab nome
	                $pdf->Rect($posicaoCab2,$cota1+8,22,9);
		            //ultima caixa			
	     			$pdf->setXY($posicaoCab2+22,$cota1+8);$pdf->Cell(22,3,utf8_decode('Data de'),0,1,'L');//lab nome
					$cotaDataGerminax=$cota1+11;
	     			//$pdf->setXY($posicaoCab2+22,$cota1+11);$pdf->Cell(22,3,utf8_decode('22/02/2016'),0,1,'L');//data germinax esta la no final
	                $pdf->Rect($posicaoCab2+22,$cota1+8,23,9);
	     			$pdf->setXY($posicaoCab1,$cota1+8);$pdf->Cell(185,9,'PROTOCOLO DE RECEBIMENTO DE AMOSTRAS' ,1,1,'C');//lab nome
	             else://caso nao for germinax 
				    if($cliente=='CELEIRO'):
					    $largFixaCeleiro=228;
						$pdf->SetFont('Arial','B',8);
					    $cota1=3;
					 	$posicaoCab1=60;$posicaoCab2=245;
			            $caminhoFinal="ImagensClientes/i".$idLabo.".JPG";
			            $pdf->Image($caminhoFinal,11,3,48,23,'JPG');
						$pdf->setXY($posicaoCab1,$cota1);$pdf->Cell($largFixaCeleiro,5,utf8_decode('Título:PROTOCOLO DE ENTRADA DAS AMOSTRAS'),1,1,'L');//lab nome
		     			$pdf->setXY($posicaoCab1,$cota1+5);$pdf->Cell($largFixaCeleiro,5,utf8_decode('Identificação: FOR 5.8.02           Revisão:06'),1,1,'L');//lab nomee
		     			$pdf->setXY($posicaoCab1,$cota1+10);$pdf->Cell($largFixaCeleiro,5,utf8_decode('Página:1/1                      Data de Emissão: 06/11/2017'),1,1,'L');//lab nome
						$pdf->SetFont('Arial','',5);
                    else:
					    
					   	if($modelo=='adv2019'):
						    //cabecalho especial 2019 adv
						    $pdf->SetFont('Arial','B',10);
						    $cota1=3;
						 	$posicaoCab1=70;$posicaoCab2=215;
                            $pdf->Line($posicaoCab1,$cota1,$posicaoCab1,28);
                            $pdf->Line($posicaoCab2,$cota1,$posicaoCab2,28);
							
                            $pdf->Rect($margemEsquerda,$cota1,$larguraUtil-15,25);
							$pdf->setXY($margemEsquerda,$cota1+8);$pdf->Cell(60,5,utf8_decode('ADV Consultoria'),0,1,'C');//lab nome
							$pdf->setXY($margemEsquerda,$cota1+ 14);$pdf->Cell(60,5,utf8_decode('Agronômica Ltda.'),0,1,'C');//lab nome
							
							$pdf->setXY($posicaoCab1,$cota1+10);$pdf->Cell(140,5,utf8_decode('PROTOCOLO DE AMOSTRAS'),0,1,'C');//lab nome
							
							$pdf->setXY($posicaoCab2,$cota1+5);$pdf->Cell(60,5,utf8_decode('Registro da Qualidade'),0,1,'C');//lab nome
							$pdf->setXY($posicaoCab2,$cota1+11);$pdf->Cell(60,5,utf8_decode('RQ.04.02'),0,1,'C');//lab nome
							$pdf->setXY($posicaoCab2,$cota1+17);$pdf->Cell(60,5,utf8_decode('Versão:02'),0,1,'C');//lab nome
						else:
                          //cabecalho tradicional					    
						    $cota1=3;
						 	$posicaoCab1=60;$posicaoCab2=245;
				            $caminhoFinal="ImagensClientes/i".$idLabo.".JPG";
				            $pdf->Image($caminhoFinal,11,3,48,23,'JPG');
							$pdf->setXY($posicaoCab1,$cota1);$pdf->Cell(140,5,utf8_decode($vetorCabecalho[0]),0,1,'L');//lab nome
			     			$pdf->setXY($posicaoCab1,$cota1+5);$pdf->Cell(140,5,utf8_decode($vetorCabecalho[1]),0,1,'L');//lab nome
			     			$pdf->setXY($posicaoCab1,$cota1+10);$pdf->Cell(140,5,utf8_decode($vetorCabecalho[2]),0,1,'L');//lab nome
			     			//$pdf->setXY($posicaoCab1,$cota1+15);$pdf->Cell(140,5,'Amostras:'.$finalidade.' Ano:'.$anoCorrente.'pd'.$pelaData.$finalidade .'inicio='.$inicio_americana .'final='.$final ,0,1,'L');//lab nome
						
                        endif; 						
						
						if($modelo!='adv2019'):		
			     		    if(substr($cliente,0,4)!='TS L'):
	                          $pdf->setXY($posicaoCab1,$cota1+15);$pdf->Cell(140,5,'Amostras:'.$finalidade.' Ano:'.$anoCorrente.'   inicio='.$inicio .'   final='.$final ,0,1,'L');
		                    else:
		 	                  $pdf->setXY($posicaoCab1,$cota1+15);$pdf->Cell(140,5,'Amostras:'.$finalidade.' Ano:'.$anoCorrente ,0,1,'L');            		 
						 	endif;
                        endif;  						
						
						
						
							 
	                endif;
	             endif;//testa se e germinax
//define uma letra bem pequena para germinax



				 
				 //imprime o titulo das colunas
	           //aqui imprime a linha de cabecalho //posso negrita/ colocar hachurrado etc 
	            $cota1=$cota1+25;
		
				$pdf->setXY($margemEsquerda,$cota1);
	            for($j=1;$j<=$limite;$j++):
					$indice=$vetorIndices[$j-1]; //O PRIMEIRO ITEM DO ARRAY É ZERO, CUIDAR COM ISSO
					$largura=$matrizLargura[$indice];
					$larguraTexto=ceil($largura*.7);
					$texto=$matrizTitulo[$indice];
					$texto=substr($texto,0,$larguraTexto);//pois as vezes vai acavalar alguns textos
				    $pdf->Cell($largura,5,utf8_decode($texto),1,0,'L',1);//lab nome
				endfor;
	      
		        //imprimme as normas
				if(substr($cliente,0,8)!="GERMINAX" && $cliente!='CELEIRO'  && substr($cliente,0,4)!='TS L' && $modelo!='adv2019'):
				 $vetorNormas=$objetocalculo->capturaNormas("Protocolo","Padrao",$idLabo);
				 $posicaoNorma=250;
				 $pdf->Rect($posicaoNorma,5,40,15);
				 $pdf->setXY($posicaoNorma,5);  $pdf->Cell(40,4,utf8_decode("Formulario:".$vetorNormas[1]),0,0);
				 $pdf->setXY($posicaoNorma,9);  $pdf->Cell(40,4,utf8_decode("Emissão:".$vetorNormas[2]),0,0);
				 $pdf->setXY($posicaoNorma,13);  $pdf->Cell(40,4,utf8_decode("Formulario:".$vetorNormas[3]),0,0);
				endif; 

				if(substr($cliente,0,8)=="GERMINAX"):
				    $pdf->SetFont('Arial','',6);//letra especial menor
				    $alturaLinha=3;//altura da linha menor para caber 40 ou mais amostras
	                $cota1+=2; //se  nao poe isso ele imprime a priemir alinhas sogre o cabecalho
	            else:
					$pdf->SetFont('Arial','',7);
					if($cliente=='CELEIRO')$pdf->SetFont('Arial','',6);
				    $alturaLinha=5;//
				endif;

                  //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
				endif;//este endif testou se linhas relatorio=0 ou seja se vai crair nova pagina
				
				
				
                $cota1+=$alturaLinha;
				$cotaPrimaria=$cota1;
			
                //aqui ele quebra linha no algoritmo no braço,na metralhadora
                $largAcumulada=$margemEsquerda;
				//$cotaCalculada=$cota1;
                ///////////////////impressao/////////////////////////                
                if($modelo=='QUALITESTEL4B'):
  					$pdf->SetFont('Arial','',7);
			    endif;		
				for($j=1;$j<=$limite;$j++): 
				    $indice=$vetorIndices[$j-1]; 
					$largura=$matrizLargura[$indice];
                    $corte=0.8;
                    if($indice==4)$corte=0.6;//o nome do requerente é sempre caixa alta e isso gasta mais espaco
					$larguraTexto=$largura*$corte;//varia conforme o tamanho da letra SE DIMINUI CORTA MAIS CURTO
					$texto=$matrizConteudo[$i][$indice];
					$conteudoReal[$i][$j];//cria a matriz para levar ao excel
					if($texto=="") $texto="-";
				    //aqui devera imprimir um pedaco em cima e um pedaco embaixo
					 $excedeu="nao";
					 if(strlen($texto)>$larguraTexto):
        				$pdf->setXY($largAcumulada,$cota1);
				        $parte1=substr($texto,0,$larguraTexto);
				        $parte2=substr($texto,$larguraTexto);
						//SE FOR GERMINAX vai ter numero de linhas =40 entao nao pode duplicar linha
						if(substr($cliente,0,8)=="GERMINAX"):
						  $parte2="";
						endif;
				        //$parte2=$texto;

						$pdf->Cell($largura,$alturaLinha,utf8_decode($parte1),0,0,'L');//imprime
        				$pdf->setXY($largAcumulada,$cota1+$alturaLinha);
				        $pdf->Cell($largura,$alturaLinha,utf8_decode($parte2),0,0,'L');//imprime
						
                        $excedeu="sim";
					 else:
				        $pdf->setXY($largAcumulada,$cota1);
				        $pdf->Cell($largura,$alturaLinha,utf8_decode($texto),0,0,'L');//imprime
					 endif;
                     $largAcumulada+=$largura;
                //fim da insercao na tabela tempsila
                endfor;
				//caso tenha achado algo para dividir entao deve aumentar a cota e as linhas do relatorio, que gera o salto
                if($excedeu=='sim'):
				   $cota1+=$alturaLinha;
			       $linhasRelatorio++;
				endif;                
                //coloca uma linha depois da parte impressa                
                $pdf->Line($margemEsquerda,$cota1+$alturaLinha,$largAcumulada,$cota1+$alturaLinha);
                //coloca as linhas verticais
				$largAcumulada=$margemEsquerda;
				for($j=0;$j<=$limite;$j++): 
				    $indice=$vetorIndices[$j-1]; 
					$largura=$matrizLargura[$indice];
                    $largAcumulada+=$largura;
                    $pdf->Line($largAcumulada,$cotaPrimaria,$largAcumulada,$cota1+$alturaLinha);
                endfor;
				
				
				
				
				
				//aqui cria registros na tabela tempsila
	            //$sql=" insert into tempsila(obs_labo,obs1,obs2,obs3,obs4,obs5,obs6,obs7,obs8,obs9,obs10,obs11,obs12,obs13,obs14,obs15,obs16,obs17,obs18,obs19,obs20)";
				//$sql.="values('$idLabo','$matrizCorpo[1]','$matrizCorpo[2]','$matrizCorpo[3]','$matrizCorpo[4]','$matrizCorpo[5]','$matrizCorpo[6]','$matrizCorpo[7]','$matrizCorpo[8]','$matrizCorpo[9]','$matrizCorpo[10]','$matrizCorpo[11]','$matrizCorpo[12]','$matrizCorpo[13]','$matrizCorpo[14]','$matrizCorpo[15]','$matrizCorpo[16]','$matrizCorpo[17]','$matrizCorpo[18]','$matrizCorpo[19]','$matrizCorpo[20]')";
					//echo("sql= $sql  <br>");
				//$userNota->campos_valores = $sql;				 
				//$userNota->inserirEspecial($userNota);//aqui termina de salvar a tabela temsila
				 $tabela .= '<tr>';
				 for($je=1;$je<=20;$je++):
				     $tabela .= '<td>'.utf8_decode($matrizCorpo[$je]).'</td>';
				  endfor;
	              $tabela .= '</tr>';
              $linhasRelatorio++;
			  //se atinge o limite de linhas o relatorio imprime o cabecalho novamete
			  $limiteLinhas=30;
			  if(substr($cliente,0,8)=='GERMINAX')$limiteLinhas=45;
			  if($linhasRelatorio>=$limiteLinhas):
                 $linhasRelatorio=0;			    
			  endif;	
            endfor;//este for percorre todos registros
			
   $tabela .= '</table>';
   $sessao->setVar('controleExcel',$tabela);
   
 

   
    //o germinax precisa de um rodape(quem sabe outros vao precisar tambem)
if(substr($cliente,0,8)=="GERMINAX"):
    $cota1=170;//era170
	$pdf->setXY($margemEsquerda,$cota1);
    $pdf->Cell(100,4,utf8_decode('Observações:'),0,0,'L');
    $cota1=180;//era170
	$largura1=87; 
	$largura2=65; 
	$largura3=67; 
	$largura4=37; 
	$largura5=25; 
	$pdf->setXY($margemEsquerda,$cota1);
    $pdf->Cell($largura,4,utf8_decode('GER= GERMINAÇÃO, TZO= TETRAZÓLIO, PUR= PUREZA, ARE= GERMINAÇÃO EM AREIA, BOL= BOLETIM'),0,0,'L');//lab nome 
    $pdf->setXY($margemEsquerda,$cota1+4);
    $pdf->Cell($largura+100,4,utf8_decode('EAC= ENVELHECIMENTO ACELERADO, FIT= FITOPATOLOGIA, OGM= ORGANISMO GENETICAMENTE  MODIFICADO, MFB= MOFO BRANCO'),0,0,'L');//lab nome 
    $pdf->Rect($margemEsquerda,$cota1,$larguraUtil,8);
    $pdf->setXY($margemEsquerda,$cota1+8);
    $pdf->Cell($largura1,4,utf8_decode('Identificação '),1,0,'C');//lab nome 
    $pdf->Cell($largura2,4,utf8_decode('Arquivo '),1,0,'C');//lab nome 
    $pdf->Cell($largura3,4,utf8_decode('Indexação'),1,0,'C');//lab nome 
    $pdf->Cell($largura4,4,utf8_decode('Tempo de retenção'),1,0,'C');//lab nome 
    $pdf->Cell($largura5,4,utf8_decode('Disposição'),1,0,'C');//lab nome 
    $pdf->setXY($margemEsquerda,$cota1+12);
    $pdf->Cell($largura1,8,utf8_decode('FR.5.8.01.01 - Protocolo de recebimento de amostras '),1,0,'C');//lab nome 
    $pdf->Cell($largura2,8,utf8_decode('Pasta ou arquivo próprio'),1,0,'C');//lab nome 
    $pdf->Cell($largura3,8,utf8_decode('Ordem data'),1,0,'C');//lab nome 
    $pdf->Cell($largura4,8,utf8_decode('05 anos'),1,0,'C');//lab nome 
    $pdf->Cell($largura5,8,utf8_decode('Eliminar'),1,0,'C');//lab nome 
	//data entrada germinax
	$pdf->setXY($posicaoCab2+22,$cotaDataGerminax);
	$pdf->Cell(22,3,$dataEntradaGerminax,0,1,'L');//data germinax 
endif;//testa se é germinax



if(substr($cliente,0,8)=="CELEIRO"):
    $cota1=170;//era170
	$pdf->SetFont('Arial','B',8);
	$pdf->setXY($margemEsquerda,$cota1);
    $pdf->Cell(278,4,utf8_decode('Conferido por::'),1,0,'L');
	$pdf->setXY($margemEsquerda,$cota1+4);
    $pdf->Cell(168,4,utf8_decode('Elaborado por: GQ-Renata Dantas de Oliveira'),1,0,'L');
    $pdf->Cell(110,4,utf8_decode('Data de Elaboração: 06/11/2017'),1,0,'L');
	$pdf->setXY($margemEsquerda,$cota1+8);
    $pdf->Cell(168,4,utf8_decode('Aprovado por: Fernando Fernandes Caixeta'),1,0,'L');
    $pdf->Cell(110,4,utf8_decode('Data de Aprovação: 06/11/2017'),1,0,'L');
endif;//testa se é germinax
			
			
	
			ob_clean(); // Quando usava essa classe o ob_clean() resolvia meu problema
$pdf->Output("arquivo.pdf","I");

		
		
?>
