Array
(
)

CPF / CNPJ

Brunoagbr
   - 19 fev 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


Aroldo Zanela
   - 20 fev 2006

Colega,

Pelo comprimento da string:

No OnEnter:

#Código


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


No OnExit:

#Código

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



Brunoagbr
   - 20 fev 2006

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

Valeu amigo


Brunoagbr
   - 20 fev 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


Brunoagbr
   - 03 mar 2006

sobe


Edilcimar
   - 04 mar 2006

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