GARANTIR DESCONTO

Fórum CPF / CNPJ #313497

19/02/2006

0

Delphi

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

Responder

Posts

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

Gostei + 0

20/02/2006

Brunoagbr

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

Valeu amigo


Responder

Gostei + 0

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

Gostei + 0

03/03/2006

Brunoagbr

sobe


Responder

Gostei + 0

04/03/2006

Edilcimar

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar