在ABAP的工具列中新增按钮和添加按钮事件

来源：互联网发布：木吉他录音软件编辑：程序博客网时间：2024/06/05 10:26

*&--------------------------------------------------------------------*
*&      form  set_pf_client 此段为显示工具条的代码
*&--------------------------------------------------------------------*
*       text:alv status
*---------------------------------------------------------------------*
*      -->extab      text
*---------------------------------------------------------------------*
FORM  SET_PF  using    EXTAB  type  SLIS_T_EXTAB.
  set  pf-status  'ZL_STUDY06TOOLS'.
  "如果要新增工具按钮，就双击此工具名称（双击后新增界面如下图），然后新增对应的工具，
  "工具中的名称代码在下面的user_com中的case r_ucomm中会用到.

endform.
                  "set_pf
*form  set_pf  using    extab  type  slis_t_extab.
*  set  pf-status  'ztest_alv01'.
*endform.
*&--------------------------------------------------------------------*
*&      form  user_com 此段为点击特定按钮后发生的事件
*&--------------------------------------------------------------------*
*       text:button function
*---------------------------------------------------------------------*
*      -->r_ucomm    text
*      -->rs_selfieldtext
*---------------------------------------------------------------------*
FORM user_com USING r_ucomm LIKE sy-ucomm
              rs_selfield TYPE slis_selfield .
  DATA:P_LINES TYPE I VALUE 0,
       P_STRING TYPE STRING.
  CASE r_ucomm.
    WHEN: 'BACK' OR 'EXIT' OR 'CANCEL'.
      LEAVE TO SCREEN 0.
    WHEN '&ZSUMLINE'."此处的名称是我们在工具列中新增的按钮的ID
      "break-point.
      P_LINES = LINES( it_tab ).
      p_string = P_LINES.
      CONCATENATE '总行数为：' p_string INTO P_STRING.
      message P_STRING TYPE 'I'.
  ENDCASE.
ENDFORM.                    "user_com_second