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;
}
