ValidarGTIN retornando EAN Inválido

[2SSistemas]

Boa tarde, utilizo a função a baixo para validar o EAN:

      ACBrValidador.TipoDocto:=docGTIN;
      if ((ValidarGTIN(EdEAN.Text))<>'') then

Hoje um cliente reportou que a validação esta retornando como inválido, um código que veio na embalagem do produto. (7891128919963)

Segue em anexo as imagens da embalagem e tambem do debug do codigo.   
 

[Alexandre de Paula]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Daniel Simoes]

O código realmente parece estar errado...

Veja a calculadora de GTIN da GS1 (que cadastra os códigos GTIN)

https://www.gs1.org/services/check-digit-calculator#gtin

 

 

[2SSistemas]

24 minutos atrás, Daniel Simoes disse:

O código realmente parece estar errado...

Veja a calculadora de GTIN da GS1 (que cadastra os códigos GTIN)

https://www.gs1.org/services/check-digit-calculator#gtin

 

 

Realmente, consultei pelo https://pt.product-search.net/ e aqui tambem deu como inexistente.
Obrigado.