GERAR ETIQUETA COM CODIGO DE BARRAS EAN13

USUARIO.EXCLUIDOS 23/11/2006 18:18:02
#185978
Estou precisando gerar no crystal Report umas etiquetas com o código de barras EAN 13 e o nome do produto. uma etiqueta para cada produto. então em uma folha de 50 etiquetas terei 50 produtos

Utilizo o crystal Report X1, mas acho que é a mesma coisa pras versões anteriores.

estou tentando com a dll u2lbcp.dll

quando tento visualizar da a seguinte mensagem de erro

Message includes a check digit.

descobri que este tipo de codigo de barras é formado da seguinte forma

Codigo do pais
789
Fabricante
1234 (exemplo)
Codigo do produto
12345 (exemplo)
digito verificador
1 (exemplo)
Total 13 digitos

codigo do pais será fixo 789
codigo do fabrintante será fixo 9999
o código do produto será sequencial 00001 + 1 para cada produto

Agora não sei como calcular o digito verificador e nem como chamar a função no crystal.

Se algum dos colegas puder mim ajudar eu agradeço.



USUARIO.EXCLUIDOS 24/11/2006 11:54:07
#186141
Carinha para calcular o 13 digito faz assim:

soma = Mid$(CodPais, 1, 1) * 1 + Mid$(CodPais, 2, 1) * 3 + _
Mid$(CodPais, 3, 1) * 1 + Mid$(CodFabr, 4, 1) * 3 + _
Mid$(CodFabr, 5, 1) * 1 + Mid$(CodFabr, 6, 1) * 3 + _
Mid$(CodFabr, 7, 1) * 1 + Mid$(CodProd, 8, 1) * 3 + _
Mid$(CodProd, 9, 1) * 1 + Mid$(CodProd, 10, 1) * 3 + _
Mid$(CodProd, 11, 1) * 1 + Mid$(CodProd, 12, 1) * 3
digito = 10 - (soma Mod 10)
If digito = 10 Then
digito = 0
End If

USUARIO.EXCLUIDOS 24/11/2006 14:18:27
#186171
E como aplicar na formula no crystal alguém sabe
USUARIO.EXCLUIDOS 24/11/2006 14:28:07
#186173
só corrigindo o que postei...

soma = Mid$(CodPais, 1, 1) * 1 + Mid$(CodPais, 2, 1) * 3 + _
Mid$(CodPais, 3, 1) * 1 + Mid$(CodFabr, 1, 1) * 3 + _
Mid$(CodFabr, 2, 1) * 1 + Mid$(CodFabr, 3, 1) * 3 + _
Mid$(CodFabr, 4, 1) * 1 + Mid$(CodProd, 1, 1) * 3 + _
Mid$(CodProd, 2, 1) * 1 + Mid$(CodProd, 3, 1) * 3 + _
Mid$(CodProd, 4, 1) * 1 + Mid$(CodProd, 5, 1) * 3
digito = 10 - (soma Mod 10)
If digito = 10 Then
digito = 0
End If
Tópico encerrado , respostas não são mais permitidas