18 replies to this topic

[r1d2m3]

Hola amigos, quería plantearles el siguiente problema: necesito imprimir un código de barras, un ean 128 porque el código debe ser alfanumérico. El código a imprimir es un número GUID generado con delphi, el mismo, como ustedes saben, tiene 38 caracteres, al momento de comprar el lector, me llevo impreso un par de códigos de barra para probar el lector en el comercio y, ahi surgió el problema, no me los lee. La pregunta al foro es: ¿son demasiados caracteres para la lectora?, estoy utilizando una de esas fuentes de descarga gratuita y también podría ser este el problema, que el código no se haya generado correctamente. ¿Alguien ya trabajó imprimiendo y leyendo estos códigos?, si es así, por favor, les agradecería cualquier comentario que me ayude a resolver este inconveniente.

Saludos y quedo a la espera de vuestros comentarios.

[Master23]

Yo tengo entendido que el lector ingresa el código, como si fuera una entrada por teclado pero completa. Lo más probable es que no tengas instalados los drivers correspondientes y por ende no te funciona,trata de revisar eso.

[andres1569]

Hola y bienvenido al foro  :

Cuando dices que no te lee los códigos, ¿es porque no emite ningún sonido el lector? ¿o porque tu programa no reacciona a la señal del lector y no te muestra nada? En este segundo caso convendría que nos pusieras cómo estás capturando la señal del lector.

Saludos

[r1d2m3]

Gracias por la pronta respuesta, el lector no emite ningún pitido. Probé otros código que tenía el vendedor en su local y si los leyó, emitió el clásico pitido y tomó el código, pero sobre el mio no hizo nada, ningún pitido y ninguna transmisión a la pantalla. Lo diferente de mi código y el del comercio era simplemente la cantidad de caracteres de uno y de otro, el mio tenía 38 caracteres y el del comercio 14 o 15, no mas.

[fredycc]

Q tal r1d2m3, mmm extraño, pero de casualidad las especificados de tu lector y modelo especifican poder leer el tipo de código que deseas?, desconozco si el formato que utilizas es estandar o al menos para el lector que tienes.


Saludos.

[andres1569]

Como dice fredycc, deberías verificar en las especificaciones del lector que has comprado si es capaz de capturar esos 38 dígitos. Otra pregunta es si esos códigos con que has hecho la prueba los has generado tú con la impresora a partir de los números GUID, a ver si no están correctamente generados, o si los has tomado de algún sitio creyendo que te servían.


Saludos

[r1d2m3]

si, el lector es de última generación, probé los dos tipos, uno laser y otro del tipo led y no me leyo con ninguno de ellos. ¿ustedes hay trabajado ya con códigos de barra?. Por las dudas tenga importancia, estoy usando una fuente del tipo truetype que descargué de la web, y tal vez esté por allí el problema. Para imprimir el código de barras lo que hago es usar el objeto printer, y definir su Canvas.Font.Name esta letra que descargué de la web, esto sale sin inconvenientes y se imprime un código de barras, ahora bien, tal vez este código no esté bien construido con dicha fuente. Si alguien usa este método u otro, agradezco sus comentarios.

El código está generado con CreateGuid que me genera una estructura alfanumérica normal, la que necesito codificar con un ean-128 (por ser alfanumérico). Por suerte, aún no lo compré, fuí al comercio con mi código impreso, lo probé, no me funcionó y aquí estamos.

[andres1569]

Hola r1d2m3:

Mi experiencia con códigos de barras se remonta a hace unos cuantos años, llegué a trabajar con códigos code 39 y para imprimirlos encontré unos componentes que por un lado mostraban el código de barras en pantalla (en tu caso supongo que utilizas un TLabel con la fuente truetype) , y por otro tenían su versión QR (para QuickReports) por lo que me fue muy fácil insertarlos en un informe y así imprimirlos sobre papel de etiquetas, sin necesidad de acceder directamente al Canvas. Me temo que si dibujas sobre el Canvas, aunque utilices dicha fuente, tendrás que calibrarla para que te imprima en el tamaño adecuado, si te pasas por pequeña o por grande posiblemente el lector no te lo reconozca.

Los componentes en cuestión se llaman TBarcode y TQRBarcode (venían con sus hermanitos dataware TDBBarcode y TDBQRBarcode) quizás una búsqueda en la web te permita encontrarlos o algunos parecidos y espero que ya soporten el protocolo ean 128. Yo te los puedo enviar pero la versión que tengo sólo soporta code39  .

