// Margem Superior (mm)
$leti = "72";
// Largura da Etiqueta (mm)
$aeti = "27";
// Altura da Etiqueta (mm)
$ehet = "3,2";
// Espaço horizontal entre as Etiquetas (mm)
$pdf = new PDF_Code39('P', 'mm', 'Letter');
// Cria um arquivo novo tipo carta, na vertical.
$pdf->Open();
// inicia documento
$pdf->AddPage();
// adiciona a primeira pagina
$pdf->SetMargins('5', '12,7');
// Define as margens do documento
$pdf->SetAuthor(SISTEMA_SIGLA);
// Define o autor
$pdf->SetFont('helvetica', '', 8);
// Define a fonte
$pdf->SetDisplayMode('fullpage');
$coluna = 0;
$linha = 0;
/*$strSQL = "SELECT * FROM CAD_PAR_PARAMETROS WHERE PAR_Descricao = 'INST_NOME_FANTASIA' ";
$arrStrDados = Db::getInstance()->select($strSQL);*/
$arrObjsPar = FachadaGerencial::getInstance()->consultarParametro(null);
$arrObjsPar = $arrObjsPar["objects"];
$strNomeFantasia = $arrObjsPar[0]->getNomeFantasia();
$strSQL = "SELECT * FROM PAT_PTM_PATRIMONIOS P ";
$strSQL .= "INNER JOIN PAT_TIP_TIPOS_PATRIMONIOS TP ON (TP.TIP_ID = P.TIP_ID) ";
$strSQL .= "INNER JOIN PAT_IPT_ITENS_PATRIMONIAIS IP ON (IP.TIP_ID = P.TIP_ID) ";
$strSQL .= "INNER JOIN PAT_FRA_FORMAS_AQUISICAO A ON (A.FRA_ID = P.FRA_ID) ";
