SAP选择屏幕简单下拉框的实现

选择屏幕的某些字段值非常固定，不妨用下拉菜单来实现其输入，非常快捷方便。具体程序示例如下：


程序代码：

1. ************************************************************************
   
2. **  声明表
   
3. ************************************************************************
   
4. TABLES:MARA.
   
5. 
   
6. ************************************************************************
   
7. **  定义内表结构
   
8. ************************************************************************
   
9. TYPE-POOLS VRM.
   
10. 
    
11. TYPES:BEGIN OF TYP_RESULT,
    
12.        VBELN LIKE VBAK-VBELN,"Sales Document
    
13.        POSNR LIKE VBAP-POSNR,"Sales Document Item
    
14.      END OF TYP_RESULT.
    
15. ************************************************************************
    
16. **  定义内表与变量
    
17. ************************************************************************
    
18. DATA:I_RESULT TYPE TABLE OF TYP_RESULT WITH HEADER LINE.
    
19. 
    
20. DATA: I_VALUES TYPE VRM_VALUES WITH HEADER LINE.
    
21. *@---------------------------------------------------------------------*
    
22. *调用相关对象使用的变量
    
23. 
    
24. ************************************************************************
    
25. **  定义宏
    
26. ************************************************************************
    
27. DEFINE M_MAKT.
    
28. 
    
29. END-OF-DEFINITION.
    
30. ************************************************************************
    
31. **  定制选择屏幕
    
32. ************************************************************************
    
33. SELECTION-SCREEN BEGIN OF BLOCK XAVERY WITH FRAME TITLE TEXT-001.
    
34. PARAMETERS: P_MONTH LIKE ISELLIST-MONTH
    
35.             OBLIGATORY DEFAULT SY-DATUM+0(6),
    
36.             P_LGORT(4)  AS LISTBOX VISIBLE LENGTH 6 OBLIGATORY.
    
37. SELECT-OPTIONS:S_MATKL  FOR MARA-MATKL.
    
38. SELECTION-SCREEN END OF BLOCK XAVERY.
    
39. ************************************************************************
    
40. **  执行程序事件
    
41. ************************************************************************
    
42. INITIALIZATION.
    
43.   PERFORM F_INIT_COND.
    
44. 
    
45. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_LGORT.
    
46.   PERFORM F_SEARCH_HELP_LGORT.
    
47. 
    
48. START-OF-SELECTION.
    
49.   PERFORM F_PROCESS_OCND.
    
50. 
    
51. *&---------------------------------------------------------------------*
    
52. *&      Form  F_INIT_COND
    
53. *&---------------------------------------------------------------------*
    
54. *       text
    
55. *----------------------------------------------------------------------*
    
56. FORM F_INIT_COND .
    
57.   I_VALUES-KEY = '1000'.
    
58.   I_VALUES-TEXT = '上海四平仓库'.
    
59.   APPEND I_VALUES.
    
60.   I_VALUES-KEY = '2000'.
    
61.   I_VALUES-TEXT = '北京中粮国库'.
    
62.   APPEND I_VALUES.
    
63.   I_VALUES-KEY = '3000'.
    
64.   I_VALUES-TEXT = '南京后备库'.
    
65.   APPEND I_VALUES.
    
66. ENDFORM.                    " F_INIT_COND
    
67. *&---------------------------------------------------------------------*
    
68. *&      Form  F_PROCESS_OCND
    
69. *&---------------------------------------------------------------------*
    
70. *       初始化数据
    
71. *----------------------------------------------------------------------*
    
72. FORM F_PROCESS_OCND .
    
73. 
    
74. ENDFORM.                    " F_PROCESS_OCND
    
75. *&---------------------------------------------------------------------*
    
76. *&      Form  F_SEARCH_HELP_LGORT
    
77. *&---------------------------------------------------------------------*
    
78. *       text
    
79. *----------------------------------------------------------------------*
    
80. FORM F_SEARCH_HELP_LGORT .
    
81.   CALL FUNCTION 'VRM_SET_VALUES'
    
82.     EXPORTING
    
83.       ID              = 'P_LGORT'
    
84.       VALUES          = I_VALUES[]
    
85.     EXCEPTIONS
    
86.       ID_ILLEGAL_NAME = 1
    
87.       OTHERS          = 2.
    
88.   IF SY-SUBRC <> 0.
    
89.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
90.     WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
91.   ENDIF.
    
92. ENDFORM.                    " F_SEARCH_HELP_LGORT

复制代码