SAP使用BAPI BAPI_GOODSMVT_CREATE 对采购订单做退货流程,SAP的移动类型是161,但是需要传递的移动类型为101 ,系统会自动将101转换成161
DATA: lt_item TYPE TABLE OF bapi2017_gm_item_create, lt_return TYPE TABLE OF bapiret2, ls_item TYPE bapi2017_gm_item_create, ls_header TYPE bapi2017_gm_head_01, ls_code TYPE bapi2017_gm_code, lv_mblnr TYPE mblnr, lv_mjahr TYPE mjahr. ls_code = '01'. "T158G-GMCODE ls_header-pstng_date = sy-datum. ls_header-doc_date = sy-datum. ls_item-move_type = '101'. "移动类型 ls_item-material = '30002328'. "退货物料 ls_item-entry_qnt = '1'. "退货数量 ls_item-entry_uom = 'JIN'. "退货单位 ls_item-plant = '1001'. "退货工厂 ls_item-stge_loc = '1002'. "退货库位 ls_item-PO_NUMBER = '4300000933'. "采购订单 ls_item-PO_ITEM = '00010'. "采购订单行号 ls_item-mvt_ind = 'B'. "采购B 生成F APPEND ls_item TO lt_item.CLEAR ls_item. CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = ls_header goodsmvt_code = ls_code IMPORTING * goodsmvt_headret = materialdocument = lv_mblnr matdocumentyear = lv_mjahr TABLES goodsmvt_item = lt_item return = lt_return. READ TABLE lt_return WITH KEY type = 'E' TRANSPORTING NO FIELDS. IF sy-subrc NE 0. COMMIT WORK AND WAIT. ELSE. ROLLBACK WORK. ENDIF. cl_demo_output=>write( lv_mblnr ). cl_demo_output=>write( lv_mjahr ). cl_demo_output=>write( lt_return ). cl_demo_output=>display( ).