ABAP 自定义搜索帮助 demo2

最新推荐文章于 2024-01-25 17:03:08 发布

kodyyu

最新推荐文章于 2024-01-25 17:03:08 发布

阅读量124

点赞数 1

分类专栏： SAP-ABAP 文章标签： ABAP

本文链接：https://blog.csdn.net/weixin_43176021/article/details/132107200

版权

SAP-ABAP 专栏收录该内容

89 篇文章 3 订阅

订阅专栏

ABAP 自定义搜索帮助 demo2

PARAMETERS: p_spmon TYPE s031-spmon OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.
PERFORM frm_spmon_f4.

FORM frm_spmon_f4 .

DATA: lt_dynpfields LIKE STANDARD TABLE OF dynpread,
ls_dynpfields LIKE dynpread.

DATA: lv_returncode LIKE sy-subrc,
lv_monat LIKE isellist-month,
lv_repid LIKE sy-repid.

GET CURSOR FIELD ls_dynpfields-fieldname.
APPEND ls_dynpfields TO lt_dynpfields.

lv_repid = sy-repid.

DO 2 TIMES.
    CALL FUNCTION ‘DYNP_VALUES_READ’
      EXPORTING
        dyname               = lv_repid
        dynumb               = sy-dynnr
      TABLES
        dynpfields           = lt_dynpfields
      EXCEPTIONS
        invalid_abapworkarea = 01
        invalid_dynprofield  = 02
        invalid_dynproname   = 03
        invalid_dynpronummer = 04
        invalid_request      = 05
        no_fielddescription  = 06
        undefind_error       = 07.

IF sy-subrc = 3.
      lv_repid = ‘SAPLALDB’.
    ELSE.
      READ TABLE lt_dynpfields INTO ls_dynpfields INDEX 1.
      TRANSLATE ls_dynpfields-fieldvalue USING '_ '.
      EXIT.
    ENDIF.
  ENDDO.

IF sy-subrc = 0.
    CALL FUNCTION ‘CONVERSION_EXIT_PERI_INPUT’
      EXPORTING
        input         = ls_dynpfields-fieldvalue
      IMPORTING
        output        = lv_monat
      EXCEPTIONS
        error_message = 1.

IF lv_monat IS INITIAL.
lv_monat = sy-datlo(6).
ENDIF.

CALL FUNCTION ‘POPUP_TO_SELECT_MONTH’
      EXPORTING
        actual_month               = lv_monat
      IMPORTING
        selected_month             = lv_monat
        return_code                = lv_returncode
      EXCEPTIONS
        factory_calendar_not_found = 01
        holiday_calendar_not_found = 02
        month_not_found            = 03.

IF sy-subrc = 0 AND lv_returncode = 0.
      CALL FUNCTION ‘CONVERSION_EXIT_PERI_OUTPUT’
        EXPORTING
          input  = lv_monat
        IMPORTING
          output = ls_dynpfields-fieldvalue.
      COLLECT ls_dynpfields INTO lt_dynpfields.
      CALL FUNCTION ‘DYNP_VALUES_UPDATE’
        EXPORTING
          dyname               = lv_repid
          dynumb               = sy-dynnr
        TABLES
          dynpfields           = lt_dynpfields
        EXCEPTIONS
          invalid_abapworkarea = 01
          invalid_dynprofield  = 02
          invalid_dynproname   = 03
          invalid_dynpronummer = 04
          invalid_request      = 05
          no_fielddescription  = 06
          undefind_error       = 07.
    ENDIF.
  ENDIF.