ABAP实现年月六位长度的搜索帮助

日期的标准搜索帮助都是“年月日”8位长度的，那么如果只需年月怎么实现呢。

1、程序代码：

1. TABLES:s295.
   
2. SELECT-OPTIONS:s_spmon FOR s295-spmon NO-EXTENSION OBLIGATORY DEFAULT sy-datum+0(6)."年月
   
3. 
   
4. INITIALIZATION.
   
5. 
   
6. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_spmon-low.
   
7.   PERFORM frm_monat_f4.
   
8. 
   
9. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_spmon-high.
   
10.   PERFORM frm_monat_f4.
    
11. 
    
12. AT SELECTION-SCREEN ON s_spmon.
    
13.   IF s_spmon-low > sy-datum+0(6).
    
14.     MESSAGE '选择的月份不能大于当前月份！' TYPE 'E'.
    
15.   ENDIF.
    
16. 
    
17. FORM  frm_monat_f4.
    
18.   DATA: BEGIN OF mf_dynpfields OCCURS 1.
    
19.           INCLUDE STRUCTURE dynpread.
    
20.   DATA: END   OF mf_dynpfields.
    
21.   DATA: mf_returncode LIKE sy-subrc,
    
22.         mf_monat      LIKE isellist-month,
    
23.         mf_hlp_repid  LIKE sy-repid.
    
24.   FIELD-SYMBOLS: <mf_feld>.
    
25.   GET CURSOR FIELD mf_dynpfields-fieldname.
    
26.   APPEND mf_dynpfields.
    
27.   mf_hlp_repid = sy-repid.
    
28.   DO 2 TIMES.
    
29.     CALL FUNCTION 'DYNP_VALUES_READ'
    
30.       EXPORTING
    
31.         dyname               = mf_hlp_repid
    
32.         dynumb               = sy-dynnr
    
33.       TABLES
    
34.         dynpfields           = mf_dynpfields
    
35.       EXCEPTIONS
    
36.         invalid_abapworkarea = 01
    
37.         invalid_dynprofield  = 02
    
38.         invalid_dynproname   = 03
    
39.         invalid_dynpronummer = 04
    
40.         invalid_request      = 05
    
41.         no_fielddescription  = 06
    
42.         undefind_error       = 07.
    
43.     IF sy-subrc = 3.
    
44.       mf_hlp_repid = 'SAPLALDB'.
    
45.     ELSE.
    
46.       READ TABLE mf_dynpfields INDEX 1.
    
47.       TRANSLATE mf_dynpfields-fieldvalue USING '_ '.
    
48.       EXIT.
    
49.     ENDIF.
    
50.   ENDDO.
    
51.   IF sy-subrc = 0.
    
52.     CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT'
    
53.       EXPORTING
    
54.         input         = mf_dynpfields-fieldvalue
    
55.       IMPORTING
    
56.         output        = mf_monat
    
57.       EXCEPTIONS
    
58.         error_message = 1.
    
59.     IF mf_monat IS INITIAL.
    
60.       mf_monat = sy-datlo(6).
    
61.     ENDIF.
    
62.     CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    
63.       EXPORTING
    
64.         actual_month               = mf_monat
    
65.       IMPORTING
    
66.         selected_month             = mf_monat
    
67.         return_code                = mf_returncode
    
68.       EXCEPTIONS
    
69.         factory_calendar_not_found = 01
    
70.         holiday_calendar_not_found = 02
    
71.         month_not_found            = 03.
    
72.     IF sy-subrc = 0 AND mf_returncode = 0.
    
73.       CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
    
74.         EXPORTING
    
75.           input  = mf_monat
    
76.         IMPORTING
    
77.           output = mf_dynpfields-fieldvalue.
    
78.       COLLECT mf_dynpfields.
    
79.       CALL FUNCTION 'DYNP_VALUES_UPDATE'
    
80.         EXPORTING
    
81.           dyname               = mf_hlp_repid
    
82.           dynumb               = sy-dynnr
    
83.         TABLES
    
84.           dynpfields           = mf_dynpfields
    
85.         EXCEPTIONS
    
86.           invalid_abapworkarea = 01
    
87.           invalid_dynprofield  = 02
    
88.           invalid_dynproname   = 03
    
89.           invalid_dynpronummer = 04
    
90.           invalid_request      = 05
    
91.           no_fielddescription  = 06
    
92.           undefind_error       = 07.
    
93.     ENDIF.
    
94.   ENDIF.
    
95. ENDFORM.

复制代码

2、测试效果：

刚出的呀  我试试  谢谢分享