REPORT zdemo01.
PARAMETERS:p_bukrs LIKE t001-bukrs.
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_bukrs.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'T001'
fieldname = 'BUKRS'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'P_BUKRS'
display = 'F'.
阅读(703) | 评论(0) | 转发(0) |
