CREATE OR REPLACE FUNCTION CARREGA_LIMISEGU
(
   P_CDFILIAL        IN FILIAL.CDFILIAL%TYPE,
   P_CDARVPROD       IN PRODUTO.CDARVPROD%TYPE,
   P_DTENTREGA       IN DATE
)  RETURN NUMBER
IS
   V_NRLIMISEGU             LIMISEGPROD.NRLIMISEGU%TYPE;
   V_NRLIMISEGCAD           LIMISEGPROD.NRLIMISEGU%TYPE;
BEGIN
   LIMISEGU(P_CDFILIAL, P_CDARVPROD, P_DTENTREGA, 'XX', V_NRLIMISEGU, V_NRLIMISEGCAD);
   RETURN(V_NRLIMISEGU);
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('CARREGA_LIMISEGU','5.65.XXX'); END;
/

