CREATE OR REPLACE
FUNCTION FUN_CONSULTA_CDINSCESTA
   (P_CDFILIAL    IN FILIAL.CDFILIAL%TYPE,
    P_CDINSCESTA  IN INSCRESTAD.CDINSCESTA%TYPE,
    P_CDEMPRESA   IN FILIAL.CDEMPRESA%TYPE,
    P_CDEMPRESAAP IN FILIAL.CDEMPRESA%TYPE) RETURN CHAR

IS
   V_CDINSCESTA   INSCRESTAD.CDINSCESTA%TYPE;
   V_CDEMPRESA    EMPRESA.CDEMPRESA%TYPE;
BEGIN
   IF P_CDEMPRESA =  P_CDEMPRESAAP THEN
      RETURN(P_CDEMPRESA||'-'||P_CDINSCESTA);
   ELSE
      SELECT NVL(MAX(I.CDINSCESTA), 'WWW')
        INTO V_CDINSCESTA
        FROM EMPRCNTRFIL F, INSCRESTAD I
       WHERE F.CDFILIAL   = P_CDFILIAL
         AND F.CDEMPRESA  = P_CDEMPRESAAP
         AND F.CDEMPRESA  = I.CDEMPRESA
         AND F.CDINSCESTA = I.CDINSCESTA;
      IF V_CDINSCESTA = 'WWW' THEN
         RETURN(P_CDEMPRESA||'-'||P_CDINSCESTA);
      ELSE
         RETURN(P_CDEMPRESAAP||'-'||V_CDINSCESTA);
      END IF;
   END IF;
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('FUN_CONSULTA_CDINSCESTA','6.35.009'); END;
/

