CODIGO DE BARRAS

440 views
Skip to first unread message

mhlezama

unread,
Sep 5, 2016, 4:52:56 PM9/5/16
to Comunidad de Visual Foxpro en Español
Saludos amigos

He visto varios link con codigos de barras.  Pero creo que para algunos que no sabemos nada, nos vendría bien si alguien
pudiera explicar por donde podemos empezar.

Como se integra al vfp9, que hay que descargar, como se crean los codigos, etc.

gracias

Luis Maria Guayan

unread,
Sep 5, 2016, 5:37:07 PM9/5/16
to publice...@googlegroups.com

Lo mas sencillo para códigos de barras en VFP es utilizar FoxBarcode

En la página hay documentación y en el formulario demo de la descarga tienes algunas referencias sobre las distintas simbologias.

-- FoxBarcode --
https://sites.google.com/site/foxbarcode/foxbarcode

También puedes leer este artículo que utiliza fuentes TrueType

-- Códigos de barra en informes de Visual FoxPro --
http://comunidadvfp.blogspot.com/2001/02/codigos-de-barra-en-informes-de-visual.html


Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 05/09/16 a las 17:52, mhlezama escribió:

Gabriel Alija

unread,
Sep 6, 2016, 6:25:27 AM9/6/16
to publice...@googlegroups.com

Buenos días, cuales son los contras de usar truetype?

Luis Maria Guayan

unread,
Sep 6, 2016, 8:50:21 AM9/6/16
to publice...@googlegroups.com

Con fuentes TrueType no tienes tanto control con la altura y dimensiones de los códigos de barras, las simbologías libres y disponibles son muy pocas y si necesitas generar archivos PDF es todo un tema el embeber dichas fuentes en el documento.


Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 06/09/16 a las 07:25, Gabriel Alija escribió:

mhlezama

unread,
Sep 6, 2016, 4:04:09 PM9/6/16
to Comunidad de Visual Foxpro en Español
Saludos Luis

Descargue la aplicación y lo pude ejecutar en vfp9, entiendo que esto genera los codigos de barra de acuerdo a lo que uno escribe.
La pregunta sería:

Esta aplicación de BARCODE lo inserto en mi programa?

Como puedo crear las etiquetas de miles de libros que estan en el inventario? uno a uno?

Entiendo que este crea la etiqueta y entiendo que debo comprar el equipo para leer:  Pero como lo lee el vfp? como hago?

soy novato en esto

gracias

Jose Mario

unread,
Sep 6, 2016, 4:52:13 PM9/6/16
to Comunidad de Visual Foxpro en Español
yo quiero aprender tambien

hasta donde yo se
tenes un codigo interno, descripcion articulo   un codigo barra que lees en tu programa con un lector

la pregunta del millon, como armas tu codigo de barras para crear tus viñetas 

o los que ya la traen desde el proveedor estos codigos de barra se tienen que crear en tu tabla

entendistes o yo entendi

mhlezama

unread,
Sep 6, 2016, 6:24:20 PM9/6/16
to Comunidad de Visual Foxpro en Español
AL DESCOMPRIMIR veo unos FORMS y los ejecuto pero me da un error BARCODE


Auto Generated Inline Image 1

mhlezama

unread,
Sep 6, 2016, 7:11:24 PM9/6/16
to Comunidad de Visual Foxpro en Español
LOGRE DIRECCIONARLO pero talvez alguien me puede ayudar
necesito grabar el archivo PNG en un directorio y no en el temporal que cambios debo hacer?



SET PROCEDURE TO LOCFILE("Source\FoxBarcode.prg"), LOCFILE("Source\gpImage2.prg") ADDITIVE

*--- Create FoxBarcode Object
LOCAL loFbc, lcImage
m.loFbc = CREATEOBJECT("FoxBarcode")


*-- Set the properties
WITH loFbc
  .cImageType = "PNG"
  .nFactor = 3
  .nImageHeight = 100
  .lShowHumanReadableText = .T.
  .lDeleteTempFiles = .f. && Not delete the temporary folder and image files

ENDWITH


