Generar/Imprimir código QR

[Juan Miguel Solis]

Hola a todos

Ya estoy liado con el tema del verifactu en España :( :( , por favor alguien tiene un manual con algún ejemplo sobre lo que tendría que instalar en el ordenador para poder crear un código QR (por favor si pudiera ser enviarme un ejemplo), es que esto me ha pillado de sorpresa total.

Gracias anticipadas y un saludo.

[Carla Ortiz]

Hola,

Yo tengo facturación electrónica con código QR todo en foxito, pero estoy llegando a casa todavía en 4 horas, y recién entonces te lo podría pasar.

--
_______________________________________________________________
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/e8cd4ea9-e24a-4a45-805f-c6f179a04becn%40googlegroups.com.

[Juan Miguel Solis]

Te lo agradecería muchísimo sobre todo saber que instalar y algún ejemplo,  yo tengo VFP 9.2 ultima versión.

[Carla Ortiz]

intentare conectarme a mi maquina

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/b5cf99ed-d0cb-474b-b4fa-7277749eb05cn%40googlegroups.com.

[Carla Ortiz]

Uso el FoxBarcodeQR

PUBLIC cCodifica AS String
llSinValor = .F.
lnTotal = ALLTRIM(TRANSFORM(Thisform.txttotal.Value,"99999999.99"))
lcDNI = IIF(!EMPTY(ALLTRIM(Thisform.txtruc.Value)), '6', '')
cCodifica = xxRuc + '|' + '01' + '|' + ;
ALLTRIM(Thisform.txtserie.Value) + '|' + ALLTRIM(TRANSFORM(thisform.txtnumero.Value)) + '||' + ;
lnTotal + '|' + DTOC(TTOD(Thisform.txtfechaHora.Value)) + '|6|' + ;
ALLTRIM(Thisform.txtRuc.Value) + '|' + ALLTRIM(boletas.digestValue)
*+ '|' + ALLTRIM(boletas.SignatureValue)

PRIVATE poFbc
m.poFbc = CREATEOBJECT("FoxBarcodeQR")

cFileNamePDF = ADDBS(FULLPATH(xxpdf)) + xxRuc + '-01-' + ALLTRIM(Thisform.txtserie.Value) + '-' + ALLTRIM(TRANSFORM(thisform.txtnumero.Value)) + '.pdf'
print2pdf(cFileNamePDF, "D:\SistPQ\report\facturaetpdf.frx")

IF FILE(cFileNamePDF)
=MESSAGEBOX("Se a creado el archivo " + cFileNamePDF, 48, "Success!")
ELSE
=MESSAGEBOX("Print2PDF Failed!", 16, "Sorry")
ENDIF

SELECT BoleRepo
GO TOP

IF PRINTSTATUS()
lcFormat = ADDBS(FULLPATH(".\report")) + 'facturaet.frx'
REPORT FORM (lcFormat) PREVIEW &&PRINTER
ENDIF 

[Carla Ortiz]

El gmail no me deja adjuntar el dll

[Carla Ortiz]

busca esta libreria barcodelibrary.dll, intente enviarla zipeada pero el gmail me bloque el archivo

[Carla Ortiz]

*------

Intente enviarte la libreria pero el google no permite cargar el archivo por seguridad

El mar, 25 nov 2025 a la(s) 2:57 p.m., Juan Miguel Solis (solis.ju...@gmail.com) escribió:

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/b5cf99ed-d0cb-474b-b4fa-7277749eb05cn%40googlegroups.com.

[Juan Pablo Iparraguirre Iparraguirre]

Aqui encontraras la libreria BarCodeLibrary.rar, descomprimir y copiar en la carpeta de tu proyecto, pronto colocaré mas recursos.
https://drive.google.com/drive/folders/1xaT6P9wv95hDdqQ5wTBcj5xhXFtUNZWI?usp=sharing

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH2fBLDHt3cqZnW_CdOibsGzoWea%3DTKkcFC8JO%2Bust2NhQ%40mail.gmail.com.

--

----

Juan Pablo Iparraguirre Iparraguirre

Consultor T.I. - Developer

Cel. +51 965 218 114 / +51 935 882 657

iparrag...@gmail.com

Cajamarca - Perú

www.actividaddigital.com

[Juan Miguel Solis]

Buneos dias

Ya la encontre ¿dónde la tengo que poner ?  ¿Es necesario registrarla ?  hay para 32 y 64 bits o da igual con esta libreria vale?

Gracias por decirme y ayudarme :)

Has recibido este mensaje porque estás suscrito a un tema del grupo "Mundo Visual FoxPro" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/mundovisualfoxpro/0xXdWrYBOdk/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH1vL_Mpeqet_v4W%2BC0MaYb66_RRWuPzjkTXpjnnZj_Pzw%40mail.gmail.com.

[Carla Ortiz]

No, no tienes que registrarla y me funciona para 32 y 64 bits, la copias en la carpeta del proyecto y listo, es muy fácil.

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44WChrA-htquKCaTvHjYj4mb66dcabvbYcxPGZfKme-gag%40mail.gmail.com.

[Juan Miguel Solis]

Ok, entonces la añado al proyecto y dejo además la librería donde esté el ejecutable no ?

Un saludo

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH21UCNmYt0GK7BdX5M9cHMDCfNrKeKMah_booEmsBJQ2g%40mail.gmail.com.

[Juan Miguel Solis]

Por cierto de donde eres ? :)

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH21UCNmYt0GK7BdX5M9cHMDCfNrKeKMah_booEmsBJQ2g%40mail.gmail.com.

