Códigos de Barras

Código de Barras

En este artículo te vamos a presentar unas series de funciones para generar códigos de barras del tipo 128,Bar 39 y el EAN-13 con diversas fuentes TrueType que nos permitirán lograr distintas alturas de códigos de barras y también la impresión de la cadena para lectura humana.

Código 39

Este código es de longitud variable, cuya limitación en el largo la da el espacio disponible para imprimir y la capacidad del lector de código de barra que usaremos.

El juego de caracteres del código 39 incluye 43 caracteres:
los dígitos 0-9, las letras A-Z (mayúscula solamente), el espacio y los siguientes símbolos: -+.$/*. El * es el carácter de inicio y final del código, por lo que no deberá usarse en un texto a codificar.Cada carácter se compone de 5 barras y 4 espacios. 3 de estos 9 elementos son anchos (de allí el nombre "3 de 9"  y 6 angostos.

Código 128

Este también es un código de longitud variable, y menos largo que el código 39.El código 128' incluye los dígito 0-9, letras (A-Z (mayúsculas y minúsculas), y todos los caracteres  Ascii en total.

El código 128' se divide en tres subconjuntos (A,B,C).

• El subconjunto A incluye los dígitos, las letras mayúsculas, y los códigos de control.
• El subcon-unto B incluye, los dígitos, las letras mayúsculas y minúsculas, y los códigos de control.
• El subconjunto  C incluye:  solo los dígitos y comprime dos dígitos numéricos en cada carácter, 1 de 9.

Código EAN-13

El código EAN más usual es EAN13, constituido por trece (13) dígitos y con una estructura dividida en cuatro partes: Los primeros dígitos del código de barras EAN-13 vienen a identifican el país que otorgó el código, no el país de origen del producto.

Este código es adoptado por más de cien países y al rededor de un millón de empresas a nivel mundial.

Este es un programa totalmente sencillo y sin muchas complicaciones y fácil de entender.

Acá se te muestran estas aplicaciones pudiendo incrementar sus números si así tu lo decides, tan solamente debes agregar tantas funciones tu consideres necesarias para tu programa,dichas aplicaciones deberás agregarlas en el programa codigo_bar2.prg y de igual forma modificarás el combo agregándole los nombre de las funciones que deberás llamar.

En el evento init de tu formulario coloca lo siguiente:

SET CONFIRM ON 

PUBLIC m.vuelta,lcRet,lcCodBar,lcTexto

lcTexto=""

lcCodBar=""

thisform.Caption ="Codigo de Barras"

thisform.combo1.BackColor =RGB(0,0,0)

thisform.combo1.ForeColor=RGB(0,255,0)

thisform.text1.BackColor =RGB(0,0,0)

thisform.text1.ForeColor = RGB(0,255,0)

thisform.text2.BackColor =RGB(0,0,0)

thisform.text2.ForeColor = RGB(0,255,0)

thisform.label4.Visible =.f.

En el Evento Load coloca :

SET PROCEDURE TO codigo_bar2 ADDITIVE 

Este procedure se encarga de cargar las diferentes aplicaciones para el código de Barra.

En el combo1 en el evento Gotfocus colocamos :

KEYBOARD '{F4}' clear

Coloca en el Evento Lostfocus del Text2 las siguientes instrucciones :

WAIT WINDOW "Generando el Código..." AT 18,102 TIMEOUT 1
DO case
   CASE thisform.combo1.Value="Codigo128A"
   lcCodBar=_StrTo128A(lcTexto)
   thisform.text1.FontName="PF Barcode 128"
   thisform.text1.Value=lcCodbar
   CASE thisform.combo1.Value="Codigo128B"
   lcCodBar=_StrTo128B(lcTexto)
   thisform.text1.FontName="PF Barcode 128"
   thisform.text1.Value=lcCodbar
   CASE thisform.combo1.Value="PF Barcode 128C"
   lcCodBar=_StrTo128C(lcTexto)
   thisform.text1.FontName="PF Barcode 128"
   thisform.text1.Value=lcCodbar 
   CASE thisform.combo1.Value="PF Barcode 39"
   lcCodBar=_StrTo39(lcTexto)
   thisform.text1.FontName="PF Barcode 39"
   thisform.text1.Value=lcCodbar
   CASE ALLTRIM(thisform.combo1.Value)="EAN-13"
   lcCodBar=DIGITO_VERIFICADOR_EAN(lcTexto)
   thisform.text1.FontName="PF Barcode 39"
   thisform.text1.Value=lcCodbar
ENDCASE
thisform.label4.Visible =.t.

thisform.label4.Caption =thisform.text2.Value

De igual forma te puede interesar Codigo de Barras para Impresora Zebra.

Nota : Recuerda tener los FONTS para ejecutar el programa de una manera excelente.