SAP 弹窗从自定义选项中选择

最新推荐文章于 2025-07-10 15:37:36 发布

csucoder_zone

最新推荐文章于 2025-07-10 15:37:36 发布

阅读量623

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/csucoder_zone/article/details/107316023

本文介绍在ABAP中使用POPUP_TO_DECIDE_LIST函数模块创建弹窗选择列表的过程，包括设置选项、默认选中项、标题及提示文本等关键步骤。

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

  DATA: BEGIN OF spoplist OCCURS 15.
          INCLUDE STRUCTURE spopli.
  DATA: END OF spoplist.
  DATA: answer TYPE c.

  spoplist-varoption = '1.选项1'.
  APPEND spoplist.

  spoplist-varoption = '2.选项2'.
  APPEND spoplist.

  spoplist-selflag = 'X'."只在MARK_FLAG为空的时候有用

spoplist-varoption = '3.选项3'.
  APPEND spoplist.

  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
    EXPORTING
CURSORLINE         = 1"radio button的默认选项
MARK_FLAG          = ' '"X-radio button;空-checkbox.
      mark_max           = 1 "最大checkbox选择数量
*     START_COL          = 0
*     START_ROW          = 0
      textline1          = '请选择数据来源：' "必须参数
*     TEXTLINE2          = ' '
*     TEXTLINE3          = ' '
      titel              = '选择' "必须参数
*     DISPLAY_ONLY       = ' '
    IMPORTING
      answer             = answer
    TABLES
      t_spopli           = spoplist[]
    EXCEPTIONS
      not_enough_answers = 1
      too_much_answers   = 2
      too_much_marks     = 3
      OTHERS             = 4.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

  cv_sel = '0'.

  READ TABLE spoplist WITH KEY selflag = 'X'.
  IF sy-tabix = 1."INDEX在DO...ENDDO里才有用 LOOP 和READ TABLE只能用TABIX
    cv_sel = '1'.
  ELSEIF sy-tabix = 2.
    cv_sel = '2'.
  ELSEIF sy-tabix = 3.
    cv_sel = '3'.
  ENDIF.