$sqlerro = true; } if ($sqlerro == false) { $clarrehistip->k45_ip = $_SERVER["REMOTE_ADDR"]; $clarrehistip->k45_obs = $_SERVER["REQUEST_URI"]; $clarrehistip->incluir($clarrehist->k00_idhist); $clarrehistip->erro(true, false); if ($clarrehistip->erro_status == 0) { $sqlerro = true; $msgerro = $clarrehistip->erro_sql; db_msgbox($msgerro); } } $clissvarsemmovreg->q15_issvarsemmov = $clissvarsemmov->q08_sequencial; $clissvarsemmovreg->q15_issvar = $q05_codigo; $clissvarsemmovreg->incluir(null); if ($clissvarsemmovreg->erro_status == 0) { $sqlerro = true; $msgerro = $clissvarsemmovreg->erro_msg; db_msgbox($msgerro); } // ######################### TEM QUE INCLUIR NA cancdebitosreg, cancdebitosprocreg ######################### $sqlrec = "select k00_receit, k00_valor from arrecant where k00_numpre = {$q05_numpre} and k00_numpar = {$q05_numpar}"; $resultrec = db_query($sqlrec); $linhasrec = pg_num_rows($resultrec); if ($linhasrec > 0) { for ($r = 0; $r < $linhasrec; $r++) { db_fieldsmemory($resultrec, $r); $clcancdebitosreg->k21_codigo = $clcancdebitos->k20_codigo; $clcancdebitosreg->k21_numpre = $q05_numpre; $clcancdebitosreg->k21_numpar = $q05_numpar;