REPORT ZTEST21.
DATA: SELECTLIST LIKE SPOPLI OCCURS 5 WITH HEADER LINE.
DATA: ANTWORT TYPE C.
CLEAR SELECTLIST.
REFRESH SELECTLIST.
SELECTLIST-VAROPTION = '65 ??/??'.
SELECTLIST-SELFLAG = 'X'.
APPEND SELECTLIST.
SELECTLIST-VAROPTION = '70 ??/??'.
SELECTLIST-SELFLAG = 'X'.
APPEND SELECTLIST.
SELECTLIST-VAROPTION = '75 ??/??'.
SELECTLIST-SELFLAG = 'X'.
SELECTLIST-INACTIVE = 'X'.
APPEND SELECTLIST.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
* CURSORLINE = 1
* MARK_FLAG = ' '
MARK_MAX = 1
START_COL = 10
START_ROW = 10
TEXTLINE1 = 'TEXTLINE1'
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'.
ENDIF.
POPUP_TO_DECIDE_LIST
于 2023-05-26 15:59:26 首次发布
该段代码在SAPABAP环境中操作SELECTLIST,用于创建和填充选项列表,然后调用POPUP_TO_DECIDE_LIST函数弹出对话框让用户选择。根据用户回答(ANTWORT)进行后续逻辑处理。
摘要由CSDN通过智能技术生成