ITPub博客

首页 > Linux操作系统 > Linux操作系统 > BAPI_GOODSMVT_CREATE

BAPI_GOODSMVT_CREATE

原创 Linux操作系统 作者:ytfsrs2008 时间:2010-05-06 13:29:01 0 删除 编辑
 
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/,如需转载,请注明出处,否则将追究法律责任。

上一篇: print form (2)
下一篇: VL01N BDC
请登录后发表评论 登录
全部评论

注册时间:2008-10-31

  • 博文量
    52
  • 访问量
    49854