CREATE OR REPLACE FUNCTION BUSCA_QT_COLETA_IUM(
   P_CDFILIAL     IN ITEMPRODUTO.CDFILIAL%TYPE,
   P_NRLANCTONF   IN ITEMPRODUTO.NRLANCTONF%TYPE,
   P_CDPRODUTO    IN ITEMPRODUTO.CDPRODUTO%TYPE) RETURN FLOAT IS

   V_QTITEMPROD   DOUBLE PRECISION;
   V_QTRESPRODPED DOUBLE PRECISION;
   V_QTPERADIC    DOUBLE PRECISION;
   V_VRPEADIEXP   DOUBLE PRECISION;
   V_RESULT       VARCHAR2(01);
BEGIN

   SELECT SUM(QTRESPRODPED)
     INTO V_QTRESPRODPED
      FROM IUMITEMPROD
    WHERE CDFILIAL = P_CDFILIAL
      AND NRLANCTONF = P_NRLANCTONF
      AND CDPRODUTO = P_CDPRODUTO;

   RETURN(V_QTRESPRODPED);
END;
/