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