Foros del web, para los que viven de bits

CREATE OR REPLACE TRIGGER "DESARROLLADOR1".TVALADIC
BEFORE INSERT OF TIPO ON TDCAPOBRAS 
FOR EACH ROW
DECLARE
/********************************************************************************************
   NAME:       TVALADIC

   PURPOSE:    Cada vez que se adicione una obra en tboratec el campo de codigo se insertara  un registro de permiso de adicionales para la obra
   
******************************************************************************/
v_codigo, v_tbobratec_cod number(10);
v_permiso VARCHAR2(1) := 'N';

CURSOR cureser IS 
	   		   	   SELECT codigo,TDBVIRT_COD 
				   FROM TBOBRATEC
				   WHERE codigo=:NEW.codigo;
				     
BEGIN


	if inserting then
			
			SELECT MAX(CODIGO)+1 INTO v_codigo
			FROM TDVALADIC;
			
			
			INSERT INTO desarrollador1.TDVALADIC(CODIGO, TBOBRATEC_COD, PER_ADIC)
			VALUES(v_codigo, :NEW.codigo, 'N');
	
	end if;
			
END TVALADIC;