BAPI_GOODSMVT_CREATE创建带‘E’特殊库存标识的物料凭证

  DATA: ls_goodsmvt_header  TYPE bapi2017_gm_head_01,
        ls_goodsmvt_code    TYPE bapi2017_gm_code,
        ls_goodsmvt_headret TYPE bapi2017_gm_head_ret,
        lt_goodsmvt_item    TYPE STANDARD TABLE OF bapi2017_gm_item_create INITIAL SIZE 0 WITH HEADER LINE,
        lt_return           TYPE STANDARD TABLE OF bapiret2 INITIAL SIZE 0 WITH HEADER LINE.

      CLEAR ls_goodsmvt_header.
      ls_goodsmvt_header-pstng_date = ls_itab-budat. "过账日期
      ls_goodsmvt_header-doc_date   = ls_itab-bldat. "凭证日期
      "与生产订单发料相关
      ls_goodsmvt_code-gm_code = '03'.

    CLEAR lt_goodsmvt_item.
    lt_goodsmvt_item-material_long = ls_itab-matnr. "物料
    lt_goodsmvt_item-plant         = ls_itab-werks. "工厂
    lt_goodsmvt_item-stge_loc      = ls_itab-lgort. "库存地点
    lt_goodsmvt_item-move_type     = ls_itab-bwart. "移动类型
    IF lt_goodsmvt_item-move_type = '262'.
      lt_goodsmvt_item-move_type = '261'.
      lt_goodsmvt_item-xstob = 'X'.
    ENDIF.

    lt_goodsmvt_item-entry_qnt   = ls_itab-menge. "数量
    lt_goodsmvt_item-amount_lc   = ls_itab-dmbtr. "金额

    lt_goodsmvt_item-reserv_no   = ls_itab-rsnum. "预留号
    lt_goodsmvt_item-res_item    = ls_itab-rspos. "预留号行项目
    lt_goodsmvt_item-spec_stock  = ls_itab-sobkz. "特殊库存

*    LT_GOODSMVT_ITEM-SALES_ORD   = LS_ITAB-KDAUF. "销售订单
*    LT_GOODSMVT_ITEM-S_ORD_ITEM  = LS_ITAB-KDPOS. "销售订单行项目
    lt_goodsmvt_item-val_sales_ord   = ls_itab-kdauf. "销售订单
    lt_goodsmvt_item-val_s_ord_item  = ls_itab-kdpos. "销售订单行项目


    lt_goodsmvt_item-orderid     = ls_itab-aufnr. "生产订单

    lt_goodsmvt_item-costcenter  = ls_itab-kostl. "成本中心
    lt_goodsmvt_item-gl_account  = ls_itab-sakto. "科目分配


    lt_goodsmvt_item-move_reas   = ls_itab-grund.  "移动原因
*    LT_GOODSMVT_ITEM-WITHDRAWN = LS_ZMMS004-KZEAR.  "最后
    lt_goodsmvt_item-item_text   = ls_itab-sgtxt.  "项目文本
    APPEND lt_goodsmvt_item.

      CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
        EXPORTING
          goodsmvt_header  = ls_goodsmvt_header
          goodsmvt_code    = ls_goodsmvt_code
        IMPORTING
          goodsmvt_headret = ls_goodsmvt_headret
        TABLES
          goodsmvt_item    = lt_goodsmvt_item
          return           = lt_return.