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