SELECT_OPTIONS_RESTRICT - ooxxvv/MySAPnotes GitHub Wiki
PageOutline {{{#!comment -------------------- 以上的部份是固定的，不要變動 ----- --------------------------------------- 在建立連結時，請標明連結的頁面類型，例如：wiki:WikiStart，而不要只用 WikiStart ----- }}}
SELECT_OPTIONS_RESTRICT
- 用來更改 Select Options 所能輸入的條件
- 變數型態定義 -> TYPE-POOLS sscr.
EXPORTING
- restriction
- TYPE sscr_restrict
Code
{{{#!abap FORM set_select_options_restrict. *----這個 PERFORM 要放在 INITIALIZATION. TYPE-POOLS sscr. DATA: restrict TYPE sscr_restrict, optlist TYPE sscr_opt_list, ass TYPE sscr_ass.
*-限制可以使用的 OPTION 範圍 -----------------------------------------自訂一個名稱- optlist-name = 'OBJECTKEY1'. ------------------------------------------------------ -------------------------------------若要設定其他條件- ---------------則用 optlist-options-EQ,BT... 依此類推- optlist-options-eq = 'X'. "可以使用 EQ optlist-options-bt = 'X'. "可以使用 BT ------------------------------------------------------ APPEND optlist TO restrict-opt_list_tab.
---------------------------設定變數名稱是屬於任何型態- ----------------------A(ll), B(lock), S(elect-Option)- ass-kind = 'S'. ------------------------------------------------------ ---------------------------------設定要作用在那個變數- ass-name = 'S_BUDAT'. ------------------------------------------------------ -----------------------限制單一選擇可使用的 SIGN 範圍- ---------------------------------------SPACE = 不限制- ass-sg_main = 'I'. ------------------------------------------------------ -------------------------------目前測試過只能放 SPACE- ass-sg_addy = space. ------------------------------------------------------ -----------要用那種 OPTION 條件，和 optlist-name 對應- ass-op_main = 'OBJECTKEY1'. " ------------------------------------------------------ APPEND ass TO restrict-ass_tab.
CALL FUNCTION 'SELECT_OPTIONS_RESTRICT' EXPORTING restriction = restrict EXCEPTIONS too_late = 1 repeated = 2 selopt_without_options = 3 selopt_without_signs = 4 invalid_sign = 5 empty_option_list = 6 invalid_kind = 7 repeated_kind_a = 8 OTHERS = 9.
IF sy-subrc NE 0. EXIT. ENDIF.
ENDFORM. " set_select_options_restrict }}}
{{{#!comment
IMPORTING
TABLES
EXCEPTIONS
Attributes
Methods
{{{#!abap }}} }}}