ABAP 實現選擇螢幕欄位輸入預設日期
*&增加預設起始日期邏輯:
*&選擇螢幕預設日期邏輯修改
*&(1)當前系統日期若為15號及以前日期,則選擇螢幕預設為上月1號到最後1天;
*&(2)當前系統日期若為15號以後日期,則選擇螢幕預設為當月1號到最後1天。
IF sy-datum+6(2) LE 15.
IF sy-datum+4(2) NE '01'.
s_ftrmi-low+0(4) = sy-datum.
s_ftrmi-low+4(2) = sy-datum+4(2) - 1.
s_ftrmi-low+6(2) = '01'.
CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' 輸入當月第一天,獲取當月最後一天
EXPORTING
i_date = s_ftrmi-low
IMPORTING
e_date = s_ftrmi-high.
macro_add: s_ftrmi 'I' 'BT' s_ftrmi-low s_ftrmi-high.
ELSE.
s_ftrmi-low+0(4) = sy-datum+0(4) - 1.
s_ftrmi-low+4(4) = '1201'.
CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
EXPORTING
i_date = s_ftrmi-low
IMPORTING
e_date = s_ftrmi-high.
macro_add: s_ftrmi 'I' 'BT' s_ftrmi-low s_ftrmi-high.
ENDIF.
ELSE.
s_ftrmi-low+0(6) = sy-datum.
s_ftrmi-low+6(2) = '01'.
CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
EXPORTING
i_date = s_ftrmi-low
IMPORTING
e_date = s_ftrmi-high.
macro_add: s_ftrmi 'I' 'BT' s_ftrmi-low s_ftrmi-high.
ENDIF.