-- ====================================================================
-- SISTEMA     : COMISSARIA
-- CRIADO      : 10/07/2002
-- CRIACAO     : LEONARDO MONTEIRO
-- RESPONSAVEL : COMISSARIA
-- ====================================================================
-- @C:\WIN_V4\SQL\END_CONV\ORACLE\1110_COCSTPO.SQL
-- ====================================================================
CREATE OR REPLACE PROCEDURE RETORNA_RENDREC(
P_CDFILIAL  IN  RENDLOCAL.CDFILIAL%TYPE,
P_CDRECEITA IN  RECEITA.CDRECEITA%TYPE,
P_IDTIPOREC OUT VARCHAR2,
P_QTRENDREC OUT RENDPADRAO.QTRENDRECPAD%TYPE,
P_QTAPROREC OUT RENDPADRAO.QTAPRORECPAD%TYPE
)AS
V_IDTIPOREC VARCHAR2(1);
V_QTRENDREC RENDPADRAO.QTRENDRECPAD%TYPE;
V_QTAPROREC RENDPADRAO.QTAPRORECPAD%TYPE;

BEGIN
   SELECT MAX('2'),MAX(QTRENDRECLOC),MAX(QTAPRORECLOC)
   INTO V_IDTIPOREC,V_QTRENDREC,V_QTAPROREC
   FROM RENDLOCAL
   WHERE (CDFILIAL  = P_CDFILIAL ) AND
         (CDRECEITA = P_CDRECEITA);
   IF V_IDTIPOREC IS NULL THEN
      SELECT MAX('1'),MAX(QTRENDRECPAD),MAX(QTAPRORECPAD)
      INTO V_IDTIPOREC,V_QTRENDREC,V_QTAPROREC
      FROM RENDPADRAO
      WHERE (CDRECEITA = P_CDRECEITA);
   END IF;

   P_IDTIPOREC := V_IDTIPOREC;
   P_QTRENDREC := V_QTRENDREC;
   P_QTAPROREC := V_QTAPROREC;
END;
/