codigo QR

[Sergio Daniel Gudiño]

Buenas tardes grupo

Consulto si alguno de ustedes conocen alguna funcion para generar codigos QR o librerias que pueda manejar imagenes en mi aplicacion en modo consola
Esto es para la factura electronica afip

Desde ya muchas

[Michael Hagl]

Hi,

yout can use PageScript32 https://www.pagescript32.com
Function PSQrCode()

or

RQrCodex (http://www.java4less.com)

FUNCTION QrCode(nZeile,nSpalte,nHoehe,cText,nTwips,lRand)
LOCAL oQr
LOCAL lOk := .t.
DEFAULT lRand TO .t.
IF nTwips == NIL
IF Len(cText) > 500
nTwips := 7500
ELSEIF Len(cText) > 400
nTwips := 6500
ELSEIF Len(cText) > 300
nTwips := 5500
ELSEIF Len(cText) > 200
nTwips := 5000
ELSEIF Len(cText) > 100
nTwips := 4000
ELSE
nTwips := 3000
ENDIF
ENDIF
TRY
oQr := CreateObject("J4LQRCodeX.RQRCodeX")
CATCH
Run "RegSvr32 /s " +Chr(34)+ProgPfad()+"rqrcodex.ocx"+Chr(34)
TRY
oQr := CreateObject("J4LQRCodeX.RQRCodeX")
CATCH
lOk := .f.
Getwait({"Control für QRCode konnte nicht geladen werden !!",;
"Starten Sie: "+ProgPfad()+"QrCodeReg.bat um das OCX zu registrieren"})
END
END
//TRY
IF lOk
oQr:standalone :=.t.
oQr:autoconfigurate :=.t.
oQr:setSize(nTwips,nTwips)
oQr:code := AsciiToUtf8(cText,.f.)
oQr:saveToBMP(ProgPfad()+"Tempdat\QRCode")
oQr := NIL
IF File(ProgPfad()+"Tempdat\QRCode.bmp")
WinBitmap(nZeile,nSpalte,nZeile+nHoehe,NIL,ProgPfad()+"Tempdat\QRCode.bmp",,.t.,lRand) //PageScript32-Function
FErase(ProgPfad()+"Tempdat\QRCode.bmp")
ELSE
IF _debug
Getwait("Datei nicht gefunden: "+ProgPfad()+"Tempdat\QRCode.bmp")
ENDIF
ENDIF
//CATCH
//END
ENDIF
RETURN NIL

[Otto Haldi]

Hello,
I send can send you a zip file with my sample QR-bill for Switzerland.
Regards
Otto


https://www.six-group.com/en/newsroom/media-releases/2020/20200609-qr-bill-launch.html

[Claudio H]

Hi Otto
I'd like to get your sample.
Can you please send it to: claudio at herszage dot com ?
Thanks!
Claudio H

[Claudio H]

Hola Sergio
Como resolviste la generacion de QR esde xHarbour?
Saludos y gracias
Claudio H