函数 BAPI_GOODSMVT_CREATE调用实例

REPORT  zmb31.
TABLES:mseg, mkpf, rm07m, t158b,t001l, msegk.

DATA: mat_doc LIKE bapi2017_gm_head_ret-mat_doc.

DATA:save_code LIKE sy-ucomm,
     ok_code LIKE sy-ucomm,
     loc_msg(50),
     gmnga LIKE afru-gmnga,
     mtsnr LIKE  rm07m-mtsnr,
     errflag..

DATA:BEGIN OF gt_afpo OCCURS 0.
        INCLUDE STRUCTURE afpo.
DATA:END OF gt_afpo.

DATA:gmhead LIKE bapi2017_gm_head_01.

DATA: BEGIN OF gmcode.
        INCLUDE STRUCTURE bapi2017_gm_code.
DATA: END OF gmcode.

DATA: BEGIN OF mthead.
        INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF mthead.

DATA: BEGIN OF itab OCCURS 100.
        INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF itab.

DATA: BEGIN OF errmsg OCCURS 10.
        INCLUDE STRUCTURE bapiret2.
DATA: END OF errmsg.

INITIALIZATION.
  t001l-lgort = ' BG01'.
  mseg-lgort = ' BG01'.
  mseg-werks = '1103'.
  mkpf-bldat = sy-datum.
  mkpf-budat = sy-datum.
  t158b-bwart = '101'.
*  rm07m-sobkz = ''.         "特殊库存
  rm07m-werks = '1103'.
  rm07m-lgort = ' BG01'.
  mseg-erfme = 'PC'.
  gmcode-gm_code = '02'.


***********gmcode-gm_code取值含义*******
********01     MB01
********02     MB31
********03     MB1A
********04     MB1B
********05     MB1C
********06     MB11
********07     MB04


  gmhead-pstng_date = sy-datum."mkpf-bldat.
  gmhead-doc_date = sy-datum."mkpf-budat.
  gmhead-pr_uname = sy-uname.

  itab-material = '000000003000000098'.
  itab-plant = '1103'.
  itab-stge_loc = 'BG01'.
  itab-move_type = '101'.
  itab-spec_stock = 'BG01'..
  itab-entry_qnt = '6'.
  itab-entry_uom = 'EA'.
  itab-po_number = '4500000097'.
  itab-po_item = '00010'.
  itab-mvt_ind = 'B'.
  itab-move_mat = '3000000098'.
  itab-move_plant = '1103'.
  itab-move_stloc = 'BG01'.
  itab-nb_slips = 1.

  APPEND itab.

  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header  = gmhead
      goodsmvt_code    = gmcode
    IMPORTING
      goodsmvt_headret = mthead
      materialdocument = mat_doc
    TABLES
      goodsmvt_item    = itab
      return           = errmsg.

  LOOP AT errmsg.
    CLEAR loc_msg.
    CONCATENATE '过帐成功!' errmsg-message INTO loc_msg.
    IF errmsg-type EQ 'E'.
      MESSAGE errmsg-message TYPE 'E'.
      errflag = 'X'.
    ELSE.
      MESSAGE loc_msg TYPE 'S'.
    ENDIF.
  ENDLOOP.


  IF errflag IS INITIAL.
    COMMIT WORK AND WAIT.
    CLEAR loc_msg.
    IF sy-subrc NE 0.
      MESSAGE '过帐操作出现错误,请稍后重试!' TYPE 'E'.
      EXIT.
    ELSE.
      CONCATENATE '物料凭证:' mat_doc '已成功创建!' INTO loc_msg.
      MESSAGE i000(znyj13) WITH loc_msg.

      gmhead-ref_doc_no = ''.
      gmhead-header_txt = ''.
      mseg-matnr = ''.
      msegk-mat_kdauf = ''.
      msegk-mat_kdpos = ''.
      mseg-erfmg = ''.
      rm07m-mtsnr = ''.
      gmnga = ''.
      mkpf-bktxt = ''.
    ENDIF.
  ELSE.
    MESSAGE '这不是正确的发料单或者已经创建凭证!' TYPE 'E'.
  ENDIF.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.

------------------------------261 /262 生产订单收退料------------------------

  REPORT test.
*物料凭证的抬头数据
DATA:

li_gm_head TYPE STANDARD TABLE OF bapi2017_gm_head_01,
l_gm_head LIKE bapi2017_gm_head_01,
*为BAPI货物移动分配事务代码
li_gm_code TYPE STANDARD TABLE OF bapi2017_gm_code,
l_gm_code LIKE bapi2017_gm_code,

*返回单据号码
l_mat_doc LIKE bapi2017_gm_head_ret-mat_doc,

*凭证项目
li_gm_item TYPE STANDARD TABLE OF bapi2017_gm_item_create,
l_gm_item LIKE bapi2017_gm_item_create,

*-------------------------
li_return TYPE STANDARD TABLE OF bapiret2,
l_return TYPE bapiret2,
*Error flag
l_errflag(1) TYPE c.

*&---------------------------------------------------------------------*
*&      Form  CALLBAPI
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*填写表头数据

  l_gm_head-pstng_date = sy-datum.
  l_gm_head-doc_date = sy-datum.
  APPEND l_gm_head TO li_gm_head.
*分配事务代码
  l_gm_code-gm_code = '03'.
  APPEND l_gm_code TO li_gm_code.

*发货明细
  l_gm_item-material = '000000003102000245'.                "10 410A
  l_gm_item-plant = '1201'.
  l_gm_item-stge_loc = '1006'.
  l_gm_item-move_type = '261'. "移动类型（库存管理）
*  l_gm_item-mvt_ind   = 'F'.
  l_gm_item-entry_qnt = '1'.
  l_gm_item-entry_uom = 'EA'.
  l_gm_item-orderid = '000010003579'. "MO号
  l_gm_item-reserv_no = '0000107118'. "预留/相关需求的编号 RESB~RSNUM
  l_gm_item-res_item = '0019'. " 预留 / 相关需求的项目编号 RESB~RSPOS
*  l_gm_item-XSTOB = 'X'.                   “冲销标志，不修改移动类型261，做完以后也是262；使用262,但此处不设置还是261.

                 gm_code  = 03  和  05  此处都是对的，不知道是不是bugger
  APPEND l_gm_item TO li_gm_item.

  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
  EXPORTING
  goodsmvt_header = l_gm_head
  goodsmvt_code = '03'
* RETURN
  IMPORTING
* GOODSMVT_HEADRET = L_MAT_DOC
  materialdocument = l_mat_doc
  TABLES
  goodsmvt_item = li_gm_item
  return = li_return
  .
  CLEAR l_errflag.
  MESSAGE i005(ymess) WITH l_mat_doc.

  IF l_errflag IS INITIAL.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
  ELSE.
    MESSAGE i005(ymess) WITH 'ERROR'.
  ENDIF.