Advertisement
Guest User

Untitled

a guest
Jan 26th, 2015
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SQL 0.84 KB | None | 0 0
  1. CREATE OR REPLACE TRIGGER BRG_CNS_LAND_TCMP_106
  2. BEFORE DELETE OR INSERT OR UPDATE ON
  3. STEDEN FOR EACH ROW
  4.     DECLARE
  5.         l_oper varchar2 ( 3 );
  6.         l_error_stack varchar2 ( 4000 );
  7.     BEGIN
  8.         IF inserting THEN
  9.             l_oper := 'INS';
  10.         elsif updating THEN
  11.             l_oper := 'UPD';
  12.         elsif deleting THEN
  13.             l_oper := 'DEL';
  14.         END IF;
  15.         DECLARE
  16.             l_passed BOOLEAN := TRUE;
  17.             l_PROVINCIE varchar2(4000);
  18.         BEGIN
  19.             SELECT PROVINCIE INTO l_PROVINCIE FROM STEDEN WHERE PROVINCIE = 'Klaas';
  20.             IF l_oper IN ('DEL', 'INS', 'UPD') THEN
  21.                 l_passed := STEDEN.LAND = l_PROVINCIE;
  22.                 IF NOT l_passed THEN
  23.                     l_error_stack := l_error_stack || 'Niet gelijk';
  24.                 END IF;            
  25.             END IF;
  26.         END;  
  27.     IF l_error_stack IS NOT NULL THEN
  28.         raise_application_error ( -20800, l_error_stack );
  29.     END IF;
  30. END BRG_CNS_LAND_TCMP_106;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement