implementar no DBEDT uma mensagem caso a data digitada seja sábado ou domingo
08/02/2019
0
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.
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
Curtir tópico
+ 0
Responder
Post mais votado
11/02/2019
Olá Mailson, tudo bem?
Na verdade você precisa implementar um método no OnValidate do Field do ClienteDataSet
declare na uses
depois coloque o seguinte códio nos eventos OnValidates dos Fields de Data
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;
Hélio Devmedia
Responder
Clique aqui para fazer login e interagir na Comunidade :)
