CODIGO QR

87 views
Skip to first unread message

Rafael Flores Quezada

unread,
Mar 2, 2025, 2:14:56 PMMar 2
to mundovis...@googlegroups.com
que me podria estar pasando el generar un codigo qr e imprimirlo en reporte hecho en visual foxpro 9.0, resulta que no me imprimi el codigo actual de una factura siempre me imprime el código anterior, no actualiza el actual

ejemplo tengo el qr que imprime el número  E310000010, luego hago otra factura y genera correctamente el qr número E310000011, pero al hacer la impresión de la nueva factura imprime el número e310000010 y no el número E310000011 como corresponde. y así sucesivamente

haber quien me podría ayudar a resolver este problema.

Rafael Flores

E. Yep

unread,
Mar 2, 2025, 2:18:47 PMMar 2
to mundovis...@googlegroups.com
Revisa si tu rutina escribe el nombre del QR en una variable, y si está está actualizando cuando crea la nueva factura.

Saludos

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" 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 mundovisualfox...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAPBxm0nC6k%2BvjF-tW8uxfvvMczqEMfpNfcTFkM-QU%3DpxV7%3DLnQ%40mail.gmail.com.

Emmanuel Job Zeugtrager Lapa

unread,
Mar 2, 2025, 3:42:50 PMMar 2
to mundovis...@googlegroups.com

Creó que hay una función refresh, cada vez que asignas a una variable extraída de alguna tabla la actualizas con ésa function.


Rafael Flores Quezada

unread,
Mar 2, 2025, 3:44:46 PMMar 2
to mundovis...@googlegroups.com
Tengo esta retina

SET PROCEDURE TO LOCFILE("FoxBarcodeQR.prg") ADITIVE
LOCAL lcMiTexto, lcMiArchivoImagen, loQR, lcQR_Imagen
lcMiTexto = "https://ecf.dgii.gov.do/testecf/consultatimbre?rncemisor=101512441&rnccomprador=101723556&ENCF=E340000000202&FechaEmision=27-01-2025&montotoal=322.00&fechafirma=27-01-2025%2015:05:05&codigoseguridad=GMMxYX"
  lcMiArchivoImagen = Sys(5) + Curdir() + "MiImagenQR.PNG"
  loQR = CreateObject("FoxBarCodeQR")
  lcQR_Imagen = loQR.QRBarCodeImage(lcMiTexto, lcMiArchivoImagen, 6, 2)
  SET PROCEDURE TO
RETURN

asi se genera el qr en una imagen png, pero no me actualiza la imagen del nuevo qr y sale el anterior 

Gracias de antemano



Emmanuel Job Zeugtrager Lapa

unread,
Mar 2, 2025, 3:59:41 PMMar 2
to mundovis...@googlegroups.com

Puede estar generando ésa falla por estar usando una variable local..


Emmanuel Job Zeugtrager Lapa

unread,
Mar 2, 2025, 4:00:36 PMMar 2
to mundovis...@googlegroups.com

Proba el código con una variable aparté solo para que te aparezca el qr y ver si se actualiza.

HernanCano

unread,
Mar 2, 2025, 9:49:47 PMMar 2
to Mundo Visual FoxPro
No logro vislumbrar por qué usar una vble local sea el problema.

Lo q dices tiene sentido si hablamos de vbles públicas, pero estamos hablando de una vble local.... así q no llego......

HernanCano

unread,
Mar 2, 2025, 9:50:16 PMMar 2
to Mundo Visual FoxPro

Inmediatamente luego del REPORT FORM, utiliza

CLEAR RESOURCES MiImagenQR

o tal vez

CLEAR RESOURCES MiImagenQR.PNG

y nos cuentas.

Oscar M.Fernández

unread,
Mar 3, 2025, 2:24:53 AMMar 3
to mundovis...@googlegroups.com
Yo antes borraria el PNG........   

DELETE FILE  (lcMiArchivoImagen)  o no me acuerdo si es DELETE FILE &lcMiArchivoImagen





Cesar ST

unread,
Mar 3, 2025, 11:44:16 AMMar 3
to mundovis...@googlegroups.com
Hola Rafael, hay muchas formas de trabajar los QR.
En mi caso, yo prefiero generar el QR y guardarlo en un archivo .png y ya luego utilizar ese QR en donde quiera.

PARAMETERS pCodigoQR

*pCodigoQR = "20492470873|09|T002|1|1.80|11.80|2024-10-24|6|10088019844|mJZmx94lFFLbDO6jsWmhtQuuwCc="
* Define la URL y la ruta de destino de la imagen
lcDestinationPath = "\\999.999.999.9\docs\XML\QR\QR.png"
lcURL = "https://quickchart.io/qr?text="+ALLTRIM(pCodigoQR)+"&size=300"
DELETE FILE &lcDestinationPath.

* Crear el objeto XMLHTTP para manejar la solicitud HTTP
loHttp = CreateObject("MSXML2.XMLHTTP.6.0")

* Realizar la solicitud GET a la URL
loHttp.Open("GET", lcURL, .F.)
loHttp.Send()

* Verificar si la solicitud fue exitosa
IF loHttp.Status = 200
    * Crear un archivo binario y escribir los datos de la respuesta
    STRTOFILE(loHttp.ResponseBody, lcDestinationPath, 1)
*    WAIT WINDOW "Imagen descargada exitosamente en " + lcDestinationPath
*ELSE
*    WAIT WINDOW "Error al descargar la imagen: " + loHttp.StatusText
ENDIF

* Liberar el objeto para liberar recursos
RELEASE loHttp
RETURN

Cesar ST


El dom, 2 mar 2025 a las 14:14, Rafael Flores Quezada (<rafa...@gmail.com>) escribió:

Juan Pablo Iparraguirre Iparraguirre

unread,
Mar 3, 2025, 12:45:23 PMMar 3
to mundovis...@googlegroups.com
La cuestión es sencilla, escríbeme al WhatsApp 

Rafael Flores Quezada

unread,
Mar 3, 2025, 12:46:45 PMMar 3
to mundovis...@googlegroups.com

Gracias cesa, se genera el qr en el directorio del sistema, pero al momento de imprimir no se refresca la imagen con el actual que es el que debe salir


HernanCano

unread,
Mar 4, 2025, 11:20:15 AMMar 4
to Mundo Visual FoxPro
¿Viste lo q te escribí de  CLEAR RESOURCES?

El lunes, 3 de marzo de 2025 a las 12:46:45 UTC-5, Rafael Flores Quezada escribió:

Gracias cesa, se genera el qr en el directorio del sistema, pero al momento de imprimir no se refresca la imagen con el actual que es el que debe salir


jacv...@gmail.com

unread,
Mar 4, 2025, 9:16:39 PMMar 4
to mundovis...@googlegroups.com

Estimados

 

Creo un cursor “Prn_Deta” con un campo general y al crear el archivo grafico lo inserto en el campo para luego visualizarlo en el reporte

 

SELECT Prn_Deta

go TOP

if file(xtmp2)

         APPEND GENERAL barra_web FROM &xtmp2.

ENDIF

 

SELECT Prn_Deta

GO bott       && go TOP

if file(xtmp2)

         APPEND GENERAL barra_web FROM &xtmp2.

ENDIF

--

_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" 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 mundovisualfox...@googlegroups.com.

Reply all
Reply to author
Forward
0 new messages