QR-code generator

[admin]

FoxBarCode.prg
creare QR code
https://github.com/VFPX/FoxBarcode

Utilizare:
-exemplu cod QR pt. e-transport UIT

-inainte de linia de REPORT FORM.... inserati:
textqr='{'+Chr(13)+;
'"vehiclePlateNumber": "'+Alltrim(AA.MASINA)+'",'+Chr(13)+;
'"codeUit": "'+Alltrim(BB.UIT)+'"'+Chr(13)+;
'}'
**FA IMAGINE
SET PROCEDURE TO FoxBarcodeQR.prg ADDITIVE
*--- Create FoxBarcodeQR private object
Private poFbc
m.poFbc = Createobject("FoxBarcodeQR")
*-- New properties
m.poFbc.nCorrectionLevel = 3 && Level_H

In raport , la zona imagine creata (Picture/OLE Bound control) inserati la Control, source:
poFbc.QRBarcodeImage(TEXTQR,,4,0)
sau
poFbc.FullQRCodeImage(TEXTQR,,132)