Ayuda: Me da error cuando intento hacer un código de barras con FoxBarcode

[Alejandro García Garay]

Hola, estoy intentando hacer un código de barra para un reporte que necesito, pero me esta dando un error, les paso la codificación que tengo:

 

En el INIT del formulario tengo

SET PROCEDURE TO "Clases\FoxBarcode\FoxBarcode_v_1_19\Source\gpImage2" ADDITIVE

SET PROCEDURE TO "Clases\FoxBarcode\FoxBarcode_v_1_19\Source\FoxBarcode" ADDITIVE

* Inicializar objeto

loFbc = NEWOBJECT("FoxBarcode")

 

En el botón de impresión tengo esta parte:

IF !EMPTY(lcCiaCode)

               lcNitCli = ALLTRIM(nitcli)

               lcNumLib = ALLTRIM(numlib)

               lcValor = PADL(TRANSFORM(vinversion), 10, "0")

               lcFechaMax = DTOC(vfecval, 1)

              

               lcCodBarra = "(415)" + lcCiaCode + "(8020)" + lcNitCli + "(8020)" + lcNumLib + "(3900)" + lcValor + "(96)" + lcFechaMax

 

               *-- Create FoxBarcode Object

               loFbc = CREATEOBJECT("FoxBarcode")

 

               *-- Object Properties

               WITH loFbc

                              .cText = lcCodBarra

                              .nBarcodeType = 159

                              .nFontSize = 7.5

                              .nImageHeight = 49

                              .nImageWidth = 720

               ENDWITH

              

               REPORT FORM &nreporte TO PRINTER PROMPT PREVIEW

Endif

 

lcCiaCode y nreporte esta llenos con los datos que necesito y esa parte funciona bien.

 

El error que me sale es este:

 

Ya verifique y setbrush esta en gpimage2.prg. Los dos prg están en el proyecto cargados y tiene la ruta cuando cargos los procedure ¿qué puede ser?

[Alejandro García Garay]

Se me olvido algo, cuando ejecuto el proyecto de foxbarcode para ver los ejemplos no se me presenta ese detalle.

[Sergio Rojas]

Nunca le presté mucha atención, porque funcionó de una desde que es obligatorio el QR

Lo pongo asi, en el load:

SET PROCEDURE TO codbar.prg, FoxBarcodeQR.prg
THIS.ADDPROPERTY("oFbc", NULL)
THIS.oFbc = CREATEOBJECT("FoxBarcodeQR")

En click del boton print:

img_qr = THISFORM.oFbc.FullQRCodeImage(cod_qr, , 330, 0)

Y en el report:

Saludos

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/0b746846-1480-41e5-b60b-49bd8a6e2585n%40googlegroups.com.

[Alejandro García Garay]

Gracias por la respuesta, pero ahora pregunto algo (antes de hacer algo) ¿con  FoxBarcodeQR puedo generar e imprimir codigo de barras EAN/UCC/GS1-128?

[Alejandro García Garay]

Saludos.

Paso para comentarles que ya encontré el detalle, el problema se presentaba por que una función en un prg que se tenia previamente en el programa tenia una función con el mismo nombre, en la ejecución cargaba era ese y no el que estaba en gpimage2, por eso generaba el error. MOdifique ese nombre del otro prg y se pudo sacer correctamente el impreso.

Gracias a todos, gracias por las respuestas.