ALTER TABLE TBMODELO
    ADD DIAS_VALIDADE INTEGER DEFAULT 0 NOT NULL;

ALTER TABLE TBPEDIDO_ITEM_PROCESSADO
    ADD DATA_VALIDADE DATE;

SET TERM ^ ;

CREATE trigger tbpedido_item_processado_b03i for tbpedido_item_processado
active before insert position 3
AS
DECLARE VARIABLE DIAS_VALIDADE_MODELO INTEGER;
BEGIN

    :DIAS_VALIDADE_MODELO   = COALESCE((SELECT FIRST 1 T.DIAS_VALIDADE FROM TBMODELO T WHERE T.CODIGO = NEW.MODELO_CODIGO), 0);

    NEW.DATA_VALIDADE       = DATEADD(DAY, :DIAS_VALIDADE_MODELO, CURRENT_DATE);
    
END
^

SET TERM ; ^

