REPORT zrpp014.
TYPE-POOLS vrm.
PARAMETERS: zlist(2) TYPE c AS LISTBOX VISIBLE LENGTH 15.
INITIALIZATION.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR zlist.
PERFORM selectlist CHANGING zlist.
FORM selectlist CHANGING zlist.
DATA itab_list TYPE vrm_values.
DATA wa_list LIKE LINE OF itab_list.
wa_list-key = '01'.
wa_list-text = '入库单'.
APPEND wa_list TO itab_list.
wa_list-key = '02'.
wa_list-text = '移库单'.
APPEND wa_list TO itab_list.
wa_list-key = '03'.
wa_list-text = '出库单'.
APPEND wa_list TO itab_list.
wa_list-key = '04'.
wa_list-text = '销售出库单'.
APPEND wa_list TO itab_list.
wa_list-key = '05'.
wa_list-text = '销售退货单'.
APPEND wa_list TO itab_list.
wa_list-key = '06'.
wa_list-text = '整车出库单'.
APPEND wa_list TO itab_list.
wa_list-key = '07'.
wa_list-text = '整车退货单'.
APPEND wa_list TO itab_list.
wa_list-key = '08'.
wa_list-text = '复核'.
APPEND wa_list TO itab_list.
wa_list-key = '09'.
wa_list-text = '过账'.
APPEND wa_list TO itab_list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'ZLIST' "屏幕中的下拉菜单的NAME,下拉菜单选择LISTBOX
values = itab_list.
"if zlist = ''. "好像没什么用
READ TABLE itab_list INTO wa_list INDEX 1.
REFRESH itab_list.
ENDFORM.
