GERAR ETIQUETA COM CODIGO DE BARRAS EAN13
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.
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.
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
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
E como aplicar na formula no crystal alguém sabe
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
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