// 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) ";