Fórum DATA DO CADASTRO DE CLIENTE NAO APARECE #618589
19/08/2022
0
coloquei o código abaixo no onclick do botão Novo e não resolveu
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=Date;
No DataModuleBD cliquei na tabela e na DATA_ADMISSAO coloque na propriedade EditMak "!99/99/0000;1;_", mas também não resolveu
Uso o IBConsole e na tabela os campos de data estão como TIMESTAMP
E o pior é que em algum momento chegou a funcionar e por mais que antes de cada alteração eu faça backup, mesmo retornando não funcionou mais.
Neste dia que funcionou, o cadastro teste que criei foi salvo com data e hora no banco e estou acreditando que possa ser isso. Que estou usando a marcara de data e o banco esteja aceitando apenas data e hora. Então como faço para mudar esta mascara para data e hora?
assim ficou salvo no banco: 2022-08-04 00.00.00.000
desde já agradeço qualquer ajuda.
Fabio Palagar
Curtir tópico
+ 0Posts
22/08/2022
Raimundo Pereira
coloquei o código abaixo no onclick do botão Novo e não resolveu
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=Date;
No DataModuleBD cliquei na tabela e na DATA_ADMISSAO coloque na propriedade EditMak "!99/99/0000;1;_", mas também não resolveu
Uso o IBConsole e na tabela os campos de data estão como TIMESTAMP
E o pior é que em algum momento chegou a funcionar e por mais que antes de cada alteração eu faça backup, mesmo retornando não funcionou mais.
Neste dia que funcionou, o cadastro teste que criei foi salvo com data e hora no banco e estou acreditando que possa ser isso. Que estou usando a marcara de data e o banco esteja aceitando apenas data e hora. Então como faço para mudar esta mascara para data e hora?
assim ficou salvo no banco: 2022-08-04 00.00.00.000
desde já agradeço qualquer ajuda.
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=Date;
Campo data e hora, estas passando somente data.
Tente assim:
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=now;
Gostei + 0
22/08/2022
Fabio Palagar
coloquei o código abaixo no onclick do botão Novo e não resolveu
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=Date;
No DataModuleBD cliquei na tabela e na DATA_ADMISSAO coloque na propriedade EditMak "!99/99/0000;1;_", mas também não resolveu
Uso o IBConsole e na tabela os campos de data estão como TIMESTAMP
E o pior é que em algum momento chegou a funcionar e por mais que antes de cada alteração eu faça backup, mesmo retornando não funcionou mais.
Neste dia que funcionou, o cadastro teste que criei foi salvo com data e hora no banco e estou acreditando que possa ser isso. Que estou usando a marcara de data e o banco esteja aceitando apenas data e hora. Então como faço para mudar esta mascara para data e hora?
assim ficou salvo no banco: 2022-08-04 00.00.00.000
desde já agradeço qualquer ajuda.
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=Date;
Campo data e hora, estas passando somente data.
Tente assim:
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=now;
Obrigado pela resposta, com esta modificação consegui selecionar a data.
Porém surgiu um novo problema, agora não está salvando no banco de dados.
Será que eu teria que mudar a mascara da tabela? Mas qual seria a mascara usada para data e hora?
Gostei + 0
23/08/2022
Fabio Palagar
coloquei o código abaixo no onclick do botão Novo e não resolveu
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=Date;
No DataModuleBD cliquei na tabela e na DATA_ADMISSAO coloque na propriedade EditMak "!99/99/0000;1;_", mas também não resolveu
Uso o IBConsole e na tabela os campos de data estão como TIMESTAMP
E o pior é que em algum momento chegou a funcionar e por mais que antes de cada alteração eu faça backup, mesmo retornando não funcionou mais.
Neste dia que funcionou, o cadastro teste que criei foi salvo com data e hora no banco e estou acreditando que possa ser isso. Que estou usando a marcara de data e o banco esteja aceitando apenas data e hora. Então como faço para mudar esta mascara para data e hora?
assim ficou salvo no banco: 2022-08-04 00.00.00.000
desde já agradeço qualquer ajuda.
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=Date;
Campo data e hora, estas passando somente data.
Tente assim:
DataModuleBD.TB_CLIENTE.FieldByName(''DATA_ADMISSAO'').AsDateTime:=now;
Obrigado pela resposta, com esta modificação consegui selecionar a data.
Porém surgiu um novo problema, agora não está salvando no banco de dados.
Será que eu teria que mudar a mascara da tabela? Mas qual seria a mascara usada para data e hora?
Verifiquei que agora não é problema da data, pois editei um cadastro que já estava salvo, coloquei data e salvou normalmente no banco de dados.
Ou seja, o problema agora é no botão novo, acredito eu, pois o botão edit está fazendo a edição e salvando, já o botão novo não está criando o novo cadastro no banco.
no botão novo adicionei as seguintes linhas:
DataModuleBD.TB_CLIENTE.Active:= true;
DataModuleBD.TB_CIDADE.Active:= true;
DataModuleBD.TB_BAIRRO.Active:= true;
DataModuleBD.TB_CLIENTE.last;
prox:=DataModuleBD.TB_CLIENTE.FieldByName('CLIENTE_COD').AsInteger +1;
DataModuleBD.TB_CLIENTE.Append;
DataModuleBD.TB_CLIENTE.FieldByName('CLIENTE_COD').AsInteger:=prox;
socpage.ActivePageIndex := 0; {aceitar que o setfocus abaixo va para primeira pagina da pagecontrol}
DataModuleBD.TB_CLIENTE.FieldByName('DATA_ADMISSAO').AsDateTime:=now;
Cli_NOME.setfocus;
Alguém sabe informar se está faltando alguma coisa para o banco salvar o novo registro?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)