Criando uma Stored Procedure em Firebird para retornar o próximo dia útil

Nesse artigo vou mostrar uma forma simples de como criar uma stored procedure para retornar o próximo dia útil de uma data desconsiderando feriados pré cadastrados. O objetivo dessa procedure é verificar se a data informada no parâmetro é sábado, domingo ou feriado e caso seja irá retornar o próximo dia útil.

Lembrando que utilizei a versão 1.5 do Firebird para fazer este artigo.

Esse exemplo armazena os feriados como tipo DATE, e com isso será necessário atualizar os feriados anualmente, porém pode-se armazenar somente o dia e mês do feriado em campos separados e com isso eliminar essa atualização anual da tabela de feriados.

Mas voltado ao artigo, o primeiro passo é criar uma tabela para armazenar as datas dos feriados anuais e suas respectivas descrições. Segue a estrutura dessa tabela a seguir:

--tabela de feriados
CREATE TABLE FERIADOS
(
  DT DATE NOT NULL,
  DES VARCHAR(30)
)


Agora vamos criar nossa stored procedure:


CREATE PROCEDURE SP_PROXIMO_DIAUTIL
(
  PI_DATA DATE
)
RETURNS
(
  PO_DATA DATE
)

AS
  DECLARE VARIABLE VDATA DATE;
  DECLARE VARIABLE VDAY INTEGER;
  DECLARE VARIABLE VNEWDAY INTEGER;
  DECLARE VARIABLE I INTEGER;
  DECLARE VARIABLE J INTEGER;
  DECLARE VARIABLE VOK INTEGER;

BEGIN

  --pega o dia da semana
  SELECT EXTRACT(WEEKDAY FROM :PI_DATA) FROM RDB$DATABASE INTO :VDAY;

  --se for sexta incrementa dois dias
  IF (VDAY=6) THEN
    VDATA = PI_DATA+2;

  --se for domingo incrementa um dia
  ELSE IF (VDAY=0) THEN
    VDATA = PI_DATA+1;

  --caso contrário não incrementa nada
  ELSE
    VDATA = PI_DATA;

  --verifica se a data é um feriado
  SELECT COALESCE(COUNT(*),0)  FROM FERIADOS F WHERE F.DT = :VDATA INTO :I;

  --se for incrementa ate que a data não seja feriado e seja um dia util
  IF (I>0) THEN
  BEGIN

    VDATA = VDATA+1;
    VOK = 0;

    WHILE (VOK=0) DO
    BEGIN

      SELECT COALESCE(COUNT(*), 0)  FROM FERIADOS F WHERE F.DT = :VDATA INTO :J;

      IF (J>0) THEN
        VDATA = VDATA+1;

      ELSE BEGIN
        SELECT EXTRACT(WEEKDAY FROM :VDATA) FROM RDB$DATABASE INTO :VNEWDAY;

        IF (VNEWDAY=6) THEN
          VDATA = VDATA+2;
       
        ELSE IF (VNEWDAY=0) THEN
          VDATA = VDATA+1;

        ELSE
          VOK = 1;
      END
    END
  END

  PO_DATA = VDATA;
  SUSPEND;
END;


Espero que tenham gostado e até o próximo artigo.