有用的popup选择的列表的示例代码_popup-select 弹出选择-优快云博客

本文介绍了一个 ABAP 程序中使用 POPUP_TO_DECIDE_LIST 功能模块创建弹窗选择列表的过程。该示例展示了如何定义选择列表、设置弹窗属性及处理用户输入。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

report  rsspo500.
data:   selectlist like spopli occurs 5 with header line.
data:   antwort   type c.
while antwort ne 2.
  clear   selectlist.
  refresh selectlist.
selectlist-varoption = '显示含有单选按钮的弹出框'.
append selectlist.
selectlist-varoption = '显示含有复选框的弹出框'.
selectlist-selflag   = 'X'.
append selectlist.
call function 'POPUP_TO_DECIDE_LIST'
     exporting
*         CURSORLINE         = 1
*         MARK_FLAG          = ' '
          mark_max           = 1
          start_col          = 10
          start_row          = 10
          textline1          = 'Text1'
          textline2          = 'POPUP_TO_DECIDE_LIST'
          textline3          = 'TEXT3'
          titel              = 'TITLE '
     importing
          answer             =  antwort
     tables
          t_spopli           =  selectlist
     exceptions
          not_enough_answers = 1
          too_much_answers   = 2
          too_much_marks     = 3
          others             = 4.
  if antwort eq 'A'.
    exit.
  endif.
endwhile.
if antwort ne 'A'.
  clear   selectlist.
  refresh selectlist.
  selectlist-varoption = '最多 15 个选项'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = '含有复选框'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = '或单选按钮'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = '典型的列表功能：'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = '* 选择'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = '* 选择全部'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = ' 取消全部选择'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = '3 70字符/选项'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption = '65 字符/选项'.
  selectlist-selflag   = 'X'.
  append selectlist.
  selectlist-varoption =  '激活/不激活可选行'.
  selectlist-selflag   = 'X'.
  selectlist-inactive  = 'X'.
  append selectlist.
* 2. Aufruf **********************************************************
  call function 'POPUP_TO_DECIDE_LIST'
       exporting
*         CURSORLINE         = 1
            mark_flag          = 'X'
            mark_max           = 0
          start_col          = 15
          start_row          = 15
            textline1          = 'Das POPUP bietet'(c01)
            textline2          = 'folgende Funktionalit鋞:'(c02)
            titel              = 'Das Beispiel 2'(b02)
       importing
            answer             =  antwort
       tables
            t_spopli           =  selectlist
       exceptions
            not_enough_answers = 1
            too_much_answers   = 2
            too_much_marks     = 3
            others             = 4.
endif.