Codigo QR con Easy Report

[leandro]

Buenas noches para todos:

De nuevo yo molestando,

Lo que pasa es que requiero realizar la impresión de un codigoQR desde EASY REPORT, en la versión FWH1903 viene un prg para compilar con la funciones propias de FWZEBRA.

qrcode.prg

http://demo.livingo.co/images/codigoqrddatosreales.png

Por pantalla se imprime perfectamente, ahora requiero hacerlo desde EasyReport.

De antemano gracias

[leandro]

Buenas tardes...

De nuevo yo molestando.

Lo que pasa es que requiero imprimir el código QR, estuve tratado de grabar ese archivo en el disco duro y luego pasarlo como imagen, pero hasta ahora sin éxito.Alguien sabe como hacerlo. El Código ejemplo es el siguiente:

Code: Select all

#include "fivewin.ch"

REQUEST FWZEBRA

//----------------------------------------------------------------------------//

function Main()

   local oWnd, cText, cPrg := cFileSetExt( ExeName(), "prg" )


    local cadena := "NumFac: 99999999 FecFac: 20190508 NitFac: 99999999"
    cadena := cadena + "DocAdq: 79777777 ValFac: 200000.00 ValIva: 0.00 ValOtroImp: 0.00 ValFacIm: 219000.00"
    cadena := cadena + "CUFE: cad2225ed6af9a94dc588d5a56bac"
    cText :=  cadena
   DEFINE WINDOW oWnd TITLE cPrg
   ACTIVATE WINDOW oWnd CENTERED ;
      ON PAINT oWnd:SayBarCode( cText, { 20,20,-20,-20 }, "QR-CODE" )

return nil

//----------------------------------------------------------------------------//
 

De antemano gracias