Digito Verificador Código Barras
Alguem sabe qual a rotina para cálculo do digito verificador padrão ean 13?
Obrigado....
Obrigado....
Pirasol
Curtidas 0
Respostas
Ari Marcolino
20/02/2004
function TAriBarEAN.CheckSumModulo10(const data:string):string;
var
i,fak,sum : Integer;
begin
sum := 0;
fak := Length(data);
for i:=1 to Length(data) do
begin
if (fak mod 2) = 0 then
sum := sum + (StrToInt(data[i])*1)
else
sum := sum + (StrToInt(data[i])*3);
dec(fak);
end;
if (sum mod 10) = 0 then
result := data+´0´
else
result := data+IntToStr(10-(sum mod 10));
end;[/code]
var
i,fak,sum : Integer;
begin
sum := 0;
fak := Length(data);
for i:=1 to Length(data) do
begin
if (fak mod 2) = 0 then
sum := sum + (StrToInt(data[i])*1)
else
sum := sum + (StrToInt(data[i])*3);
dec(fak);
end;
if (sum mod 10) = 0 then
result := data+´0´
else
result := data+IntToStr(10-(sum mod 10));
end;[/code]
GOSTEI 0