implementar no DBEDT uma mensagem caso a data digitada seja sábado ou domingo
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
Curtidas 0
Melhor post
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
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;
GOSTEI 1