ABAP 选择屏幕内的组件以及使用

选择屏幕组件

主要记录了ABAP编程中选择屏幕常用的组件

• 选择框
• 范围选择框
• radio单选
• check选择
• 单行展现 配合radio和check使用较多
• 下拉框
• 自定义下拉框
• 按钮
• 文件框
• 文字帮助

选择框

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1.
  PARAMETERS:
    p_matnr TYPE makt-matnr.
SELECTION-SCREEN END OF BLOCK blk1.

范围选择框

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1.
  SELECT-OPTIONS:
    p_matnr FOR makt-matnr.
SELECTION-SCREEN END OF BLOCK blk1.

radio单选

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
  PARAMETERS:
    s_hiera TYPE c RADIOBUTTON GROUP g1 USER-COMMAND is_hiera DEFAULT 'X', " 分层
    s_hiera1 TYPE c RADIOBUTTON GROUP g1. " 不分层
SELECTION-SCREEN END OF BLOCK blk1.

check选择

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
  PARAMETERS:
    s_hiera AS CHECKBOX USER-COMMAND is_hiera. " 分层
SELECTION-SCREEN END OF BLOCK blk1.

单行展现 配合radio和check使用较多

图例：

代码：

  SELECTION-SCREEN BEGIN OF LINE.
*第一个RADIOBUTTON
    SELECTION-SCREEN POSITION 1.            "1是RADIOBUTTON横坐标
    PARAMETERS:s_add TYPE c RADIOBUTTON GROUP g1 USER-COMMAND is_cur DEFAULT 'X'.
    SELECTION-SCREEN COMMENT 2(7) TEXT-003 FOR FIELD s_add. "2是文本横坐标，7是文本长度
*第二个RADIOBUTTON
    SELECTION-SCREEN POSITION 11.           "11是RADIOBUTTON横坐标
    PARAMETERS:s_limit TYPE c RADIOBUTTON GROUP g1.
    SELECTION-SCREEN COMMENT 12(7) TEXT-004 FOR FIELD s_limit."12是文本横坐标,7是文本长度
  SELECTION-SCREEN END OF LINE.

下拉框

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
  PARAMETERS:
    s_ydlx type rmmg1-mbrsh AS LISTBOX VISIBLE LENGTH 20.
SELECTION-SCREEN END OF BLOCK blk1.

自定义下拉框

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
  PARAMETERS:
    s_zqista TYPE char30 AS LISTBOX VISIBLE LENGTH 20.
SELECTION-SCREEN END OF BLOCK blk1.

"屏幕初始化的时候添加例程
INITIALIZATION .
PERFORM frm_pull_down. " 配置下拉框

"配置自定义展示的例程
FORM frm_pull_down .
```abap
  TYPE-POOLS: vrm.
  DATA: name  TYPE vrm_id,
        list  TYPE vrm_values,
        value LIKE LINE OF list.
  REFRESH list.
  DEFINE fill_list.
    value-key = &1.
    value-text = &2.
    APPEND value TO list.
  END-OF-DEFINITION.

  fill_list '测试一' ''.
  fill_list '测试二' ''.
  fill_list '测试三' ''.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'S_ZQISTA'
      values = list.
ENDFORM.

按钮

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
    SELECTION-SCREEN PUSHBUTTON 7(20) but1 USER-COMMAND s_cur.
SELECTION-SCREEN END OF BLOCK blk1.

"屏幕初始化的时候 对按钮显示进行处理
  INITIALIZATION .
  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name   = icon_export " 按钮的图片和文字
      text   = '测试'  " 按钮的文本
      info   = '测试'
    IMPORTING
      result = but1
    EXCEPTIONS
      OTHERS = 0.

文件框

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
    PARAMETERS: p_file TYPE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK blk1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. "和自定义搜索帮助类似
  PERFORM frm_file_open.   " 用于上传文件

"上传文件的例程
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      mask             = ',EXCEL FILE,*.XLS;*XLSX;'  "可以指定打开的文件类型
      mode             = '0' "S是保存，0是打开
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

文字帮助

图例：

代码：

SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE TEXT-001.
  SELECTION-SCREEN COMMENT /3(79) TEXT-002.
  SELECTION-SCREEN COMMENT /3(79) TEXT-003.
  SELECTION-SCREEN COMMENT /3(79) TEXT-004.
SELECTION-SCREEN END OF BLOCK blk2.