} if ($ls_operacion == "ELIMINAR") { global $int_scg; $ls_cuenta = $_POST["txtcuenta"]; $ls_denominacion = $_POST["txtdenominacion"]; $ls_mensaje_error = ""; $ls_cuenta_cero = ""; $ls_status = ""; $ls_denominacion = ""; $lb_valido = false; $li_total_rows = 0; $ls_condicion = " AND (column_name='sc_cuenta' OR column_name='scg_cuenta')"; //Nombre del o los campos que deseamos buscar. $ls_mensaje = ""; //Mensaje que será enviado al usuario si se encuentran relaciones a asociadas al campo. $lb_valido = $int_scg->uf_delete_relacion_sin_movimiento($ls_codemp, $ls_cuenta); $lb_tiene = $io_chkrel->uf_check_relaciones($ls_codemp, $ls_condicion, 'scg_cuentas', $ls_cuenta, $ls_mensaje); //Verifica los movimientos asociados a la cuenta if ($int_scg->ib_db_error) { $io_msg->message($ls_mensaje_error); $int_scg->ib_db_error = false; } if ($lb_tiene) { $io_msg->message($io_chkrel->is_msg_error); } else { $ls_cuenta_cero = $int_scg->uf_scg_sin_ceros($ls_cuenta); $li_total_rows = $int_scg->uf_scg_select_cuenta_sin_cero($ls_codemp, $ls_cuenta_cero); if ($li_total_rows > 1) { $io_msg->message("Existen cuentas de nivel inferior ... no se puede eliminar."); } else { $lb_valido = $int_scg->uf_scg_delete_cuenta($ls_codemp, $ls_cuenta);