DBEdit CPF/CNPJ Maskaras

Delphi

28/05/2009

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 para CPF = pessoa fisica ou CNPJ para pessoa Juridica, no entanto ja tentei diversas maneiras, mas nw estou conseguindo fazer essa mudanca, ja usei condicao pelo tipo de pessoa, na propria condicao if d0o dbcheckbox, no proprio OnEnter no dbedit, mas nw esta dando certo, estou usando DbExpress, TSQLDataSet e ClientData Set, estou o dia todo jah nisso e nw consegui fazer essa tarefa simples, se alguem puder ajudar!

Agradeço!


Eduardo28

Eduardo28

Curtidas 0

Respostas

Walter Faria

Walter Faria

28/05/2009

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;


GOSTEI 0
POSTAR