sap动态设定下拉列表框

sap动态设定下拉列框 REPORT yth_test2. *功能返回码码码码 DATA: ok_code TYPE sy-ucomm, save_code TYPE sy-ucomm. *VRM 码码码码型定接口 TYPE-POOLS vrm. DATA input(20) TYPE c. DATA fld1(20) TYPE c. *内表,,字段量定码码码码码码码码码 DATA:fname TYPE vrm_id, vva TYPE vrm_values, lvva LIKE LINE OF vva. DATA d_con LIKE ztmmconfig. DATA l_str TYPE STANDARD TABLE OF string WITH HEADER LINE. PARAMETERS kunnr LIKE knvv-kunnr.RANGES l_lotcl FOR ztmm0022-lotcl.CALL SCREEN 100. WRITE 'test'. WRITE fld1. *----------------------------------------------------------------------* * MODULE STATUS_0100 *----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE status_0100 OUTPUT. "码里要加上output,不然工具条示不出来码码码码码 SET PF-STATUS 'TEST'. fname = 'INPUT'. * lvva-key = 1. * lvva-key = 'PS'. * APPEND lvva TO vva.* * lvva-key = 2. * lvva-key = 'NN'. * APPEND lvva TO vva. SELECT SINGLE * FROM ztmmconfig INTO d_con WHERE para_type = 'ZRMM0031KS' AND para_name = kunnr. IF d_con-para_value2 IS NOT INITIAL. SPLIT d_con-para_value2 AT',' INTO: TABLE l_str. LOOP AT SCREEN. "更改屏幕属性码 "方法:去屏幕置不同的属性,察其在码码码码码码码码码码码码码screen里的化。码码码 CHECK screen-name = 'INPUT'. screen-required = '1'. MODIFY SCREEN. ENDLOOP. ENDIF. LOOP AT l_str. l_lotcl-sign = 'I'. l_lotcl-option = 'EQ'. l_lotcl-low = l_str. APPEND l_lotcl. ENDLOOP. LOOP AT l_lotcl. lvva-key = sy-tabix. lvva-key = l_lotcl-low. APPEND lvva TO vva. ENDLOOP. CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = fname values = vva* EXCEPTIONS * ID_ILLEGAL_NAME = 1* OTHERS = 2 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDMODULE. "STATUS_0100*----------------------------------------------------------------------* * MODULE USER_COMMAND_0100*----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. CASE sy-ucomm. WHEN 'EXIT'. fld1 = input. LEAVE TO SCREEN 0. WHEN 'EXEC'. LEAVE PROGRAM. ENDCASE. ENDMODULE. "USER_COMMAND_0100