Saludos

[andres1569]

Una posible prueba que podrías hacer es mediante esa misma fuente truetype que estás utilizando, hacer mútliples impresiones aumentando cada vez su tamaño en 1, a ver si algún código te lo reconoce el lector.

Saludos

[escafandra]

Yo también he usado TBarcode sin problemas: http://www.han-soft.com/index.php


Saludos.

[r1d2m3]

Muchas gracias a todos por sus respuestas, creo que mi problema pasa por como construyo el código de barras, pensé que solo era cuestión de descargar las fuentes y mandar a imprimir con dichas fuentes, pero, leyendo e investigando un poco mas, el code128 requiere usar un dígito de verificación, es decir, debo construir la etiqueta anexando el dígito verificador al final, ademas de indicar el tipo de code 128 que uso, ya sea A, B o C. Si alguien tiene algún link donde se discuta como generar este código de verificación, les agradeceré el aporte.

Saludos.

[ELKurgan]

otra cosa: ¿has mirado si el escaner está configurado? Yo he probado con algunos y en ciertos casos había que habilitar los códigos que va a interpretar configurando el escaner.

De todas formas, el algoritmo del 128C (que es sólo numérico, no como el 128A o el 128B) creo que es el siguiente:
  El conjunto de caracteres 128C sólo tiene códigos numéricos y siempre es un número par; El valor de barras inicial, que indica que se trata de un 128C es 105 
Se toman todos los dígitos por pares; cada par se multiplica por su peso (posición) y se suman; Al total se le suma el código de inicio 105; El total resultante se divide por 103, tomándose el resto como dígito de control.  Ejemplo: 
  Código: 10123450012345  Se toman los pares de números y se multiplian por su peso:
  10 * 1 = 10
  12 * 2 = 24
  34 * 3 = 102
  50 * 4 = 200
  01 * 5 = 5
  23 * 6 = 138
  45 * 7 = 315
  ---
794  + 105
  ---
  899
  899 / 103 = 8 (Resto 75): Por tanto el caracter de control es 75
  Espero que esto disipe vuestras dudas.  Un saludo

[Sergio]

Hola R2D2 (perdón por la broma, pero el nombre de usuario me lo recordo), creo que el problema es que con una fuente de caracteres puedes imprimir codigos de barras de la longitud que tu quieras, pero para que sean validos, han de tener una estructura especifica, no vale cualquier texto convertido a barras con un font.

Por ejemplo, es de esperar que tengas que limitarte a códigos de no mas de N caracteres (ese N depende del formato), que además, si tiene menos de N lo tengas que rellenar con ceros, espacios o lo que diga el estandar elegido, y que finalmente haya de ir acompañado por 2 o 3 caracteres adicionales -normalmente a mitad del texto- que son un checksum de los "codigos reales". Si tu string no cumple esto ANTES de convertrilo a codigo de barras, lo que obtienes NO es un codigo de barras en tal o cual formato, es una foto de una cebra sin mas.

Yo cuando prepare mi programa para imprimir códigos de barras (ojo, para leerlos no se necesita nada ya que la pistola ES un teclado, solo tienes que configurarla para que "teclee" o no los digitos de control y añada o no un salto de linea al final, solo eso) me hice un tutorial para que mis clientes supiesen como configurar la pistola y esas cosas, ademas, añadi al final un "como hacerse un codigo de barras en casa con un boli y paciencia", donde explica paso a paso como se calculan esos digitos de control y como se convierte todo eso a rayas (yo no uso fonts, lo dibujo "a pelo" sobre el canvas, pero eso fue por pura necesidad), asi que te recomiendo que te leas por encima el principio (configurar la pistola) y el final (como funciona el codigo de barras), aunque en mi caso no era para el mismo formato que el tuyo (EAN/UPC-A).

http://www.hcsoft.ne...cer&hoja=barras

Aparte de esta aportación "personal", tengo aun almacenados los links que en su dia encontre sobre los detalles de cada formato de codigo de barras, es informacion muy dificil de localizar por alguna razón, asi que te puede venir bien (busca en ellos tu formato a ver que te dicen de el).

Este primero lista los estandares existentes, con una imagen de ejemplo, y te da informacion basica como largo del codigo y si lleva o no digitos de control: http://www.inliteres..._standards.html

