Advertisement
Guest User

Untitled

a guest
Jul 21st, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 1.60 KB | None | 0 0
  1. // CREACIÓN DE TABLA.
  2.  
  3. CREATE TABLE auditoria (
  4.  
  5. nombre_usuario VARCHAR2(18),
  6.  
  7. modificacion VARCHAR2(50),
  8.  
  9. hora VARCHAR2(10),
  10.  
  11. fecha DATE,
  12.  
  13. clave_primaria_calle VARCHAR2(30) DEFAULT NULL,
  14.  
  15. clave_primera_numero NUMBER(3) DEFAULT NULL
  16.  
  17. );
  18.  
  19. // TRIGGER CREADO CORRECTAMENTE.
  20.  
  21. CREATE OR REPLACE TRIGGER ejer_auditoria
  22.  
  23. after INSERT OR DELETE OR UPDATE ON vivienda
  24.  
  25. FOR each ROW
  26.  
  27. DECLARE
  28.  
  29.     v_hora auditoria.hora%TYPE;
  30.  
  31. BEGIN
  32.  
  33.  
  34.     IF inserting THEN
  35.  
  36.         INSERT INTO auditoria VALUES (USER, 'Insercion / Insert', TO_CHAR(SYSDATE, 'HH24:MI:SS'), SYSDATE, :NEW.calle, :NEW.numero);
  37.  
  38.     END IF;
  39.  
  40.     IF deleting THEN
  41.  
  42.         INSERT INTO auditoria VALUES (USER, 'Borrado / Delete', TO_CHAR(SYSDATE, 'HH24:MI:SS'), SYSDATE, :old.calle, :old.numero);
  43.  
  44.     END IF;
  45.  
  46.     IF updating THEN
  47.  
  48.         INSERT INTO auditoria VALUES (USER, 'Actualizacion / Update', TO_CHAR(SYSDATE, 'HH24:MI:SS'), SYSDATE, :NEW.calle, :NEW.numero);
  49.  
  50.     END IF;
  51.  
  52. END;
  53. /
  54.  
  55. // TRIGGER CREADO CORRECTAMENTE 2.
  56.  
  57. CREATE OR REPLACE TRIGGER ejer_auditoria_2
  58.  
  59. after INSERT OR DELETE OR UPDATE ON bloquecasas
  60.  
  61. DECLARE
  62.  
  63.     v_hora auditoria.hora%TYPE;
  64.  
  65. BEGIN
  66.  
  67.  
  68.     IF inserting THEN
  69.  
  70.         INSERT INTO auditoria VALUES (USER, 'Insercion / Insert', TO_CHAR(SYSDATE, 'HH24:MI:SS'), SYSDATE, NULL, NULL);
  71.  
  72.     END IF;
  73.  
  74.     IF deleting THEN
  75.  
  76.         INSERT INTO auditoria VALUES (USER, 'Borrado / Delete', TO_CHAR(SYSDATE, 'HH24:MI:SS'), SYSDATE, NULL, NULL);
  77.  
  78.     END IF;
  79.  
  80.     IF updating THEN
  81.  
  82.         INSERT INTO auditoria VALUES (USER, 'Actualizacion / Update', TO_CHAR(SYSDATE, 'HH24:MI:SS'), SYSDATE, NULL, NULL);
  83.  
  84.     END IF;
  85.  
  86. END;
  87. /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement