CREAR CODIGO QR E IMPRIRLO EN FACTURAS

[juan fco. vasquez Mendoza]

Saludos, como puedo crear el código QR e imprimir por el creador de reportes de fivewin y facturas en impresoras de rollos.

Gracias anticipadas,
Namaste

[surGom]

Mira yo uso qrfacil que es de uso gratuito y lo hizo Sergio
Catellari
El mail es [email protected]

Luis

[surGom]

Perdón es Castellari

Luis

[karinha]

Librería QR: Asegúrate de tener QRCodelib.Dll o usar hbzebra.lib en versiones modernas de Harbour/FWH para la función QRBitmap.

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION GenerarQR( cText, cFile )
   // cText: Datos de la factura (ej: "ID:123;Total:100;...")
   // cFile: Nombre de archivo de salida, ej: "factura.bmp"
   

   // Esta función genera la imagen del código QR
   QRBitmap( cText, cFile ) 
RETURN NIL

Code: Select all | Expand

METHOD PrintFactura( oSender ) CLASS TFacturacion
   LOCAL oPrn, oFont, oPen
   LOCAL cQRFile := "tempqr.bmp"
   

   // 1. Generar la imagen QR
   GenerarQR( "Factura Nro 100 - Total: $500", cQRFile )

   // 2. Iniciar impresión
   PRINT oPrn PREVIEW
      DEFINE FONT oFont NAME "Arial" SIZE 0, -10
      PAGE
         // ... Otros datos de la factura ...
         

     // 3. Imprimir el código QR en la posición deseada
     // oPrn:SayBitmap( nRow, nCol, cFile, nWidth, nHeight )
     oPrn:SayBitmap( 10, 10, cQRFile, 150, 150 ) // Ajustar tamaño según necesidad
     
  ENDPAGE
   ENDPRINT
   

   // 4. Borrar archivo temporal
   FErase( cQRFile )
RETURN NIL

EasyReport: Si usas Easy Report, el componente de imagen puede cargar directamente el archivo BMP generado.

~fivetec1/forums/viewtopic.php?t=44068

https://fivewin.com.br/index.php?/topic ... codigo-qr/

https://www.fivetechsoft.com/forums/vie ... hp?t=37146

https://a3responde.wolterskluwer.com/es ... asesor-Ges

Dudas, pregunte!

Regards, saludos.

[juan fco. vasquez Mendoza]

Saludos Karina, gracias

Domde consigo esas libreria DLL , puedes eviarla por aqu para descargar, mi correo es [email protected]

enviala al se te agradece.

[juan fco. vasquez Mendoza]

Gracias SunGom

[karinha]

Code: Select all | Expand

 #include "fivewin.ch"

Function TesteQRCode()

Local cStr := "Conteudo do seu QR Code Aqui (PIX, URL, etc)"
Local cFile := "qrcode.bmp"
Local oDlg, oBmp

// Chama a função da DLL para gerar o arquivo BMP
QRCode(cStr, cFile)

DEFINE DIALOG oDlg FROM 0,0 TO 300,300 TITLE "Exibir QRCODE" PIXEL

// Exibe o BMP gerado
@ 10,10 BITMAP oBmp FILE cFile OF oDlg Size 200,200 Pixel NOBORDER

ACTIVATE DIALOG oDlg CENTERED

Return Nil

// Declaração da DLL
DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"

https://fivewin.com.br/index.php?/topic ... -rochinha/

https://www.fivetechsupport.com/forums/ ... hp?t=27772

Regards, saludos.

[karinha]

Download:

https://mega.nz/file/BAV10C4C#GA42Kq5Jd ... v7OfHpG3MM

Regards, saludos.

[juan fco. vasquez Mendoza]

Saludos Karina, da error esta función falta
Error: Unresolved external '_HB_FUN_QRBITMAP'

tengo en el directorio QRCODELIB.DLL
uso FWH 25.6

Gracias

[karinha]

Use:

QRCode(...)

Code: Select all | Expand

DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"

Creo que funcionará.

Regards, saludos.

[karinha]

Ejemplo:

Code: Select all | Expand

#include "FiveWin.ch"

function Main()
   local oDlg, oBmp, oFont
   local cCode := "https://www.fivetechsoft.com" // Texto do QR Code
   local cBmpFile := "qrcode.bmp" // Arquivo temporário

   // --- AQUII: Chame sua função geradora de QR Code para criar cBmpFile ---
   // Ex: HBQRCODE( cCode, cBmpFile )

   DEFINE Font oFont NAME "Verdana" SIZE 0, -14
   DEFINE DIALOG oDlg TITLE "Gerador de QR Code" SIZE 350, 400

   // Exibir o bitmap no diálogo
   @ 10, 10 IMAGE oBmp FILE cBmpFile OF oDlg SIZE 150, 150 PIXEL NOBORDER
   oBmp:lTransparent := .t.

   @ 170, 10 SAY "Código:" OF oDlg PIXEL FONT oFont
   @ 190, 10 GET cCode OF oDlg PIXEL FONT oFont

   ACTIVATE DIALOG oDlg CENTERED

return nil

Regards, saludos.

[karinha]

Nuevas versiones de FWH, 25.05 por ejemplo:

Code: Select all | Expand

#include "FiveWin.ch"

REQUEST FWZEBRA // Indispensável para desenhar QR Code

Function Main()

local oDlg, hBmp, oImg
local cTxt4QR := "https://www.fivetechsoft.com"

// Gera o QR Code em um Handle de BitMap
hBmp := FW_BarCodeBmp( cTxt4QR, "QRCODE", 250, 250 )                

DEFINE DIALOG oDlg SIZE 300,300 PIXEL TRUEPIXEL TITLE "QR Code Example"

@ 20,20 XIMAGE oImg SIZE -20,-20 OF oDlg PIXEL RESOURCE hBmp

ACTIVATE DIALOG oDlg CENTERED

DeleteObject( hBmp ) // Limpar memória
return nil

Regards, saludos.

[karinha]

C:\FWH2603\samples

Code: Select all | Expand

20/03/2026  18:43               490 qrcode.prg
20/03/2026  18:43             3.236 qrcode2.prg

Regards, saludos.

[acuellar]

Estimado juan fco.

Sólo tienes que hacerlo así

Code: Select all | Expand

REQUEST FWZEBRA //Debe ir al comienzo
....
cCode:="Datos de la factura"
@nLn+.4,17.4  PRINT TO oPrn TEXT cCode AS BARCODE TYPE "QR" SIZE 2.0,2.0 CM

Tienes que incluir la LIB hbzebra.lib
No necesita de singún DLL

[karinha]

viewtopic.php?p=276798&hilit=FW_SaveImage#p276798

Regards, saludos.