topic-37146

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Codigo QR con Easy Report
Posted: Thu May 09, 2019 01: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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Codigo QR con Easy Report
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 (fw): Select all Collapse

#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 Support Forums

Continue the discussion