选择屏幕工具栏添加按钮

1.首先声明类型：

TYPE-POOLS icon.
TABLES sscrfields.
DATA functxt TYPE smp_dyntxt.

2.选择屏幕：

SELECTION-SCREEN: FUNCTION KEY 1。

3.INITIALIZATION.

  FUNCTXT-ICON_ID   = ICON_CREATE.
  FUNCTXT-QUICKINFO = '新增'.

  "functxt-icon_text = '新增'.
  SSCRFIELDS-FUNCTXT_01 = FUNCTXT.

4.如果想要响应该按钮，

AT SELECTION-SCREEN.
  CASE SSCRFIELDS-UCOMM.

when 'FC01'.

WHEN 'FC02'.

endcase.

 

例子：

 

TYPE-POOLS icon.
TABLES sscrfields.
DATA functxt TYPE smp_dyntxt.

PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2.

INITIALIZATION.
  functxt-icon_id   = icon_ws_plane.
  functxt-quickinfo = 'Preselected Carrier'.
  functxt-icon_text = 'LH'.
  sscrfields-functxt_01 = functxt.
  functxt-icon_text = 'UA'.
  sscrfields-functxt_02 = functxt.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      p_carrid = 'LH'.
      p_cityfr = 'Frankfurt'.
    WHEN 'FC02'.
      p_carrid = 'UA'.
      p_cityfr = 'Chicago'.
    WHEN OTHERS.
*      ...
  ENDCASE.