[Carla Ortiz]

Ese es el reporte, agregas el control OLE y le das el tamaño adecuado.

Suerte!

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44XeNHgCCB_Mg-0yfZwf7sF7NpHKPNpeQnz_Sa1HT-FuEw%40mail.gmail.com.

[Juan Miguel Solis]

Ok, gracias ya me la baje a ver que soy capaz de hacer :) :)

Un saludo

Has recibido este mensaje porque estás suscrito a un tema del grupo "Mundo Visual FoxPro" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/mundovisualfoxpro/0xXdWrYBOdk/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CADk7hz6Oj9VoQDXdC49V1xvR8UgLZ4E0HUD9pFt_q3Wzx0Pdpg%40mail.gmail.com.

[Carla Ortiz]

De Perú :), y tu?

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44XeNHgCCB_Mg-0yfZwf7sF7NpHKPNpeQnz_Sa1HT-FuEw%40mail.gmail.com.

[Juan Miguel Solis]

De madrid , España, yo conozco mucho Peru :) :) visite Cuzco, Machu Pichu, Cañon del Colca, Tambomachai, Ollamtaitambo (no se si lo escribi bien) :) :)

Pues nada, si un dia vienes por aquí (Madrid - España), tiene un par cervezas aseguradas :) :)

Un saludo

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH0LBfY8jCL4LcHww7v_kLGqbv5Pv%2BfSMuDYCkN4ofB1CQ%40mail.gmail.com.

[Martín Pesce]

Muchas gracias Juan Pablo, vino muy bien el enlace

Saludos

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CADk7hz6Oj9VoQDXdC49V1xvR8UgLZ4E0HUD9pFt_q3Wzx0Pdpg%40mail.gmail.com.

[boqu...@gmail.com]

Hola! el tema de verifactu lo teneis solucionado alguno? yo trabajo con VFP, SQL SERVER Y CRYSTALREPORT XI para los informes.

la automatización para subir las facturas a la agencia tributaria la habéis hecho con VFP o habéis utilizado otro lenguaje? 

estaba pensado en hacer algo con c#

agradecería me orientarais un poco en esto. puesto que preferiría hacerlo con VFP.

saludos

Joaquín.

[Juan Miguel Solis]

Buenos días, yo al final y por la premura de tiempo opté por coger una empresa que te valida los datos, verifica con hacienda el verifactu, te devuelve la confirmación y también te devuelve la información para generar la información del QR, así el ERP nuestro no que tocarlo  mucho.

Esa es la opción que yo cogí, porque con el tiempo que queda no podía hacer más.

Un saludo 

Has recibido este mensaje porque estás suscrito a un tema del grupo "Mundo Visual FoxPro" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/mundovisualfoxpro/0xXdWrYBOdk/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/df0665e2-4e0a-4e5f-830b-de46d0574575n%40googlegroups.com.

[Juan Miguel Solis]

Hola Carla

