Erro na valida��o e na mascara de CPF e CNPJ

16/12/2020

Ol�, estou sendo assombrado pelo fantasma dos erros delhpianos, o erro em quest�o � este: "invalid input value. Use escape key to abandon changes"
Ele ocorre quando ao digitar o CPF ou CNPJ algum numero fica faltando.
Utilizo uma mascara no seguinte estilo:

ECPF.MaxLength := 14;  // Quantidade maxima de caracteres contando com os . e -
TStringField(Query.FindField('CPFCNPJ')).EditMask :=  '000\.000\.000\-00;0; ';

O mesmo processo para o CNPJ.
Tentei barrar com o seguinte codigo.

if ComboTipo.ItemIndex = 0 then
          begin
             if Length(ECPF.Text) < 14 then
              raise Exception.Create('� necess�rio informas todos os n�meros do CPF!');
          end

Por�m quase sem sucesso, ao implementar isto ao KeyDown do Edit:

if Key = #13 then
begin
   if ComboTipo.ItemIndex = 0 then
          begin
             if Length(ECPF.Text) < 14 then
              raise Exception.Create('� necess�rio informas todos os n�meros do CPF!');
          end;
end;

J� consegui exibir minha mensagem RAISE, porem acompanhada com a mensagem do erro: "invalid input value. Use escape key to abandon changes"

Alguem consegue me auxiliar?
Preciso tratar esse erro, mas ele passa batido pelo onExit do Edit, como fa�o para tratar esse erro e viver feliz para sempre?

Utilizo banco SQLite e Delphi 10.2 Tokyo

Deste j� obrigado pela aten��o

Ramboli

Curtir t�pico + 0

Responder

Post mais votado

16/12/2020

Verifique se isso ajuda:

http://www.activedelphi.com.br/forum/viewtopic.php?t=64806&sid=afc9488f3a44cb2cee069723d493de35

Ajudou bastante, muito obrigado <3 <3

Ramboli

Responder

Gostei + 1

Mais Posts

16/12/2020

Nomad

Verifique se isso ajuda:

http://www.activedelphi.com.br/forum/viewtopic.php?t=64806&sid=afc9488f3a44cb2cee069723d493de35

Responder

Gostei + 0

16/12/2020

Ramboli

Se n�o for pedir demais, ta ocorrendo algo estranho agora. Consegui com que emita apenas a mensagem Raise, porem, sempre cai na condi��o:

begin
             if Length(ECPF.Text) < 14 then
              raise Exception.Create('� necess�rio informas todos os n�meros do CPF!');
          end;

Por algum motivo, sempre esta caindo, 14 � o numero de caracteres do CPF juntamente com os caracteres da mascara, se eu colocar 11, que s�o apenas os caracteres do CPF, ele pula o evento, mesmo se eu preencher totalmente os espa�os ou se deixar totalmente nulo, ele se comporta igual, alguma dica?

Obrigado e desculpe novamente

Responder

Gostei + 0

17/12/2020

Ramboli

Se n�o for pedir demais, ta ocorrendo algo estranho agora. Consegui com que emita apenas a mensagem Raise, porem, sempre cai na condi��o:

begin
             if Length(ECPF.Text) < 14 then
              raise Exception.Create('� necess�rio informas todos os n�meros do CPF!');
          end;

Encontrei o erro, porem n�o sei como consertar, pois no CPF ele esta comendo 2 caracteres, sempre 2, apos o -, j� o CNPJ, ele esta comendo caracteres aleatorios, as vezes come 1, as vezes 2, as vezes nem come

Responder

Gostei + 0