POPUP_WITH_TABLE_DISPLAY - ooxxvv/MySAPnotes GitHub Wiki
PageOutline {{{#!comment -------------------- 以上的部份是固定的，不要變動 ----- --------------------------------------- 在建立連結時，請標明連結的頁面類型，例如：wiki:WikiStart，而不要只用 WikiStart ----- }}}
POPUP_WITH_TABLE_DISPLAY
- 可將 internal table 的值帶出，並讓使用者選擇其中一項後傳回，畫面只是簡單的 List 。
- 用來做出簡單的 「F4」功能，如果要用較複雜，較像系統所預設的 Search Help => F4IF_INT_TABLE_VALUE_REQUEST
EXPORTING
-
ENDPOS_COL
-
TYPE i
-
要顯示的 list 寬度
-
ENDPOS_ROW
-
TYPE i
-
要顯示的 list 長度
-
STARTPOS_COL
-
TYPE i
-
從那個部份開始顯示(橫向)
-
STARTPOS_ROW
-
TYPE i
-
從那個部份開始顯示(縱向)
-
TITLETEXT
-
TYPE c LENGTH 80
-
視窗的標題
IMPORTING
- CHOISE
- LIKE SYST-TABIX
- 使用者所選擇的是 internal table 中的第幾筆資料
TABLES
- VALUETAB
- 無特別限制
Code
{{{#!abap DATA: BEGIN OF lt_f4_value OCCURS 0, etype(5) TYPE c, text(20) TYPE c, END OF lt_f4_value. DATA: l_choise LIKE syst-tabix.
*---append list to show lt_f4_value-etype='BEN'. lt_f4_value-text=text-t02. APPEND lt_f4_value.
lt_f4_value-etype='SHA'. lt_f4_value-text=text-t06. APPEND lt_f4_value.
lt_f4_value-etype='SHR'. lt_f4_value-text=text-t03. APPEND lt_f4_value.
lt_f4_value-etype='OUR'. lt_f4_value-text=text-t04. APPEND lt_f4_value.
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY' EXPORTING endpos_col =25 endpos_row =5 startpos_col=1 startpos_row=1 titletext =text-t01 IMPORTING choise =l_choise TABLES valuetab =lt_f4_value EXCEPTIONS break_off =1 OTHERS =2.
IF sy-subrc EQ 0. *---get and return selected value READ TABLE lt_f4_value INDEX l_choise. f_back_value=lt_f4_value-etype. ENDIF. }}}
{{{#!comment
EXCEPTIONS
Attributes
Methods
Code
{{{#!abap }}} }}}