CREATE OR REPLACE FUNCTION STRPERIODO (NRPERIODOORCA NUMBER, IDPERIODOORCA VARCHAR2) RETURN VARCHAR2
AS
  DESCNRPERIODOORCA VARCHAR2(40);
BEGIN 
   IF TO_CHAR(IDPERIODOORCA) = 'MENSAL' THEN
      IF NRPERIODOORCA  = 1 THEN
         DESCNRPERIODOORCA := 'Janeiro';
      ELSIF NRPERIODOORCA  = 2 THEN
         DESCNRPERIODOORCA := 'Fevereiro';
      ELSIF NRPERIODOORCA  = 3 THEN
         DESCNRPERIODOORCA := 'Marco';
      ELSIF NRPERIODOORCA  = 4 THEN
         DESCNRPERIODOORCA := 'Abril';
      ELSIF NRPERIODOORCA  = 5 THEN
         DESCNRPERIODOORCA := 'Maio';
      ELSIF NRPERIODOORCA  = 6 THEN
         DESCNRPERIODOORCA := 'Junho';
      ELSIF NRPERIODOORCA  = 7 THEN
         DESCNRPERIODOORCA := 'Julho';
      ELSIF NRPERIODOORCA  = 8 THEN
         DESCNRPERIODOORCA := 'Agosto';
      ELSIF NRPERIODOORCA  = 9 THEN
         DESCNRPERIODOORCA := 'Setembro';
      ELSIF NRPERIODOORCA  = 10 THEN
         DESCNRPERIODOORCA := 'Outubro';
      ELSIF NRPERIODOORCA  = 11 THEN
         DESCNRPERIODOORCA := 'Novembro';
      ELSIF NRPERIODOORCA  = 12 THEN
         DESCNRPERIODOORCA := 'Dezembro';
      END IF;
   ELSIF IDPERIODOORCA = 'BIMESTRAL' THEN
      IF NRPERIODOORCA  = 1 THEN
         DESCNRPERIODOORCA := '1° Bimestre';
      ELSIF NRPERIODOORCA  = 2 THEN
         DESCNRPERIODOORCA := '2° Bimestre';
      ELSIF NRPERIODOORCA  = 3 THEN
         DESCNRPERIODOORCA := '3° Bimestre';
      ELSIF NRPERIODOORCA  = 4 THEN
         DESCNRPERIODOORCA := '4° Bimestre';
      ELSIF NRPERIODOORCA  = 5 THEN
         DESCNRPERIODOORCA := '5° Bimestre';
      ELSIF NRPERIODOORCA  = 6 THEN
         DESCNRPERIODOORCA := '6° Bimestre';
      END IF;
   ELSIF IDPERIODOORCA = 'TRIMESTRAL' THEN
      IF NRPERIODOORCA  = 1 THEN
         DESCNRPERIODOORCA := '1° Trimestre';
      ELSIF NRPERIODOORCA  = 2 THEN
         DESCNRPERIODOORCA := '2° Trimestre';
      ELSIF NRPERIODOORCA  = 3 THEN
         DESCNRPERIODOORCA := '3° Trimestre';
      ELSIF NRPERIODOORCA  = 4 THEN
         DESCNRPERIODOORCA := '4° Trimestre';
      END IF;
   ELSIF IDPERIODOORCA = 'QUADRIMESTRAL' THEN
      IF NRPERIODOORCA  = 1 THEN
         DESCNRPERIODOORCA := '1° Quadrimestre';
      ELSIF NRPERIODOORCA  = 2 THEN
         DESCNRPERIODOORCA := '2° Quadrimestre';
      ELSIF NRPERIODOORCA  = 3 THEN
         DESCNRPERIODOORCA := '3° Quadrimestre';
      END IF;
   ELSIF IDPERIODOORCA = 'SEMESTRAL' THEN
      IF NRPERIODOORCA  = 1 THEN
         DESCNRPERIODOORCA := '1° Semestre';
      ELSIF NRPERIODOORCA  = 2 THEN
         DESCNRPERIODOORCA := '2° Semestre';
      END IF;
   END IF;

   RETURN DESCNRPERIODOORCA;
END;