搜索帮助年月弹框
分享者:abapDaley
DATA: l_code LIKE sy-subrc.
DATA:lv_ny TYPE ISELLIST-MONTH . "这个定义自己要注意下
SELECTION-SCREEN BEGIN OF BLOCK bl01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_ny FOR lv_ny OBLIGATORY."年月
SELECTION-SCREEN END OF BLOCK bl01.
INITIALIZATION .
AT SELECTION-SCREEN OUTPUT .
lv_ny = sy-datum+0(6).
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_ny-low. "对SELECT-OPTIONS第一个值进行搜索帮助
CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
EXPORTING
actual_month = lv_ny "默认值:当前年月
language = sy-langu
start_column = 8
start_row = 5
IMPORTING
selected_month = s_ny-low "选择完成之后赋值给S_NY的low值
return_code = l_code
EXCEPTIONS
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
month_not_found = 3
OTHERS = 4.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_ny-high.
CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
EXPORTING
actual_month = lv_ny
language = sy-langu
start_column = 8
start_row = 5
IMPORTING
selected_month = s_ny-high
return_code = l_code
EXCEPTIONS
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
month_not_found = 3
OTHERS = 4.
START-OF-SELECTION.