2019.12.24 【ABAP随笔】smartforms 打印及PDF转化

冬至已过，又临平安夜和圣诞，又是一年的末尾，闲暇时间需要静下心来温故而知新。

许久未碰打印，知识于脑子又有几分糊涂，遂整理些许知识，记录。

数据随便取于物料表

 report Z_smartforms

 TABLES:mara.

 TYPES:BEGIN OF ty_data,
         checkbox TYPE c,
         matnr    TYPE mara-matnr,
         mtart    TYPE mara-mtart,
         matkl    TYPE mara-matkl,
         maktx    TYPE makt-maktx,
       END OF ty_data.
 DATA gt_data TYPE TABLE OF ty_data.

 *INCLUDE zalv_oo_cls.
 INCLUDE z_smartforms_cls.
 DATA ok_code TYPE sy-ucomm.

 DATA: gt_fieldcat TYPE lvc_t_fcat.  "字段操作表
 DATA: gs_layout TYPE lvc_s_layo.

 SELECT-OPTIONS:
     matnr FOR mara-matnr,
     mtart FOR mara-mtart,
     matkl FOR mara-matkl.

 START-OF-SELECTION.

   SELECT
          a~matnr ,
          a~mtart ,
          a~matkl ,
          b~maktx
     INTO CORRESPONDING FIELDS OF TABLE @gt_data
      FROM mara AS a
     INNER JOIN makt AS b ON a~matnr = b~matnr
     UP TO  ROWS.

 END-OF-SELECTION.
   CHECK gt_data[] IS NOT INITIAL.

   CREATE OBJECT gr_alv.

   PERFORM frm_set_fieldcat.

   CALL METHOD gr_alv->standard_oo_alv
     EXPORTING
       iv_screen         = ''
       iv_default_ex     = 'X'
       is_layout         = gs_layout
       iv_self_ucomm     = 'X'
       iv_container_name = 'TC'
     CHANGING
 *     CR_DOCK           = GR_DOCK
 *     CR_GRID           = GR_GRID
       ct_fieldcat       = gt_fieldcat
       ct_data           = gt_data
     EXCEPTIONS
       create_alv_failed = .

   CALL SCREEN .

 FORM frm_set_fieldcat.

   gs_layout-sel_mode    = 'D' .                 "模式
   gs_layout-zebra = 'X'. "ALV表格按斑马线条纹显示
   gs_layout-cwidth_opt = 'X'. "将ALV字段宽度设置为最优化
   gs_layout-no_merging = ''.
   gs_layout-box_fname = 'CHECKBOX'.

   DATA lv_pos TYPE i.
   DATA ls_fieldcat LIKE LINE OF gt_fieldcat.
   DEFINE %%append_fieldcat.
     lv_pos = lv_pos + .
     ls_fieldcat-col_pos = lv_pos.
     ls_fieldcat-fieldname = &."字段名
     ls_fieldcat-coltext = &."文本
 *  ls_fieldcat-no_zero = &3."去掉前导零
     ls_fieldcat-ref_table = &.
     ls_fieldcat-ref_field = &.
   APPEND ls_fieldcat TO gt_fieldcat.
   CLEAR ls_fieldcat.
   END-OF-DEFINITION.

   %%append_fieldcat:
   'CHECKBOX' '选择' '' '',
   'MATNR' '' 'MARA' 'MATNR',
   'MTART' '' 'MARA' 'MTART',
   'MATKL' '' 'MARA' 'MATKL',
   'MAKTX' '' 'MAKT' 'MAKTX'.
 ENDFORM.

 *&---------------------------------------------------------------------*
 *& Module STATUS_9000 OUTPUT
 *&---------------------------------------------------------------------*
 *&
 *&---------------------------------------------------------------------*
 MODULE status_9000 OUTPUT.
   SET PF-STATUS 'STATUS'.
   SET TITLEBAR 'TITLE'.
 ENDMODULE.

 *&---------------------------------------------------------------------*
 *&      Module  USER_COMMAND_9000  INPUT
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 MODULE user_command_9000 INPUT.

   ok_code = sy-ucomm.

   CASE ok_code.
     WHEN 'BACK' OR 'EXIT'.
       LEAVE TO SCREEN .
     WHEN 'CANC'.
       LEAVE PROGRAM.
     WHEN OTHERS.
   ENDCASE.

 ENDMODULE.
 *&---------------------------------------------------------------------*
 *& Form FRM_PRINT_DATA
 *&---------------------------------------------------------------------*
 *& text
 *&---------------------------------------------------------------------*
 *& -->  p1        text
 *& <--  p2        text
 *&---------------------------------------------------------------------*
 FORM frm_print_data .

   TYPES: lty_spopli TYPE TABLE OF spopli WITH EMPTY KEY.

   DATA(lt_spopli) = VALUE lty_spopli(
   ( selflag = 'X' varoption = '打印')
   ( varoption = '仅预览')
   ( varoption = '输出PDF')
   ).

   DATA: antwort TYPE c.

   "选择打印功能
   CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
     EXPORTING
       cursorline         =
       mark_flag          = 'X'
       mark_max           =
 *     START_COL          = 0
 *     START_ROW          = 0
       textline1          = '请选择输出功能'
 *     TEXTLINE2          = ' '
 *     TEXTLINE3          = ' '
       titel              = '功能选择'
 *     DISPLAY_ONLY       = ' '
     IMPORTING
       answer             = antwort
     TABLES
       t_spopli           = lt_spopli
     EXCEPTIONS
       not_enough_answers =
       too_much_answers   =
       too_much_marks     =
       OTHERS             = .
   IF sy-subrc NE .
     MESSAGE '请选择一个功能' TYPE 'I'.
     RETURN.
   ENDIF.

   CHECK antwort IS NOT INITIAL.

   DATA: fname() VALUE 'ZTEST_SMARTFORMS_01'.
   DATA: fm_name  TYPE rs38l_fnam.

   DATA: ls_control_param TYPE ssfctrlop ."控制结构
   DATA: ls_composer_param TYPE ssfcompop ."处理输出
   DATA: outopt TYPE ssfcresop.
   DATA: i_job_output_info TYPE ssfcrescl.

   CASE antwort.
     WHEN ''.
       ls_control_param-langu = ''.
       ls_control_param-no_open = 'X'."控制smartforms的调用
       ls_control_param-no_close = 'X'."控制假脱机系统
       ls_control_param-device = 'PRINTER'."
       "最后一张票据需要关闭假脱机 ls_control_param-no_close = space

       PERFORM frm_print_smf USING
             ls_control_param
             ls_composer_param
             fname
             CHANGING
               i_job_output_info.
     WHEN ''."直接预览
       ls_composer_param-tdnoprint = 'X'."预览界面无打印按钮
       ls_control_param-langu = ''.
       ls_control_param-no_open = 'X'."控制smartforms的调用
       ls_control_param-no_close = 'X'."控制假脱机系统
       "最后一张票据需要关闭假脱机 ls_control_param-no_close = space
       ls_control_param-no_dialog = 'X'."
       ls_control_param-device = 'PRINTER'."
       ls_control_param-preview = 'X'."预览

       PERFORM frm_print_smf USING
             ls_control_param
             ls_composer_param
             fname
             CHANGING
               i_job_output_info.
     WHEN ''.

       DATA: lv_fullpath  TYPE string.
       DATA: l_filename     TYPE string.
       DATA: l_bin_filesize TYPE i.
       DATA :l_bin_file TYPE xstring.
       DATA: lt_lines TYPE STANDARD TABLE OF tline.

       CALL METHOD cl_gui_frontend_services=>directory_browse
         EXPORTING
           window_title    = '选择目录'
 *         INITIAL_FOLDER  =
         CHANGING
           selected_folder = lv_fullpath.

 * 根据SmartForm 名称获得Form的 Function Name
       CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
         EXPORTING
           formname           = fname
         IMPORTING
           fm_name            = fm_name
         EXCEPTIONS
           no_form            =
           no_function_module =
           OTHERS             = .
       IF sy-subrc <> .
         MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.
       ENDIF.

       ls_control_param-langu = ''.
       ls_control_param-no_dialog = 'X'."
       ls_control_param-getotf = 'X'."
       ls_composer_param-tddest = 'LP01'."打印机

 *   smartforms
       CALL FUNCTION fm_name
         EXPORTING
           control_parameters = ls_control_param
           output_options     = ls_composer_param
         IMPORTING
           job_output_info    = i_job_output_info
         EXCEPTIONS
           formatting_error   =
           internal_error     =
           send_error         =
           user_canceled      =
           OTHERS             = .
       IF sy-subrc <> .
         MESSAGE 'Call SmartForms Error' TYPE 'E'.
       ENDIF.

 *   Convert content to PDF
       CALL FUNCTION 'CONVERT_OTF'
         EXPORTING
           format                = 'PDF'
         IMPORTING
           bin_filesize          = l_bin_filesize
 *         BIN_FILE              = L_BIN_FILE
         TABLES
           otf                   = i_job_output_info-otfdata[]
           lines                 = lt_lines
         EXCEPTIONS
           err_max_linewidth     =
           err_format            =
           err_conv_not_possible =
           OTHERS                = .

       CONCATENATE  lv_fullpath '\' sy-datum sy-uzeit
                             '.PDF' INTO l_filename.

 *   download pdf
       CALL FUNCTION 'GUI_DOWNLOAD'
         EXPORTING
           bin_filesize            = l_bin_filesize
           filename                = l_filename
           filetype                = 'BIN'
         TABLES
           data_tab                = lt_lines
         EXCEPTIONS
           file_write_error        = 1
           no_batch                = 2
           gui_refuse_filetransfer = 3
           invalid_type            = 4
           no_authority            = 5
           unknown_error           = 6
           header_not_allowed      = 7
           separator_not_allowed   = 8
           filesize_not_allowed    = 9
           header_too_long         = 10
           dp_error_create         = 11
           dp_error_send           = 12
           dp_error_write          = 13
           unknown_dp_error        = 14
           access_denied           = 15
           dp_out_of_memory        = 16
           disk_full               = 17
           dp_timeout              = 18
           file_not_found          = 19
           dataprovider_exception  = 20
           control_flush_error     = 21
           OTHERS                  = 22.
     WHEN OTHERS.
   ENDCASE.

 ENDFORM.
 *&---------------------------------------------------------------------*
 *& Form FRM_PRINT_SMF
 *&---------------------------------------------------------------------*
 *& text
 *&---------------------------------------------------------------------*
 *&      --> LS_CONTROL_PARAM
 *&      --> LS_COMPOSER_PARAM
 *&      --> FNAME
 *&      <-- I_JOB_OUTPUT_INFO
 *&---------------------------------------------------------------------*
 FORM frm_print_smf  USING ls_control_param TYPE ssfctrlop
                           ls_composer_param TYPE ssfcompop
                           fname TYPE char30
                     CHANGING i_job_output_info TYPE ssfcrescl.
   DATA: outopt  TYPE ssfcresop,
         fm_name TYPE rs38l_fnam.

   CALL FUNCTION 'SSF_OPEN'
     EXPORTING
       control_parameters = ls_control_param
       output_options     = ls_composer_param
     IMPORTING
       job_output_options = outopt
     EXCEPTIONS
       formatting_error   = 1
       internal_error     = 2
       send_error         = 3
       user_canceled      = 4
       OTHERS             = 5.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     EXIT.
   ENDIF.

 * 根据SmartForm 名称获得Form的 Function Name
   CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
     EXPORTING
       formname           = fname
     IMPORTING
       fm_name            = fm_name
     EXCEPTIONS
       no_form            = 1
       no_function_module = 2
       OTHERS             = 3.
   IF sy-subrc <> 0.
     MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.
   ENDIF.

   CALL FUNCTION fm_name
     EXPORTING
       control_parameters = ls_control_param
       output_options     = ls_composer_param
     EXCEPTIONS
       formatting_error   = 1
       internal_error     = 2
       send_error         = 3
       user_canceled      = 4
       OTHERS             = 5.

   CALL FUNCTION 'SSF_CLOSE'
     IMPORTING
       job_output_info  = i_job_output_info
     EXCEPTIONS
       formatting_error = 1
       internal_error   = 2
       send_error       = 3
       OTHERS           = 4.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.
 ENDFORM.

