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