trig02.sql

-- ----------------------------------------------
-- @Author: bendem
-- @Date:   2013-12-16 08:24:05
-- @Last Modified by:   bendem
-- @Last Modified time: 2013-12-16 13:37:09
-- ----------------------------------------------

CREATE OR REPLACE TRIGGER PlanningDistance
BEFORE INSERT OR UPDATE OF Distance, Jour ON Planning
FOR EACH ROW
WHEN (old.Competition = 1)
DECLARE
	ExcPlanningDistance EXCEPTION;
BEGIN
	IF (:new.Distance <= 200) THEN
		IF (:new.Jour <> 1 OR :new.Jour <> 2) THEN
			raise ExcPlanningDistance;
		END IF;
	ELSE IF (:new.Distance <= 1500) THEN
		IF (:new.Jour <> 3) THEN
			raise ExcPlanningDistance;
		END IF;
	END IF;
	END IF;

EXCEPTION
	WHEN ExcPlanningDistance THEN
			RAISE_APPLICATION_ERROR(-20001, 'Erreur de trigger : 1');
	WHEN OTHERS THEN
		raise;
END;
/