Bases de Datos - Ayuda para crear trigger y procedimientos almacenados

-- Trigger que controla Peso mayor de 900 KG

CREATE TRIGGER tr_peso BEFORE INSERT ON controlvuelosbd.pasaje

FOR EACH ROW

BEGIN

       DECLARE v_Peso int DEFAULT 0;

       SELECT SUM(Peso) into v_Peso FROM Pasaje WHERE idVuelo = NEW.idVuelo;

       IF (v_Peso > 900  ) THEN

           SET NEW.Peso = 0;      -- Llevamos 0 a ese peso de equipaje

       END IF;

  END;

-- Trigger que controla cantidad de pasajeros mayor de 10

CREATE TRIGGER tr_cantidad BEFORE INSERT ON Pasaje

  FOR EACH ROW

  BEGIN

       DECLARE v_Cantidad int DEFAULT 0;

       SELECT Count(*) into v_Cantidad FROM Pasaje WHERE idVuelo = NEW.idVuelo;

       IF (v_Cantidad > 10  ) THEN

           DELETE FROM tr_cantidad WHERE idPasajero = NEW.idPasajero; -- Borramos el Pasajero

       END IF;

  END

-- Procedimiento 1 que visualiza los vuelos realizados por ese HidroAvion

CREATE PROCEDURE spr_Vuelos(

IN p_MatriculaHidro varchar(15),

IN p_Fecha1 DATE,

IN p_Fecha2 DATE)

BEGIN

      SELECT VL.idVuelo, VL.Fecha, PL.Nombre AS Piloto

      FROM vuelo VL

      inner join piloto PL ON PL.idPiloto = VL.idPiloto

      WHERE MatriculaHidro = 1

      AND FECHA BETWEEN p_Fecha1 AND p_Fecha2;

END;

-- Procedimiento 1 para listar los vuelos que no están completos

CREATE PROCEDURE spr_VueloDisponible (

IN p_Fecha DATE)

BEGIN

      DECLARE CURVACIO INT DEFAULT 0;

      DECLARE ElVuelo INT;

      DECLARE Cupos INT DEFAULT 0;

      DECLARE Cur_Vuelos CURSOR FOR

      SELECT idVuelo

      FROM   Vuelo

      WHERE  Fecha = p_Fecha;

      DECLARE CONTINUE HANDLER FOR NOT FOUND SET CURVACIO = 1;

      OPEN Cur_Vuelos;

      bucle: LOOP

      FETCH Cur_Vuelos INTO ElVuelo;

      IF CURVACIO = 1 THEN

         LEAVE bucle;

      END IF;

      SELECT COUNT(*) INTO Cupos FROM Pasaje where idVuelo = ElVuelo;

      IF (Cupos < 10) THEN

          SELECT HV.MatriculaHidro, VL.idVuelo, PL.Nombre AS Piloto, PS.Nombre as Pasajero

          FROM vuelo VL

          inner join piloto PL ON PL.idPiloto = VL.idPiloto

          inner join hidroavion HV ON HV.MatriculaHidro = VL.MatriculaHidro

          inner join pasaje PJ ON PJ.idVuelo = VL.idVuelo

          inner join pasajero PS ON PS.idPasajero = PJ.idPasajero

          where VL.idVuelo = ElVuelo;

          Set Cupos = 0;

      END IF;

  END LOOP bucle;

  CLOSE Cur_Vuelos;

END;