Valida��o CPF/CNPJ

Question

Ol� amigos!! Alguem tem algum programinha pronto que fa�a a valida��o? Se tiver, por favor mande com os fontes para eu estudar o c�digo! Um abra�o e obrigado desde j�!

Meu email � luiz_galiza@ibest.com.br

Luizcap · Answer

[quote:9125e9ba99=�luizcap�]Ol� amigos!! Alguem tem algum programinha pronto que fa�a a valida��o?Se tiver, por favor mande com os fontes para eu estudar o c�digo! Um abra�o e obrigado desde j�![/quote:9125e9ba99]Meu email � luiz_galiza@ibest.com.br...

Paullsoftware · Answer

Essa assunto j� foi discutido muito aqui no f�rum d� uma pesquisada que vai achar v�rios t�picos relacionados a esse assunto...

function CalculaCnpjCpf(Numero : String) : String;
var
  i,j,k, Soma, Digito : Integer;
  CNPJ : Boolean;
begin
  Result := Numero;
  case Length(Numero) of
  9:
  CNPJ := False;
  12:
  CNPJ := True;
  else
  Exit;
  end;
  for j := 1 to 2 do
  begin
  k := 2;
  Soma := 0;
  for i := Length(Result) downto 1 do
  begin
  Soma := Soma + (Ord(Result[i])-Ord(�0�))*k;
  Inc(k);
  if (k > 9) and CNPJ then
  k := 2;
  end;
  Digito := 11 - Soma mod 11;
  if Digito >= 10 then
  Digito := 0;
  Result := Result + Chr(Digito + Ord(�0�));
  end;
end;

espero ter ajudado

Dopi · Answer

No [url=//acbr.sf.net]Projeto ACBr[/url] temos o componente [b:e49c3e339c]ACBrValidador[/b:e49c3e339c], que al�m de Validar CNPJ / CPF pode validar os seguintes documentos:Insc.Estadual (de todos os estados do Brasil) , NumCheque, PIS, CEP, Cartao de CreditoVale lembrar que o projeto ACBr � OpenSource e Multiplataforma (compativel com Kylix e Lazarus)...

Weber · Answer

[quote:d595494d41=�luizcap�]Estou aqui mais uma vez para tirar mais uma d�vida. Amigos, essa fun��o que me passaram ja testei e funcionou por�m encontrei um inc�modo. Qdo digito todos os numeros do cpf igual ele valida devido ao calculo. Mas todos n�s sabemos que n�o existem CPFs com todos os d�gitos iguais, n�o �? como fa�o pra restringir isso? Agrade�o a todos pela paci�ncia e aten��o. Grandes abra�os.[/quote:d595494d41]Voc� est� enganado, a Receita Federal utiliza o mesmo calculo matem�tico para chegar ao n�mero de um CPF.Tanto que o cpf 111.111.111-11 pertence a [nome omitido pelo moderador] (embora esteja cancelado)[quote:d595494d41=�Modera��o�]Texto editado por MassudaO nome do titular do CPF citado foi removido, pois � irrelevante para esta discuss�o.[/quote:d595494d41]...

Crcam · Answer

amigo vc j� conseguiu o validador de cnpj e cpf?caso n�o eu tenho um ocdigo que eu uso e da certo!...

Luizcap · Answer

Amigos Obrigado pela aten��o j� consegui resolver.Abra�os...

M@gnun · Answer

apenas um adendo na questao do cpf:X = 0?no rg tmb? em todas as rotinas de digitos verificadores como ie, cgc/cnpj, cart�o de credito?o cpf � assim n�o �?333.333.333-33j� vi um CPF assim, com 1 digito a menos no in�cio:22.222.222-22com esse cpf a rotina que uso da erro.j� vi tmb um RG assim, com 1 digito a + no inicio:333.333.333.3tmb da erro na minha fun��o.alguem jah viu isso?t+...

Luizcap · Answer

[quote:0f225d085a=�weber�]Voc� est� enganado, a Receita Federal utiliza o mesmo calculo matem�tico para chegar ao n�mero de um CPF.Tanto que o cpf 111.111.111-11 pertence a [nome omitido pelo moderador] (embora esteja cancelado)[/quote:0f225d085a]Ok como vc mesmo ja disse ele est� cancelado pois n�o seria normal um CPF com todos os digitos iguais. Observou se h� outros ou s� com o digito 1? Quero saver se h� uma forma de invalidar o CPF se todos os digitos informados forem iguais....

Weber · Answer

Basta fazer um if  :roll:...

Luizcap · Answer

Como irei fazer esse if?...

F�rum Valida��o CPF/CNPJ #322285