ActiveDelphi

[gtramonte]

Ola, Caros Colegas! Estou usando um comando para validar cnpj:

function TFrmChecaCNPJCPF.cnpj(num: string): boolean;
var
n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12: integer;
d1,d2: integer;
digitado, calculado: string;
begin
n1:=StrToInt(num[1]);
n2:=StrToInt(num[2]);
n3:=StrToInt(num[3]);
n4:=StrToInt(num[4]); // Retira cada numero do Edit, e joda p/ variavel
n5:=StrToInt(num[5]);
n6:=StrToInt(num[6]);
n7:=StrToInt(num[7]);
n8:=StrToInt(num[8]);
n9:=StrToInt(num[9]);
n10:=StrToInt(num[10]);
n11:=StrToInt(num[11]);
n12:=StrToInt(num[12]);
d1:=n12*2+n11*3+n10*4+n9*5+n8*6+n7*7+n6*8+n5*9+n4*2+n3*3+n2*4+n1*5;
d1:=11-(d1 mod 11);
if d1>=10 then d1:=0;
d2:=d1*2+n12*3+n11*4+n10*5+n9*6+n8*7+n7*8+n6*9+n5*2+n4*3+n3*4+n2*5+n1*6;
d2:=11-(d2 mod 11);
if d2>=10 then d2:=0;
calculado:=inttostr(d1)+inttostr(d2);
digitado:=num[13]+num[14];
if calculado=digitado then
cnpj:=true
else
cnpj:=false;
end;

ele valida apenas quando o edit é preenchido sem mascara, quando ta com mascara da erro. alguém sabe me dizer como corrigir?

[joemil]

usa o ACBrValidador
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[johnny-walker]

Cara tente isto aqui, mas não testei, fiz de cabeça, pois não tenho delphi aqui:

[gtramonte]

Obrigado meu caro colega. deu certo.

[johnny-walker]

Eis uma função para checagem de CNPJ: