Clube da Programação e Hardware

Tutorial, dicas, Programação, Hardware entre outros assuntos.
 
InícioInício  CalendárioCalendário  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Validar CGC/CNPJ (Delphi, Forms)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
vanix



Mensagens : 25
Data de inscrição : 20/01/2011

MensagemAssunto: Validar CGC/CNPJ (Delphi, Forms)   Qui Jan 20, 2011 8:18 am

unit Uvalida_cnpj;

Código:


interface
uses
    SysUtils;

implementation

function TestaCgc(xCGC: String):Boolean;
{Testa se o CGC é válido ou não}
Var
d1,d4,xx,nCount,fator,resto,digito1,digito2 : Integer;
Check : String;
begin
d1 := 0;
d4 := 0;
xx := 1;
for nCount := 1 to Length( xCGC )-2 do
    begin
    if Pos( Copy( xCGC, nCount, 1 ), '/-.' ) = 0 then
      begin
      if xx < 5 then
          begin
          fator := 6 - xx;
          end
      else
          begin
          fator := 14 - xx;
          end;
      d1 := d1 + StrToInt( Copy( xCGC, nCount, 1 ) ) * fator;
      if xx < 6 then
          begin
          fator := 7 - xx;
          end
      else
          begin
          fator := 15 - xx;
          end;
      d4 := d4 + StrToInt( Copy( xCGC, nCount, 1 ) ) * fator;
      xx := xx+1;
      end;
    end;
    resto := (d1 mod 11);
    if resto < 2 then
      begin
      digito1 := 0;
      end
  else
      begin
      digito1 := 11 - resto;
      end;
  d4 := d4 + 2 * digito1;
  resto := (d4 mod 11);
  if resto < 2 then
      begin
      digito2 := 0;
      end
  else
      begin
      digito2 := 11 - resto;
      end;
  Check := IntToStr(Digito1) + IntToStr(Digito2);
  if Check <> copy(xCGC,succ(length(xCGC)-2),2) then
      begin
      Result := False;
      end
  else
      begin
      Result := True;
      end;
end;

end.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Validar CGC/CNPJ (Delphi, Forms)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Delphi] Clipboard
» Não consigo validar meu css
» Bug,erro na conexão,não consigo validar alterações no perfil!
» DELPHI - Jogo da Forca
» Erro no CNPJ da UNOPAR

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Clube da Programação e Hardware :: Programação-
Ir para: