CPF / CNPJ

19/02/2006

Pessoal, tenho um campo no meu cadastro de clientes que pode ser tanto para CNPJ como para CPF, mais quero formatar esse campo, como eu faço pra depois que o usuário digitar o número o sistema reconheça se é cnpj ou cpf e formate automaticamente...

Obrigado


Brunoagbr

Respostas

20/02/2006

Aroldo Zanela

Colega,

Pelo comprimento da string:

No OnEnter:

begin
  TMaskEdit(Sender).EditMask  := ´´;
end;


No OnExit:

  if TMaskEdit(Sender).GetTextLen = 11 then
    TMaskEdit(Sender).EditMask  := ´000\.000\.000\-00;0;_´;
  if TMaskEdit(Sender).GetTextLen = 14 then
    TMaskEdit(Sender).EditMask  := ´00\.000\.000\/0000\-00;0;_´;



Responder Citar

20/02/2006

Brunoagbr

Yessssssssssssssssssssssss........ Muito Obrigado... Valeu mesmo.... iuupiiii... hehe

Valeu amigo


Responder Citar

20/02/2006

Brunoagbr

amigo, agora que eu percebi.. tem um probleminha... esta funcionando o código mais quando eu mando salvar a tabela ele perde a formatação e no relatório tabém não sai essa formatação....

Obrigado


Responder Citar

03/03/2006

Brunoagbr

sobe


Responder Citar

04/03/2006

Edilcimar

troque o último zero do zanela para 1, aí ele salva a formatação junto


Responder Citar