Fórum Datas Feriados e Final de Semana #286296

  DataOk := False;
  Data := aqui vai a data do vencimento

  while not DataOk do
  begin
    if DayOfWeek(Data)=1 then // domingo 
      Data := Data + 1; // joga pra segunda 
    else 
    if DayOfWeek(Data)=7 then // sábado 
      Data := Data + 2; // joga pra segunda 

    DataOk := not EhFeriado(Data);

    if not DataOk then
      Data := Data + 1; 
  end;



procedure EhFeriado(Data: TDateTime): boolean;
begin
// vc decide se terá um componente de pesquisa sql instanciado
// ou se vai criá-lo em tempo de execução
  query.close;
  query.sql := ´select data from feriado where data = :data´;
  query.parambyname(´data´).asdatetime := data;
  query.open;
  result := not query.isempty;
  query.close;
// se o objeto foi criado em tempo de execução,
// é hora de liberá-lo da memória
end;

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, Grids, DBGrids, DBTables, Buttons, StdCtrls, ExtCtrls, 
  WinSkinData, ComCtrls; 

type 
  TForm1 = class(TForm) 
    DbBrasil: TDatabase; 
    sesBrasil: TSession; 
    qryBrasil: TQuery; 
    upsBrasil: TUpdateSQL; 
    dsBrasil: TDataSource; 
    DBGrid1: TDBGrid; 
    Panel1: TPanel; 
    Label1: TLabel; 
    Edit1: TEdit; 
    SpeedButton1: TSpeedButton; 
    qryBrasilnumeroCheque: TIntegerField; 
    qryBrasilvalor: TFloatField; 
    qryBrasildataBomPara: TDateTimeField; 
    qryBrasilcodigoBanco: TStringField; 
    qryBrasilcodigoPrefixoAgencia: TStringField; 
    qryBrasilnumeroContaCorrente: TStringField; 
    qryBrasilseuNumero: TStringField; 
    qryBrasilnumeroImpressoCheque: TStringField; 
    Label2: TLabel; 
    Panel2: TPanel; 
    Label3: TLabel; 
    rbBomPara: TRadioButton; 
    rbBanco: TRadioButton; 
    SkinData1: TSkinData; 
    SpeedButton2: TSpeedButton; 
    SpeedButton3: TSpeedButton; 
    StatusBar1: TStatusBar; 
    Panel3: TPanel; 
    Label4: TLabel; 
    lbltot: TLabel; 
    TlMark: TSession; 
    Principal: TDatabase; 
    Panel4: TPanel; 
    Label5: TLabel; 
    Label6: TLabel; 
    lblReg: TLabel; 
    lblRegAtual: TLabel; 
    Label7: TLabel; 
    ProgressBar1: TProgressBar; 
    procedure SpeedButton1Click(Sender: TObject); 
    procedure SpeedButton2Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure FormKeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
    procedure FormShow(Sender: TObject); 
    procedure qryBrasilAfterOpen(DataSet: TDataSet); 

    function VerFeriado(prData: TDateTime): TDateTime; 
    function ProxDiaUtil(prData: TDateTime): TDateTime; 
    procedure SpeedButton3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
  with qryBrasil do 
  Begin 
    Close; 
    SQL.Clear; 

    if Edit1.Text = ´´ then 
    Begin 
      SQL.Add(´Select numeroCheque, Valor, dataBomPara, codigoBanco, codigoPrefixoAgencia, ´); 
      SQL.Add(´NumeroContaCorrente, seuNumero, NumeroImpressoCheque´); 
      SQL.Add(´From Cheque´); 
    End 
    else 
    begin 
      SQL.Add(´Select *´); 
      SQL.Add(´From Cheque´); 
      SQL.Add(´Where seuNumero = :num´); 
      ParamByName(´num´).Value := Edit1.Text; 
    end; 

    if rbBanco.Checked then 
      SQL.Add(´Order by CodigoBanco´) 
    else 
      SQL.Add(´Order by DataBomPara´); 

    Open; 
  End; //With 
end; 

procedure TForm1.SpeedButton2Click(Sender: TObject); 
begin 
  Application.Terminate; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Application.Hint := StatusBar1.SimpleText; 
end; 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  CASE key of 
    VK_RETURN : SpeedButton1.Click; 
  end; //Case 
end; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
  SpeedButton1.Click; 
end; 

procedure TForm1.qryBrasilAfterOpen(DataSet: TDataSet); 
begin 
  lbltot.Caption := inttostr(qryBrasil.RecordCount); 
