首先我們根據條件調用我們自定義的屏幕 。
If 條件 。
CALL SCREEN 9000.
Endif 。
這裏的條件很重要的。不然有人會煩的 。然後我們就創建這個屏幕。創建PBO 、PAI
如果我們想在屏幕中創建下拉列表可以在PAI中加入如下代碼：
PROCESS ON VALUE-REQUEST.
FIELD ZPP_JSTZ-TZTYP MODULE create_dropdown_box.
然後調用
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'TZTYP'
value_org = 'S'
MARK_TAB = MARK_TAB
TABLES
value_tab = GT_TZTYP
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
建立下拉列表。
如果我們要驗證屏幕輸入的值。
CHAIN.
FIELD ZPP_JSTZ-TZTYP.
FIELD ZPP_JSTZ-TNNID .
FIELD ZPP_JSTZ-TNNOT .
FIELD ZPP_JSTZ-TNSGN .
FIELD ZPP_JSTZ-SGTXT .
MODULE CHECK_VALUE.
ENDCHAIN.
最主要的是我們如何把屏幕上的用戶輸入值。返回到標準的增強中。那麼我們就需要使用到參數ID了。如果我們想得到標準程序中的某個值。就使用 SET PARAMETER ID ‘SSS’ FIELD XXX. 然後再屏幕的參數ID中輸入 SSS ,打上 GET參數。如下圖：
即可得到XXX字段的值。
如果想把屏幕上的字段輸入內容返回到增強裏面可以做如下設置：
然後增強程序裏面就可以得到該參數ID的值
GET PARAMETER ID ‘TXJ’FIELD TNNID.這樣我們就得到了用戶屏幕輸入的值