Validar dado no DBGrid antes de inserir no registro

Question

Preciso certificar de que a ao inserir ou atualizar um campo tipo data a data digitada pelo usu�rio n�o seja maior do que a data atual.

O que eu quero � usar algo do tipo:

if (DataInserida > Now) then ShowMessage (�Data Inv�lida�);

Esta data � inserida em um c�lula do DBGrid. Estou usando ADO.

Steve_narancic · Answer

Voc� pode utilizar o Evento OnValidate do seu dataset para fazer suas valida��es, ou no BeforePost...

Tatuweb · Answer

Blz, resolvi em parte do jeito que vc falou. Fiz assim

procedure TFrmMain.ADOTableBeforePost(DataSet: TDataSet);
begin
  if DataSet.FieldByName(�DataEmissao�).AsDateTime > Now then ShowMessage (�A data da emiss�o n�o pode ser maior do que a data atual.�);
end;

Aparece a mensagem como eu quero mas s� que a opera��o � realizada mesmo assim e eu queria que caso data informada fosse inv�lida o programa n�o permitisse a inser��o deste dado e voltasse o foco para a c�lula onde a data foi digitada.

Tatuweb · Answer

Resolvi esta �ltima parte. Coloquei um DataSet.Edit; depois da exibi��o da msg. Vlw pela ajuda....

Tatuweb · Answer

Quero dizer, esse dataset.edit s� resolveu quando eh para atualizar mas quando se trata de inser��o n�o funciona. Ainda estou com o problema....

Lehapan · Answer

Caro TatuWeb,coloque este c�digo no evento OnBeforePost.[code:1:d1582e84e5]        if  DateOf(DataSet.FieldByName(�DataEmissao�).AsDateTime) > DateOf(Now) then          begin            FieldByName(�DataEmissao�).FocusControl; { Para colocar o foco no campo }            DatabaseError( �A data da emiss�o n�o pode ser maior do que a data atual.� ); { para dar uma mensagem de erro e n�o gravar, pois continua com o DataSet.State igual, ou seja, se estiver em dsInsert, continua em dsInsert, caso esteja em dsEdit, continua em dsEdit. }          end        ;[/code:1:d1582e84e5]espero ter ajudado....

Tatuweb · Answer

Blz! Funcionou tranquilo. Grato!...

F�rum Validar dado no DBGrid antes de inserir no registro #369627