Cancelar Post no BeforePost c/ IB6 e IBX
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.
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
Curtidas 0
Respostas
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
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