CODIGO QR
Rafael Flores Quezada
E. Yep
--
_______________________________________________________________
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
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
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
Emmanuel Job Zeugtrager Lapa
Puede estar generando ésa falla por estar usando una variable local..
Emmanuel Job Zeugtrager Lapa
Proba el código con una variable aparté solo para que te aparezca el qr y ver si se actualiza.
HernanCano
HernanCano
Inmediatamente luego del REPORT FORM, utiliza
CLEAR RESOURCES MiImagenQR
o tal vez
CLEAR RESOURCES MiImagenQR.PNG
y nos cuentas.
Oscar M.Fernández
Cesar ST
*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
Juan Pablo Iparraguirre Iparraguirre
Rafael Flores Quezada
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
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
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.
Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/18f67beb-ad17-4288-85cf-6cd9c8203cbbn%40googlegroups.com.