Cancelar Post no BeforePost c/ IB6 e IBX

Firebird

17/02/2003

Quando eu não preencho algum campo da minha tabela que seja Not Null e dou um post, acontece uma mensagem de erro. Até aí tudo bem, só que eu gostaria que ao invés de aparecer aquela mensagem em inglês, ocorrece o cancelamento do registro.

Tentei colocar o comando Tabela.Cancel no evento BeforePost do IBDataSet, só que não dá certo.

Alguém poderia me ajudar. Isso ocorre muito quando se trabalha com grid e antes de terminar de preencher, o usuário clica em outro registro.


Lucianoko

Lucianoko

Curtidas 0

Respostas

Romeusql

Romeusql

17/02/2003

ue !
Coloque uma mensagem e poruguês Pro usuáio !
Tipo assim no Envento e onPostError Coloque esse Código

[b:6af8d112af]IF UpperCase(copy(e.message,1,20))=´VIOLATION OF PRIMARY´ then
Begin
e.message:=´Já existe Cliente com este Código - Favor Corrigir ´;
Action:=DaFail;
end;[/b:6af8d112af]
ou---------------------
no Button Gravar cologue
[b:6af8d112af]if EdtCogido.text=´´ Then
Begin
Table.cancel;
End Else
Table.post;[/b:6af8d112af]

Qualquer Duvida post Ai amigo


GOSTEI 0
POSTAR