POPUP_TO_DECIDE_LIST 弹出选择框

效果如图

代码

* 定义函数需要的变量
DATA: BEGIN OF spoplist OCCURS 15.
        INCLUDE STRUCTURE spopli.
DATA: END OF spoplist.
DATA: antwort TYPE c.
* 添加选择参数
spoplist-varoption = '白菜'.
APPEND spoplist.
spoplist-varoption = '胡萝卜'.
APPEND spoplist.
spoplist-varoption = '槐树叶'.
APPEND spoplist.
spoplist-varoption = '选项 '.
*spoplist-selflag = 'X'.

CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
  EXPORTING
    titel            = '请选择小白兔最喜欢吃啥'
    textline1        = '小兔子真的喜欢吃胡萝卜吗'
    textline2        = '其实不喜欢吃的'
    mark_max         = 3                           "最大选择数
    mark_flag        = 'X'
  IMPORTING
    answer           = antwort
  TABLES
    t_spopli         = spoplist
  EXCEPTIONS
    too_much_answers = 1
    too_much_marks   = 2.

IF sy-subrc = 2.
  WRITE: '您选的太多了.'.
ENDIF.
* 取消
IF antwort = 'A'.
  WRITE: '取消.'.
ELSE.
  WRITE: '您选择了：'.
  LOOP AT spoplist WHERE selflag = 'X'.
    WRITE: / spoplist-varoption.
  ENDLOOP.
ENDIF.

参数介绍

 

Funtion：POPUP_TO_DECIDE_LIST 

                功能：弹出供选择窗口，最多为25个选项选择可以是单选或是多选

import:

cursorline: 默认光标所在行

mark_flag: 选择框标志，如果是‘X’表示是checkbox，如果是空，表示是radio

mark_max: 最大选择的选项个数，

start_col:起始行

start_row: 起始列,用来定位弹出窗口的位置，

textline1:文本行

textline2:文本行，

testline3:文本行，

dispaly_only:仅显示

export:

answer:a:取消，

tables:

t_spopli:选择结果