此程序使用OOALV :GR_ALV是自己创建的OO ALV的类，打印的按钮代码如下

CLASS lcl_alv DEFINITION .
  PUBLIC SECTION.
······

    "自定义工具栏
    METHODS handle_toolbar
                  FOR EVENT toolbar      OF cl_gui_alv_grid
      IMPORTING e_object
                  e_interactive.
    " 响应用户命令
    METHODS handle_user_command
                  FOR EVENT user_command OF cl_gui_alv_grid
      IMPORTING e_ucomm.

······
ENDCLASS .
"实施
CLASS lcl_alv IMPLEMENTATION.
 METHOD handle_toolbar.
    DATA:
  ls_toolbar  TYPE stb_button.
    CLEAR ls_toolbar.
    MOVE 'PRINT'           TO ls_toolbar-function.
    MOVE TEXT-t01   TO ls_toolbar-text.
    MOVE icon_print TO ls_toolbar-icon.
    APPEND ls_toolbar     TO e_object->mt_toolbar.
  ENDMETHOD.

 METHOD handle_user_command.
······
 CASE e_ucomm.
      WHEN 'PRINT'.
        PERFORM frm_print_data. "调用打印
  WHEN OTHERS.
    ENDCASE.

 DATA ls_stbl TYPE lvc_s_stbl.
    ls_stbl-row = 'X'.
    ls_stbl-col = 'X'.

    CALL METHOD cr_grid->refresh_table_display
      EXPORTING
        is_stable = ls_stbl.
ENDCLASS.

DATA gr_alv TYPE REF TO lcl_alv.

效果如下：

1.打印，带控制台

2.仅预览，不允许打印，禁用打印按钮

3.输出PDF

-文至此，以展示打印，预览 和 PDF输出三种格式输出

-TAB 热爱技术 享受生活

"