*&---------------------------------------------------------------------*

*& 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.