43 lines
1.2 KiB
Plaintext
43 lines
1.2 KiB
Plaintext
{
|
|
PROGRAMA: QRCODE
|
|
IMPRESION DE CODIGO QR
|
|
FECHA DESARROLLADO: SEPTIEMBRE 20, 2022
|
|
DESARROLLADO POR: ING. JUAN SOTO
|
|
|
|
}
|
|
DEFINE qrdata STRING
|
|
DEFINE r_output CHAR(3),
|
|
r_filename STRING,
|
|
HANDLER om.SaxDocumentHandler,
|
|
preview BOOLEAN
|
|
MAIN
|
|
CALL qrcode()
|
|
END MAIN
|
|
|
|
FUNCTION qrcode()
|
|
|
|
LET r_filename = 'qrcode.4rp'
|
|
LET r_output = 'Image'
|
|
LET qrdata = 'https://forms.office.com/Pages/ResponsePage.aspx?id=61c7dEGjBkaRjXGo3235ufQ2or_-0GlKhruqxU4EkYBUMDdBS1BYMk0zTEZNMFZES1o1MEtUWlBHOC4u'
|
|
LET preview = 0
|
|
IF fgl_report_loadCurrentSettings(r_filename) THEN
|
|
|
|
|
|
LET preview=1
|
|
|
|
# CALL fgl_report_selectDevice(r_output) -- changing default
|
|
CALL fgl_report_selectPreview(preview) -- changing default
|
|
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
|
|
|
START REPORT rqrcode TO XML HANDLER HANDLER
|
|
OUTPUT TO REPORT rqrcode()
|
|
FINISH REPORT rqrcode
|
|
END IF
|
|
END FUNCTION
|
|
REPORT rqrcode()
|
|
|
|
FORMAT
|
|
ON EVERY ROW
|
|
PRINTX qrdata
|
|
|
|
END REPORT |