codigo QR

168 views
Skip to first unread message

Sergio Daniel Gudiño

unread,
Feb 11, 2021, 1:49:58 PM2/11/21
to
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

unread,
Feb 15, 2021, 2:13:41 AM2/15/21
to
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

unread,
Feb 16, 2021, 6:56:16 AM2/16/21
to
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

unread,
Feb 19, 2021, 1:04:16 PM2/19/21
to
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

unread,
Jun 28, 2022, 4:34:02 PMJun 28
to
Hola Sergio
Como resolviste la generacion de QR esde xHarbour?
Saludos y gracias
Claudio H
Reply all
Reply to author
Forward
0 new messages