_CLIPTEXT = m.loFbc.cTempPath



*-- Generate image
m.lcImage = m.loFbc.BarcodeImage("1234567890")



*-- Create form
LOCAL loForm AS FORM
m.loForm = CREATEOBJECT("Form")
m.loForm.CAPTION = "FoxBarcode Example 6: TempFiles folder"
m.loForm.WIDTH = 800
m.loForm.HEIGHT = 400
m.loForm.AUTOCENTER = .T.
m.loForm.ADDOBJECT("Label1", "MyLabel")
m.loForm.Label1.CAPTION = "The temporary folder name is:"  + CHR(13) + ;
  m.loFbc.cTempPath + CHR(13) + "and is copied to the clipboard."
m.loForm.Label1.VISIBLE = .t.

m.loForm.ADDOBJECT("Image1", "MyImage") && The MyImage class definition is below
m.loForm.Image1.PICTURE = m.lcImage
m.loForm.Image1.VISIBLE = .T.
m.loForm.SHOW(1)
m.loForm = NULL
m.loFbc = NULL

RETURN





DEFINE CLASS MyImage AS IMAGE
  PROCEDURE DESTROY
    THIS.PICTURE = ""
  ENDPROC
ENDDEFINE

DEFINE CLASS MyLabel AS LABEL

  BACKSTYLE = 0
  HEIGHT = 100
  WIDTH = 800
  TOP = 120
  FONTSIZE = 14
  WORDWRAP = .T.
  FORECOLOR = RGB(255, 0, 0)

ENDDEFINE

Luis Maria Guayan

unread,
Sep 7, 2016, 1:38:20 PM9/7/16
to publice...@googlegroups.com

Para ello puedes utilizar el 2do. parámetro del método BarcodeImage() donde indicas la ruta y nombre de archivo a generar:

*-- Generate image
m.lcImage = m.loFbc.BarcodeImage("1234567890", "C:\Imagenes\MiBarcode.PNG")

Pego la documentación de estos parámetros en inglés, ya completaré la documentación en español que falta la parte de los métodos:


Methods

For the generation of the image, only one method should be called that generates the bar code image and returns the path and file name generated:

  • BarcodeImage(cTextToEncode, cFileNameImage, cPropertyList): Encodes the text and returns the file path of the bar code image generated.

All parameters are optional.

  • cTextToEncode: Text to encode.
  • cFileNameImage: Name the image file to generate. If none is specified, it generates a random file name in the folder Windows temporary files.
  • cPropertyList: The third parameter to set all the properties in a single line, separated by commas.

Now with the BarcodeTest() method we can validate the text to be encoded without the need to generate the image of the barcode:

  • BarcodeTest(cTextToEncode, cFileNameImage, cPropertyList): Validate the string to encode without generating the image.

All parameters are optional, and are the same as the BarcodeImage() method.

  • cTextToEncode: Text to encode.
  • cFileNameImage: As an image is not generated, this parameter is an empty string.
  •  cPropertyList: The third parameter to set all the properties in a single line, separated by commas.


Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 06/09/16 a las 20:11, mhlezama escribió:

Rodolfo Ortiz González

unread,
Sep 7, 2016, 2:00:52 PM9/7/16
to publice...@googlegroups.com
Mira, yo tengo ya en producción algo como lo que necesitas, te mando el código, está muy trivial, saludos!

