FiveTech Support Forums

#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

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

 #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"

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

#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

#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

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

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