Fórum DATA DO CADASTRO DE CLIENTE NAO APARECE #618589

19/08/2022

0

Tenho um cadastro de cliente com DBdataEdit que ao clicar em novo ou editar não aceita colocar a data, se selecionar não aparece, se digitar, aceita digitar, mas não salva e sempre fica vazio.

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

Fabio Palagar

Responder

Posts

22/08/2022

Raimundo Pereira

Tenho um cadastro de cliente com DBdataEdit que ao clicar em novo ou editar não aceita colocar a data, se selecionar não aparece, se digitar, aceita digitar, mas não salva e sempre fica vazio.

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;
Responder

Gostei + 0

22/08/2022

Fabio Palagar

Tenho um cadastro de cliente com DBdataEdit que ao clicar em novo ou editar não aceita colocar a data, se selecionar não aparece, se digitar, aceita digitar, mas não salva e sempre fica vazio.

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?
Responder

Gostei + 0

23/08/2022

Fabio Palagar

Tenho um cadastro de cliente com DBdataEdit que ao clicar em novo ou editar não aceita colocar a data, se selecionar não aparece, se digitar, aceita digitar, mas não salva e sempre fica vazio.

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?
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar