CREATE OR REPLACE
FUNCTION FUN_CONSULTA_GRUPOFISCAL
   (P_IDORIGDESTNF IN NOTAFISCAL.IDORIGDESTNF%TYPE,
    P_CDORIGDESTNF IN FORNECEDOR.CDFORNECED%TYPE,
    P_CDFILIFATUR  IN FILIAL.CDFILIAL%TYPE,
    P_IDENTRSAIDOP IN TIPOOPERAC.IDENTRSAIDOP%TYPE,
    P_CDTIPOOPER   IN TIPOOPERAC.CDTIPOOPER%TYPE) RETURN CHAR

IS
   V_CDGRUPOFISC GRUPOFISCAL.CDGRUPOFISC%TYPE;
BEGIN
   CONSULTA_GRUPOFISCAL(P_IDORIGDESTNF, P_CDORIGDESTNF, P_CDFILIFATUR, P_IDENTRSAIDOP, P_CDTIPOOPER, V_CDGRUPOFISC);
   RETURN (V_CDGRUPOFISC);
END;