*&增加默认起始日期逻辑:
*&选择屏幕默认日期逻辑修改
*&(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.
ABAP 实现选择屏幕字段输入默认日期
猜你喜欢
转载自blog.csdn.net/yiyuzz/article/details/84183880
今日推荐
周排行