Fórum Ajuda do para incluir Data #419111
29/06/2012
0
Campos na inclusão:
Material Preço Qtde Data Devolução
DVD 5.60 1 01/07/2012
Quando seleciono o material, deixei o foco para ir direto para data de devolução, mas quando começo a digitar o primeiro numero na data o foco esta indo para o material novamente, e aparece um erro se eu forçar para digitar a data( Invalid input value. Use escape key to abandon changes ), ou seja, o campo não esta permitindo que seja digitado dentro a data.
Estou usando um MaskEdit.
Quem puder dar uma dica agradeço
Rhonald
Rhonalds
Curtir tópico
+ 0Posts
29/06/2012
Murilo Junqueira
verifique também a mascara que você colocou nele, e verifique os eventos
principalmente o OnChange se tem algo.
Gostei + 0
29/06/2012
Rhonalds
verifique também a mascara que você colocou nele, e verifique os eventos
principalmente o OnChange se tem algo.
Estou usando um TMaskEdit mesmo, da paleta Additional.! Tenho código no evento keyPress:
procedure TfrmSaida.dbDataDevKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
inserirMateriais;
dm.cdsMatLocados.Edit;
dm.cdsMatLocadosQTDE.AsInteger := dm.cdsMatLocadosQTDE.AsInteger;
dm.cdsMatLocados.Post;
end;
Limpar;
dbMaterial.SetFocus;
end;
end.
Gostei + 0
29/06/2012
Wasley Portes
procedure TfrmSaida.dbDataDevKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
//inserirMateriais;
dm.cdsMatLocados.Edit;
dm.cdsMatLocadosQTDE.AsInteger := dm.cdsMatLocadosQTDE.AsInteger;
dm.cdsMatLocados.Post;
end;
//Limpar;
//dbMaterial.SetFocus;
end;
end.
Gostei + 0
30/06/2012
Rhonalds
Ronaldo Gonçalves.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)