Fórum Onvalidate com sender #238988
22/06/2004
0
Não consigo limpar o campo se o cpf ou o cgc for inválido...
procedure Tdatamodule1.tabelacampoValidate(Sender: TField);
begin
if not Sender.IsNull then
Case length(Sender.AsString) of
11: if not CPF(Sender.AsString) then
begin
ShowMessage(´CPF Inválido !´);
Sender.IsNull; // aki não funciona...
// tentei .Clear; , .test:=´´; e .AsString:=´´;
end else
Sender.EditMask:=´999.999.999-99;0;_´;
14: if not CGC(Sender.AsString) then
begin
ShowMessage(´CNPJ Inválido !´);
Sender.IsNull; //aki tb
end else
Sender.EditMask:=´999.999.999-99;0;_´;
else
Sender.IsNull; //aki tb
Exit;
end;
end;
Alguém pode me ajudar ???
Grato
G1b4
Curtir tópico
+ 0Posts
22/06/2004
G1b4
Gostei + 0
22/06/2004
Paulo_amorim
Não ta conseguindo porque ta dando erro? Onde?
Até+
Gostei + 0
22/06/2004
G1b4
O negócio é o seguinte: não está dando erro, o problema é que quando uso Sender.Clear;
ou Sender.Text:=´´;
ou Sender.AsString:=´´;
ou Sender.IsNull;
Ele não limpa um campo... Esse é o problema...
Esse evento ocorre em um campo de uma tabela no datamodule...
Na minha tela de cadastros uso o DBEdit tanto para CPF qto para CNPJ...
Ok?
Não consigo deixar nulo o campo....ou vazio....
Gostei + 0
23/06/2004
G1b4
Gostei + 0
25/06/2004
G1b4
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)