Validação De CPF E CNPJ Trigger
Ensaios: Validação De CPF E CNPJ Trigger. Pesquise 860.000+ trabalhos acadêmicosPor: fabio.ds • 7/8/2014 • 920 Palavras (4 Páginas) • 441 Visualizações
{
function TDLL.ValidaCNPJ(valor: string): boolean;
var VetorCNPJ: array [1..12] of word;
Digito_1, Digito_2, D1, D2,Soma :word;
i,j:byte;
begin
Soma := 0;
if Length(valor) = 14 then
Begin
Digito_1:=StrToInt(valor[13]);
Digito_2:=StrToInt(valor[14]);
for i := 1 to 12 do
begin
VetorCNPJ[i] := StrtoInt(valor[i]);
end;
j := 5;
for i := 1 to 12 do
Begin
if j < 2 then
j:=9;
Soma := j * VetorCNPJ[i] + Soma;
dec( j );
End;
D1:=11-(Soma mod 11);
if D1>=10 then
D1 := 0;
if IntToStr(D1) <> valor[13] then //digito verificador 1 não confere
result := false//retorna falso, caso contrário segue
else
begin
Soma :=0;
j:=6;
for i := 1 to 12 do
Begin
if j < 2 then
j:=9;
Soma := j * VetorCNPJ[i] + Soma;
dec( j );
End;
D2 := Soma + D1*2;
D2 := 11 - (D2 Mod 11);
if D2>=10 then
D2 := 0;
if IntToStr(D2) <> valor[14] then //digito verificador 2 não confere
result := false//retorna falso
else
result:=true;//caso contrário vdd
end;
end
else
begin
result:=false;
end;
end;
function TDLL.ValidaCPF(Num: string): boolean;
var VetorCPF: array [1..9] of word;
Digito_1, Digito_2, D1, D2,Soma :word;
i,j:byte;
begin
Soma := 0;
if Length(Num) = 11 then
Begin
...