Manuel | empty

SELECT utilidades.dia_habil(15, current_date);

SELECT utilidades.dia_habil(-15, current_date);

--DROP FUNCTION utilidades.dia_habil (IN in_dias int4, IN in_desde date) CASCADE;
/**
* Funcion que calcula el ANTERIOR o PROXIMO dia habil
*
* @date 2009-10-07
* @author MANUEL DIEGO PAILLAFIL GAMBOA
* @email manuel@radiohead.cl
* @url http://manuel.radiohead.cl/
*
* @param INT
* @param DATE
*/
CREATE OR REPLACE FUNCTION utilidades.dia_habil(in_dias integer, 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;
    generate_digit1 int4;
    generate_digit2 int4;
    row_fechas record;
    row_fechas_alt record;
    BEGIN
    IF(in_dias < 0)THEN
        generate_digit1 := in_dias;
        generate_digit2 := -1;
        SELECT EXTRACT(DOW FROM fecha_actual) INTO dia;
        IF(dia = 0)THEN
            fecha_actual := fecha_actual - '1 days'::interval;
        ELSE IF(dia = 6)THEN
            fecha_actual := fecha_actual - '0 days'::interval;
        END IF;
        END IF;
        fecha_limite := fecha_actual;
    ELSE
        generate_digit1 := 1;
        generate_digit2 := in_dias;
        SELECT EXTRACT(DOW FROM fecha_actual) INTO dia;
        IF(dia = 0)THEN
            fecha_actual := fecha_actual - '2 day'::interval;
        ELSE IF(dia = 6)THEN
            fecha_actual := fecha_actual - '1 days'::interval;
        END IF;
        END IF;
        fecha_limite := fecha_actual;
    END IF;
   
    FOR row_fechas IN SELECT fecha_actual + s.a AS fecha FROM generate_series(generate_digit1,generate_digit2,1) AS s(a) LOOP
        SELECT EXTRACT(DOW FROM row_fechas.fecha) INTO dia;
            IF(dia = 6 AND in_dias > 0)THEN
                dias_extras := dias_extras + 2;
            ELSE IF(dia = 0 AND in_dias < 0)THEN
                dias_extras := dias_extras - 2;
            END IF;
            END IF;
    END LOOP;

    IF(in_dias < 0)THEN
        generate_digit1 := in_dias + dias_extras;
        generate_digit2 := -1;
    ELSE
        generate_digit1 := 1;
        generate_digit2 := in_dias + dias_extras;
    END IF;

    FOR row_fechas_alt IN SELECT fecha_actual + s.a AS fecha FROM generate_series(generate_digit1,generate_digit2,1) AS s(a) LOOP
        SELECT EXTRACT(DOW FROM row_fechas_alt.fecha) INTO dia;
        IF(dia = 6)THEN
            IF(in_dias < 0)THEN
                dias_extras_alt := dias_extras_alt - 2;
            ELSE
                dias_extras_alt := dias_extras_alt + 2;
            END IF;
        /**
         * Las siguientes 7 lineas se descomentan si se desea utilizar una tabla que mantenga los feriados
         * con fecha absoluta(25 de Diciembre es 25/12/2009(Formato SQL, EURUPEO))
         */
        --ELSE IF(row_fechas_alt.fecha IN (SELECT fecha FROM utilidades.feriados WHERE fecha = row_fechas_alt.fecha AND EXTRACT(dow FROM fecha) NOT IN (0,6)))THEN
        --  IF(in_dias < 0)THEN
        --      dias_extras_alt := dias_extras_alt - 1;
        --  ELSE
        --      dias_extras_alt := dias_extras_alt + 1;
        --  END IF;
        --END IF;
        END IF;
    END LOOP;

    retorno := fecha_limite + ((in_dias + dias_extras_alt)::varchar || ' days')::interval;
    RETURN retorno;
    END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE;