1 DATA:lv_month LIKE isellist-month,
2 lv_code LIKE sy-subrc.
3 CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
4 EXPORTING
5 actual_month = sy-datum+0(6)
6 * factory_calendar = '01'
7 * holiday_calendar = '01'
8 language = sy-langu
9 * START_COLUMN = 8
10 * START_ROW = 5
11 IMPORTING
12 selected_month = lv_month
13 return_code = lv_code
14 * EXCEPTIONS
15 * FACTORY_CALENDAR_NOT_FOUND = 1
16 * HOLIDAY_CALENDAR_NOT_FOUND = 2
17 * MONTH_NOT_FOUND = 3
18 * OTHERS = 4
19 .
20 IF sy-subrc <> 0.
21 * Implement suitable error handling here
22 ENDIF.
23 "lv_answer 根据用户的操作会有三个值
24 " J 是
25 " N 否
26 " A 取消
ABAP-弹出月份输入框函数
最新推荐文章于 2024-08-22 17:38:39 发布