Validando EAN8

[FabioMachado]

Bom dia eu havia postado um topico desta mesma questão em delphi/pascal mais descobri que não era eu que estava gerando o codigo errado.

Fiz uma rotina para gerar o ean8 porem no validador não validava então achei que eu estava errado. porém os ean8 gerados por uma rotina semelhando colocado no topico tambem não validão pelo menos da maneiro que estou fazendo. exemplo.

Caso o usuário não coloque o código de barras, o meu sistema vai gerar um a partir do código sequencia do sistema. ou seja.

o produto com codigo 20 vira no ean13 0000000000208 e isso valida direitinho.

ja no ean 8 o codigo 20 vira 00000204 e isso não valida.

Eu estou usando a seguinte rotina para validar:

if Trim(Edit9.Text)<>EmptyStr then

begin

ACBrValidador1.TipoDocto:=docGTIN;

ACBrValidador1.Documento:=Edit9.Text;

if ACBrValidador1.Validar then

begin

end else

begin

Edit9.Clear;

Edit9.Text:='';

Edit9.SetFocus;

end;

end;

O que estou fazendo de errado?

[André Ferreira de Moraes]

Provavelmente sua rotina de geração do EAN8 está incorreta, pois no site http://www.gs1pt.org/servicos/digito-co ... e-controlo ao colocar o valor 0000020 ele exibe como 8 o dígito verificador.

[André Ferreira de Moraes]

Neste site tbm dá como dígito correto o valor 8 e não 4 como vc está calculando - http://www.gs1.org/barcodes/support/che ... calculator

[FabioMachado]

Descobrimos o problema.