Ajuda do para incluir Data
Ola galera, estou desenvolvendo um sistema de locadora, e estou com problema quando vou incluir a data de devolução do material, alguem pode me dar uma ajuda?
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
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
Curtidas 0
Respostas
Murilo Junqueira
29/06/2012
Seu Mask Edit é um DBMaskEdit? está ligado ao banco?
verifique também a mascara que você colocou nele, e verifique os eventos
principalmente o OnChange se tem algo.
verifique também a mascara que você colocou nele, e verifique os eventos
principalmente o OnChange se tem algo.
GOSTEI 0
Rhonalds
29/06/2012
Seu Mask Edit é um DBMaskEdit? está ligado ao banco?
verifique também a mascara que você colocou nele, e verifique os eventos
principalmente o OnChange se tem algo.
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
Wasley Portes
29/06/2012
Ronaldo, comenta essas linhas para ver se resolve.
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.
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
Rhonalds
29/06/2012
Wasley, valeu pela dica, deu certo. Na verdade era justamente aquilo, estava mandando o foco direto quando digitava a data, por isso estava voltando para pesquisa. (coisa de iniciante, rsss)+ uma vez Obrigado.
Ronaldo Gonçalves.
Ronaldo Gonçalves.
GOSTEI 0