Um pequeno webservice em ASP.NET e Delphi 7 que valida Digitos de CPF/CNPJ e calcula digito check Modulo 10 e 11.

<%@ WebService Language = "Delphi" Class="uCheckCNPJ.TCheckCNPJ" %> unit uCheckCNPJ; interface uses System.Web.Services, Borland.Delphi.SysUtils; type   [WebService(Name=' TCheckCNPJ',Namespace='http://www.aden.com.br/',               Description='Webservice que calcula o Digito Verificador de um CPF ou CNPJ - By AdeN')]   TCheckCNPJ = class (WebService)     [WebMethod(Description='Calcula o Digito Verificador do CNPJ/CPF (não use separadores)')]       Function CheckCNPJ (const NumeroCPF_CNPJ : string) : String;     [WebMethod(Description='Verifica se um CNPJ/CPF é Válido (não use separadores)')]       Function IsValidCNPJ (const NumeroCPF_CNPJ : string) : Boolean;     [WebMethod(Description='Calcula o Digito Verificador Modulo 11')]       function CalculateMod11(Numero : String) : String;     [WebMethod(Description='Calcula o Digito Verificador Modulo 10')]       function CalculateMod10(Numero : String) : String;   end; implementation //========================================================================= // Calcula o digito verificador de um CNPJ ou CPF (nao use separadores) //========================================================================= function TCheckCNPJ.CheckCNPJ (const NumeroCPF_CNPJ : String) : String; var i,j,k,Soma,Digito : Integer;     CNPJ : Boolean; begin   CNPJ := Length(NumeroCPF_CNPJ)=12;   Result := NumeroCPF_CNPJ;   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;   Result := copy(Result,Length(Result)-1,2); end; //========================================================================= // Verifica se o digito de um CPF/CNPJ é válido //========================================================================= Function TCheckCNPJ.IsValidCNPJ (const NumeroCPF_CNPJ : string) : Boolean; Var d,n : String; Begin   d := Copy(NumeroCPF_CNPJ,Length(NumeroCPF_CNPJ)-1,2);   n := Copy(NumeroCPF_CNPJ,1,Length(NumeroCPF_CNPJ)-2);   Result := d = CheckCNPJ(N); End; //========================================================================= // Calcula o digito modulo 11 do numero informado como parametro //========================================================================= function TCheckCNPJ.CalculateMod11(Numero : String) : String; var i,k,Soma,Digito : Integer; begin   k := 2; Soma := 0;   for i := Length(Numero) downto 1 do begin       Soma := Soma + (Ord(Numero[i])-Ord('0'))*k;       Inc(k);       if (k > 9) then k := 2;   end;   Digito := 11 - (Soma mod 11);   if Digito >= 10 then Digito := 0;   Result := Chr(Digito+Ord('0')); end; //========================================================================= // Calcula o digito modulo 10 do numero informado como parametro //========================================================================= function TCheckCNPJ.CalculateMod10(Numero : String) : String; var Digito,i,j,cod,N : Integer; begin   Numero := Trim(Numero);   Digito := 0;   j := 2;   for i := Length(Numero) downto 1 do begin      N := Ord(Numero[i])-Ord('0');      cod := (N mod 10)*j;      Digito := Digito + (cod mod 10)+(cod div 10);      if j = 2 then j := 1 else j := 2;   end;   Digito := Digito mod 10;   if Digito <> 0 then Result := IntToStr(10-Digito) else Result := '0'; end; end.

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: .NET/ASP.NET; Delphi; ASP; Programação; .NET/Framework; .NET/C#; .NET/VB.NET;
Data.........: 05/03/2003 12:46:00
Visualizado..: 33477 vezes
Fonte........: AdeN Knowledge DB