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; $pdf1->uf = $uf;
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; }