jobb

  PROCEDURE  PR_GENERA_PARAMETROS_MES(P_FECHA IN VARCHAR2)
   IS
	FECHA 	    	VARCHAR(6);
	FECHAMES		VARCHAR(2);
	FECHAANIO		VARCHAR(4);
	INTFECHAMES		NUMBER;
	INTFECHAANIO	NUMBER;
	CANTIDAD	    NUMBER;
	VALORDEVENGUE   VARCHAR(10);
	RETORNO 		NUMBER;
	FECHA 			DATE;

  BEGIN
    BEGIN

    SELECT COUNT(*) INTO CANTIDAD FROM MAESTRA_PARAMETRO MP,PARAMETRO_VALOR PV
		  WHERE PV.CODIGOPARAMETRO = MP.CODIGOPARAMETRO
		  AND MP.CODIGOPARAMETRO = 1
		  AND PV.MESDEVENGUE = '201512';


  		IF CANTIDAD = 0 THEN

        SELECT SUBSTR(P_FECHA,4) INTO FECHAANIO FROM DUAL;
        SELECT SUBSTR(P_FECHA,4,2) INTO FECHAMES FROM DUAL;

  			SELECT TO_NUMBER(FECHAMES, '99') INTO INTFECHAMES FROM DUAL;

  			IF INTFECHAMES = 1 THEN
  				SELECT TO_NUMBER(FECHAANIO, '99') INTO INTFECHAANIO FROM DUAL;

          SELECT (INTFECHAANIO - 1) INTO INTFECHAANIO FROM DUAL;

  				SELECT TO_CHAR(INTFECHAANIO) INTO FECHAANIO FROM DUAL;
  				SELECT CONCAT(FECHAANIO,'12') INTO FECHA FROM DUAL;

  			ELSE
          SELECT (INTFECHAMES - 1) INTO INTFECHAMES FROM DUAL;
  				SELECT TO_CHAR(INTFECHAMES) INTO FECHAMES FROM DUAL;
  				SELECT CONCAT(FECHAANIO,FECHAMES) INTO FECHA FROM DUAL;

  			END IF;

  			SELECT COUNT(*) INTO CANTIDAD FROM PARAMETRO_VALOR
         		WHERE CODIGOPARAMETRO = 1
        			  AND MESDEVENGUE = FECHA;

        	IF CANTIDAD = 1 THEN
        				SELECT VALOR INTO VALORDEVENGUE CANTIDAD FROM PARAMETRO_VALOR
         						WHERE CODIGOPARAMETRO = 1
        			  			AND MESDEVENGUE = FECHA;

        			  			--INSERTO EL NUEVO VALOR

        			  			SELECT SYSDATE INTO FECHA FROM DUAL;

        			  			INSERT INTO PARAMETRO_VALOR(CODIGOPARAMETRO,MESDEVENGUE,VALOR,USUARIOCREACION,FECHACREACION) VALUES(1,P_FECHA,VALORDEVENGUE,'JOB',FECHA);


        			  			RETORNO = 1;
        	ELSE

        						RETORNO = 0;

        	END IF;

  		END IF;

    END;
   END PR_GENERA_PARAMETROS_MES;