Possível Erro no AcbrValidador

[Valdir Dill]

Bom dia,

Nas minhas análises concluí que o acbrValidador está fazendo algo errado ao conferir o prefixo de GTINs.
Ao submetermos o código 0606529657802, o Acbr dá como prefixo inválido, mas não é.

No portal nacional de notas eletrônicas, menu "Documentos -> Diversos -> Tabela Prefixo GS1" temos uma planilha com a listagem dos prefixos válidos, bem como uma planilha que demonstra como se extrai o prefixo de um código.

Texto copiado da planilha/norma
Como Identificar o "Prefixo GS1"                                                                                    
O GTIN pode possuir 8, 12, 13 ou 14 algarismos, e segue abaixo uma forma prática de identificar o "Prefixo GS1":    
- Normalizar o tamanho do campo em 14 posições numéricas, com zeros não significativos;                                
- Se primeiras 6 posições = Zeros ==> GTIN-8                                                                        
    -Prefixo GS1: posições 7 a 9 do GTIN normalizado;                                                                
- Se primeiras 6 posições <> Zeros                                                                            
    -Prefixo GS1: posições 2 a 4 do GTIN normalizado;        

Geração do prefixo segundo normas acima:
- GTIN normlizado: 00606529657802                                                                
- posições 2 a 4 do GTIN normalizado: 060 -> prefixo válido

Já o AcbrValidador gera um prefixo = 606 e, nesse caso seria um prefixo inválido. Mas esse cálculo do Acbr está incorreto, na minha opinião.
                                                                                        
Sugestão para correção (.pas corrigida em anexo)
Trocar a rotina:
  if (StrToInt(Copy(CodigoNormalizado, 1, 6)) = 0) then //gtin8
     sPrefixo := copy(CodigoNormalizado, 7, 3)
   else if StrToInt(Copy(CodigoNormalizado, 1, 2)) = 0 then //gtin12
     sPrefixo := copy(CodigoNormalizado, 3, 3)
   else
     sPrefixo := copy(CodigoNormalizado, 2, 3);

Por esta:
 if (StrToInt(Copy(CodigoNormalizado, 1, 6)) = 0) then //gtin8
     sPrefixo := copy(CodigoNormalizado, 7, 3)
   else
     sPrefixo := copy(CodigoNormalizado, 2, 3);

Obrigado

ACBrValidador.pas

[Juliana Tamizou]

Boa tarde.

Obrigada pela análise, adicionado para validação.

Att.

[Juliana Tamizou]

Bom dia.

Contribuição disponível no svn.

Att.

[Waldir Paim]

Pra mim o código está certo! quem está errado é a documentação do GTIN.

Como sou associado a GS1 vou verificar com eles a possibilidade de uma correção.

@BigWings se puder voltar o código pra gente eu ficaria muito grato.

 

 

[BigWings]

Correção reaplicada na rev. 18375.