create or replace FUNCTION CALC_MARGEM_BRUTA(
   P_CDEMPRESA     IN EMPRESA.CDEMPRESA%TYPE,
   P_DTVENDAINI    IN VARCHAR2,
   P_DTVENDAFIN    IN VARCHAR2,
   P_CDFILIAL      IN SALDOCAIXA.CDFILIAL%TYPE,
   P_FILIPROC      IN SALDOCAIXA.CDFILIAL%TYPE,
   P_CDCAIXA       IN VARCHAR2,
   P_TCDCAIXA      IN VARCHAR2,
   P_CDLOJA        IN VARCHAR2,
   P_TCDLOJA       IN VARCHAR2,
   P_CDSUBGRPROD   IN SUBGRUPPROD.CDSUBGRPROD%TYPE,
   P_TCDSUBGRPROD  IN VARCHAR2,
   P_TIPOCUSTO     IN NUMBER,
   P_LOJA          IN LOJA.CDLOJA%TYPE
) RETURN FLOAT IS
   V_MARGEMBRUTA   NUMBER;
BEGIN
     MARGEM_BRUTA(P_CDEMPRESA, TO_DATE(P_DTVENDAINI,'DD/MM/YYYY'), TO_DATE(P_DTVENDAFIN,'DD/MM/YYYY'), P_CDFILIAL, P_FILIPROC, 
                  P_CDCAIXA, P_TCDCAIXA, P_CDLOJA, P_TCDLOJA, P_CDSUBGRPROD, 
                  P_TCDSUBGRPROD, P_TIPOCUSTO, V_MARGEMBRUTA, P_LOJA);
     RETURN V_MARGEMBRUTA;
END;