Algo no me funciona :( , es como si me faltara definir en algún sitio la BarCodeLibrary.dll

El código es este, para probar cree la variable cImgQR, para poner un texto por ejemplo.

PRIVATE poFbc

m.poFbc = CREATEOBJECT("FoxBarcodeQR")

cImgQR = 'TESt de prueba 1234567890'

If seek( cImpreso, 'IMPRESOR', 1 )
wait ' Impresora : ' + alltrim(IMPRESOR.IMP_IMPR) + '   ' wind at 15,15 timeout 3
cPrinter2 = alltrim(IMPRESOR.IMP_IMPR)
thisform.hide
select TMPFACTU
go top
SET PRINTER TO NAME '&cPrinter2'.
KEYBOARD '{CTRL+F10}' PLAIN CLEAR
report FORM ( cListado ) to printer prompt
else
thisform.hide
KEYBOARD '{CTRL+F10}' PLAIN CLEAR
report FORM ( cListado ) to printer prompt
ENDIF

Al ejecutarlo me arroja  este error:

Asi lo tengo puesto en el report.

La BarCodeLibrary.dll , tengo tanto en donde esta la aplicación funcionando (donde están los DBF's y ejecutable). 

  Cuando dices añadirla al rpoyecto a que te refieres ?  

 

Un saludo

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH1fHsQEE1N_qCUywYbScsgX1%3D54ZZVh1HNk0pvyiZAYMw%40mail.gmail.com.

[Carla Ortiz]

Hola Juan, has mapeado tus rutas

faltaban los .prg, sorry 😁, mapea tus rutas donde copies el prg.

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44V4c34MUSUS9AJFsCrmw-4hfSLmGXyPjQvjxqQWMdXaAQ%40mail.gmail.com.

[Juan Miguel Solis]

Hola Carla

Estos 2 ficheros los añado a proyecto ?  los añado donde tengo otros PRG y ya ?

Un saludo

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH2VzVgq1L-km1deYX6vQu38pCL662t8irzc5dCGrggEbA%40mail.gmail.com.

[Carla Ortiz]

puedes ponerlo en la carpeta donde guardas tus prgs, claro que debe estar mapeada con el set procedure 

yo hago asi

 SET PATH TO Fuentes, Clases, Reportes, INCLUDE, menus, Programas, Imagenes, Otros, progs
SET PROCEDURE TO prgmisfunciones, funciones, utility, foxbarcodeqr.prg ADDITIVE
SET CLASSLIB TO MAIN, TSGEN, NADA, seguridad

Saludos

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44W0eJCQcvzLGDAbBMsbQHRmNqF-ohm6XmoSKSS3kEooyg%40mail.gmail.com.

[Juan Miguel Solis]

Hola Cara

Ya los puse, pero ahora me da este error:

No se que puede pasar que yo vea no falta ningún paréntesis.  Creo que lo puse igua l que tu.

Un saludo

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH2VzVgq1L-km1deYX6vQu38pCL662t8irzc5dCGrggEbA%40mail.gmail.com.

[Carla Ortiz]

enviame tu codigo

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44XDjHw5YKTGxRY6uXCeThNddbBikg6%2BM5vJ4kXUD%3DJ8HA%40mail.gmail.com.

[Carla Ortiz]

quizás sea la coma ','

[Juan Miguel Solis]

La ',' en donde ?

despues de ese error si lo paso por alto me sale este

:(

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH3jEZRRjxh5jaUftfMf_WjRPhYTp98rdaSO6_nTJPnhmg%40mail.gmail.com.

[Carla Ortiz]

es depende del método de la agencia tributaria, antes yo lo hacia con soap, ahora es con Apis

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/df0665e2-4e0a-4e5f-830b-de46d0574575n%40googlegroups.com.

[Carla Ortiz]

mejor dame acceso a tu maquina 😃

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44Us1TcdUO9z1a3miKBNzAuVn6OPcy%2Bj0WUC7_AtkSirWg%40mail.gmail.com.

[Juan Miguel Solis]

Hola, Carla

Me imagino que ya no estaras :) :)

Cuantas horas hay ahora de diferencia con España ?

Si siguies por aqui, puedo darte acceso, yo uso anydesk

Un saludo

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH3zd_Wwox%2B5sNr2sAJFV96B%2B7Cs_myc18sU4pAa_2%3DPmQ%40mail.gmail.com.

[Carla Ortiz]

aqui son las 5:01 pm, estoy en oficina, enviame tu Anydesk

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44V8DJU1X33X%3DedLKcO_Aw%2BMeZa5zLupf4h564N39gwq%2Bg%40mail.gmail.com.

[Juan Miguel Solis]

329 637 642

Si tienes telefono con whatssap dime y te marco :)

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CAMqEdH3kQgzHSZAYs5FXpTKmr7DCC7DM1KuRWtcttpSWhFDgEQ%40mail.gmail.com.

[Juan Pablo Iparraguirre Iparraguirre]

Estimado Juan:
para usar el dll FoxBarcodeQR, sigue los siguietnes pasos:
1.- Coloca la DLL en la raiz de tu proyecto VFP.
2.- declara una variable publica para alojar un objeto
por Ejemplo:

PUBLIC oBarcode

2.- Crea el objeto. por ejemplo:

oBarcode = createobject('FoxBarcodeQR')

3.- con el objeto creado prodrás generar el QR.
Por ejemplo:

oBarcode.QrBarcodeImage("Aqui el contenido del QR","c:\working\nombre_iamgen_qr.jpg",5,1)

*Ahora si deseas capturar el valor de la ruta del archivo QR,puedes hacer lo siguiente

cNombreFileQR = oBarcode.QrBarcodeImage("Aqui el contenido del QR","c:\working\nombre_iamgen_qr.jpg",5,1)

Lo que te servirá oara que lo utilices en cualquier control del imagen en un reporte. Revisa la imagen adjunta.

* la ruta de la imagen la puedes definir de acuerdo a tus necesidades.

4.- Revisar si se ha generado el al archivo de imagen del qr utlizando el explorador de windows, eso a manera de validación.

Saludos.

Para ver este debate, visita https://groups.google.com/d/msgid/mundovisualfoxpro/CA%2BBv44VLd4_U8YJ8_jzZruvc6YyJFrJrAkphVwdVMKoMzmjtGQ%40mail.gmail.com.