Campo data inv�lido

Question

Boa tarde. Criei um sistema na plataforma Delphi7, CLX, e tem um campo date que nem sempre � preenchido. S� que o sistema est� acusando um erro neste campo do tipo[color=red:60069b0872] Invalid input ...

Eliane Dorr · Answer

Ah, o banco de dados que eu uso � Interbase....

Gandalf.nho · Answer

Est� usando qual componente de acesso aos dados?...

Eliane Dorr · Answer

Estou usando SqlConnection, SqlDataSet, DataSetProvider e ClientDataSet....

Gandalf.nho · Answer

Por acaso, esse campo data n�o est� como requerido no banco de dados ou no pr�prio dataset?...

Eliane Dorr · Answer

N�o....

Gandalf.nho · Answer

Tem alguma m�scara no campo?...

Eliane Dorr · Answer

Tem m�scara, sim. No componente ClientDataSet eu inseri a m�scara, assim como em todos os outros campos date....

Marco Salles · Answer

e qual a mascara????...

Eliane Dorr · Answer

!99/99/0000;1;...

Marco Salles · Answer

1) Sugest�oTente Colocar tudo Nove99/99/9999;1;2) Sugest�oSe nao de Certo Deve Programar O evento OnSetText Do Campo Field...

Joao_schroeder · Answer

Como vai?Estou com este mesmo problema. Tentei colocar tudo 9 como na primeira sugest�o, mas n�o deu certo.Ser� que poderia me dizer qual seria o c�digo para usar dentro do evento OnSetText Do Campo Field.� que sou iniciante e n�o sei o que devo fazer.Desde j� agrade�o...

Eliane Dorr · Answer

Bom dia.
Segue abaixo a descri��o do evento OnSetText do campo data que eu estou testando:

procedure TDMDupa.CDSDuplicataVENCE_DESCOSetText(Sender: TField;
  const Text: String);
var
  Data:TDateTime;
begin
  Data:=StrToDate(Text);
  if DateToStr(data)=�� then
    DMDupa.CDSDupaFornecedorVENCE_DESCO.AsString:=��
  else
    try
     DMDupa.CDSDuplicataVENCE_DESCO.AsDateTime:=Data;
    Except
      on Econverterror do
      begin
        MessageDlg(Text+� n�o � uma data v�lida.Digite novamente!�,MtInformation,[Mbok],0);
        Abort;
      end;
    end;
  end;

Espero ter ajudado, pois no meu caso funcionou.

Marco Salles · Answer

Voce pode alterar o seu c�digo para:1) op��o:[code:1:122be3db06]procedure TDMDupa.CDSDuplicataVENCE_DESCOSetText(Sender: TField;   const Text: String); begin   try      Sender.AsDateTime:=DateToStr(Text);   Except      on Econverterror do       begin        if text = �  /  /    � then            showmessage(�A Data deve ser Informada�)        else            MessageDlg(Text+� n�o � uma data v�lida.Digite novamente!�,MtInformation,&#91;Mbok&93;,0);         Sender.FocusControl;       end;     end;   end; [/code:1:122be3db06] Mas e quando eu digitar uma data em Branco :?:  :?:  :?: Que � Basicamente o contexto do seu T�pico... O Que Ir� ocorrer :?:  :?:  :?:  :arrow: Eu acho que o c�digo Acima D� [b:122be3db06]erro[/b:122be3db06]  :arrow:  Ele vai lhe informar que a Data deve ser informada... T� so querendo te chamar aten��o para um detalhe.. Suponha que se tenha um campo Data_Amissao e um campo Data_Demissao. Este dois Campos Podem Estar Num Mesmo Formul�rio. So que , quando o Existir Uma Admissao Simultaneamente N�o Podera Existir Uma demissao Da mesma Pessoa Ao Mesmo Tempo, e Vice Versa...Aonde Quero Chegar :?:  :?:  :?: Quero Chegar Que ,datas  Ou S�o Digitas Ou N�o S�o Digitas... E A melhor maneira para uma Data n�o ser digita e Inibir o controle consciente de Dados Relacionados Com a Data que n�o deve ser Digitada.Ent�o , no meu caso , quando estou fazendo uma admiss�o de um funcion�rio eu Inibo o Controle consciente Relacionado Com A Demiss�o do Funcion�rio.. E Vice-versa...

Marco Salles · Answer

[b:65ccb2e455]Eu estava acabando o T�pico quando tive que sair �s Pressas[/b:65ccb2e455]

O Que eu quiz dizer , com tudo isto foi que :

[b:65ccb2e455]N�o ha Nada que justifique a N�o Digita��o De Um Campo Data[/b:65ccb2e455]( Deixar o campo Data o Valor Vazio)...
O Unico Fato que Justifica isto e [b:65ccb2e455]a n�o utiliza��o Do Campo[/b:65ccb2e455], durante Um Procedimento.. :arrow:
E Neste caso e melhor [b:65ccb2e455]Inibir[/b:65ccb2e455] o Controle Consciente De Dados Relacionados Ao Campo Do Que Ficar [b:65ccb2e455]Programando[/b:65ccb2e455] O Evento OnSetTex [b:65ccb2e455]Do Campo [/b:65ccb2e455]Tfiled.

Agora se voce fizer quest�o , de deixar o usu�rio navegar pelos campo datas , e durante a navega��o , eles poderem assumir o Valor Vazio
, no meu entendimento a melhor maneira de Fazer Isto e usar um [b:65ccb2e455]MaskEdit[/b:65ccb2e455] ao inves de programar o evento [b:65ccb2e455]OnSetText[/b:65ccb2e455]

Mas no uso de um MaskEdit , na hora de Salvar O Registro de duas umas : :arrow:

Ou o Sistema Informar� que a data esta vazia ou ele erradamente ir� gravar uma data do tipo :[b:65ccb2e455] 31/12/1900[/b:65ccb2e455]
:arrow: Um erro que aparece constantemente no forum

[b:65ccb2e455]Pode por fim tentar o efeito do c�digo abaixo e ver o seu comportamento:[/b:65ccb2e455]

procedure TDMDupa.CDSDuplicataVENCE_DESCOSetText(Sender: TField; 
  const Text: String); 
begin 
  try 
     if Text = �  /  /    � then
       begin
          Sender.OnSetText:=Nil;
          exit; ou Abort; //Nao sei Qual dos dois ?????
       end
     Sender.AsDateTime:=DateToStr(Text); 
   Except 
     on Econverterror do 
      begin 
        else 
           MessageDlg(Text+� n�o � uma data v�lida.Digite novamente!�,MtInformation,[Mbok],0); 
        Sender.FocusControl; 
      end; 
    end; 
  end;

O Proximo Passo e Fundamental e no evento OnExit Do Controle Consciente De Dados Relacionado a este Campo Voce Deve Reeconectar
O Evento OnSetText ...
:arrow: A Seguir e muito importante

procedure TForm1.DBEdit1Exit(Sender: TObject);
begin CDSDuplicataVENCE_DESCO.OnSetText:=CDSDuplicataVENCE_DESCOSetText;
end;

Tudo isto com a mascara : [b:65ccb2e455]99/99/999;1;_[/b:65ccb2e455]

Como e um c�digo que esta no evento [b:65ccb2e455]OnExit[/b:65ccb2e455] voce deve tb se :cry: preocupar nos casos onde n�o se perde o Foco :wink: (Teclas de Atalho, componentes do tipo TBitButton etcc...

Alguma D�vida :?: :?: :?: :?: :?:

F�rum Campo data inv�lido #258244