Foros Club Delphi - Barcode Interleaved 2 5

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Barcode Interleaved 2 5 (https://www.clubdelphi.com/foros/showthread.php?t=22905)

Barcode Interleaved 2 5

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

La solucion es muy sencilla:

Código:

C) RUTINA PARA EL CALCULO DEL DIGITO VERIFICADORSe 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