LogInversion

De FdIwiki ABD
Saltar a: navegación, buscar

create or replace TRIGGER LogInversion

AFTER UPDATE OR INSERT OF DNI ON Traza --

FOR EACH ROW DECLARE

-- vars de trabajo cantidadI NUMBER:=0; cantidad NUMBER;

-- cursor

CURSOR cursor_invierte IS select cantidad from invierte where DNI= :new.DNI;


BEGIN OPEN cursor_invierte; LOOP FETCH cursor_invierte INTO cantidad; EXIT WHEN cursor_invierte%NOTFOUND;

cantidadI := cantidadI + cantidad; END LOOP;

IF cantidadI < 65000 THEN INSERT into compras VALUES (:new.DNI, :new.NumT, :new.NumF, :new.Fecha, 'recargo', 11); ELSE DBMS_output.put_line('--- no hay'); END IF;

END LogInversion;

--Christian Álvarez Sánchez (discusión) 17:34 19 may 2015 (CEST)