$sqlvariavel = "select arrecad.k00_numpre, arrecad.k00_numpar from issvar inner join arreinscr on arreinscr.k00_numpre = issvar.q05_numpre inner join arrecad on arrecad.k00_numpre = issvar.q05_numpre and arrecad.k00_numpar = issvar.q05_numpar where issvar.q05_ano = {$ano} and issvar.q05_mes = {$mes} and arreinscr.k00_inscr = {$inscricao}";
$result = pg_query($sqlvariavel);
if (pg_numrows($result) > 0) {
db_fieldsmemory($result, 0);
$tipo = '3';
$tipo_debito = '3';
$ver_matric = '';
$ver_inscr = $inscricao;
$ver_numcgm = '';
$numpre_unica = '';
$CHECK0 = $k00_numpre . "P" . $k00_numpar;
}
}
$cldb_bancos = new cl_db_bancos();
try {
$oRegraEmissao = new regraEmissao($tipo, 5, 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;
}
if (!isset($emite_recibo_protocolo)) {
pg_query("BEGIN");
$result = pg_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 = pg_query(" select k00_codbco,\n k00_codage,\n k00_descr,\n k00_hist1,\n k00_hist2,\n k00_hist3,\n k00_hist4,\n k00_hist5,\n k00_hist6,\n k00_hist7,\n k00_hist8 \n from arretipo \n where k00_tipo = {$tipo}");
db_fieldsmemory($result, 0);
// $k00_descr = $k00_descr." - ".db_getsession("DB_anousu");
$k00_descr = "ISSQN RET NA FONTE / ISSQN VARIÁVEL ";
$vt = $HTTP_POST_VARS;
if (!isset($numpre_unica) || $numpre_unica == "") {
db_postmemory($HTTP_SERVER_VARS);
$matricularecibo = @$j01_matric;
$inscricaorecibo = @$q02_inscr;
$numcgmrecibo = @$z01_numcgm;
db_postmemory($HTTP_POST_VARS);
if (isset($tipo) && $tipo != "") {
$tipo_debito = $tipo;
}
$instit = db_getsession('DB_instit');
$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;
}
$pdf2->imprime();
$pdf2->objpdf->Output();
exit;
} else {
////////////////////////////////////////////////////////////////////////////////
//////// C O M E Ç O D A G E R A Ç Ã O D O S C A R N E S //////////////
////////////////////////////////////////////////////////////////////////////////
/********************* R O T I N A P A R A B U S C A R O M O D E L O D E C A R N E *****************************************************/
$rstipo = db_query("select * from arretipo where k00_tipo = {$tipo_debito}");
db_fieldsmemory($rstipo, 0);
$result = db_query("select * from db_config where codigo = " . db_getsession('DB_instit'));
db_fieldsmemory($result, 0);
/***************************************************************************************************************************************************/
// FUNCAO Q RETORNA O PDF ESTANCIADO JA COM O MODELO CERTO TESTANDO AS RESTRIÇÕES
try {
$oRegraEmissao = new regraEmissao($tipo_debito, 22, 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;
}
$pdf1 = $oRegraEmissao->getObj();
$pdf1->uf_config = $db12_uf;
$pdf1->prefeitura = $nomeinst;
$sqlparag = " select db02_texto ";
$sqlparag .= " from db_documento ";
$sqlparag .= " inner join db_docparag on db03_docum = db04_docum ";
$sqlparag .= " inner join db_tipodoc on db08_codigo = db03_tipodoc ";
$sqlparag .= " inner join db_paragrafo on db04_idparag = db02_idparag ";
$sqlparag .= " where db03_tipodoc = 1017 ";
$sqlparag .= " and db03_instit = " . db_getsession("DB_instit") . " ";
$sqlparag .= " order by db04_ordem ";
