ABAP DEMO 年月的搜索帮助

效果图：

*&---------------------------------------------------------------------*
*& Report YCX_024
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ycx_024.

TABLES: MARC.
DATA: gv_start_date TYPE sy-datum,
      gv_end_date   TYPE sy-datum.

*----------------------------------------------------------------------*
*  SELECTION SCREEN
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01.
SELECT-OPTIONS: s_werks FOR marc-werks NO INTERVALS."no-EXTENSION
PARAMETERS: p_buper TYPE char07. "buper.
SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.
*---------------------------------------------------------------
* AT SELECTION-SCREEN :选择屏幕运行时触发,建立字段搜索帮助
*---------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_buper.  "*  F4 for buper
  PERFORM frm_month_f4.

*&---------------------------------------------------------------------*
*& Form FRM_MONTH_F4
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_month_f4 .
  DATA: BEGIN OF mf_dynpfields OCCURS .
          INCLUDE STRUCTURE dynpread.
        DATA: END   OF mf_dynpfields.
  DATA: mf_returncode LIKE sy-subrc,
        mf_monat      LIKE isellist-month,
        mf_hlp_repid  LIKE sy-repid.

  GET CURSOR FIELD mf_dynpfields-fieldname.
  APPEND mf_dynpfields.
  mf_hlp_repid = sy-repid.

  DO  TIMES.
    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        dyname               = mf_hlp_repid
        dynumb               = sy-dynnr
      TABLES
        dynpfields           = mf_dynpfields
      EXCEPTIONS
        invalid_abapworkarea =
        invalid_dynprofield  =
        invalid_dynproname   =
        invalid_dynpronummer =
        invalid_request      =
        no_fielddescription  =
        undefind_error       = .

    IF sy-subrc = .
      mf_hlp_repid = 'SAPLALDB'.
    ELSE.
      READ TABLE mf_dynpfields INDEX .
      TRANSLATE mf_dynpfields-fieldvalue USING '_ '.
      EXIT.
    ENDIF.
  ENDDO.

  IF sy-subrc = .
    CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT'
      EXPORTING
        input         = mf_dynpfields-fieldvalue
      IMPORTING
        output        = mf_monat
      EXCEPTIONS
        error_message = .

    IF mf_monat IS INITIAL.
      mf_monat = sy-datlo().
    ENDIF.

    CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
      EXPORTING
        actual_month               = mf_monat
      IMPORTING
        selected_month             = mf_monat
        return_code                = mf_returncode
      EXCEPTIONS
        factory_calendar_not_found =
        holiday_calendar_not_found =
        month_not_found            = .

    IF sy-subrc =  AND mf_returncode = .
      CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
        EXPORTING
          input  = mf_monat
        IMPORTING
          output = mf_dynpfields-fieldvalue.
      COLLECT mf_dynpfields.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = mf_hlp_repid
          dynumb               = sy-dynnr
        TABLES
          dynpfields           = mf_dynpfields
        EXCEPTIONS
          invalid_abapworkarea =
          invalid_dynprofield  =
          invalid_dynproname   =
          invalid_dynpronummer =
          invalid_request      =
          no_fielddescription  =
          undefind_error       = .
    ENDIF.
  ENDIF.
ENDFORM.