$clarrehist->k00_numpre = $q05_numpre;
$clarrehist->k00_numpar = $q05_numpar;
$res_parissqn = $clparissqn->sql_record($clparissqn->sql_query_file("", "q60_histsemmov"));
db_fieldsmemory($res_parissqn, 0);
$clarrehist->k00_hist = $q60_histsemmov;
$clarrehist->k00_dtoper = date("Y-m-d");
$clarrehist->k00_hora = date("G:i");
$clarrehist->k00_id_usuario = $id_usuario;
$clarrehist->k00_histtxt = $str_movimento;
$clarrehist->incluir(null);
if ($clarrehist->erro_status == 0) {
$sqlerro = true;
$msgerro = $clarrehist->erro_sql;
db_msgbox($msgerro);
}
$clarrecant->incluir_arrecant($q05_numpre, $q05_numpar);
if ($clarrecant->erro_status == 0) {
$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;
