epo isp for tput input sele call porting NPU

---恢復內容開始---

REPORT z_barry_test NO STANDARD PAGE HEADING .

PARAMETERS: p_date TYPE sy-datum ,
p_bukrs LIKE t001-bukrs ,
p_str(10).

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-name.
WHEN ‘P_DATE‘ OR ‘P_BUKRS‘.
screen-input = 0.
ENDCASE.
MODIFY SCREEN.

ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date. "方法一
CALL FUNCTION ‘F4_DATE‘
IMPORTING
select_date = p_date.
LEAVE SCREEN.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bukrs. "方法二
CALL FUNCTION ‘F4IF_FIELD_VALUE_REQUEST‘
EXPORTING
tabname = ‘T001‘
fieldname = ‘BUKRS‘

dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = ‘P_BUKRS‘
display = ‘F‘. " <-- Force

如果是自定義的Screen，可以使用POV Process PROCESS ON VALUE-REQUEST .
FIELD P_bukrs MODULE mf4. 然後使用方法二

---恢復內容結束---

REPORT z_barry_test NO STANDARD PAGE HEADING .

PARAMETERS: p_date TYPE sy-datum ,

p_bukrs LIKE t001-bukrs ,
p_str(10).

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-name.
WHEN ‘P_DATE‘ OR ‘P_BUKRS‘.
screen-input = 0.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date. "方法一
CALL FUNCTION ‘F4_DATE‘
IMPORTING
select_date = p_date.
LEAVE SCREEN.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bukrs. "方法二
CALL FUNCTION ‘F4IF_FIELD_VALUE_REQUEST‘
EXPORTING
tabname = ‘T001‘
fieldname = ‘BUKRS‘
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = ‘P_BUKRS‘
display = ‘F‘. " <-- Force

如果是自定義的Screen，可以使用POV Process PROCESS ON VALUE-REQUEST .
FIELD P_bukrs MODULE mf4. 然後使用方法二

屏幕字段不允許直接輸入，只能通過SearchHelp(F4)