for ($i = 1; $i < sizeof($numpres); $i++) {
$valores = split("P", $numpres[$i]);
$sql = "insert into db_reciboweb values(" . $valores[0] . "," . $valores[1] . ",{$k03_numpre},{$k00_codbco},'{$k00_codage}','{$oRegraEmissao->getCodConvenioCobranca()}')";
pg_query($sql) or die("Erro(26) inserindo em db_reciboweb: " . pg_errormessage());
//echo $sql . "<br>";
}
} else {
$sql = "insert into db_reciboweb values(" . $numpre_unica . ",0,{$k03_numpre},{$k00_codbco},'{$k00_codage}','{$oRegraEmissao->getCodConvenioCobranca()}')";
pg_query($sql) or die("Erro(26) inserindo em db_reciboweb: " . pg_errormessage());
}
// echo($sql);
//roda funcao fc_recibo pra gerar o recibo
if (isset($dtpaga)) {
$sql = "select fc_recibo({$k03_numpre},'" . $dtpaga . "','" . $dtpaga . "'," . db_getsession("DB_anousu") . ")";
} else {
$sql = "select fc_recibo({$k03_numpre},'" . date("Y-m-d", db_getsession("DB_datausu")) . "','" . db_vencimento() . "'," . db_getsession("DB_anousu") . ")";
}
// die ($sql);
$Recibo = pg_query($sql) or die("{$sql}");
pg_query("COMMIT");
}
if (!isset($emite_recibo_protocolo)) {
$sql = "select r.k00_numcgm,r.k00_receit,t.k02_descr,t.k02_drecei,to_char(r.k00_dtoper,'DD-MM-YYYY') as k00_dtoper,to_char(r.k00_dtvenc,'DD-MM-YYYY') as k00_dtvenc,sum(r.k00_valor) as valor\n from recibopaga r\n inner join tabrec t on t.k02_codigo = r.k00_receit \n inner join tabrecjm on tabrecjm.k02_codjm = t.k02_codjm\n where r.k00_numnov = " . $k03_numpre . "\n group by r.k00_dtoper,r.k00_dtvenc,r.k00_receit,t.k02_descr,t.k02_drecei,r.k00_numcgm";
} else {
$sql = "select r.k00_numcgm,r.k00_receit,t.k02_descr,t.k02_drecei,to_char(r.k00_dtoper,'DD-MM-YYYY') as k00_dtoper,to_char(r.k00_dtvenc,'DD-MM-YYYY') as k00_dtvenc,sum(r.k00_valor) as valor\n from recibo r\n inner join tabrec t on t.k02_codigo = r.k00_receit \n inner join tabrecjm on tabrecjm.k02_codjm = t.k02_codjm\n where r.k00_numpre = " . $k03_numpre . "\n group by r.k00_dtoper,r.k00_dtvenc,r.k00_receit,t.k02_descr,t.k02_drecei,r.k00_numcgm";
}
//echo $sql;exit;
$DadosPagamento = pg_query($sql);
$linhasDadosPagamento = pg_num_rows($DadosPagamento);
//echo "$sql linha $linhasDadosPagamento = ";
//faz um somatorio do valor
function debitos_inscricao_var($inscricao, $limite, $tipo, $datausu, $anousu)
{
$sql = "select *,\n substr(fc_calcula,2,13)::float8 as vlrhis,\n substr(fc_calcula,15,13)::float8 as vlrcor,\n substr(fc_calcula,28,13)::float8 as vlrjuros,\n substr(fc_calcula,41,13)::float8 as vlrmulta,\n substr(fc_calcula,54,13)::float8 as vlrdesconto,\n (substr(fc_calcula,15,13)::float8+\n substr(fc_calcula,28,13)::float8+\n substr(fc_calcula,41,13)::float8-\n substr(fc_calcula,54,13)::float8) as total\n from ( \n select q05_aliq,''::bpchar as k00_matric,v.q05_vlrinf as valor_variavel,a.k00_inscr,i.*,histcalc.*,tabrec.k02_descr,fc_calcula(i.k00_numpre,i.k00_numpar,i.k00_receit,'" . date('Y-m-d', $datausu) . "','" . db_vencimento($datausu) . "'," . $anousu . ") \n from arreinscr a\n inner join arrecad i on a.k00_numpre = i.k00_numpre \n left outer join issvar v on v.q05_numpre = i.k00_numpre and v.q05_numpar = i.k00_numpar\n ,histcalc,tabrec inner join tabrecjm on tabrecjm.k02_codjm = tabrec.k02_codjm\n where k00_hist = k01_codigo and \n a.k00_inscr = {$inscricao} and\n k00_receit = k02_codigo ";
if ($tipo != 0) {
$sql .= " and k00_tipo = " . $tipo;
}
$sql .= " order by k00_numpre,k00_numpar,k00_dtvenc";
if ($limite != 0) {
$sql .= " limit " . $limite;
}
$sql .= ") as x";
$result = pg_query($sql) or die("Sql : " . pg_ErrorMessage($result));
if ($limite == 0) {
if (pg_numrows($result) == 0) {
false;
}
return $result;
} else {
if (pg_numrows($result) == 0) {
return false;
} else {
return 1;
}
}
}