Este es un software de pago con version free que te permite generar el codigo de barras correctamente, y asi poder compararlo con el que genera tu programa, de forma que hasta que no te coincida, algo va mal (no recuerdo bien, pero creo que la ayuda que trae el programa tambien me sirvio de algo): http://www.barcodema...demagic/windows

Mas cosas interesantes: Tengo un documento (.DOC) con el estandard ISO de los formatos EAN/UPC, es muy tecnico, y ademas veo que es del 2000 y que NO incluye los alfanumericos... pero sirve para aclarar cualquier duda sobre los codigos numericos. El documento viene "etiquetado" como ISO/IEC FDIS 15420:2000(E) así que supongo que en google se podrá localizar....  vaya, si que lo encontre, a solo 136 euros el PDF! (use PM, Luke!)

Tambien tengo guardado un rpmdbarcode.pas (TRpBarcode printable component de un tal toni@pala.com) que SI que incluye el EAN 128c, dice estar basado en BarCode (The component is based in Barcode component Version 1.3), asi que si lo necesitas, te puedo enviar la unidad.

Bueno, y finalmente tengo mi propio codigo para crear strings usables en UPC-A (11 digitos), que os pongo por si os es de utilidad a alguien.

delphi

// *******************************
// ** Codigos de barras "UPC A" **
// *******************************
//
// Funciona en 3 fases:
// -El numero se completa/recorta a 11 digitos con ceros a la derecha.
// -Se calcula el digito de control y se añade como el digito 12
// -Se convierte a una secuencia de 1,2 y 3 que son los grosores de las barras.
 
//A partir de una lista de numeros, los ajusta a 11 de largo y le añade el digito de control
function BarrasAddDC(var Cod: string): string;
var i, Num, CheckSum: integer;
begin
  //Solo se admiten digitos...
  if not IsInteger(Cod) then begin
    result:= Cod;
    exit;
  end;
  //No se pueden impimir mas de 11 digitos...
  if length(Cod)>11 then
    raise EHCException.create('Intenta generar un codigo de barras de mas de 11 digitos ('+NT(Cod) +
                              '), pero solo se admiten 11.');
  //Añado ceros al principio...
  Cod:= Copy(Cod,1,11);
  while length(Cod)<11 do Cod:= '0'+Cod;
  //Calculo el digito 12 (el checksum)
  CheckSum:= 0;
  for i:= 1 to length(Cod) do begin
    Num:= StrToInt(copy(Cod,i,1));
    Checksum:= CheckSum + Num * iif((i mod 2)=1, 3, 1);
  end;
  CheckSum:= 10 - (CheckSum mod 10);
  if (CheckSum=10) then CheckSum:= 0;
  //Sumo este digito extra al final
  result:= Cod + IntToStr(CheckSum);
end;
 
//Convierto 12 digitos en una lista de barras de grosor 1,2 o 3, la primera
//barra se pinta negra, la siguiente blanca, etc. (Formato "UPC A")
function Txt2Barras(Cod: string): string;
var i, Num: integer;
const
  Codes: array [0..9] of string = ('3211', '2221', '2122', '1411', '1132',
       '1231', '1114', '1312', '1213', '3112');
  IniCode: string = '111';   //Se pinta al principio y al final
  MedCode: string = '11111'; //En medio de los 12 numeros
begin
  result:= '';
  //Aqui me tiene que llegar un texto con 12 digitos
  if not IsInteger(Cod) then
    raise Exception.create('Intenta generar un código de barras con letras ('+NT(Cod)+
                           '), pero solo se admiten números.');
  if length(Cod)<>12 then
    Cod:= BarrasAddDC(Cod); //Compatibilidad para atras
    //raise Exception.create('Intenta generar un codigo de barras que no es de 12 digitos ('+Cod+'), pero solo se admiten 12.');
  //Codigo de barras en formato "UPC A"
  //
  //Este sistema imprime solo numeros, maximo 11, en la forma 1+5+5+1 = 12
  //numeros, tu le pasas X, el añade ceros al principio hasta tener 11, y
  //el ultimo es un digito de control.
  //
  //Ademas, se generan 6 digitos a barras, se añaden 5 lineas finas (cinco unos)
  //y luego se añaden los otros 6 digitos, que salen en negativo porque hemos
  //añadido un numero impar de barras en medio.
  //
  //Construyo la lista de barras a dibujar.
  //Cada digito es una barra, la primera negra, luego blanca, etc, y cada
  //digito es un grosor (1=fino, 2=medio, 3=gorda).
  //
  //Se empieza con 3 unos...
  result:= IniCode;
  //Luego vienen los 6 primeros digitos, 11111 y luego los ultimos 6
  for i:= 1 to 12 do begin
    Num:= StrToInt(copy(Cod,i,1));
    result:= result + Codes[Num];
    //Lineas finas de la mitad...
    if (i=6) then
      result:= result + MedCode;
  end;
  result:= result+IniCode;