PROC QRBAR
  SELECT TEMP
  GO TOP
    DECLARE INTEGER GenerateFile ;
     IN BarCodeLibrary.dll;
     STRING   cData, ;
     STRING   cFileName
  DO WHILE NOT EOF()
    VARFILE=ALLTRIM(QR)
    VCODIGOQR=VARFILE+".PNG"
    VARDIREC=SYS(2003)+"\"+VCODIGOQR
    GenerateFile(VARFILE,VARDIREC
    replace codigoqr with SYS(2003)+"\"+VCODIGOQR
    SKIP
  ENDDO
RETURN

En la tabla temp, tengo un campo que se llama QR, éste tiene el código de barras, puede ser un registro o varios, con la librería lo genero.

Con SYS2003 lo depósito en la carpeta actual, tu cambia eso a la carpeta a donde lo requieras, además en el campo codigoqr, pongo la ruta y el nombre del archivo generado.

Si tienes alguna duda me dices y lo revisamos, saludos.

mhlezama

unread,
Sep 7, 2016, 8:26:27 PM9/7/16
to Comunidad de Visual Foxpro en Español
FUNCIONA, pero la tercera propiedad que se pone?  cPropertyList?

mhlezama

unread,
Sep 7, 2016, 8:43:53 PM9/7/16
to Comunidad de Visual Foxpro en Español
Asumo que la imagen la guarda en disco y no en un MEMO y lo abres con la dirección y nombre del archivo

Rodolfo

unread,
Sep 7, 2016, 8:53:51 PM9/7/16
to publice...@googlegroups.com
Así es, físicamente guardo el archivo en el disco y hago referencia a él, en un campo, salu2

Enviado desde mi iPhone

Luis Maria Guayan

unread,
Sep 8, 2016, 8:27:50 AM9/8/16
to publice...@googlegroups.com

Mira la documentación que ya está actualizada: https://sites.google.com/site/foxbarcode

Allí hay un ejemplo del uso del "3er. parámetro"


Desde la versión 0.11 se agregó un 3er. parámetro al método BarcodeImage() que permite configurar varias propiedades, separadas por comas. El mismo ejemplo de arriba, con el uso del 3er. parámetro.

*-- Creo el objeto loFbc = CREATEOBJECT("FoxBarcode") *-- Genero la imagen con sus propiedades lcImagen = loFbc.BarcodeImage("","",[cText="123456789012", cImageType="PNG", nBarcodeType=110, cSet128="C", nImageHeight=100, nFactor=2])
 


Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 07/09/16 a las 21:26, mhlezama escribió:

Héctor Bernal

unread,
Dec 19, 2016, 10:38:16 PM12/19/16
to publice...@googlegroups.com
Buenas noches.

He intentado descargar foxbarcode, pero no me es posible ya que me aparece un mensaje indicando que se ha bloqueado porque puede contener virus o algún otro malware. Lo intenté con Chrome y Mozilla, pero el problema persiste. 



¿Habrá otra forma de descargarlo? ¿Otro sitio?

De antemano, gracias por su ayuda.



Saludos desde México, CDMX.
--

Saludos.

Héctor Hugo Bernal Díaz.

  |  04455 8530 4061   |   GAM 07040   |   Ciudad de México |

larue...@yahoo.com

unread,
Dec 19, 2016, 11:03:49 PM12/19/16
to publice...@googlegroups.com

--------------------------------------------
On Tue, 12/20/16, Héctor Bernal <hhber...@gmail.com> wrote:

Subject: Re: [vfp] CODIGO DE BARRAS
To: publice...@googlegroups.com
Date: Tuesday, December 20, 2016, 5:38 AM
Saludos.Héctor Hugo Bernal
Díaz.  |  04455
8530 4061   |   GAM 07040   |   Ciudad de México
|
xtremele - dreapta si stanga - au insotit evolutia social-economica si ilitica a Romaniei in epoca interbelica intr-un spectru foarte larg. Ele si-au aflat adele de cele mai multe ori in strainatate - corporatismul italian - fara a spune de o aderenta larga in tara cu exceptia unor elemente defavorizate onomic sau compromise politic.

Mario Oviedo

unread,
Dec 20, 2016, 8:07:01 AM12/20/16
to publice...@googlegroups.com
el problema es tu antivirus, desaptivalo 

El 19 de diciembre de 2016, 22:03, larueclapp via Comunidad de Visual Foxpro en Español <publice...@googlegroups.com> escribió:

--------------------------------------------
On Tue, 12/20/16, Héctor Bernal <hhber...@gmail.com> wrote:

 Subject: Re: [vfp] CODIGO DE BARRAS

Jean Pierre Adonis De La Cruz Garcia

unread,
Dec 20, 2016, 11:37:52 AM12/20/16
to Comunidad de Visual Foxpro en Español
Tengo la solucion a tu Problema, y no debes insertar ninguna libreria, solo puedes consumirla libremente de mi servidore web sin problemas, tanto en PDF417 o QR.

Lo unico que debes de cambiar es:
TOKEN="NO CAMBIAR ESA CADENA ES MODO GRATUITO
TIPO: PDF417 / QR
CODE: "CADENA QUE DESEAS CONVERTIR EN CODIGO DE BARRAS.

larue...@yahoo.com

unread,
Dec 20, 2016, 2:03:22 PM12/20/16
to publice...@googlegroups.com

--------------------------------------------
On Tue, 12/20/16, Jean Pierre Adonis De La Cruz Garcia <elconsultor...@gmail.com> wrote:

Subject: Re: [vfp] CODIGO DE BARRAS
To: "Comunidad de Visual Foxpro en Español" <publice...@googlegroups.com>
Date: Tuesday, December 20, 2016, 6:37 PM
Saludos.Héctor Hugo Bernal
Díaz.  |  04455
8530 4061   |   GAM 07040   |   Ciudad de México
|

nceputul Razboiului Crimeii a transformat tarile Romane in teatrul de desfasurare a unor mari operatiuni militare urmate de perioade lungi de ocupatie. Trupele ruse sosite aici in iunie 1853 erau obligate sa paraseasca Principatele intre aprilie-septembrie 1854 pentru a fi inlocuite cu trupe otomane si austriece acestea din urma prelungindu-si sederea pana la 30 martie 1857.

José Enrique Llopis

unread,
Dec 20, 2016, 3:51:54 PM12/20/16
to publice...@googlegroups.com

Un problema habitual es que al generar un fichero XML, a veces el usuario ha tecleado un carácter extraño, o a pegado el texto de Dios sabe donde o vete tu a saber, pero al final el resultado es que el XML da error, incluso aunque pongas el texto entre un grupo CDATA.

 

¿La solución? Obviamente validar el texto y verificar que, efectivamente sea conforme al estándar UTF-8, esto parece sencillo pero no encontré nada que lo hiciera y al final me puse, me puse… y he hecho una pequeña función que realiza esta validación.

 

Es versión 0.99 así que cualquier error ruego me lo reportéis, lo he testeado con textos en español y ruso, se incluyen tres ejemplos para poder probarlo.

 

Podéis descargarlo de la Web de Ed Leafe, la página de descargas está en esta dirección:  https://www.leafe.com/dls/vfp

 

Y tenéis que descargar  el fichero que pone:  Validate UTF-8 strings”, que por ahora es el primero.

 

Un abrazo a todos y mis mejores deseos para la Navidad y que el 2017 sea magnífico.

 

 

José Enrique Llopis

 

 

Luis Maria Guayan

unread,
Dec 21, 2016, 10:33:21 AM12/21/16
to publice...@googlegroups.com

Parece que es un problema de Chrome, que lo identifica como malicioso ya que el archivo comprimido contiene formularios de ejemplos con la extensión SCX lo que lo hace "peligroso".

Pero lo puedes descargar igual, mira las siguientes imágenes:



en el borde inferior derecho aparece el botón "Mostrar Todo" y cuando le das Click aparece la pantalla:



Solo debes hacer Click en el enlace "Conservar archivo peligroso" y listo.

Otra opción es utilizar otro navegador como Internet Explorer o Mozilla Firefox

La página directa de la descarga es: http://vfpx.codeplex.com/releases/view/56050


Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 20/12/16 a las 00:38, Héctor Bernal escribió:

Héctor Bernal

unread,
Dec 21, 2016, 12:00:13 PM12/21/16
to publice...@googlegroups.com
Buen día, Don Luis María.

A usted y a quien me propuso alternativas para descargar esa magnífica herramienta, les agradezco su ayuda, pues ya pude descargarla. Efectivamente, el Chrome y Mozilla, lo detectaban como peligroso con apoyo del antivirus.



Saludos desde México, CDMX.


Reply all
Reply to author
Forward
0 new messages