if($ls_tipo=="P")
{
$arr_movbco["codpro"] =$ls_provbene;
$arr_movbco["cedbene"]="----------";
}
else
{
$arr_movbco["cedbene"]=$ls_provbene;
$arr_movbco["codpro"] ="----------";
}
$arr_movbco["monto_mov"]=$ldec_montomov;
$arr_movbco["objret"] =$ldec_monobjret;
$arr_movbco["retenido"] =$ldec_montoret;
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_dt_scg($ls_docmov,$ls_codban_tesoreria,$ls_ctaban_tesoreria,$ls_mov_operacion,$ls_estmov,$ls_numdoc,$ls_cuentascg,$ls_debhab,$ls_codded,$ldec_montoscg,'SCG');
if($ls_codded!="00000")
{
$ls_operacioncon="H";
$ldec_monto=str_replace(".","",$ldec_montoscg);
$ldec_monto=str_replace(",",".",$ldec_monto);
$lb_valido=$in_classmovbco->uf_update_montodelete($arr_movbco,$ls_cuenta_scg,'SCBOPD',$ls_desmov,$ls_docmov,$ls_operacioncon,$ldec_montoscg,$ldec_monobjret,'00000');
}
$io_msg->message($in_classmovbco->is_msg_error);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
