CREATE OR REPLACE PROCEDURE GRAVA_INCONSPEDIDO (
       P_CDFILIAL     IN  ITEMPEDIDO.CDFILIAL%TYPE,
       P_NRPEDIDO     IN  ITEMPEDIDO.NRPEDIDO%TYPE,
       P_NRITEMPED    IN  ITEMPEDIDO.NRITEMPED%TYPE,
       P_CDCONSPEDIDO IN  INCONSPEDIDO.CDCONSPEDIDO%TYPE)
IS
   V_NRINCONSPED   NUMBER;
   V_CTINCONS      NUMBER;
   V_CTCONSLIB     NUMBER;
BEGIN
   SELECT NVL(MAX(NRINCONSPED), 0) + 1 INTO V_NRINCONSPED
   FROM INCONSPEDIDO
   WHERE CDFILIAL = P_CDFILIAL
     AND NRPEDIDO = P_NRPEDIDO;

   INSERT INTO INCONSPEDIDO
      (CDFILIAL, NRPEDIDO, NRINCONSPED, NRITEMPED, CDCONSPEDIDO)
   VALUES
      (P_CDFILIAL, P_NRPEDIDO, LPAD(TO_CHAR(V_NRINCONSPED), 3, '0'), P_NRITEMPED, P_CDCONSPEDIDO);


END;
/