Manuel | empty

--DROP FUNCTION "utilidades"."proximo_dia_habil" (IN in_dias int4, IN in_desde date) CASCADE;
/**
* Funcion que calcula el proximo dia habil
*
* @param INT
* @param DATE
*/
CREATE OR REPLACE FUNCTION "utilidades"."proximo_dia_habil" (IN in_dias int4, IN in_desde DATE)
RETURNS DATE AS
$BODY$
DECLARE
fecha_actual DATE := in_desde;
fecha_limite DATE;
retorno DATE;
dias_extras int4 := 0;
dias_extras_alt int4 := 0;
dia int4;
row_fechas RECORD;
row_fechas_alt RECORD;
BEGIN
/**
* @date 2009-10-06
* @author Manuel Paillafil Gamboa
* @email manuel@radiohead.cl
*/
fecha_limite := fecha_actual + (in_dias::VARCHAR || ' days')::INTERVAL;
FOR row_fechas IN SELECT fecha_actual + s.a AS fecha FROM generate_series(0,in_dias,1) AS s(a) LOOP
SELECT EXTRACT(DOW FROM row_fechas.fecha) INTO dia;
IF(dia = 6)THEN
dias_extras := dias_extras + 2;
END IF;
END LOOP;
dias_extras_alt := 0;
FOR row_fechas_alt IN SELECT fecha_actual + s.a AS fecha FROM generate_series(0,in_dias+dias_extras,1) AS s(a) LOOP
SELECT EXTRACT(DOW FROM row_fechas_alt.fecha) INTO dia;
IF(dia = 6)THEN
dias_extras_alt := dias_extras_alt + 2;
/**
* Las siguientes 3 lineas se descomentan si se desea utilizar una tabla que mantenga los feriados
* con fecha absoluta(25 de Diciembre -> 25/12/2009(Formato SQL, EURUPEO))
*/
--ELSE IF(row_fechas_alt.fecha IN (SELECT fecha FROM utilidades.tbl_feriados) AND dia != 0)THEN
--dias_extras_alt := dias_extras_alt + 1;
--END IF;
END IF;
END LOOP;
retorno := fecha_limite + (dias_extras_alt::VARCHAR || ' days')::INTERVAL;
RETURN retorno;
END;
$BODY$
LANGUAGE PLpgSQL
CALLED ON NULL INPUT
VOLATILE
EXTERNAL SECURITY INVOKER;