end; 

function TForm1.ProxDiaUtil(prData: TDateTime): TDateTime; 
var 
  mDay: Integer;
  mTabela: TQuery; // note que agora é TQuery
  EhFeriado: boolean;
begin 
  mDay := DayOfWeek(prData); 

  // vejo se cai num fim de semana
  if mDay = 1 then // Sunday 
    Result := prData + 1 
  else
  if mDay = 7 then // Saturday 
    Result := prData + 2;

  mTabela := TQuery.Create( Application ); 

  // feita a análise sobre o fim de semana,
  // verifico se não é um feriado.
  with mTabela do
  begin
    DatabaseName := ´DbPrincipal´; 
    SQL.Text := ´Select DtFeriado from Feriado where DtFeriado=:Data´;
    ParamByName(´Data´).AsDateTime := prData;
    Open; 
    EhFeriado := not IsEmpty;
    Close;
  end;
  mTabela.Free;

  // usando recursividade (caso haja necessidade)
  if EhFeriado then
    prData := ProxDiaUtil(prData+1);

  Result := prData;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject); 
var 
  matual: integer; 
begin 
  if MessageBox(Handle, ´Este Processo é irreversível.´ + #13 +
                        ´Atualizar as Datas?!´, ´**** ATENÇÃO *****´,
                        MB_ICONWARNING or MB_YESNO or MB_DEFBUTTON2) <> idYes then
    exit;
 
  Panel1.Enabled := False; 
  SpeedButton3.Enabled := False; 
  SpeedButton2.Enabled := False; 
  matual := 0; 
  Panel4.Visible := true; 
  lblRegAtual.Caption := IntToStr(matual); 
  ProgressBar1.Position := 0; 
  ProgressBar1.Max := qryBrasil.RecordCount; 
  lblReg.Caption := InttoStr(qryBrasil.RecordCount); 

  qryBrasil.First; 
  qryBrasil.DisableControls; 

  while not qryBrasil.Eof Do 
  Begin 
    qryBrasil.Edit;
    qryBrasildataBomPara.Value := ProxDiaUtil(qryBrasildataBomPara.Value);
    qryBrasil.ApplyUpdates;
    qryBrasil.Next;
    ProgressBar1.Position := ProgressBar1.Position + 1;
    Inc(matual);
    lblRegAtual.Caption := IntToStr(matual);
    lblReg.Update;
  End; //While

  qryBrasil.EnableControls; 
  qryBrasil.First; 

  Panel4.Visible := False; 
  Panel1.Enabled := True; 
  SpeedButton3.Enabled := True; 
  SpeedButton2.Enabled := True; 
end; 

end.

procedure TForm1.Form1Create(Sender: TObject); 
begin
  tbtFeriado.Open;
end;

procedure TForm1.Form1Destroy(Sender: TObject); 
begin
  tblFeriado.Close;
end;


function TForm1.ProxDiaUtil(prData: TDateTime): TDateTime; 
var 
  EhFeriado: Boolean; 
begin 
function TForm1.ProxDiaUtil(prData: TDateTime): TDateTime;
begin
  Result := prData;
  while 
    (DayOfWeek(prData) in [1, 7]) 
    or tblFeriado.Locate(´Data´, prData, [])
  do
    Inc(Result);
end;

procedure TForm1.Form1Create(Sender: TObject); 
begin
  tbtFeriado.Open;
end;

procedure TForm1.Form1Destroy(Sender: TObject); 
begin
  tblFeriado.Close;
end;


function TForm1.ProxDiaUtil(prData: TDateTime): TDateTime; 
var 
  EhFeriado: Boolean; 
begin 
function TForm1.ProxDiaUtil(prData: TDateTime): TDateTime;
begin
  Result := prData;
  while 
    (DayOfWeek(Result) in [1, 7]) 
    or tblFeriado.Locate(´Data´, Result, [])
  do
    Result := Result + 1;
end;

procedure TForm1.Form1Create(Sender: TObject); 
begin
  tbtFeriado.Open;
end;

procedure TForm1.Form1Destroy(Sender: TObject); 
begin
  tblFeriado.Close;
end;

function TForm1.ProxDiaUtil(prData: TDateTime): TDateTime;
begin
  Result := prData;
  while 
    (DayOfWeek(Result) in [1, 7]) 
    or tblFeriado.Locate(´Data´, Result, [])
  do
    Result := Result + 1;
end;