弹出选择框函数汇总

介绍几个abap中的弹出选择框函数：

1, POPUP_TO_DECIDE_LIST

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

缺点是弹出窗口的大小不能设置，只和 textline1/textline2中的文本长度相关。

代码：

REPORT ztest_popup_window.

DATA: BEGIN OF lit_spoplist OCCURS 5.
        INCLUDE STRUCTURE spopli.
DATA: END OF lit_spoplist.
DATA: antwort TYPE c.
* 添加选择参数
lit_spoplist-varoption = 'SD'.
APPEND lit_spoplist.
lit_spoplist-varoption = 'MM'.
APPEND lit_spoplist.
lit_spoplist-varoption = 'ABAP'.
APPEND lit_spoplist.
lit_spoplist-varoption = 'PP'.
APPEND lit_spoplist.

CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
  EXPORTING
    titel            = 'SAP'
    textline1        = 'SAP开发语言是什么？'
    textline2        = '我是第二行'
    mark_max         = 1                           "最大选择数
    mark_flag        = 'X'      "选择框标志，如果是‘X’表示是checkbox，如果是空，表示是radio
  IMPORTING
    answer           = antwort
  TABLES
    t_spopli         = lit_spoplist
  EXCEPTIONS
    too_much_answers = 1
    too_much_marks   = 2.

2, POPUP_TO_CONFIRM

不方便对文本进行换行等排版，不能改变弹出框大小

answer参数的返回值：

Yes按钮：1

No按钮：2

Cancel按钮：A

Icon的名字可以在表ICON中找到：

代码：

REPORT ztest_popup_window.

TYPE-POOLS:icon.
DATA:l_answer TYPE c.

CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
*   TITLEBAR       = ' '
*   DIAGNOSE_OBJECT             = ' '
    text_question  = 'Are you ok?雷布斯'
    text_button_1  = 'Yes'(001)
    icon_button_1  = 'icon_checked'
    text_button_2  = 'No'(002)
    icon_button_2  = 'icon_incomplete'
*   DEFAULT_BUTTON = '1'
*   DISPLAY_CANCEL_BUTTON       = 'X'
*   USERDEFINED_F1_HELP         = ' '
*   START_COLUMN   = 25
*   START_ROW      = 6
*   POPUP_TYPE     =
*   IV_QUICKINFO_BUTTON_1       = ' '
*   IV_QUICKINFO_BUTTON_2       = ' '
  IMPORTING
    answer         = l_answer
* TABLES
*   PARAMETER      =
  EXCEPTIONS
    text_not_found = 1
    OTHERS         = 2.
WRITE:l_answer.