BAPI_GOODSMVT_CREATE

 

data: itab_header like bapi2017_gm_head_01 occurs 0 with header line,
      itab_code like bapi2017_gm_code occurs 0 with header line,
    itab_item like bapi2017_gm_item_create occurs 0 with header line,
      it_return like bapiret2 occurs 0 with header line.

parameters: t_werks like marc-werks.

start-of-selection.

    data:l_matedoc like mkpf-mblnr,
       l_lgort like ekpo-lgort,
       l_ebeln like ekpo-ebeln.

    clear: itab_header,itab_code,itab_item,it_return.
    refresh: itab_header,itab_code,itab_item,it_return.

    itab_code-gm_code = '01'.
    itab_header-doc_date = sy-datum.
    itab_header-pstng_date = sy-datum.
    itab_header-ref_doc_no = '4500000562'.

    itab_item-material = 'TEST-9999'.
    itab_item-plant = 'AAAA'.
    itab_item-stge_loc = '005G'.
    itab_item-move_type = '101'.
    itab_item-entry_qnt = '2'.
    itab_item-entry_uom = 'EA'.
    itab_item-vendor = 'JEI006'.
    itab_item-po_number = '4500000562'.
    itab_item-po_item = '00010'.
    itab_item-mvt_ind = 'B'.
    append itab_item.

    call function 'BAPI_GOODSMVT_CREATE'
         exporting
              goodsmvt_header  = itab_header
              goodsmvt_code    = itab_code
         importing
              materialdocument = l_matedoc
         tables
              goodsmvt_item    = itab_item
              return           = it_return.

    commit work.
    wait up to 5 seconds.

    data: de type i.
    do 100 times. add 1 to de. enddo.

*   LOOP AT it_return.
*      if it_return-type = 'E'.
*        write:/ it_return-message.
*      endif.
*   endloop.
    if not l_matedoc is initial.
      write l_matedoc.
    endif.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15117617/viewspace-662033/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15117617/viewspace-662033/