Fórum Parar procedimento? #134007
09/02/2003
0
Estou utilizando uma função para checar a validade de um cpf quero q quando o cpf não seja valido que o sistema emita uma mensagem avisando q o cpf não é valido e logo e também que o sistema pare o procedimento q esta fazendo no caso gravar os dados em um db
A mensagem para o usuario eu já consegui fazer mas logo após q o usuario clica em ok o sistema grava no db os dados como faço para interromper o processo?
Desde já agradeço
Kandrus
Curtir tópico
+ 0Posts
09/02/2003
Rubensavelino
Como vc verificou se o cpf e valido ?
E se dar prosseguimento na sua rotina so o retorno for TRUE.
Bom Dia
Gostei + 0
09/02/2003
Kandrus
mas como eu faço isso estou começando não quero nada mastigado mas por onde eu começo?
Gostei + 0
09/02/2003
Rubensavelino
Coloque aqui como vc chamou.
Gostei + 0
09/02/2003
Anonymous
Coloca no evento before post, a menssagen de verificação do CPF.
Quando ele verificar o CPF e detectar que ele é inválido, você então usa o comando Abort.
ex:
if [Comando de verificação de CPF]=false then
Begin
Application.MessageBox(´CPF inválido!´,´Erro´,Mb_IconError);
Abort;
end;
E pronto. Agora se você colocou o comando no edit, basta não deixar o usuario sair do foco do edit.
espero ter Ajudado
Gostei + 0
09/02/2003
Anonymous
Coloca no evento before post, a menssagen de verificação do CPF.
Quando ele verificar o CPF e detectar que ele é inválido, você então usa o comando Abort.
ex:
if [Comando de verificação de CPF]=false then
Begin
Application.MessageBox(´CPF inválido!´,´Erro´,Mb_IconError);
Abort;
end;
E pronto. Agora se você colocou o comando no edit, basta não deixar o usuario sair do foco do edit.
espero ter Ajudado
Gostei + 0
09/02/2003
Rafael Heise
você poderia fazer o seguinte
procedure botaookClick(Sender : TObject);
begin
if not validaCPF(EdCPF.text) then
begin
ShowMessage(´CPF Inválido´);
exit;
end;
.
..
... {Resto dos comandos para gravar na Tabela}
end;
onde validaCPF é uma função que recebe o texto digitado e devolve se o cpf é valido ou não (True ou False)... o not no inicio significa que se ele não for verdadeiro, entra no if (Begin... End;)...
Gostei + 0
09/02/2003
Kandrus
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)