Validar CNPJ e CPF (mascara do campo?)

Delphi

23/09/2003

Estou tentando validar o cnpj e o cpf, bom antes de validar eu tiro a mascara no editmask do campo, e logo que termina a validação eu coloco novamente a mascara, dá quase tudo certo só q qdo eu coloco novamente a mascara só fica aparecendo no campo os primeiros números q digitei os demais ficam ocultos pois se volto no campo novamente (no onenter do campo estou tirando a mascara) os números estão alí, não consigo resolver este probleminha, alguém pode me ajudar?


Janete

Janete

Curtidas 0

Respostas

E_gama

E_gama

23/09/2003

Tente este componente que criei...

Delphi 5: [url]http://www.salesiano.com.br/egama/TXEdit.zip[/url]
Delphi 7: [url]http://www.salesiano.com.br/egama/TXEdit_D7.zip[/url]


GOSTEI 0
Janete

Janete

23/09/2003

Tente este componente que criei... Delphi 5: [url]http://www.salesiano.com.br/egama/TXEdit.zip[/url] Delphi 7: [url]http://www.salesiano.com.br/egama/TXEdit_D7.zip[/url]


É que estou usando DBEdit para gravar no banco de dados então acho q não dá pra este caso usar seu componente, apesar de muito legal OK.
Continuo precisando de um help?


GOSTEI 0
Janete

Janete

23/09/2003

[quote:4e32a3b3e0=´e_gama´]Tente este componente que criei... Delphi 5: [url]http://www.salesiano.com.br/egama/TXEdit.zip[/url] Delphi 7: [url]http://www.salesiano.com.br/egama/TXEdit_D7.zip[/url]


É que estou usando DBEdit para gravar no banco de dados então acho q não dá pra este caso usar seu componente, apesar de muito legal OK.
Continuo precisando de um help?[/quote:4e32a3b3e0]

Desculpa! logo q instalei seu componente não ficou muito visível as figuras dos seus componentes só agora consegui ver q existe um componente XDBEdit2, para poder usar banco.
Muito Obrigado


GOSTEI 0
Janete

Janete

23/09/2003

Tente este componente que criei... Delphi 5: [url]http://www.salesiano.com.br/egama/TXEdit.zip[/url] Delphi 7: [url]http://www.salesiano.com.br/egama/TXEdit_D7.zip[/url]


e-gama, qual comando eu uso para o xdbedit no lugar do IsValid do xedit é q esse comando não dá certo com o xdbedit?


GOSTEI 0
Fabio.hc

Fabio.hc

23/09/2003

Oi.

Vc está usando a máscara deste jeito:

CPF.EditMask:=´# \-;0;_´

CNPJ.EditMask:=´ \/\-;0;_´


GOSTEI 0
Janete

Janete

23/09/2003

Oi. Vc está usando a máscara deste jeito: CPF.EditMask:=´# \-;0;_´ CNPJ.EditMask:=´ \/\-;0;_´


estou usando assim:
TbClientesPessoa.EditMask:=´999.999.999-99;1;_´;
TbClientesPessoa.EditMask:=´99.999.999/9999-99;1;_´;}


GOSTEI 0
Fabio.hc

Fabio.hc

23/09/2003

[quote:4e39843916=´Fabio.HC´]Oi. Vc está usando a máscara deste jeito: CPF.EditMask:=´# \-;0;_´ CNPJ.EditMask:=´ \/\-;0;_´


estou usando assim:
TbClientesPessoa.EditMask:=´999.999.999-99;1;_´;
TbClientesPessoa.EditMask:=´99.999.999/9999-99;1;_´;}[/quote:4e39843916]


Tente assim:

TbClientesPessoa.EditMask:=´999.999.999-99;[color=blue:4e39843916]0[/color:4e39843916];_´;
TbClientesPessoa.EditMask:=´99.999.999/9999-99;[color=blue:4e39843916]0[/color:4e39843916];_´;


GOSTEI 0
Janete

Janete

23/09/2003

[quote:3628c0add6=´Janete´][quote:3628c0add6=´Fabio.HC´]Oi. Vc está usando a máscara deste jeito: CPF.EditMask:=´# \-;0;_´ CNPJ.EditMask:=´ \/\-;0;_´


estou usando assim:
TbClientesPessoa.EditMask:=´999.999.999-99;1;_´;
TbClientesPessoa.EditMask:=´99.999.999/9999-99;1;_´;}[/quote:3628c0add6]


Tente assim:

TbClientesPessoa.EditMask:=´999.999.999-99;[color=blue:3628c0add6]0[/color:3628c0add6];_´;
TbClientesPessoa.EditMask:=´99.999.999/9999-99;[color=blue:3628c0add6]0[/color:3628c0add6];_´;[/quote:3628c0add6]

Ok deu certo assim! Muito obrigado já vai me ajudar, mas gostaria de descobir qual comando uso no componente q o e-gama criou, qual comando eu uso para o xdbedit no lugar do IsValid do xedit é q esse comando não dá certo com o xdbedit?


GOSTEI 0
POSTAR