ME01创建货源清单函数、BAPI

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/champaignwolf/article/details/76641497

FUNCTION zsrm_source_list.
"----------------------------------------------------------------------
""Local interface:
"  TABLES
"      INPUT STRUCTURE  ZSRM_SOURCE_LIST_INPUT OPTIONAL
"      OUTPUT STRUCTURE  ZSRM_SOURCE_LIST_OUTPUT OPTIONAL
"----------------------------------------------------------------------

  "批量更改货源清单

  DATA:lt_eordu LIKE TABLE OF eordu WITH HEADER LINE.

  SORT input BY matnr werks.

  DATA:lv_matnr TYPE matnr,

       lv_werks TYPE werks_d.

  DATA:wa_input TYPE zsrm_source_list_input.


  LOOP AT input.

    MOVE-CORRESPONDING input TO wa_input.

    AT NEW werks.

      CLEAR:lt_eordu[].

      REFRESH lt_eordu.

    ENDAT.

    CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

      EXPORTING

        input  = wa_input-matnr

      IMPORTING

        output = wa_input-matnr

      EXCEPTIONS

        OTHERS = 1.


    CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

      EXPORTING

        input  = wa_input-lifnr

      IMPORTING

        output = wa_input-lifnr

      EXCEPTIONS

        OTHERS = 1.


    lt_eordu-matnr = wa_input-matnr.

    lt_eordu-werks = wa_input-werks.

    lt_eordu-vdatu = wa_input-vdatu.

    lt_eordu-bdatu = wa_input-bdatu.

    lt_eordu-lifnr = wa_input-lifnr.

    lt_eordu-ekorg = wa_input-ekorg.

    lt_eordu-reswk = wa_input-reswk.

    lt_eordu-autet = wa_input-autet.

    lt_eordu-erdat = sy-datum.

    lt_eordu-ernam = sy-uname.
    lt_eordu-zeord = record-zeord.

    lt_eordu-kz = ‘I’.

    APPEND lt_eordu.

    lv_matnr = wa_input-matnr.

    lv_werks = wa_input-werks.


    AT END OF werks.

      CALL FUNCTION ‘ME_INITIALIZE_SOURCE_LIST’ .


      CALL FUNCTION ‘ME_DIRECT_INPUT_SOURCE_LIST’

        EXPORTING

          i_matnr            = lv_matnr

          i_werks            = lv_werks
         I_MT06E            =  lt_eordu
         I_NO_MATERIAL_READ =
         activity           = ‘V’
         I_VORGA            =
         I_LOGSY            =

        TABLES

          t_eord             = lt_eordu

        EXCEPTIONS

          plant_missing      = 1

          material_missing   = 2

          OTHERS             = 3.

      IF sy-subrc <> 0.

        output-matnr = lv_matnr.

        output-werks = lv_werks.

        output-flag = ‘E’.

        output-message = ‘货源清单创建失败’.

        APPEND output.

        CLEAR output.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

      ELSE.

        CALL FUNCTION ‘ME_POST_SOURCE_LIST_NEW’

          EXPORTING

            i_matnr = wa_input-matnr.

        CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

          EXPORTING

            wait = ‘X’.

        output-matnr = lv_matnr.

        output-werks = lv_werks.

        output-flag = ‘S’.

        output-message = ‘货源清单创建成功’.

        APPEND output.

        CLEAR output.

      ENDIF.

    ENDAT.

  ENDLOOP.


ENDFUNCTION.