CREATE OR REPLACE TRIGGER ATUALIZA_CDRASTRITM_ITMPEDEXOL
BEFORE INSERT
ON ITEMPEDEXOL FOR EACH ROW
DECLARE
  V_CDRASTRITMAUX VARCHAR2(20);
BEGIN
   IF :NEW.CDRASTRITM IS NULL THEN
      SELECT MAX(ITEMSOLI.CDRASTRITM)
        INTO :NEW.CDRASTRITM
        FROM ITEMSOLI, PRODUTO PRODESTO, PRODUTO
       WHERE ITEMSOLI.CDFILSOLI  = :NEW.CDFILDEST
         AND ITEMSOLI.CDRASTRITM IS NOT NULL
         AND ITEMSOLI.DTPROGENTR = :NEW.DTPROGENPEOL
         AND ITEMSOLI.CDPRODUTO  = PRODUTO.CDPRODUTO
         AND PRODESTO.CDPRODESTO = PRODUTO.CDPRODESTO
         AND PRODESTO.CDPRODUTO  = :NEW.CDPRODUTO;
   END IF;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ATUALIZA_CDRASTRITM_ITMPEDEXOL','6.25.xxx'); END;
/