$Identificacao = pg_query("\n select cgm.z01_nome,cgm.z01_ender,cgm.z01_munic,cgm.z01_uf,cgm.z01_cep,' ' as nomepri,' ' as j39_compl, ' ' as j39_numero, ' ' as j13_descr, '' as sql\n from recibo r\n inner join cgm c on c.z01_numcgm = r.k00_numcgm\n where r.k00_numpre = " . $k03_numpre . "\n limit 1"); db_fieldsmemory($Identificacao, 0); } } } } $Observacoes = pg_query($conn, "select mens,alinhamento from db_confmensagem where cod in('obsboleto1','obsboleto2','obsboleto3','obsboleto4')"); $db_vlrbar = db_formatar(str_replace('.', '', str_pad(number_format($total_recibo, 2, "", "."), 11, "0", STR_PAD_LEFT)), 's', '0', 11, 'e'); $db_numpre = db_numpre($k03_numpre) . '000'; global $pdf; $pdf = new scpdf(); $pdf->Open(); global $pdf; $pdf1 = $oRegraEmissao->getObjPdf(); try { $oConvenio = new convenio($oRegraEmissao->getConvenio(), $k03_numpre, 0, $total_recibo, $db_vlrbar, $datavencimento, '6'); } catch (Exception $eExeption) { db_redireciona("db_erros.php?fechar=true&db_erro={$eExeption->getMessage()}"); exit; } $codigobarras = $oConvenio->getCodigoBarra(); $linhadigitavel = $oConvenio->getLinhaDigitavel(); $pdf1->tipo_convenio = $oConvenio->getTipoConvenio(); if (strlen(trim($oConvenio->getConvenioCobranca())) == 7) { $pdf1->nosso_numero = trim($oConvenio->getConvenioCobranca()) . str_pad($k03_numpre . "00", 10, 0, STR_PAD_LEFT); } else { $pdf1->nosso_numero = $oConvenio->getNossoNumero(); } if ($oRegraEmissao->isCobranca()) { $pdf1->agencia_cedente = $oConvenio->getAgenciaCedente(); $pdf1->carteira = $oConvenio->getCarteira();
$cldb_bancos = new cl_db_bancos(); $clconfigdbpref = new cl_configdbpref(); $sqluf = "select db12_uf,db12_extenso,db21_usasisagua from db_config inner join db_uf on db12_uf=uf where codigo = " . $instit; $resultuf = db_query($sqluf); db_fieldsmemory($resultuf, 0); try { $oRegraEmissao = new regraEmissao($tipo_debito, 2, db_getsession('DB_instit'), date("Y-m-d", db_getsession("DB_datausu")), db_getsession('DB_ip')); } catch (Exception $eExeption) { db_redireciona("db_erros.php?fechar=true&db_erro={$eExeption->getMessage()}"); exit; } /* * Verificamos se a regra de emissão configurada para o tipo de débito se trata de cobrança registrada * Caso seja cobrança registrada então bloqueamos a emissão do recibo */ $sSqlCadTipoConvenio = "select ar11_cadtipoconvenio from cadconvenio where ar11_sequencial = {$oRegraEmissao->getConvenio()}"; $rsCadTipoConvenio = db_query($sSqlCadTipoConvenio); $iCadTipoConvenio = db_utils::fieldsMemory($rsCadTipoConvenio, 0)->ar11_cadtipoconvenio; if ($iCadTipoConvenio == 7) { db_redireciona("db_erros.php?fechar=true&db_erro='A emissão do recibo deste tipo de débito pode ser realizado apenas na Prefeitura'"); exit; } $tipoidentificacao = 0; $naopassa = 'f'; $sPQLLocal = ''; if (!isset($emite_recibo_protocolo)) { db_query("BEGIN"); $result = db_query("select nextval('numpref_k03_numpre_seq') as k03_numpre"); db_fieldsmemory($result, 0); //pega os numpres da ca3_gerfinanc002.php, separa e insere em db_reciboweb $result = db_query("select k00_codbco,k00_codage,k00_descr,k00_hist1,k00_hist2,k00_hist3,k00_hist4,k00_hist5,k00_hist6,k00_hist7,k00_hist8,k03_tipo,k00_tipoagrup from arretipo where k00_tipo = {$tipo}");
$histinf = "\n Atenção : entre em contato com o municipio para saber o valor da {$ninfla}."; } else { $especie = 'R$'; $histinf = ""; } if ($dtvencunic < date('Ymd', db_getsession('DB_datausu'))) { $msgvencida = "\n Parcela vencida, valor calculado com juros e multa até a data atual. Vencimento original " . $k00_dtvenc; $k00_dtvenc = date('d/m/Y', $H_DATAUSU); } else { $msgvencida = ""; } } else { $dtvencunic = str_replace("/", "", $dtvencunic); } try { $oConvenio = new convenio($oRegraEmissao->getConvenio(), $k00_numpre, 0, $k00_valor, $vlrbar, $dtvencunic, $iTercDig); } catch (Exception $eExeption) { db_redireciona("db_erros.php?fechar=true&db_erro={$eExeption->getMessage()}"); exit; } if ($oRegraEmissao->isCobranca()) { $pdf1->agencia_cedente = $oConvenio->getAgenciaCedente(); $pdf1->carteira = $oConvenio->getCarteira(); if (strlen($oConvenio->getConvenioCobranca()) == 7) { $pdf1->nosso_numero = trim($oConvenio->getConvenioCobranca()) . str_pad($k00_numpre, 8, "0", STR_PAD_LEFT) . "00"; } else { $pdf1->nosso_numero = $oConvenio->getNossoNumero(); } } global $pdf; $pdf1->data_processamento = db_formatar($dtoperunic, 'd');