SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: fantasmar en Viernes 17 de Noviembre de 2006, 21:29

Título: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: fantasmar en Viernes 17 de Noviembre de 2006, 21:29
Amigos necesito saber como programar el check digit del UCC/EAN 128, tengo un programa de empaques y necesito ese check digit para crear unas etiquetas de CB.

Gracias
Título: Re: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: arielb en Viernes 17 de Noviembre de 2006, 22:31
Bienvenido al foro

suponiendo que conoces el algoritmo solo te voy a colocar como separar el codigo para
hacer los calculos para sacar el digito. lo mejor para esto es la función substr(), puedes hacerlo asi
Código: Text
  1. r1 = 0
  2. R2 = 0
  3.  
  4. vGuia = .T.
  5.  
  6. a = "123456789123"
  7. FOR i = LEN(a) TO 1 STEP -1
  8.    IF vGuia = .T.
  9.       r1 = val(r1+substr(a,i,1))
  10.       MESSAGEBOX("Par"+r1)
  11.       vGuia = .F.
  12.   ELSE
  13.      r2 = val(r2+substr(a,i,1))
  14.      MESSAGEBOX("imPar"+r2)
  15.      vGuia = .t.
  16.   endif
  17. ENDFOR
  18.  
  19. messagebox("Total Par "+ r1)
  20. messagebox("Total Impar "+ r2)
  21.  

ah tambien seria bueno que le coloques la funcion isdigit() para evitar que coloquen letras.
Esto te permite calcular el digito para cualquier formato 128, ean 13, inclusive del de 14.
Bueno espero te sirva
Título: Re: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: fantasmar en Lunes 20 de Noviembre de 2006, 18:50
Muchas gracias Juez , eso q me mandaste funciona para el de 12 digitos pero tambien funciona para el de mas digitos ? por ejemplo segun una calculadora el numero :
0000333799000000349
da como resultado mas el check digit :

00003337990000003496

Desde ya gracias por tu ayuda
Título: Re: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: arielb en Lunes 20 de Noviembre de 2006, 21:35
si de la forma que separa los valores si lo hace con los diferentes formatos de codigo.
Pero todavia falta terminar de hacer el calculo si lo haces mal lo que falta si no saldra correcto.
Título: Re: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: fantasmar en Jueves 14 de Diciembre de 2006, 18:16
Bien pero me puedes ayudar con el codigo para el calculo del check digit.
El codigo q me enviaste me da los resultados de par e impar pero no tengo el algortimo para hacer el calculo.
Gracias
Título: Re: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: arielb en Sábado 16 de Diciembre de 2006, 19:58
Bueno arriba te preguntaba si sabias el algoritmo, pensaba era que no sabias como hacerlo en vfp. Te coloco el código de como lo hice en java asi que te puedes guiar.
Título: Re: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: fantasmar en Jueves 28 de Diciembre de 2006, 15:07
Gracias pero se te olvido escribir el codigo
Título: Re: Ayuda Para Generar El Check Digit Del Ucc/ean 128
Publicado por: arielb en Jueves 28 de Diciembre de 2006, 21:26
ok, pasame tu correo