--Atualiza_Insert_ItemProduto
CREATE OR REPLACE TRIGGER ATUALIZA_INSERT_ITEMPRODUTO BEFORE INSERT OR UPDATE ON ITEMPRODUTO
FOR EACH ROW
DECLARE
   V_COUNT        NUMBER;
BEGIN
   IF (:NEW.CDPRODMOVI IS NOT NULL) AND (:NEW.NRLOTEESTQ IS NOT NULL) AND (:NEW.CDFILIMOVI IS NOT NULL) THEN
      SELECT COUNT(*)
      INTO V_COUNT
      FROM LOTE
      WHERE CDFILIAL   = :NEW.CDFILIMOVI  AND
            NRLOTEESTQ = :NEW.NRLOTEESTQ  AND
            NRSUBLOTE  = :NEW.NRSUBLOTE   AND
            CDPRODUTO  = :NEW.CDPRODMOVI;

      IF V_COUNT = 0 THEN
         INSERT INTO LOTE
         (CDFILIAL, NRLOTEESTQ, NRSUBLOTE,   CDPRODUTO, IDSTATLOTE, DTENTRLOTE)
         VALUES
         (:NEW.CDFILIMOVI, :NEW.NRLOTEESTQ, :NEW.NRSUBLOTE, :NEW.CDPRODMOVI, 'L', SYSDATE);
      END IF;
   END IF;
END;
/


-- VERSAO --
BEGIN ATUVEROBJ('ATUALIZA_INSERT_ITEMPRODUTO','4.05.081'); END;
/

