Create QRCode via ABAP code
In the previous blog we discuss how to generate QRCode to enable it be scanned via mobile phone.
In that solution, the QRCode is generated and stored in a PDF file via ABAP webdynpro framework, we only provide the form template. In fact it is quite easy to adapt the solution to generate the PDF by ourselves, so that the QRCode could be used more flexibly in many other scenario for example as an attachment of email.
Note: it is still necessary to create a form interface and form template as described in the blog.
The report source code is below:
PARAMETERS: content TYPE string. DATA: ls_outputparams TYPE sfpoutputparams, ls_docparams TYPE sfpdocparams, ls_pdf_file TYPE fpformoutput, ls_post TYPE crmd_soc_post, lv_fm_name TYPE rs38l_fnam. ls_outputparams-noprint = 'X'. ls_outputparams-nopributt = 'X'. ls_outputparams-noarchive = 'X'. ls_outputparams-nodialog = 'X'. ls_outputparams-preview = 'X'. ls_outputparams-getpdf = 'X'. CALL FUNCTION 'FP_JOB_OPEN' CHANGING ie_outputparams = ls_outputparams EXCEPTIONS cancel = 1 usage_error = 2 system_error = 3 internal_error = 4 OTHERS = 5. CHECK sy-subrc = 0. TRY. CALL FUNCTION 'FP_FUNCTION_MODULE_NAME' EXPORTING i_name = 'ZPF_QRCODE' " put your own form template name here IMPORTING e_funcname = lv_fm_name. CATCH cx_fp_api_repository cx_fp_api_usage cx_fp_api_internal. RETURN. ENDTRY. ls_docparams-langu = 'E'. ls_docparams-country = 'US'. CALL FUNCTION lv_fm_name EXPORTING /1bcdwb/docparams = ls_docparams qrcode_input = content IMPORTING /1bcdwb/formoutput = ls_pdf_file EXCEPTIONS usage_error = 1 system_error = 2 internal_error = 3 OTHERS = 4. CHECK sy-subrc = 0. CALL FUNCTION 'FP_JOB_CLOSE' EXCEPTIONS usage_error = 1 system_error = 2 internal_error = 3 OTHERS = 4.
execute the report, the PDF binary is stored in ls_pdf_file-pdf.
It could be scanned by the QRCode scanner installed in my mobile phone: