FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour QR-CODE
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
QR-CODE
Posted: Tue Apr 25, 2023 08:07 PM

Hola amigos !

Estuve leyendo en el foro sobre el tema pero no supe o no pude encontrar la solución completa a la impresión de QR.

Quiero imprimir un código QR con éste código:

@ 250, 165 PRINT TO oPrn TEXT cJason AS BARCODE TYPE "QR-CODE" SIZE 24,24 MM

y me imprime una mancha negra...

Luego un amigo me dice que incluya lo siguiente al comienzo del programa:

REQUEST FWZEBRA

Lo compilo de nuevo y el bc.log me da los siguientes errores:

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_EAN13' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_EAN8' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_UPCA' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_UPCE' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_ITF' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_MSI' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_CODABAR' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_CODE11' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_CODE39' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_CODE93' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_CODE128' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_PDF417' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_DATAMATRIX' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_CREATE_QRCODE' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_GETERROR' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_DESTROY' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

Error: Unresolved external '_HB_FUN_HB_ZEBRA_DRAW' referenced from C:\FWH2212\LIB\FIVEHX.LIB|FWZEBRA

¿ Que me estoy olvidando ?

Desde ya, muy agradecido. Pedro.

Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: QR-CODE
Posted: Wed Apr 26, 2023 03:21 AM
Mi estimado,,,,
no olvides linkar las librerias de zebra hbzebra.lib y al inicio del prg
Code (fw): Select all Collapse
REQUEST FWZEBRA  // required for barcodes
REQUEST FWHARU   // required for using HaruPdf
Posts: 137
Joined: Mon Oct 22, 2012 04:43 PM
Re: QR-CODE
Posted: Wed Apr 26, 2023 03:23 AM

this must be in buildx.bat

echo %hdirl%\hbzebra.lib + >> b32.bc

Regards



Ing. Anton Lerchster
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: QR-CODE
Posted: Wed Apr 26, 2023 11:07 AM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: QR-CODE
Posted: Thu Apr 27, 2023 06:29 PM

Estimados Willi y Alerchster:

Gracias por sus respuestas !

Si, me faltaba linkear esa librería.

Y karinha, gracias también por tu aporte !

Vos estás justo en el otro lugar del problema.

con la forma de la "QRCodelib.Dll"

Realmente traté de conseguir mi ojbetivo primero

con la propuesta de karinha (QRCodeLib.dll) y luego seguí por

la de Willi y Alerchster.

Pero les cuento...

Voy a ejemplificar el problema para no complicar más la cosa:

Este QR lo usamos muchos programadores argentinos por que lo utilizamos

en las facturas electrónicas que tuvimos que implementar por la AFIP.

Su contenido muestra la URL de la AFIP y los datos concernientes a la

factura com ser: nombre importe, número, CUIT, etc.,etc.,etc.

Con la QRCodeLib.dll

Armo los datos para enviar al la QRCODE() de la siguiente manera:

cOrigen:="https://www.afip.gob.ar/fe/qr/?p="

cJason:='{"ver":1,"fecha":"'+cFechaEmit+;

'","cuit":'+ xcuit_emi +;

',"ptoVta":'+AllTrim(Str(xemi))+;

',"tipoCmp":'+AllTrim(Str(tipoff,4,0))+;

',"nroCmp":'+AllTrim(str(xnum,8))+;

',"importe":'+cximp+;

',"moneda":"PES","ctz":1,"tipoDocRec":'+nDocTipo+;

',"nroDocRec":'+AllTrim(Str(xdni))+;

',"tipoCodAut":"E","codAut":'+wwcae+'}'

cJason=StrToBase64( cJason )

cOrigen=cOrigen+cJason

cDestino:="FactQR.bmp" //"FactQR.jpg"

QRCode(cOrigen,cDestino)

SayBitmap(25.0, 16.0, 2.5, 2.5, ".\factQR.bmp", oPrn ) // 1=altura, 2=márgen, 3 y 4 tamaño

Esta función de código QR es la que estuve usando con el fwh 17.09.

Ahora tengo el fwh 22.12 y no funciona más. ¿¿¿ !!! ???

Cuando compilo;

el bc.log me dá los siguientes errores:

Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.

Error: Unresolved external '_hb_parldef' referenced from C:\FWH2212\LIB\FIVEHC.LIB|STR2HEX

Error: Unresolved external '_hb_retclen_buffer' referenced from C:\FWH2212\LIB\FIVEHC.LIB|STR2HEX

Error: Unable to perform link

Y bueno, con éste tema estuve dando muchas, pero muchas vueltas y nada...

Gracias por su tiempo.

