Validação de CNPJ

O CNPJ pode ser verificado através de um cálculo do dígito verificador. Isso é interessante para suas aplicações pois impede que sejam informados CNPJ inválidos.

1º Coloque o código abaixo, acima do procedimento que irá fazer a chamada da verificação.

function Cnpj(xCNPJ: String):Boolean;
Var
d1,d4,xx,nCount,fator,resto,digito1,digito2 : Integer;
Check : String;
begin
d1 := 0;
d4 := 0;
xx := 1;
for nCount := 1 to Length( xCNPJ )-2 do
begin
if Pos( Copy( xCNPJ, nCount, 1 ), '/-.' ) = 0 then
begin
if xx <> copy(xCNPJ,succ(length(xCNPJ)-2),2) then
begin
Result := False;
end
else
begin
Result := True;
end;
end;

2º No evento OnExit do campo onde será digitado o CPF coloque o código abaixo:
If NOMECAMPO.Text<>'' Then
If Cnpj(NOMECAMPO.Text)=False Then
Begin
MessageDlg('CNPJ informado é incorreto!',mtError, [mbOk],0);
NOMECAMPO.SetFocus;
End;

Voltar para a página principal de Códigos