CREATE OR REPLACE TRIGGER ATU_PRODORIGPEDOL
BEFORE INSERT OR UPDATE OF QTPROGENPEOL ON ITEMPEDEXOL
FOR EACH ROW
DECLARE
  V_DSREMOTEADDR VARCHAR2(15);
  V_DSREMOTEHOST VARCHAR2(15);
  V_DSSERVERRDM  VARCHAR2(20);
  V_DSSERVMETHOD VARCHAR2(30);
  V_DSREMOTEOPER VARCHAR2(12);
  V_CDPRODESTO   VARCHAR2(20);
  V_VRFATOCONV   FLOAT;
BEGIN
   WEBTUNNING(V_DSREMOTEADDR,
              V_DSREMOTEHOST,
              V_DSSERVERRDM,
              V_DSSERVMETHOD,
              V_DSREMOTEOPER);
   SELECT MAX(CDPRODESTO), MAX(VRFATOCONV)
     INTO V_CDPRODESTO, V_VRFATOCONV
     FROM PRODUTO
    WHERE CDPRODUTO = NVL(:NEW.CDPRODUTO, :OLD.CDPRODUTO);
   IF UPDATING THEN
     IF NVL(:NEW.CDPRODORIGPEDOL, :OLD.CDPRODORIGPEDOL) = NVL(:NEW.CDPRODUTO, :OLD.CDPRODUTO) THEN
        :NEW.QTORIGPRODPED := :NEW.QTPROGENPEOL*V_VRFATOCONV;
     END IF;
   END IF;
   IF INSERTING THEN
      IF SUBSTR(V_DSSERVMETHOD, 1, 8) = 'FecharAF' THEN
         :NEW.CDPRODORIGPEDOL := V_CDPRODESTO;
         :NEW.QTORIGPRODPED   := :NEW.QTPROGENPEOL*V_VRFATOCONV;
      END IF;
   END IF;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('ATU_PRODORIGPEDOL','5.05.012'); END;
/
