} else { if (isset($m51_codordem_ini) && $m51_codordem_ini != "") { $txt_where .= " and m51_codordem>{$m51_codordem_ini}"; } else { if (isset($m51_codordem_fim) && $m51_codordem_fim != "") { $txt_where .= " and m51_codordem<{$m51_codordem_fim}"; } else { if (isset($cods) && $cods != "") { $txt_where .= " and m51_codordem in ({$cods}) "; } } } } $result = $clmatordem->sql_record($clmatordem->sql_query(null, "*", "", "{$txt_where}")); $num = $clmatordem->numrows; $pdf = new scpdf(); $pdf->Open(); $pdf1 = new db_impcarne($pdf, '10'); //$pdf1->modelo = 10; //$pdf1->nvias= 2 ; $pdf1->objpdf->SetTextColor(0, 0, 0); for ($i = 0; $i < $num; $i++) { db_fieldsmemory($result, $i); $resultitem = $clmatordemitem->sql_record($clmatordemitem->sql_query_ordcons(null, "distinct m52_codordem,m52_sequen,m52_quant,m52_numemp,m52_vlruni,m52_valor,pcmater.pc01_descrmater,pc01_codmater,e62_descr,empempenho.e60_codemp,empempenho.e60_anousu,e62_vltot,e62_quant,e54_conpag,e54_destin,pc81_codproc,pc11_numero,pc23_obs", "", "m52_codordem = {$m51_codordem}")); //die($clmatordemitem->sql_query_ordcons(null,"m52_codordem,m52_sequen,m52_quant,m52_numemp,m52_vlruni,m52_valor,pcmater.pc01_descrmater,pc01_codmater,e62_descr,empempenho.e60_codemp,empempenho.e60_anousu,e62_vltot,e62_quant,e54_conpag,e54_destin,pc81_codproc,pc11_numero","","m52_codordem = $m51_codordem")); //db_criatabela($resultitem); exit; $numrows = $clmatordemitem->numrows; $datahj = date("Y-m-d", db_getsession("DB_datausu")); $pdf1->prefeitura = $nomeinst; $pdf1->enderpref = $ender; $pdf1->municpref = $munic;
$iDbConfig = pg_numrows($rsDbConfig); if ($iDbConfig > 0) { $oDbConfig = db_utils::fieldsMemory($rsDbConfig, 0); $sDbConfig = $oDbConfig->url; } else { $sDbConfig = ""; } //------------------------------------------------------------------ $res = pg_query($sql); //db_criatabela($res); $num = pg_numrows($res); if ($num == 0) { db_redireciona('db_erros.php?fechar=true&db_erro=Não existe Cálculo no período de ' . $mes . ' / ' . $ano); } global $pdf; $pdf = new scpdf(); $pdf->setautopagebreak(false, 0.05); $pdf->Open(); $pdf1 = new db_impcarne($pdf, $iTipoRelatorio); // $pdf1->modelo = 16; $pdf1->logo = $logo; $pdf1->prefeitura = $nomeinst; $pdf1->enderpref = $ender . (isset($numero) ? ', ' . $numero : ""); $pdf1->cgcpref = $cgc; $pdf1->municpref = $munic; $pdf1->telefpref = $telef; $pdf1->emailpref = $email; $pdf1->ano = $ano; $pdf1->mes = $mes; $pdf1->mensagem = $msg; $pdf1->qualarquivo = $qualarquivo;
} elseif ($formvencfebraban == 2) { $db_dtvenc = str_replace("-", "", $datavencimento); $db_dtvenc = substr($db_dtvenc, 6, 2) . substr($db_dtvenc, 4, 2) . substr($db_dtvenc, 2, 2); $vencbar = $db_dtvenc . '00000000'; } $inibar = "8" . $segmento . "6"; $resultcod = pg_exec("select fc_febraban('{$inibar}'||'{$vlrbar}'||'" . $numbanco . "'||'" . $vencbar . "'||'{$numpre}')"); $fc_febraban = pg_result($resultcod, 0, 0); if ($fc_febraban == "") { db_msgbox("Erro ao gerar codigo de barras (3)!"); exit; } $codigo_barras = substr($fc_febraban, 0, strpos($fc_febraban, ',')); $linha_digitavel = substr($fc_febraban, strpos($fc_febraban, ',') + 1); /************************************************************* R E C I B O I T B I *************************************************************************************/ $pdf = new scpdf(); $pdf->Open(); $pdf->settopmargin(5); $pdf->AliasNbPages(); $pdf->AddPage(); $pdf->SetFillColor(235); $altura = 3.5; for ($i = 1; $i < 3; $i++) { $pdf->SetFillColor(235); $y = $pdf->gety() - 2; $pdf->Image('imagens/files/' . $logo, 10, $y, 14); $pdf->SetFont('Arial', 'B', 10); $pdf->setx(30); $pdf->Cell(100, 3, $nomeinst, 0, 1, "L", 0); $pdf->SetFont('Arial', '', 8); $pdf->setx(30);
function db_criacarne($arretipo, $ip, $datahj, $instit, $tipomod) { global $k47_sequencial; global $k47_descr; global $k47_obs; global $k47_altura; global $k47_largura; global $k47_orientacao; global $k47_tipoconvenio; // 1 se for arrecadacao ou 2 se for cobranca global $k22_cadban; // codigo do banco no caso de ser cobranca $intnumexe = 0; $intnumtipo = 0; $intnumgeral = 0; $achou = 0; //die("///////////".$arretipo." -- ".$ip." -- ".$datahj." -- ".$instit." -- ".$tipomod); $sqlexe = " select * from cadmodcarne\n inner join modcarnepadrao on cadmodcarne.k47_sequencial = modcarnepadrao.k48_cadmodcarne\n left join modcarnepadraocobranca on modcarnepadraocobranca.k22_modcarnepadrao = modcarnepadrao.k48_sequencial\n inner join modcarnepadraotipo on modcarnepadrao.k48_sequencial = modcarnepadraotipo.k49_modcarnepadrao\n inner join modcarneexcessao on modcarneexcessao.k36_modcarnepadraotipo = modcarnepadraotipo.k49_sequencial\n where k36_ip = '" . $ip . "'\n and k49_tipo = {$arretipo}\n and k48_dataini <='" . $datahj . "'\n and k48_datafim >='" . $datahj . "'\n and k48_instit = {$instit}\n and k48_cadtipomod = {$tipomod} "; // die("xxxxxxxxxxxxxxxxxxx ".$sqlexe); $rsModexe = db_query($sqlexe); $intnumexe = pg_numrows($rsModexe); if (isset($intnumexe) && $intnumexe > 0) { db_fieldsmemory($rsModexe, 0); // db_msgbox("achou excessao"); $achou = 1; } if ($achou == 0) { $sqltipo = " select * from cadmodcarne\n inner join modcarnepadrao on cadmodcarne.k47_sequencial = modcarnepadrao.k48_cadmodcarne\n left join modcarnepadraocobranca on modcarnepadraocobranca.k22_modcarnepadrao = modcarnepadrao.k48_sequencial\n inner join modcarnepadraotipo on modcarnepadrao.k48_sequencial = modcarnepadraotipo.k49_modcarnepadrao\n left join modcarneexcessao on modcarneexcessao.k36_modcarnepadraotipo = modcarnepadraotipo.k49_sequencial\n where k49_tipo = {$arretipo}\n and k48_dataini <='" . $datahj . "'\n and k48_datafim >='" . $datahj . "'\n and k48_instit = {$instit}\n and k48_cadtipomod = {$tipomod}\n and modcarneexcessao.k36_modcarnepadraotipo is null\n "; // die($sqltipo); $rsModtipo = db_query($sqltipo); $intnumtipo = pg_numrows($rsModtipo); if (isset($intnumtipo) && $intnumtipo > 0) { // db_msgbox("achou tipo"); db_fieldsmemory($rsModtipo, 0); $achou = 1; } } if ($achou == 0) { $sqlgeral = " select * from cadmodcarne\n inner join modcarnepadrao on cadmodcarne.k47_sequencial = modcarnepadrao.k48_cadmodcarne\n left join modcarnepadraocobranca on modcarnepadraocobranca.k22_modcarnepadrao = modcarnepadrao.k48_sequencial\n left join modcarnepadraotipo on modcarnepadrao.k48_sequencial = modcarnepadraotipo.k49_modcarnepadrao\n left join modcarneexcessao on modcarneexcessao.k36_modcarnepadraotipo = modcarnepadraotipo.k49_sequencial\n where k48_dataini <= '" . $datahj . "'\n and k48_datafim >= '" . $datahj . "'\n and k48_instit = {$instit}\n and k48_cadtipomod = {$tipomod}\n and modcarnepadraotipo.k49_modcarnepadrao is null\n and modcarneexcessao.k36_modcarnepadraotipo is null\n "; //die("akiiii".$sqlgeral); $rsModgeral = db_query($sqlgeral); $intnumgeral = pg_numrows($rsModgeral); if ($intnumgeral > 0) { // db_msgbox("achou padrao"); db_fieldsmemory($rsModgeral, 0); $achou = 1; } else { db_redireciona('db_erros.php?fechar=true&db_erro=Modelo de carne não encontrado, contate o suporte !'); } } //die($k47_sequencial."--".$k47_altura."--".$k47_largura."-".$k47_orientacao."-".$k22_cadban); unset($spdf); unset($pdf); if (isset($k47_altura) && $k47_altura != 0 && isset($k47_largura) && $k47_largura != 0 && isset($k47_orientacao) && $k47_orientacao != "") { $medidas = array($k47_altura, $k47_largura); $spdf = new scpdf($k47_orientacao, "mm", $medidas); } else { $spdf = new scpdf(); } $spdf->Open(); $pdf = new db_impcarne($spdf, $k47_sequencial); return $pdf; }
$linha_digitavel = substr($fc_febraban, strpos($fc_febraban, ',') + 1); $config = pg_exec("select \ncodigo ,\nnomeinst ,\nender ,\nmunic ,\nuf ,\ntelef ,\nemail ,\nident ,\ntx_banc ,\nnumbanco ,\nurl ,\nlogo ,\nfigura ,\ndtcont ,\ndiario ,\npref ,\nvicepref ,\nfax ,\ncgc ,\ncep ,\nbairro ,\ntpropri ,\nprefeitura,\ntsocios \nfrom db_config where codigo = " . db_getsession("DB_instit")); db_fieldsmemory($config, 0); $CAR = pg_exec($conn, "select c.descricao,i.area \n from db_caritbi c,db_caritbilan i\n where c.codcaritbi = i.codcaritbi\n and i.area <> 0\n and i.id_itbi = {$itbi}"); for ($i = 0; $i < pg_numrows($CAR); $i += 4) { $des1 = trim(@pg_result($CAR, $i, "descricao")); $are1 = trim(@pg_result($CAR, $i, "area")); $des2 = trim(@pg_result($CAR, $i + 1, "descricao")); $are2 = trim(@pg_result($CAR, $i + 1, "area")); $des3 = trim(@pg_result($CAR, $i + 2, "descricao")); $are3 = trim(@pg_result($CAR, $i + 2, "area")); $des4 = trim(@pg_result($CAR, $i + 3, "descricao")); $are4 = trim(@pg_result($CAR, $i + 3, "area")); } $matriz = split('\\.', $j40_refant); $pdf = new scpdf(); $pdf->Open(); $pdf->settopmargin(5); $pdf->AliasNbPages(); $pdf->AddPage(); /* $pdf->SetTextColor(235); $pdf->SetFont('Arial','',115); $pdf->text(20,30,'MODELO'); $pdf->text(20,70,'MODELO'); $pdf->text(20,110,'MODELO'); $pdf->text(20,150,'MODELO'); $pdf->text(20,190,'MODELO'); $pdf->text(20,230,'MODELO'); $pdf->text(20,270,'MODELO');