Programación General > Visual FoxPro

 Ayuda Para Generar El Check Digit Del Ucc/ean 128

(1/2) > >>

fantasmar:
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

arielb:
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 ---r1 = 0R2 = 0 vGuia = .T. a = "123456789123"FOR i = LEN(a) TO 1 STEP -1   IF vGuia = .T.      r1 = val(r1+substr(a,i,1))      MESSAGEBOX("Par"+r1)      vGuia = .F.  ELSE      r2 = val(r2+substr(a,i,1))     MESSAGEBOX("imPar"+r2)     vGuia = .t.  endif ENDFOR  messagebox("Total Par "+ r1)messagebox("Total Impar "+ r2) 
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

fantasmar:
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

arielb:
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.

fantasmar:
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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente