{
   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