Buscar por:

Validação de CNPJ

Código

unit Uvalida_cnpj;

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.