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.

[Alejandro García Garay]

Hace un par de días publique esta solicitud. Pense que lo había solucionado pero no, aún me es esta saliendo y he buscado información para darle solución y nada.

Nuevamente pregunto si alguien tendría idea de lo que me puede estar pasando. Tengo VFP 9 sp2 corriendo en Windows 11

[Zarlu]

Buenos días Alejandro!

Hice pruebas con tu código inventando datos de las variables faltantes. Sin problema desde un PRG.

No mandé a un reporte. Almacené la imagen en el directorio de ejecución.

VFP9 SP2 W11

sCurDir = FULLPATH(CURDIR())
SET PATH TO (sCurDir)
SET PROCEDURE TO LOCFILE("FoxBarcode.prg"), LOCFILE("gpimage2.prg") ADDITIVE
lcCiaCode="1"
IF !EMPTY(lcCiaCode)
lcNitCli = "2"
lcNumLib = "3"
lcValor = "999999999"
    lcFechaMax = DTOC(DATE(), 1)

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

    loFbc = CREATEOBJECT("FoxBarcode")

    WITH loFbc
.cText = lcCodBarra
.nBarcodeType = 159
.nFontSize = 7.5
.nImageHeight = 49
                .nImageWidth = 720

                .cTempPath=sCurDir
                .lDeleteTempFiles = .F.
    ENDWITH
*lcImage = loFbc.BarcodeImage(lcCodBarra)&&funciona
*= loFbc.BarcodeImage(lcCodBarra)&&funciona
= loFbc.BarcodeImage()
Endif

Suerte

zarlu

Chetumal, Quintana Roo, México

[Alejandro García Garay]

Gracias, voy a probrar con este para ver si me da. También voy a desacargar nuevamente la versión más renciente que encuentre de la librería.