implementar no DBEDT uma mensagem caso a data digitada seja sábado ou domingo

Delphi

08/02/2019

Boa tarde pessoal!

Prezados (as),

Estou usando um clientdataset
CAMPO
fieldkind = fkdata
Editmask = !99/99/0000;1;_

Dúvida

Quero implementar no DBEDT uma mensagem caso a data digitada seja sábado ou domingo?

Alguém poderia me ajudar?

Desde já agradeço.
Mailson Janoca

Mailson Janoca

Curtidas 0

Melhor post

Hélio Devmedia

Hélio Devmedia

11/02/2019

Olá Mailson, tudo bem?

Na verdade você precisa implementar um método no OnValidate do Field do ClienteDataSet

declare na uses

System.DateUtils


depois coloque o seguinte códio nos eventos OnValidates dos Fields de Data

var
  data: TDate;
begin
  data:=sender.asDate;

  case DayOfTheWeek(data) of
    6: raise Exception.Create('A data Informada cai em um Sábado!');
    7: raise Exception.Create('A data Informada cai em um Domingo!');
  end;

GOSTEI 1
POSTAR