A onde declarar a função para validar CPF?

Delphi

16/01/2007

Pessoal, achei aqui várias funções para validar CPF/CNPJ, só não sei como chama-la para fazer funcionar.
Quero coloca-la no OnExit do DbEdit que vai receber o numero do CPF.

Alguém ai pode me ajudar?
Erivan.


Peninha

Peninha

Curtidas 0

Respostas

Emrinfo

Emrinfo

16/01/2007

Bom dia Erivan.

Voce pode colocar no OnExit ou no BeforePost. Segue o exemplo:

if (cds_clienteTipo_pessoa_cli.value = ´F´) or
(cds_clienteTipo_pessoa_cli.value = ´FÍSICA´) then
if not validCPF(cxDBMaskEdit1.Text)
then
Begin
MessageDlg(´O CPF informado não é válido !!!´, mtError, [mbOK], 0);
cxDBMaskEdit1.setfocus;
exit;
end;

Espero ter ajudado.

Emrinfo.


GOSTEI 0
POSTAR