Bloque 6: Procedimientos y triggers

-- Ejercicio 1: cuota doble
DELIMITER $$
CREATE FUNCTION f_cuota_doble(socio_id INT)
RETURNS DECIMAL(8,2) DETERMINISTIC
BEGIN
  DECLARE resultado DECIMAL(8,2);
  SELECT cuota * 2 INTO resultado FROM socios WHERE id = socio_id;
  RETURN resultado;
END$$
DELIMITER ;

-- Ejercicio 2: usar la función
SELECT nombre,
       f_cuota_doble(id) AS cuota_doble
FROM   socios;

-- Ejercicio 3: antigüedad con fallback
DELIMITER $$
CREATE FUNCTION f_antiguedad_dias(socio_id INT, fecha_ref DATE)
RETURNS INT DETERMINISTIC
BEGIN
  DECLARE resultado INT;
  SELECT DATEDIFF(fecha_ref, alta) INTO resultado
  FROM socios WHERE id = socio_id;
  RETURN IFNULL(resultado, -1);
END$$
DELIMITER ;

-- Ejercicio 4: función pura y determinista
DELIMITER $$
CREATE FUNCTION f_descuento(precio DECIMAL(8,2))
RETURNS DECIMAL(8,2) DETERMINISTIC
BEGIN
  RETURN precio * 0.90;
END$$
DELIMITER ;

-- Ejercicio 5: dar de alta una clase
DELIMITER $$
CREATE PROCEDURE p_crear_clase(
  IN p_nombre  VARCHAR(60),
  IN p_monitor VARCHAR(60),
  IN p_plazas  TINYINT
)
BEGIN
  INSERT INTO clases (nombre, monitor, plazas)
  VALUES (p_nombre, p_monitor, p_plazas);
END$$
DELIMITER ;

-- Ejercicio 6: ejecutar el procedimiento
CALL p_crear_clase('Zumba', 'Elena Prado', 15);

-- Ejercicio 7: procedimiento que consulta
DELIMITER $$
CREATE PROCEDURE p_listar_clases()
BEGIN
  SELECT id, nombre, monitor, plazas FROM clases;
END$$
DELIMITER ;
CALL p_listar_clases();

-- Ejercicio 8: devolver con OUT
DELIMITER $$
CREATE PROCEDURE p_total_socios(OUT p_total INT)
BEGIN
  SELECT COUNT(*) INTO p_total FROM socios;
END$$
DELIMITER ;
CALL p_total_socios(@total);
SELECT @total AS total_socios;

-- Ejercicio 9: etiqueta con IF
DELIMITER $$
CREATE PROCEDURE p_etiqueta(IN p_id INT)
BEGIN
  DECLARE v_cuota DECIMAL(6,2);
  DECLARE v_eti  VARCHAR(20);
  SELECT cuota INTO v_cuota FROM socios WHERE id = p_id;
  IF v_cuota < 45 THEN
    SET v_eti = 'Base';
  ELSEIF v_cuota < 55 THEN
    SET v_eti = 'Premium';
  ELSE
    SET v_eti = 'VIP';
  END IF;
  SELECT v_eti AS etiqueta;
END$$
DELIMITER ;

-- Ejercicio 10: validar con SIGNAL
DELIMITER $$
CREATE PROCEDURE p_validar_plazas(IN p_plazas INT)
BEGIN
  IF p_plazas <= 0 THEN
    SIGNAL SQLSTATE '45000'
      SET MESSAGE_TEXT = 'Las plazas deben ser positivas';
  ELSE
    SELECT p_plazas AS plazas_validas;
  END IF;
END$$
DELIMITER ;

-- Ejercicio 11: auditar alta de clase
DELIMITER $$
CREATE TRIGGER trg_clase_nueva
AFTER INSERT ON clases
FOR EACH ROW
BEGIN
  INSERT INTO log_socios (socio_id, detalle)
  VALUES (NEW.id, CONCAT('Nueva clase: ', NEW.nombre));
END$$
DELIMITER ;

-- Ejercicio 12: registrar bajas
DELIMITER $$
CREATE TRIGGER trg_socio_baja
AFTER UPDATE ON socios
FOR EACH ROW
BEGIN
  IF OLD.activo = 1 AND NEW.activo = 0 THEN
    INSERT INTO log_socios (socio_id, detalle)
    VALUES (NEW.id, CONCAT('Baja de ', NEW.nombre));
  END IF;
END$$
DELIMITER ;

-- Ejercicio 13: impedir cuotas negativas
DELIMITER $$
CREATE TRIGGER trg_cuota_no_negativa
BEFORE UPDATE ON socios
FOR EACH ROW
BEGIN
  IF NEW.cuota < 0 THEN
    SIGNAL SQLSTATE '45000'
      SET MESSAGE_TEXT = 'La cuota no puede ser negativa';
  END IF;
END$$
DELIMITER ;

-- Ejercicio 14: función con DELIMITER
DELIMITER $$
CREATE FUNCTION f_cuota_anual(socio_id INT)
RETURNS DECIMAL(8,2) DETERMINISTIC
BEGIN
  DECLARE resultado DECIMAL(8,2);
  SELECT cuota * 12 INTO resultado FROM socios WHERE id = socio_id;
  RETURN resultado;
END$$
DELIMITER ;

-- Ejercicio 15: limpiar objetos
DROP FUNCTION IF EXISTS f_cuota_anual;
DROP PROCEDURE IF EXISTS p_crear_socio;
DROP TRIGGER IF EXISTS trg_socio_baja;