BAPI_GOODSMVT_CREATE 寄售转自有

1. 准备BAPI数据:

    wa_gm_item-plant      = v_werks.
    wa_gm_item-vendor     = v_lifnr.
    wa_gm_item-stge_loc   = <wa>-lgort.
    wa_gm_item-material   = v_matnr.
    wa_gm_item-entry_qnt  = v_qty.
    wa_gm_item-move_stloc = <wa>-lgort.
    wa_gm_item-move_type  = '411'.
    wa_gm_item-spec_stock = 'K'.
    APPEND wa_gm_item TO it_gm_item.

 

2. BAPI 头

    wa_gm_head-pstng_date  = sy-datum.
    wa_gm_head-doc_date     = sy-datum.
    wa_gm_head-pr_uname    = sy-uname.

 

3. 调用BAPI:

          CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
      EXPORTING
        goodsmvt_header  = wa_gm_head
        goodsmvt_code    = '06'
      IMPORTING
        goodsmvt_headret = wa_mat_doc
      TABLES
        goodsmvt_item    = it_gm_item
        return           = it_bapi_rtn.

 

     LOOP AT it_bapi_rtn INTO wa_bapi_out WHERE type = 'E' OR type = 'A'.
    ENDLOOP.
    IF sy-subrc NE 0.

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

    ENDIF.

 

以上代码ECC6通过，简单代码，笔记备查.