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