QR-CODE

[pedroluis]

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.

[Willi Quintana]

Mi estimado,,,,
no olvides linkar las librerias de zebra hbzebra.lib y al inicio del prg

Code: Select all | Expand

REQUEST FWZEBRA  // required for barcodes
REQUEST FWHARU   // required for using HaruPdf
 

[alerchster]

this must be in buildx.bat
echo %hdirl%\hbzebra.lib + >> b32.bc

[karinha]

Pedro, prueba con estes también:

https://mega.nz/file/BAV10C4C#GA42Kq5Jd ... v7OfHpG3MM

https://mega.nz/file/cdkXkYqb#57cUNmXXI ... QxLS9vMzOA

Regards, saludos.

[pedroluis]

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 !

[jrestojeda]

Seguís con el problema?
Buscame en Skype como "jreduojeda" y trato de ayudarte.
Saludos,

[leandro]

fwh2212\samples\qrcode.prg

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

[Willi Quintana]

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

[alerchster]

bcc version?

[Willi Quintana]

MI estimado..
BCC710

[alerchster]

maybe that this help
https://forums.fivetechsupport.com/view ... IB+STR2HEX

[pedroluis]

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=eyJ2ZX ... M2NzQ3Nn0=

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. !!!

[leandro]

Con xharbour, lo puedes hacer de dos maneras

Code: Select all | Expand

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 )

[horacio]

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

[pedroluis]

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