使用ABAP创建QR 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:

 

 

要获取更多Jerry的原创文章，请关注公众号"汪子熙":