Abrazos !

Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: QR-CODE
Posted: Thu Apr 27, 2023 07:32 PM

Seguís con el problema?

Buscame en Skype como "jreduojeda" y trato de ayudarte.

Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: QR-CODE
Posted: Thu Apr 27, 2023 08:17 PM

fwh2212\samples\qrcode.prg

No se si pueda servirte de algo, yo compile ese ejemplo con fw2212 y funciona sin problema.

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) ]
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: QR-CODE
Posted: Fri Apr 28, 2023 01:35 AM

Estimado Pedro Luis

Con la librería hBZebra.lib, no necesitas QRCodeLib.dll, yo trabajo con la versión 2012 y funciona ok.....

Posts: 137
Joined: Mon Oct 22, 2012 04:43 PM
Re: QR-CODE
Posted: Fri Apr 28, 2023 03:17 AM

bcc version?

Regards



Ing. Anton Lerchster
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: QR-CODE
Posted: Fri Apr 28, 2023 04:21 AM

MI estimado..

BCC710

Posts: 137
Joined: Mon Oct 22, 2012 04:43 PM
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: QR-CODE
Posted: Thu May 04, 2023 01:11 PM
Gracias por todo señores !
Tengo fwh 22.12 y xharbour V.1.2.3

Todo éste lio pasa por lo siguiente:
La AFIP pide que coloquemos un QR en las facturas.

Y pide que lo armemos de la siguiente manera:

Especificación Técnica:
El código QR deberá codificar el siguiente texto:

{URL}?p={DATOS_CMP_BASE_64}

Donde:
{URL} = https://www.afip.gob.ar/fe/qr/

{DATOS_CMP_BASE_64} = JSON con datos del comprobante codificado en Base64

Texto codificado en el QR:
https://www.afip.gob.ar/fe/qr/?p=eyJ2ZXIiOjEsImZlY2hhIjoiMjAyMC0xMC0xMyIsImN1aXQiOjMwMDAwMDAwMDA3LCJwdG9WdGEiOjEwLCJ0aXBvQ21wIjoxLCJucm9DbXAiOjk0LCJpbXBvcnRlIjoxMjEwMCwibW9uZWRhIjoiRE9MIiwiY3R6Ijo2NSwidGlwb0RvY1JlYyI6ODAsIm5yb0RvY1JlYyI6MjAwMDAwMDAwMDEsInRpcG9Db2RBdXQiOiJFIiwiY29kQXV0Ijo3MDQxNzA1NDM2NzQ3Nn0=

JSON con datos del comprobante:
{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"ptoVta":10,"tipoCmp":1,"nroCmp":94,"importe":12100,"moneda":"DOL","ctz":65,"tipoDocRec":80,"nroDocRec":20000000001,"tipoCodAut":"E","codAut":70417054367476}

El tema es que no se como convertir a base64 los datos del json.

Antes del fwk v.22.12 lo convertía bien con laqrcodelib.dll y la función qrcode() y StrToBase64(),
Pero con el fwk 22.12 empieza a dar errores de compilación
y no se como convertir a base 64 el json...

Como siempre muy agradecido a todos. !!!
Pedro L. Lavallen

San Luis (Capital), Argentina
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: QR-CODE
Posted: Thu May 04, 2023 01:25 PM
Con xharbour, lo puedes hacer de dos maneras
Code (fw): Select all Collapse
local cBas64 := hb_base64encode(lacadena,len(lacadena))

//para un archivo mas grande
local rutapdf := ".\pdfs\"+Retorna_Caracter(vCsc)+".pdf"
local rutaTXT := ".\pdfs\"+Retorna_Caracter(vCsc)+".txt"

//CONVERTIMOS EL PDF A CADENA DE TEXTO ENCRIPTADA EN BASE64
fMimeEnc( rutaPDF, rutaTXT )
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) ]
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: QR-CODE
Posted: Thu May 04, 2023 05:47 PM

Hola, yo soy de Argentina y lo resolví usando la clase Harupdf, si necesitas código avisame y te lo mando junto con las librerías que tendrias que linkear

Saludos

Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: QR-CODE
Posted: Fri May 05, 2023 12:02 PM
horacio wrote:Hola, yo soy de Argentina y lo resolví usando la clase Harupdf, si necesitas código avisame y te lo mando junto con las librerías que tendrias que linkear
Hola Horacio !
Un gusto !
Si, por favor mandame la forma en que lo resolviste.
¿ Querés que te pase mi correo o lo adjntás aqui ?
Gracias. Un abrazo !
Saludos
Pedro L. Lavallen

San Luis (Capital), Argentina