[Resolvido]Dígito verificador - GTIN

Como calcular os dígitos verificadores dos códigos:

GTIN-8 antigo EAN-8
GTIN-12 antigo Código UPC
GTIN-14 antigo DUN-14

Finalidade: Validar os campos EAN e EANtrib da Nóta Fiscal Eletrônica

Se alguém precisar tenho o do EAN-13, mas não estou conseguindo os demais.

Envie a1 o 13 para que possamos ver...

Amigão.. eu me aventurei aqui a algo...
não sei se é asssim... mas..

http://dl.dropbox.com/u/26441349/JWano.rar

Saudações

Hary,

Vou testar os códigos que vc. postou e retórno.

Para o EAN-13, uso este:

Private Function DV_EAN13(Number As String)
' Retorna o Digito verificador para o EAN-13.
Dim Dig1 As Integer, Dig2 As Integer, i As Integer
Dig1 = 0
Dig2 = 0
For i = 1 To 11 Step 2
Dig1 = Dig1 + Val(Mid$(Number, i, 1))
Next i
For i = 2 To 12 Step 2
Dig2 = Dig2 + Val(Mid$(Number, i, 1))
Next i
DV_EAN13 = Chr$(((220 - (Dig2 * 3 + Dig1)) Mod 10) + 48)
'MsgBox DV_EAN13, vbInformation, "Dígito verificador"
End Function

O valor do seu código retornou o mesmo que o meu?

Quantos numeros tem aos outros códigos de barras?

No EAN13

1) 123456789012 No seu retórna 0 - no meu 8

2)Este é um EAN-13 registrado: 7840755000329 aonde 9 é o dígito
No seu retórna 5 - No meu está correto: 9

Estou testando o seu com os outros GTIN, já retórno.

No meu o retorno é poque esta configurado apenas para 11 digitos confome o Gtin12

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Attribute VB_Name = "Mod_Valida_EAN13"
Option Compare Database

Function Valida_EAN13(Str_Numero)
   Str_Par = 0
   Str_ImPar = 0

   Str_Numero = Format(Str_Numero, "000000000000")

   Dim Str_Posicao2 As Double
   Dim Str_Posicao4 As Double
   Dim Str_Posicao6 As Double
   Dim Str_Posicao8 As Double
   Dim Str_Posicao10 As Double
   Dim Str_Posicao12 As Double
   '
   Dim Str_Posicao1 As Double
   Dim Str_Posicao3 As Double
   Dim Str_Posicao5 As Double
   Dim Str_Posicao7 As Double
   Dim Str_Posicao9 As Double
   Dim Str_Posicao11 As Double



   Str_Posicao2 = Mid(Str_Numero, 2, 1)
   Str_Posicao4 = Mid(Str_Numero, 4, 1)
   Str_Posicao6 = Mid(Str_Numero, 6, 1)
   Str_Posicao8 = Mid(Str_Numero, 8, 1)
   Str_Posicao10 = Mid(Str_Numero, 10, 1)
   Str_Posicao12 = Mid(Str_Numero, 12, 1)
   '
   Str_Posicao1 = Mid(Str_Numero, 1, 1)
   Str_Posicao3 = Mid(Str_Numero, 3, 1)
   Str_Posicao5 = Mid(Str_Numero, 5, 1)
   Str_Posicao7 = Mid(Str_Numero, 7, 1)
   Str_Posicao9 = Mid(Str_Numero, 9, 1)
   Str_Posicao11 = Mid(Str_Numero, 11, 1)

   Str_Soma_Pares = (Str_Posicao2 + Str_Posicao4 + Str_Posicao6 + Str_Posicao8 + Str_Posicao10 + Str_Posicao12) * 3
   Str_Soma_ImPares = Str_Posicao1 + Str_Posicao3 + Str_Posicao5 + Str_Posicao7 + Str_Posicao9 + Str_Posicao11
   Soma_Par_Impar = Str_Soma_Pares + Str_Soma_ImPares


   If Soma_Par_Impar Mod 10 = 0 Then
       Str_DV = 0
   Else
       For i = 0 To 9
           Str_Verifica = Soma_Par_Impar + i
           If Str_Verifica Mod 10 = 0 Then
               Str_DV = i
               GoTo finaliza:
           End If
       Next i
   End If


finaliza:

   Valida_EAN13 = Mid(Str_Numero, 1, 12) & Str_DV


End Function