CPF / CNPJ

Delphi

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

Brunoagbr

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

19/02/2006

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;_´;



GOSTEI 0
Brunoagbr

Brunoagbr

19/02/2006

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

Valeu amigo


GOSTEI 0
Brunoagbr

Brunoagbr

19/02/2006

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


GOSTEI 0
Brunoagbr

Brunoagbr

19/02/2006

sobe


GOSTEI 0
Edilcimar

Edilcimar

19/02/2006

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


GOSTEI 0
POSTAR