1. 程式人生 > >ABAP 實現選擇螢幕欄位輸入預設日期

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.