ABAP 实现选择屏幕字段输入默认日期

最新推荐文章于 2024-07-05 15:37:48 发布

yiyuzz

最新推荐文章于 2024-07-05 15:37:48 发布

阅读量6k

点赞数

文章标签： ABAP

本文链接：https://blog.csdn.net/yiyuzz/article/details/84183880

版权

*&增加默认起始日期逻辑：
*&选择屏幕默认日期逻辑修改
*&（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.