Barcode Interleaved 2 5

[comba]

Hola a todos
Estoy desarrollando una aplicación en Delphi 6 y necesito imprimir el código de barras de una seríe de números con el barcode interleaved 2 5. Lo que ocurre que me dicen que tengo que añadir un digito de control que se calcula automáticamente que aparece cuando pistoleteo el código de barras, pero no se como se calcula este dígito.

Os envio varios ejemplos por si me podeis ayudar.

0280112883014 al final le añade un 6
0010000101014 al final le añade un 2

Gracias

[MaMu]

La solucion es muy sencilla:


C) RUTINA PARA EL CALCULO DEL DIGITO VERIFICADOR
Se considera para efectuar el cálculo el siguiente ejemplo:
01234567890
Etapa 1: Comenzar desde la izquierda, sumar todos los caracteres ubicados en las posiciones impares.
0 + 2 + 4 + 6 + 8 + 0 = 20
Etapa 2: Multiplicar la suma obtenida en la etapa 1 por el número 3.
20 x 3 = 60
Etapa 3: Comenzar desde la izquierda, sumar todos los caracteres que están ubicados en las posiciones pares.
1 + 3 + 5+ 7 + 9 = 25
Etapa 4: Sumar los resultados obtenidos en las etapas 2 y 3.
60 + 25 = 85
Etapa 5: Buscar el menor número que sumado al resultado obtenido en la etapa 4 dé un número múltiplo de 10. Este será el valor del dígito verificador del módulo 10.
85 + 5 = 90
De esta manera se llega a que el número 5 es el dígito verificador módulo 10 para el código 01234567890
Siendo el resultado final:
012345678905


Espero que te sirva.

Saludos