}
// $lb_flag=false;
if ($lb_flag) {
$io_msg->message("El comprobante se proceso satisfactoriamente");
$io_sql->commit();
} else {
$io_msg->message("Ocurrio un error al procesar el comprobante");
$io_sql->rollback();
}
uf_load_data(&$ls_parametros);
break;
case "ELIMINAR":
uf_load_variables();
$io_sql->begin_transaction();
$ls_bdorigen = $io_modcmpret->uf_obtener_bdorigen($ls_numcom, $ls_codret);
$lb_ulitmo = $io_modcmpret->uf_buscar_ultimo($ls_numcom, $ls_codret);
if ($lb_ulitmo && $ls_bdorigen == "") {
$lb_flag = $io_modcmpret->uf_delete_cmpret($ls_numcom, $ls_codret, $la_seguridad);
if ($lb_flag) {
$lb_flag = $io_modcmpret->uf_liberar_rd($ls_codret, $ls_probene, $ls_codigo, $li_totrowrecepciones);
if ($lb_flag) {
$io_msg->message("El comprobante fue eliminado fisicamente, por ser el último registro!!");
$io_sql->commit();
uf_limpiarvariables();
} else {
$io_msg->message("Se genero un problema al eliminar la retencion");
uf_limpiarvariables();
$io_sql->rollback();
}
}
} else {
