DBEdit CPF/CNPJ Maskaras

Question

Meus caros amigos, estou usando D2007 com MySql, Tenho um campo DBedit para CPF e CNPJ e um DBCheck Box Para checar se e pessoa fisica ou juridica, de acordo se � pessoa  F ou J ele muda a maskara ou ...

Walter Faria · Answer

Oi colega,

Entao oq vc prescisa fazer e adicionar o TFields no ClientDataset. no campo que vc indetifica se pessoa F ou J, vc no evento onSetText e adiciona este codigo : ESPERO QUE TE AJUDE.

Sender.AsInteger:=StrToInt(Text);
If (Sender.AsInteger = 1) Then
Begin
LblCGCCPF.Caption:=�CPF�;
lblIERG.Caption := �RG�;
SqlCadastroCNPJ_CPF.EditMask:=�#..-�
End
Else
Begin
LblCGCCPF.Caption:=�CNPJ�;
lblIERG.Caption := �IE�;
SqlCadastroCNPJ_CPF.EditMask:=�../-�;
End;

no evento AffterScroll do ClientDataSet vc adiciona tb :
caso vc navega nos registros :

If (SqlCadastro.FieldByName(�PessoaFisica�).asInteger = 1) Then
Begin
LblCGCCPF.Caption:=�CPF�;
SqlCadastroCNPJ_CPF.EditMask:=�..-�;
Else
Begin
LblCGCCPF.Caption:=�CNPJ�;
SqlCadastroCNPJ_CPF.EditMask:=�../-�;
End;

F�rum DBEdit CPF/CNPJ Maskaras #370847