ABAP 年月搜索帮组（自定义财务期间）

时间格式可自己处理，样例格式是YYYY.MM

效果：

实现过程：

*&---------------------------------------------------------------------*
*& Form FRM_VALUEHELP_PERIOD
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> S_PERIOD_LOW
*&---------------------------------------------------------------------*
FORM frm_valuehelp_period  USING pv_period.

  DATA lv_month TYPE isellist-month.

  FIELD-SYMBOLS <fs_field> TYPE any.

  lv_month = sy-datum+0(6).

  CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
      actual_month               = lv_month
*     FACTORY_CALENDAR           = ' '
*     HOLIDAY_CALENDAR           = ' '
*     LANGUAGE                   = SY-LANGU
*     START_COLUMN               = 8
*     START_ROW                  = 5
    IMPORTING
      selected_month             = lv_month
*     RETURN_CODE                =
    EXCEPTIONS
      factory_calendar_not_found = 1
      holiday_calendar_not_found = 2
      month_not_found            = 3
      OTHERS                     = 4.

  IF sy-subrc = 0.
    CHECK lv_month <> '000000'.
    pv_period = lv_month(4) && '.' && lv_month+4(2).
  ENDIF.

ENDFORM.

 

财务期间处理

对于财务相关期间需要期间13的，我们可以copy此函数出来，修改即可：

1.COPY 函数组SCA3

2.修改取数form

fill_p100_fields ->fill_month_tab

效果: