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 { $lb_valido = $io_modcmpret->uf_anular_cmpret($ls_numcom, $la_seguridad); if ($lb_valido && $ls_bdorigen != "") { $lb_valido = $io_modcmpret->uf_anular_cmpret_consolida($ls_codret, $ls_numcom, $ls_probene, $ls_codigo); } if ($lb_valido) { $io_msg->message("El comprobante fue anulado, ya que no es el ultimo registro!!"); uf_limpiarvariables(); $io_sql->commit(); } else { $io_msg->message("Se genero un problema al anular la retencion"); uf_limpiarvariables(); $io_sql->rollback(); } } uf_load_data(&$ls_parametros); break;