CREATE OR REPLACE
FUNCTION CONSULTA_POSFIN(  
   P_NRORG    IN NUMBER,  
   P_PARCNEGOCIO  IN NUMBER,  
   P_DATA   IN DATE)
   RETURN VARCHAR  
AS
   V_QUANTIDADE     NUMBER;
BEGIN

SELECT COUNT(*) AS QUANTIDADE
  INTO V_QUANTIDADE 
  FROM CONTARECEBER C, NOTAFISCAL N, CLIENTE CLI 
 WHERE C.DTATUAVENREC < P_DATA
   AND C.IDSTATREC = 'A'
   AND N.NRLANCTONF = C.NRLANCTONF
   AND CLI.CDCLIENTE = N.CDCLIENTE
   AND N.NRORG = CLI.NRORG
   AND N.NRORG = P_NRORG
   AND CLI.NRPARCNEGOCIO = P_PARCNEGOCIO
   AND CLI.NRORG = C.NRORG;
    
    IF(V_QUANTIDADE = 0) THEN
         RETURN ('S');
    ELSE 
        RETURN ('N');
    END IF;
END;

/

-- VERSAO --
BEGIN ATUVEROBJ('CONSULTA_POSFIN','5.70.xxx'); END;
/