end;

[eduarcol]

Para que no te enrrolles con los digitos de verificacion y la estructura del codigo imprime directamente en CODE39 y no vas a tener ningun tipo de problema

[r1d2m3]

El problema es que debo codificar una cadena alfanumérica de 38 caracteres, por eso es que no puedo usar un CODE39. Para ser mas explícito, lo que deseo codificar es un GUID, que tiene la siguiente apariencia = {035C9595-1BF8-4A53-A44A-61FB7771D286}, a lo sumo, puedo quitar las llaves de apertura y de cierre ya que las mismas no son parte del guid, es decir, siempre estarán ahí.

[Marc]

La verdad es que un GUID es enorme así que no sé si podrás comprimirlo en un código de barras de tamaño razonable (desde luego el Code 39 no es viable).

¿ Has probado con algún componente específico de códigos de barras ?. A mi los códigos de barras incorporados en reports Fast-Report nunca me han dado ningún problema (aunque nunca he probado códigos tan largos).

http://www.fast-repo...streport-4.html

Saludos

[r1d2m3]

Hola a todos nuevamente, sigo enfrascado en el tema Códigos de Barra, avanzando con las pruebas, abandoné la idea de codificar un número guid, la voy a sustituir por un número generado de forma secuencial que tendrá cierta construcción tal como año+provincia+juzgado+secuencia numérica tomando 4 dígitos para el año, 2 para provincia, 3 para juzgado y 7 para secuencia numérica. Por su largo, sigo necesitando codificar un code128, mi problema es el siguiente: ¿alquien tiene el código del algoritmo del dígito verificador para el code128c que es el que debería usar para codificar solo números? y por último, ¿que fuentes utilizan ustedes?, yo me bajé unas pero no me resultan de confianza, revisando que valores están codificados, veo que le faltan algunos caracteres.

Desde ya, muchas gracias y quedo a la espera de vuestros comentarios.

[andres1569]

Hola,

No puedo ayudarte con ese código code128, aunque bibliografía sobre el tema debe haber bastante en la web. Tampoco he usado fuentes para esto, sino los componentes que te recomendé y de los que escafandra te puso un enlace. Por lo que he mirado, ahora son de pago (shareware) también tienen una utilidad gratuita en su web que permite generar e imprimir  en varios códigos diferentes, entre los que está el de 128, sería bueno si lo probaras generando esa secuencia que te interesa y por lo menos cerciorarte de que el lector te reconoce las barras que te genere el programa.

Saludos

[Sergio]

Hola r1d2m3, como ya comenté, tengo una unidad .pas que sirve para varios tipos de códigos de barras incluido el 128C, te copio aquí todo el código.

NOTA: Parece que no puedo postear tanto código... se ve a medio en el foro... buscaré otra forma... lo teneis aqui: http://www.hcsoft.ne...rpmdbarcode.pas

delphi

{*******************************************************}
{                                                       }
{       Report Manager                                  }
{                                                       }
{       rpmdbarcode                                     }
{       TRpBarcode printable component                  }
{       Barcode implementation                          }
{                                                       }
{       Copyright © 1994-2002 Toni Martir             }
{       toni@pala.com                                   }
{                                                       }
{       This file is under the MPL license              }
{       If you enhace this file you must provide        }
{       source code                                     }
{                                                       }
{       The component is based in Barcode component     }
{       Barcode Component                               }
{       Version 1.3                                     }
{       Copyright 1998-99 Andreas Schmidt and friends   }
{       mailto:shmia@bizerba.de or                      }
{       a_j_schmidt@rocketmail.com                      }
{       Lisenced as Freeware                            }
{                                                       }
{       It has been revised added properties and        }
{       implementation for 128C optimized codebar       }
{                                                       }
{       September 2004 Added PDF417 2D barcode support  }
{       based on Turbo Power Systools codebase          }
{                                                       }
{                                                       }
{*******************************************************}
 
unit rpmdbarcode;
 
...lo pongo como fichero descargable...