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;
