Controle do CNPJ
Procurei no fórum mas não tem... preciso da fórmula que calcula o controle do CNPJ. Pra quem não sabe é o famoso ´mil ao contrário´,
que nem sempre é ´0001´. Existe um meio de se calcular, a quem souber agradeço desde já.
que nem sempre é ´0001´. Existe um meio de se calcular, a quem souber agradeço desde já.
Jpaulorio
Curtidas 0
Respostas
Martins_vicente
14/04/2004
Caro jpaulorio,
Segue abaixo uma function que extrai do ´´Dicas e Truques Delphi V 2.6´´ (também conhecido com 800 dicas de Delphi):
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 que ele lhe ajude!
Boa sorte!
Segue abaixo uma function que extrai do ´´Dicas e Truques Delphi V 2.6´´ (também conhecido com 800 dicas de Delphi):
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 que ele lhe ajude!
Boa sorte!
GOSTEI 0
Jpaulorio
14/04/2004
Essa função calcula o dígito verificador, eu preciso do cálculo do CONTROLE... que é o mil ao contrário q aparece na maioria dos cnpjs, mas nem sempre é 0001... mas obrigado mesmo assim
GOSTEI 0
Alexandremarcondes
14/04/2004
Essa função calcula o dígito verificador, eu preciso do cálculo do CONTROLE... que é o mil ao contrário q aparece na maioria dos cnpjs, mas nem sempre é 0001... mas obrigado mesmo assim
Aquele controle não é calculado .. é dado pela receita federal, representa o número da filial, dentre outras coisas ...
GOSTEI 0