Validação do GTIN (EAN)

[Daniel Paixão-Cascavel]

O que vocês acham de colocar no ACBRValidador a validação do GTIN, ou EAN, como preferirem?

Att.

[EMBarbosa]

Como você pretende fazer essa Validação?

[Daniel Paixão-Cascavel]

Se sua pergunta refere-se a formula, apenas validar se é um EAN valido, conforme normas

[EMBarbosa]

Minha pergunta se refere ao algorítimo.

[Daniel Paixão-Cascavel]

Poderia usar o próprio algorítimo de validação do componente ACBRNfe:

function ValidaEAN(const vEAN:String):Boolean;

var

Temp1, Temp2, Digito: Integer;

Temp3, Temp4: String;

begin

Result := False;

Temp2 := 0; Temp3 := '';

if ((Length(vEan) <> 8) and (Length(vEan) <> 12) and (Length(vEan) <> 13) and (Length(vEan) <> 18)) then

Exit;

Temp4 := '31313131313131313';

Temp4 := Copy(Temp4,(Length(Temp4)-Length(vEan)),Length(vEan)-1);

Digito := StrToInt(Copy(vEan,Length(vEan),1));

Temp3 := Copy(vEan,1,Length(vEan)-1);

for Temp1 := 1 to Length(Temp3) do

Temp2 := Temp2+StrToInt(Temp3[Temp1])*StrToInt(Temp4[Temp1]);

Temp2:=10-Round(Frac(Temp2/10)*10);

if Temp2 = 10 then

Temp2 := 0;

Result := (Temp2 = Digito);

end;

[Daniel Simoes]

É preciso uma revisão no ACBrNFe e ACBrSPED, existem muitas funções repetidas como por exemplo a validação de CNPJ e I.E.

Hoje existe em ACBrUtil as funçoes:

function EAN13Valido( CodEAN13 : String ) : Boolean ;

function EAN13_DV( CodEAN13 : String ) : String ;

[Leonardo Gregianin]

daniel_paixao, não encontrei a função "ValidaEAN(const vEAN:String):Boolean;" no ACBRNfe, poderia me mostrar onde está?

Como fica os códigos de barras com 8, 12 e 14 dígitos para emissão de NF-e ? Só consigo transmitir NF-e com 13 dígitos.

[Régys Silveira]

daniel_paixao, não encontrei a função "ValidaEAN(const vEAN:String):Boolean;" no ACBRNfe, poderia me mostrar onde está?

Como fica os códigos de barras com 8, 12 e 14 dígitos para emissão de NF-e ? Só consigo transmitir NF-e com 13 dígitos.

Esta em ACBrUtil.

[Leonardo Gregianin]

Regys, encontrei as funções EAN13Valido e EAN13_DV no ACBrUtil, porém não encontrei a função ValidaEAN que o daniel_paixao postou acima.

Se o ACBr só tem a função para validar EAN13 como é feita a validação dos códigos EAN de 8, 12 e 14 dígitos? Tentei transmitir NFe de produtos com EAN de 8 e 14 dígitos e a SEFAZ-MT não aceitou, alguém poderia explicar como funciona isso tudo?

[Régys Silveira]

Adicionei ao ACBrValidador a opção de validar o GTIN, lá existe também uma função para validar diretamente caso não queira utilizar o componente.

[ch4rl3s]

Testei esse validador e não funcionou com EAN13 apenas com 14.

[Régys Silveira]

Seu ACBr está atualizado? Verificou se com o Demo do validador está tudo ok, fiz testes aqui e está tudo normal.

[RodrigoRiquena]

O validador esta validando o EAN 0000000000000, porem a receita rejeita a NF informando "cEan Inválido"