FiveTech Software tech support forums

Posted: **Thu May 09, 2019 1:54 am**

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

Posted: **Thu May 09, 2019 10:19 pm**

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

FiveTech Software tech support forums

Codigo QR con Easy Report

Codigo QR con Easy Report

Re: Codigo QR con Easy Report