DEMO-创建外向交货单BAPI_OUTB_DELIVERY_CREATE_SLS

SAP各模块常⽤的BAPI MM模块1、 BAPI_MATERIAL_SAVEDATA 创建物料主数据注意参数EXTENSIONIN的使⽤，可以创建⾃定义字段例如：WA_BAPI_TE_MARA-MATERIAL = ITAB_UP-MATNR.T_EXTENSIONIN-STRUCTURE = 'BAPI_TE_MARA'.T_EXTENSIONIN-VALUEPART1 = WA_BAPI_TE_MARA.APPEND T_EXTENSIONIN.WA_BAPI_TE_MARAX-MATERIAL = ITAB_UP-MATNR. T_EXTENSIONINX-STRUCTURE = 'BAPI_TE_MARAX'.T_EXTENSIONINX-VALUEPART1 = WA_BAPI_TE_MARAX.APPEND T_EXTENSIONINX.2、 BAPI_OBJCL_CREATE 分类视图的创建3、 BAPI_OBJCL_GETCLASSES 分类视图得到详细信息4、 BAPI_MATERIAL_SAVEREPLICA 物料视图的扩充5、 BAPI_GOODSMVT_CREATE 创建物料凭证注意表T158G可以决定goodsmvt_codeGOODSMVT_CODE参数对应值： 01 MB01 02 MB31 03 MB1A 04 MB1B 05 MB1C 06 MB11 07 MB046、 BAPI_GOODSMVT_CANCEL 冲销物料凭证7、 BAPI_PR_CREATE 创建PR8、 BAPI_PO_CREATE1 创建PO9、 BAPI_PO_CHANGE 修改PO和删除PO10、WS_REVERSE_GOODS_ISSUE 冲销交货单的过账发货11、BAPI_RESERVATION_CREATE1 创建预留如果要检查ATP，必须使⽤BAPI_RESERVATION_CREATE12、BAPI_RESERVATION_CHANGE 修改和删除预留13、PRICES_CHANGE PRICES_POST 更改物料移动平均价或者标准价格如果要检查ATP，必须使⽤第⼆个SD模块1、 BAPI_SALESORDER_CREATEFROMDAT2 创建销售订单2、 SD_SALESDOCUMENT_CREATE 创建销售订单3、 BAPI_OUTB_DELIVERY_CREATE_SLS 根据销售订单创建交货单4、 BAPI_BILLINGDOC_CREATEMULTIPLE 创建发票，注意参数ref_doc_ca5、 BAPI_SALESORDER_CHANGE 修改或者删除销售订单6、 MB_CANCEL_GOODS_MOVEMENT 冲销交货单的过账发货7、 BAPI_BILLINGDOC_CANCEL1 发票的冲销8、 BAPI_OUTB_DELIVERY_CHANGE 修改外向交货单9、 SD_DELIVERY_UPDATE_PICKING 修改外向交货单拣配数量10、WS_DELIVERY_UPDATE 外向交货单的发货过账11、SD_CUSTOMER_MAINTAIN_ALL 创建客户。

[BAPI]使⽤BAPI_GOODSMVT_CREATE创建委外订单（subcontrac。

下⾯介绍⼀下使⽤bapi BAPI_GOODSMVT_CREATE为委外订单创建物料移动凭证。

例⼦代码：*&---------------------------------------------------------------------**& Report YTEST_SUBCONTRACT_MIGO*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ytest_subcontract_migo.DATA:lt_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,l_doc TYPE mseg-mblnr,l_year TYPE mseg-mjahr,lt_item TYPE STANDARD TABLE OF bapi2017_gm_item_create WITH HEADER LINE,lwa_header TYPE bapi2017_gm_head_01,lwa_code TYPE bapi2017_gm_code.DATA:l_line_id TYPE mseg-line_id VALUE '000000',l_parent_id TYPE mseg-parent_id VALUE '000000',l_line_depth TYPE mseg-line_depth VALUE '00'.lwa_code-gm_code = '01' . "MB01lwa_header-pstng_date = sy-datum. "凭证中的过帐⽇期lwa_header-doc_date = sy-datum. "凭证中的凭证⽇期lwa_header-pr_uname = sy-uname. "⽤户名lwa_header-ref_doc_no = '123456'. "参考订单lwa_header-header_txt = 'Header text'. "抬头⽂本* 物料lt_item-material = '000000410000000043'.* ⼯⼚lt_item-plant = '1286'.* 批次号lt_item-batch = '1808031000'.* 移动类型lt_item-move_type = '101'.* 库存地点lt_item-stge_loc = '1103'.* 基本单位数量lt_item-entry_qnt = 57040.* 输⼊单位lt_item-entry_uom = 'KG'.* 订单单位数量lt_item-po_pr_qnt = 57040.* 订单价格单位(采购)lt_item-orderpr_un = 'KG'.* 采购订单号lt_item-po_number = 4400000011.* 采购凭证的项⽬编号lt_item-po_item = '00010'.lt_item-mvt_ind = 'B'.* 凭证⾏的唯⼀标识l_line_id = l_line_id + 1.l_parent_id = l_line_id.lt_item-line_id = l_line_id.APPEND lt_item.CLEAR:lt_item.lt_item-move_type = '543'.* 物料编号lt_item-material = '000000410000000044'.* ⼯⼚lt_item-plant = '1286'.lt_item-spec_stock = 'O'.* 批次号lt_item-batch = '0000000004'.* 数量lt_item-entry_qnt = 3600.* 基本计量单位lt_item-entry_uom = 'KG'.* 上⼀⾏的识别码lt_item-parent_id = l_parent_id.* 凭证⾏的唯⼀标识l_line_id = l_line_id + 1.lt_item-line_id = l_line_id.* 凭证中⾏层次结构级别l_line_depth = '01'.lt_item-line_depth = l_line_depth.APPEND lt_item.CALL FUNCTION'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header = lwa_headergoodsmvt_code = lwa_code* TESTRUN = ' '* GOODSMVT_REF_EWM =* GOODSMVT_PRINT_CTRL =IMPORTING* GOODSMVT_HEADRET =materialdocument = l_docmatdocumentyear = l_yearTABLESgoodsmvt_item = lt_itemreturn = lt_return.LOOP AT lt_return WHERE type CA 'AEX'.EXIT.ENDLOOP.IF sy-subrc = 0.CALL FUNCTION'BAPI_TRANSACTION_ROLLBACK'.WRITE:'Failed'.ELSE.CALL FUNCTION'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.WRITE:'物料凭证号:', l_doc.ENDIF.代码不复杂，需要注意的是字段line_id,parent_id,line_depth要填写正确，line_id是⽤来唯⼀标识⾏项⽬的，委外⾏要正确制定上层⾏项⽬ID，也就是把上层⾏项⽬的line_ID填到委外⾏的parent_ID字段中，line_depth也要按层次填⼊01...如果⾏项⽬字段填写不正确有时会出现M7 387错误。

◆◆0[BAPI]外向交货单按批次拆分[BAPI_OUTB_DELIVERY_CHANGE]三⽉ 20, 2017 9,583 views[隐藏]下⾯介绍SAP SD的销售订单外向交货单按批次拆分(Batch-Managed)，包括前台操作和调⽤bapi ‘BAPI_OUTB_DELIVERY_CHANGE’ 实现。

1, 前台操作按批次拆分操作：外向交货单Tcode： VL02n选中10⾏项⽬，点击‘批次拆分’按钮，填写批次后，回车，会将项⽬号和库位⾃动带出（视具体配置⽽定）点保存后，原来航项⽬10数量⾃动变更，变成0.删除批次拆分操作：选中刚才创建的拆分项⽬90001和90002，点删除按钮。

10⾏项⽬数量会⾃动更新，重新变成32, BAPI实现完整代码：其中1LW_ITEM_DATA-USEHIERITM = '1'.查看了domain中的固定值：‘1’代表Batch Subitem1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25REPORT ztest_bapi_sobitch.PARAMETERS p_vbeln TYPE vbeln_vl DEFAULT '8000003765'."测试批次拆分DATA:lit_header_partner LIKE TABLE OF bapidlvpartnerchg , "交货：合作伙伴更改lit_header_deadlines LIKE TABLE OF bapidlvdeadln , "交货截⽌⽇期lit_item_data LIKE TABLE OF bapiobdlvitemchg , "更改外向交货拣配数据项⽬等级lit_item_control LIKE TABLE OF bapiobdlvitemctrlchg , "外向交货项⽬级别控制数据lit_ret LIKE TABLE OF bapiret2 WITH HEADER LINE , "返回参数lit_item_data_spl LIKE TABLE OF /spe/bapiobdlvitemchg , "更改向外交货拣配数据项⽬等级（SPE） is_header_data LIKE bapiobdlvhdrchg , "更改外向交货拣配数据表头等级is_header_control LIKE bapiobdlvhdrctrlchg , "外向交货标题级别控制数据iv_delivery LIKE bapiobdlvhdrchg-deliv_numb . "交货DATA:lwa_header_partner LIKE bapidlvpartnerchg , "交货：合作伙伴更改lwa_header_deadlines LIKE bapidlvdeadln , "交货截⽌⽇期lwa_item_data LIKE bapiobdlvitemchg , "更改外向交货拣配数据项⽬等级lwa_item_control LIKE bapiobdlvitemctrlchg , "外向交货项⽬级别控制数据lwa_return LIKE bapiret2 . "返回参数DATA: l_techn_control TYPE bapidlvcontrol.25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93DATA: l_techn_control TYPE bapidlvcontrol.DATA:ls_item TYPE bapiobdlvitemchg,ls_item_t TYPE bapiobdlvitemchg,ls_item_control TYPE bapiobdlvitemctrlchg,ls_deadlines TYPE bapidlvdeadln.iv_delivery = p_vbeln. "交货单号"头信息is_header_data-deliv_numb = p_vbeln. "交货单号is_header_control-deliv_numb = p_vbeln."修改原10⾏项⽬数量CLEAR lwa_item_data.lwa_item_data-deliv_numb = p_vbeln.lwa_item_data-deliv_item = 10. "原⾏项⽬lwa_item_data-dlv_qty = 1.lwa_item_data-dlv_qty_imunit = 1.lwa_item_data-base_uom = 'TO'. "基本单位lwa_item_data-sales_unit = 'TO'. "销售单位lwa_item_data-fact_unit_nom = 1. "销售数量转换成SKU的分⼦(因⼦) lwa_item_data-fact_unit_denom = 1. "销售数量转换为 SKU 的值（除数）APPEND lwa_item_data TO lit_item_data .CLEAR lwa_item_control.lwa_item_control-deliv_numb = p_vbeln.lwa_item_control-deliv_item = 10. "原⾏项⽬lwa_item_control-chg_delqty = 'X'. "数量修改标志APPEND lwa_item_control TO lit_item_control."新拆分的批次CLEAR lwa_item_data.lwa_item_data-deliv_numb = p_vbeln.lwa_item_data-deliv_item = '900001'. "拆分后的新⾏项⽬lwa_item_data-hieraritem = 10. "上级⾏项⽬lwa_item_data-batch = 'YS91480001'. "新批次lwa_item_data-dlv_qty = 1. "⾃⼰重新计算拆分后的数量，lwa_item_data-dlv_qty_imunit = 1.lwa_item_data-fact_unit_nom = 1. "销售数量转换成SKU的分⼦(因⼦) lwa_item_data-fact_unit_denom = 1. "销售数量转换为 SKU 的值（除数）lwa_item_data-base_uom = 'TO'. "基本单位lwa_item_data-sales_unit = 'TO'. "销售单位lwa_item_data-usehieritm = '1'.APPEND lwa_item_data TO lit_item_data.CLEAR lwa_item_data.lwa_item_data-deliv_numb = p_vbeln.lwa_item_data-deliv_item = '900002'. "拆分后的新⾏项⽬lwa_item_data-hieraritem = 10. "上级⾏项⽬lwa_item_data-batch = 'YS91480002'."新批次lwa_item_data-dlv_qty = 1.lwa_item_data-dlv_qty_imunit = 1.lwa_item_data-fact_unit_nom = 1. "销售数量转换成SKU的分⼦(因⼦) lwa_item_data-fact_unit_denom = 1. "销售数量转换为 SKU 的值（除数）lwa_item_data-base_uom = 'TO'. "基本单位lwa_item_data-sales_unit = 'TO'. "销售单位lwa_item_data-usehieritm = '1'.9394 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143APPEND lwa_item_data TO lit_item_data.CLEAR lwa_item_control.lwa_item_control-deliv_numb = p_vbeln.lwa_item_control-deliv_item = '900001'. "拆分后的新⾏项⽬lwa_item_control-chg_delqty = 'X'. "数量修改标志APPEND lwa_item_control TO lit_item_control . CLEAR lwa_item_control.lwa_item_control-deliv_numb = p_vbeln.lwa_item_control-deliv_item = '900002'."拆分后的新⾏项⽬lwa_item_control-chg_delqty = 'X'. "数量修改标志APPEND lwa_item_control TO lit_item_control .CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE' EXPORTINGheader_data = is_header_dataheader_control = is_header_controldelivery = iv_deliveryTABLESheader_partner = lit_header_partnerheader_deadlines = lit_header_deadlinesitem_data = lit_item_dataitem_control = lit_item_controlreturn = lit_ret* ITEM_DATA_SPL = IT_ITEM_DATA_SPL.DATA: l_msg TYPE string.IF lit_ret[] IS INITIAL.COMMIT WORK AND WAIT.WRITE:/ '批次拆分成功'.RETURN.ENDIF.LOOP AT lit_ret WHERE type = 'E'.CLEAR l_msg.MESSAGE ID lit_ret-idTYPE 'E'NUMBER lit_ret-numberWITH lit_ret-message_v1lit_ret-message_v2lit_ret-message_v3lit_ret-message_v4INTO l_msg.WRITE:/ l_msg.ENDLOOP.选择画⾯：3, 保存批次数据库表外向交货单批次的相关数据保存在表LIPS中，LIPS-UECHA：批次拆分项⽬的上层项⽬以上⾯的数据为例：LIKPLIPSVBFA: 销售凭证流以上。

SAPSD基础知识之创建并处理外向交货单SAP SD基础知识之创建并处理外向交货单⼀，创建外向交货单的选项Options for Creating Outbound Deliveries我们可以⼿动地创建outbound delivery，参考或者不参考特定的销售订单，也可以参考公司代码间/公司代码内STO这样的特殊类型的采购订单去创建outbound delivery单据。

如果我们使⽤集中处理，我们可以为所有类型的shipping documents交货，在这种情况下，系统⾃动地创建若⼲的outbound deliveries，可以前台⼿动处理也可以后台作业的⽅式处理。

⼆，交货清单Delivery ListDelivery List是需要交货的所有交易的清单。

我们使⽤不同的标准选择凭证来集中处理delivery，下⼀步，系统⾃动创建outbound deliveries；如果shipping criteria相同，系统合并这些凭证到⼀张outbound delivery；反过来，系统分割⼀个交易到⼏张outbound deliveries。

我们可以⽤delivery scenarios来为不同的deliveries业务流程建模；当我们处理delivery list，我们仅需要选择⼀个scenario；三，交货场景 Delivery Scenarios⼀个delivery scenario模型化了为交付货物以满⾜不同的类型订单的⼀个业务流程。

例如，有⼀个delivery scenario允许我们按照⾏项⽬来完成SD订单的deliveries；该delivery scenario已经在系统中定义。

这个scenario对应的事务代码是VL10C, 如下图⽰：VL10C - Sales Order Items，由Delivery process产⽣的requirements⽤user roles（也叫做list profiles）来建模，它们使我们能够调整我们的delivery list处理，它们让我们控制selection的范围，delivery list的显⽰，the type of delivery等等。

BAPI_GOODSMVT_CREATE（调拨收货发货⼊库退货）code-gm_code取值：01 MB01 按采购订单的货物移动02 MB31 按⽣产订单的货物移动03 MB1A 货物提取（⼯单退料04 MB1B 转移过帐05 MB1C 其他收货06 MB11 货物移动07 MB04 "物料供应"消耗的事后调整itab-mvt_ind = 'B'. "移动标识　⽆参考的货物移动(空)B 按采购订单的货物移动F 有关⽣产单的货物移动L 有关交货通知的货物移动K 看板需求的货物移动（WM－仅限内部）O "提供物料"消耗的后续调整W ⽐例的后续调整/产品单位物料下⾯代码都已封装为 RFC调拨单（货物移动）FUNCTION zfunction.*"----------------------------------------------------------------------*"*"Local interface:*" EXPORTING*" VALUE(RSTYPE) TYPE XFELD*" VALUE(RSMESG) TYPE STRING*" VALUE(O_MBLNR) TYPE MBLNR*" TABLES*" ZMES_TORDER_REQ_I STRUCTURE ZMES_TORDER_REQ_I*"----------------------------------------------------------------------*输⼊表数据：ZMES_TORDER_REQ_I(表结构)* PSTNG_DATE type BUDAT 凭证中的过帐⽇期* MATERIAL MATNR 物料号* PLANT WERKS_D CHAR ⼯⼚* MOVE_PLANT UMWRK 收货/发货⼯⼚* STGE_LOC LGORT_D 库存地点* MOVE_STLOC UMLGO 收货/发货库存地点* ENTRY_QNT ERFMG 以输⼊单位计的数量* BATCH CHARG_D 批号*"----------------------------------------------------------------------DATA:goodsmvt_header LIKE bapi2017_gm_head_01,itab TYPE TABLE OF bapi2017_gm_item_create WITH HEADER LINE,return LIKE TABLE OF bapiret2 WITH HEADER LINE,mat_doc LIKE bapi2017_gm_head_ret-mat_doc,req_i TYPE zmes_torder_req_i.CLEAR:goodsmvt_header.goodsmvt_header-doc_date = sy-datum. "凭证中的凭证⽇期goodsmvt_header-pr_uname = sy-datum. "⽤户名LOOP AT zmes_torder_req_i INTO req_i.MOVE-CORRESPONDING req_i TO itab.goodsmvt_header-pstng_date = req_i-pstng_date. "凭证中的过帐⽇期IF req_i-plant = req_i-move_plant.itab-move_type = '311'. "移动类型（库储存地点<->库存地点）ELSE.* itab-move_type = '301'. "移动类型（⼯⼚<->⼯⼚）ENDIF.APPEND itab.CLEAR itab.ENDLOOP.CALL FUNCTION'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header = goodsmvt_headergoodsmvt_code = '04'IMPORTINGmaterialdocument = mat_docTABLESgoodsmvt_item = itabreturn = return.READ TABLE return WITH KEY type = 'E'.IF sy-subrc = 0.rstype = 'E'.LOOP AT return WHERE type = 'E' .CONCATENATE rsmesg return-message '，'INTO rsmesg.ENDLOOP.CALL FUNCTION'BAPI_TRANSACTION_ROLLBACK' . ELSE.CALL FUNCTION'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.rstype = 'S'.o_mblnr = mat_doc.ENDIF.ENDFUNCTION.⼯单发料function zfunction.*"----------------------------------------------------------------------*"*"Local interface:*" EXPORTING*" VALUE(RSTYPE) TYPE XFELD*" VALUE(RSMESG) TYPE STRING*" VALUE(O_MBLNR) TYPE MBLNR*" TABLES*" ZMES_ORD_REQ_I STRUCTURE ZMES_ORD_REQ_I *"----------------------------------------------------------------------*输⼊表：ZMES_ORD_REQ_I（表结构）* PLANT WERKS_D ⼯⼚* ORDERID AUFNR 订单号* MATERIAL MATNR 物料号* ENTRY_QNT ERFMG 以输⼊单位计的数量* STGE_LOC LGORT_D 库存地点*"----------------------------------------------------------------------data:goodsmvt_header like bapi2017_gm_head_01,itab type table of bapi2017_gm_item_create with header line, return like table of bapiret2 with header line,mat_doc like bapi2017_gm_head_ret-mat_doc,req_i type zmes_ord_req_i.clear:goodsmvt_header.goodsmvt_header-doc_date = sy-datum. "凭证中的凭证⽇期goodsmvt_header-pstng_date = sy-datum. "凭证中的过帐⽇期 goodsmvt_header-pr_uname = sy-datum. "⽤户名loop at zmes_ord_req_i into req_i.move-CORRESPONDING req_i to itab.itab-move_type = '261'. "移动类型（库存管理）append itab.clear itab.endloop.call function'BAPI_GOODSMVT_CREATE'exportinggoodsmvt_header = goodsmvt_headergoodsmvt_code = '03'importingmaterialdocument = mat_doctablesgoodsmvt_item = itabreturn = return.read table return with key type = 'E'.if sy-subrc = 0.rstype = 'E'.loop at return where type = 'E' .concatenate rsmesg return-message '，' into rsmesg.endloop.call function'BAPI_TRANSACTION_ROLLBACK' .else.call function'BAPI_TRANSACTION_COMMIT'exportingwait = 'X'.rstype = 'S'.o_mblnr = mat_doc.endif.endfunction.⼯单退料function zfunction.*"----------------------------------------------------------------------*"*"Local interface:*" EXPORTING*" VALUE(RSTYPE) TYPE XFELD*" VALUE(RSMESG) TYPE STRING*" VALUE(O_MBLNR) TYPE MBLNR*" TABLES*" ZMES_RT_ORDER_I STRUCTURE ZMES_RT_ORDER_I *"----------------------------------------------------------------------*输⼊表：ZMES_RT_ORDER_I（表结构）* PLANT WERKS_D ⼯⼚* ORDERID AUFNR 订单号* MATERIAL MATNR 物料号* RESERV_NO RSNUM 预留/相关需求的编号* RES_ITEM RSPOS 预留/相关需求的项⽬编号* ENTRY_QNT ERFMG 以输⼊单位计的数量* MOVE_REAS MB_GRBEW 移动原因* STGE_LOC LGORT_D 库存地点* BATCH CHARG_D 批号*"----------------------------------------------------------------------data:goodsmvt_header like bapi2017_gm_head_01,itab type table of bapi2017_gm_item_create with header line, return like table of bapiret2 with header line,mat_doc like bapi2017_gm_head_ret-mat_doc,order_i type zmes_rt_order_i.clear:goodsmvt_header.goodsmvt_header-doc_date = sy-datum. "凭证中的凭证⽇期goodsmvt_header-pstng_date = sy-datum. "凭证中的过帐⽇期 goodsmvt_header-pr_uname = sy-datum. "⽤户名loop at zmes_rt_order_i into order_i.move-corresponding order_i to itab.itab-move_type = '262'. "移动类型（库存管理）append itab.clear itab.endloop.call function'BAPI_GOODSMVT_CREATE'exportinggoodsmvt_header = goodsmvt_headergoodsmvt_code = '03'importingmaterialdocument = mat_doctablesgoodsmvt_item = itabreturn = return.read table return with key type = 'E'.if sy-subrc = 0.rstype = 'E'.loop at return where type = 'E' .concatenate rsmesg return-message '，' into rsmesg.endloop.call function'BAPI_TRANSACTION_ROLLBACK' .else.call function'BAPI_TRANSACTION_COMMIT'exportingwait = 'X'.rstype = 'S'.o_mblnr = mat_doc.endif.endfunction.⼯单⼊库FUNCTION zfunction.FUNCTION zmes_order_in.*"----------------------------------------------------------------------*"*"Local interface:*" EXPORTING*" VALUE(RSTYPE) TYPE XFELD*" VALUE(RSMESG) TYPE STRING*" VALUE(O_MBLNR) TYPE MBLNR*" TABLES*" ZMES_ORDER_IN_I STRUCTURE ZMES_ORDER_IN_I *"----------------------------------------------------------------------*输⼊表：ZMES_ORDER_IN_I（表结构）* PLANT WERKS_D ⼯⼚* ORDERID AUFNR 订单号* ENTRY_QNT ERFMG 以输⼊单位计的数量* STGE_LOC LGORT_D 库存地点* BATCH CHARG_D 批号*"----------------------------------------------------------------------DATA:header LIKE bapi2017_gm_head_01,code LIKE bapi2017_gm_code,itab TYPE TABLE OF bapi2017_gm_item_create WITH HEADER LINE, return LIKE TABLE OF bapiret2 WITH HEADER LINE,mat_doc LIKE bapi2017_gm_head_ret-mat_doc,goodsmvt_serialnumber TYPE TABLE OF bapi2017_gm_serialnumber, order_in TYPE zmes_order_in_i.CLEAR:header,code.header-doc_date = sy-datum. "凭证中的凭证⽇期header-pstng_date = sy-datum. "凭证中的过帐⽇期header-pr_uname = sy-datum. "⽤户名code-gm_code = '01'.LOOP AT zmes_order_in_i INTO order_in.MOVE-CORRESPONDING order_in TO itab.itab-move_type = '101'. "移动类型itab-mvt_ind = 'F'. "移动标识APPEND itab.CLEAR itab.ENDLOOP.CALL FUNCTION'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header = headergoodsmvt_code = codeIMPORTINGmaterialdocument = mat_docTABLESgoodsmvt_item = itabgoodsmvt_serialnumber = goodsmvt_serialnumberreturn = return.READ TABLE return WITH KEY type = 'E'.IF sy-subrc = 0.rstype = 'E'.LOOP AT return WHERE type = 'E' .CONCATENATE rsmesg return-message '，'INTO rsmesg.ENDLOOP.CALL FUNCTION'BAPI_TRANSACTION_ROLLBACK' .ELSE.CALL FUNCTION'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.rstype = 'S'.o_mblnr = mat_doc.ENDIF.ENDFUNCTION.ENDFUNCTION.PO退货FUNCTION zfunction.*"----------------------------------------------------------------------*"*"Local interface:*" EXPORTING*" VALUE(RSTYPE) TYPE XFELD*" VALUE(RSMESG) TYPE STRING*" VALUE(O_MBLNR) TYPE MBLNR*" TABLES*" ZMES_PO_STOCK_I STRUCTURE ZMES_PO_STOCK_I*"----------------------------------------------------------------------*输⼊表：ZMES_PO_STOCK_I（表结构）* MOVE_TYPE BWART 移动类型（库存管理）* PO_NUMBER BSTNR 采购订单编号* PO_ITEM EBELP 采购凭证的项⽬编号* PLANT WERKS_D ⼯⼚* MATERIAL MATNR 物料号* ENTRY_QNT ERFMG 以输⼊单位计的数量* STGE_LOC LGORT_D 库存地点* MOVE_REAS MB_GRBEW 移动原因* REF_DOC MBLNR 物料凭证编号* REF_DOC_IT LFPOS 参考凭证项⽬*"----------------------------------------------------------------------DATA:header LIKE bapi2017_gm_head_01,itab TYPE TABLE OF bapi2017_gm_item_create WITH HEADER LINE, return LIKE TABLE OF bapiret2 WITH HEADER LINE,mat_doc LIKE bapi2017_gm_head_ret-mat_doc,stock_i TYPE zmes_po_stock_i.CLEAR:header.header-doc_date = sy-datum. "凭证中的凭证⽇期header-pstng_date = sy-datum. "凭证中的过帐⽇期header-pr_uname = sy-datum. "⽤户名LOOP AT zmes_po_stock_i INTO stock_i.MOVE-CORRESPONDING stock_i TO itab.itab-mvt_ind = 'B'. "移动标识CASE stock_i-move_type.WHEN '102'.itab-move_reas = ''. "移动原因WHEN '122'.WHEN '161'.itab-move_type = '101'. "移动类型itab-ref_doc = ''. "物料凭证itab-ref_doc_it = ''. "物料凭证项⽬itab-move_reas = ''. "移动原因ENDCASE.APPEND itab.CLEAR itab.ENDLOOP.CALL FUNCTION'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header = headergoodsmvt_code = '01'"MB01 按采购订单的货物移动IMPORTINGmaterialdocument = mat_docTABLESgoodsmvt_item = itabreturn = return.READ TABLE return WITH KEY type = 'E'.IF sy-subrc = 0.rstype = 'E'.LOOP AT return WHERE type = 'E' .CONCATENATE rsmesg return-message '，'INTO rsmesg.ENDLOOP.CALL FUNCTION'BAPI_TRANSACTION_ROLLBACK' .ELSE.CALL FUNCTION'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.rstype = 'S'.o_mblnr = mat_doc.ENDIF.ENDFUNCTION.收货FUNCTION zfunction.*"----------------------------------------------------------------------*"*"Local interface:*" EXPORTING*" VALUE(RSTYPE) TYPE XFELD*" VALUE(RSMESG) TYPE STRING*" VALUE(O_MBLNR) TYPE MBLNR*" TABLES*" ZMES_PO_IN STRUCTURE ZMES_PO_IN*"----------------------------------------------------------------------*输⼊表：ZMES_PO_IN（表结构）* REF_DOC_NO XBLNR 参考凭证编号* PLANT WERKS_D ⼯⼚* PO_NUMBER EBELN 采购凭证号* PO_ITEM EBELP 采购凭证的项⽬编号* ETENS EETEN 交货计划⾏计数器* MATERIAL MATNR 物料号* STGE_LOC LGORT_D 库存地点* ENTRY_QNT ERFMG 以输⼊单位计的数量* VENDOR ELIFN 供应商帐户号* BATCH CHARG_D 批号*"----------------------------------------------------------------------DATA:header LIKE bapi2017_gm_head_01,code LIKE bapi2017_gm_code,itab TYPE TABLE OF bapi2017_gm_item_create WITH HEADER LINE, return LIKE TABLE OF bapiret2 WITH HEADER LINE,mat_doc LIKE bapi2017_gm_head_ret-mat_doc,po_in TYPE zmes_po_in.CLEAR:header,code.header-doc_date = sy-datum. "凭证中的凭证⽇期header-pstng_date = sy-datum. "凭证中的过帐⽇期header-pr_uname = sy-datum. "⽤户名header-ref_doc_no = zmes_po_in-ref_doc_no. "外向交货单code-gm_code = '01'. "为 BAPI 货物移动分配事务代码 4500090063LOOP AT zmes_po_in INTO po_in.MOVE-CORRESPONDING po_in TO itab.itab-move_type = '101'. "移动类型itab-mvt_ind = 'B'. "移动标识APPEND itab.CLEAR itab.ENDLOOP.CALL FUNCTION'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header = headergoodsmvt_code = codeIMPORTINGmaterialdocument = mat_docTABLESgoodsmvt_item = itabreturn = return.READ TABLE return WITH KEY type = 'E'.IF sy-subrc = 0.rstype = 'E'.LOOP AT return WHERE type = 'E' .CONCATENATE rsmesg return-message '，'INTO rsmesg.ENDLOOP.CALL FUNCTION'BAPI_TRANSACTION_ROLLBACK' .ELSE.CALL FUNCTION'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.rstype = 'S'.o_mblnr = mat_doc.ENDIF.ENDFUNCTION.IQC⼊库FUNCTION zfunction.*"----------------------------------------------------------------------*"*"Local interface:*" EXPORTING*" VALUE(RSTYPE) TYPE XFELD*" VALUE(RSMESG) TYPE STRING*" VALUE(O_MBLNR) TYPE MBLNR*" TABLES*" ZMES_PO_IQC_I STRUCTURE ZMES_PO_IQC_I*"----------------------------------------------------------------------*输⼊表：ZMES_PO_IQC_I（表结构）* PLANT WERKS_D ⼯⼚* MATERIAL MATNR 物料号* ENTRY_QNT ERFMG 以输⼊单位计的数量* STGE_LOC LGORT_D 库存地点* BATCH CHARG_D 批号*"----------------------------------------------------------------------DATA:header LIKE bapi2017_gm_head_01,itab TYPE TABLE OF bapi2017_gm_item_create WITH HEADER LINE,return LIKE TABLE OF bapiret2 WITH HEADER LINE,mat_doc LIKE bapi2017_gm_head_ret-mat_doc,goodsmvt_serialnumber TYPE TABLE OF bapi2017_gm_serialnumber,iqc_in TYPE zmes_po_iqc_i.CLEAR:header.header-doc_date = sy-datum. "凭证中的凭证⽇期header-pstng_date = sy-datum. "凭证中的过帐⽇期header-pr_uname = sy-datum. "⽤户名LOOP AT zmes_po_iqc_i INTO iqc_in.MOVE-CORRESPONDING iqc_in TO itab.itab-move_type = '321'. "移动类型APPEND itab.CLEAR itab.ENDLOOP.CALL FUNCTION'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header = headergoodsmvt_code = '04'"为BAPI货物移动分配事务代码(MB1B 转移过帐) IMPORTINGmaterialdocument = mat_docTABLESgoodsmvt_item = itabgoodsmvt_serialnumber = goodsmvt_serialnumberreturn = return.READ TABLE return WITH KEY type = 'E'.IF sy-subrc = 0.rstype = 'E'.LOOP AT return WHERE type = 'E' .CONCATENATE rsmesg return-message '，'INTO rsmesg. ENDLOOP.CALL FUNCTION'BAPI_TRANSACTION_ROLLBACK' . ELSE.CALL FUNCTION'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.rstype = 'S'.o_mblnr = mat_doc.ENDIF.ENDFUNCTION.。

BAPI：BAPI_PRODORDCONF_CREATE_TT （TCODE：CO11NBAPI:BAPI_PRODORDCONF_CREATE_TT （TCODE：CO11N）*&---------------------------------------------------------------------**& Form FRM_PROCESS_CO11N*&---------------------------------------------------------------------** 传输数据，进⾏完⼯⼊库和消耗物料确认*----------------------------------------------------------------------** -->P_LT_MSG text* -->P_LS_IFDATAIN_ITEM text* -->P_LS_IFDATAIN_HEAD text* <--P_LV_EIND text*----------------------------------------------------------------------*FORM frm_process_co11n TABLES tp_message STRUCTURE zifsret01tp_item STRUCTURE zrmxpps002USING up_head TYPE zrmxpps001CHANGING cp_eind TYPE ccp_aufnr TYPE afko-aufnrcp_rueck TYPE afwi-rueckcp_rmzhl TYPE afwi-rmzhl.DATA:ls_item TYPE zrmxpps002,ls_message TYPE zifsret01.DATA: ls_afpo TYPE ty_afpo,ls_afpo_find TYPE ty_afpo,lt_afpo TYPE STANDARD TABLE OF ty_afpo,ls_status TYPE ty_status,lt_status TYPE STANDARD TABLE OF ty_status.DATA: lv_index TYPE i.*--------------------------------------------------------------------**1 根据销售合同和⾏号，取得对应的⽣产订单号IF up_head-vtype = cns_vtype_1 OR "对外销售-⾮来料加⼯类型合同up_head-vtype = cns_vtype_2. "对外销售-来料加⼯类型合同"1,2为对外销售，需要根据销售订单号及⾏号读取对应的⽣产订单SELECT p~aufnr p~posnrINTO TABLE lt_afpoFROM afpo AS pWHERE p~kdauf = up_head-vbelnAND p~kdpos = up_head-posnr.IF sy-subrc NE 0.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = 'E'.ls_message-msgno = '101'.ls_message-msgtxt = '根据销售合同和⾏号未找到相应的SAP⽣产订单号！'.APPEND ls_message TO tp_message.cp_eind = 'X'.ENDIF.ELSEIF up_head-vtype = cns_vtype_3. "站内⾃⽤"站内⾃⽤，需要根据⽣产出的物料的编码和⼯⼚来找出合适的⽣产订单SELECT a~aufnr a~posnrINTO TABLE lt_afpoFROM afpo AS a INNER JOIN aufk AS b ON b~aufnr = a~aufnrWHERE a~matnr = up_head-matnrAND a~pwerk = up_head-werks "计划⼯⼚，todo 可能要⽤⽣产⼯⼚ AND b~auart = 'ZR02'. "RMX⾃⽤⽣产订单IF sy-subrc NE 0.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = 'E'.ls_message-msgno = '102'.ls_message-msgtxt = '根据物料号+⼯⼚未找到相应的SAP⽣产订单号！'. APPEND ls_message TO tp_message.cp_eind = 'X'.ENDIF.ELSE.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = 'E'.ls_message-msgno = '103'.ls_message-msgtxt = '销售合同类型定义错误！'.APPEND ls_message TO tp_message.cp_eind = 'X'.ENDIF.CHECK cp_eind NE 'X'."合并对象号FIELD-SYMBOLS: LIKE ls_afpo.LOOP AT lt_afpo ASSIGNING .CONCATENATE 'OR' -aufnr INTO -objnr.ENDLOOP.*--------------------------------------------------------------------**2 判断⽣产订单的状态，找到⼀个合适的⽣产订单SORT lt_afpo BY objnr."读取状态SELECT objnr stat inactINTO TABLE lt_statusFROM jestFOR ALL ENTRIES IN lt_afpoWHERE objnr EQ lt_afpo-objnrAND inact EQ space.* "删除未激活的状态* DELETE lt_status WHERE inact = 'X'."删除不需要的状态DELETElt_statusWHERE"txt04NE'REL'********** txt04 NE 'CLSD' AND* txt04 NE 'TECO'.stat NE 'I0045' AND "TECOstat NE 'I0046' AND "CLSDstat NE 'E0001'. "10SORT lt_status BY objnr stat.*--------------------------------------------------------------------**3 ⽣产订单的状态中必须包括TECO、不包括CLSDCLEAR ls_afpo_find.LOOP AT lt_afpo INTO ls_afpo.lv_index = sy-tabix."系统状态必须包含TECOREAD TABLE lt_status TRANSPORTING NO FIELDSWITH KEY objnr = ls_afpo-objnrstat = 'I0045'BINARY SEARCH.IF sy-subrc NE 0.DELETE lt_afpo INDEX lv_index.CONTINUE.ENDIF."系统状态必须不包含CLSDREAD TABLE lt_status TRANSPORTING NO FIELDSWITH KEY objnr = ls_afpo-objnrstat = 'I0046'BINARY SEARCH.IF sy-subrc EQ 0.DELETE lt_afpo INDEX lv_index.CONTINUE.ENDIF."⽤户状态必须为10READ TABLE lt_status TRANSPORTING NO FIELDSWITH KEY objnr = ls_afpo-objnrstat = 'E0001'BINARY SEARCH.IF sy-subrc NE 0.DELETE lt_afpo INDEX lv_index.CONTINUE.ENDIF."找到⽣产订单，退出循环ls_afpo_find = ls_afpo.EXIT.ENDLOOP.IF ls_afpo_find IS INITIAL.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = 'E'.ls_message-msgno = '104'.ls_message-msgtxt = '没有符合要求状态的⽣产订单！'.APPEND ls_message TO tp_message.cp_eind = 'X'.ENDIF.CHECK cp_eind NE 'X'.cp_aufnr = ls_afpo_find-aufnr.*--------------------------------------------------------------------**4 Call BAPIDATA: ls_propose LIKE bapi_pp_conf_prop.DATA: lt_time TYPE STANDARD TABLE OF bapi_pp_timeticket,ls_time TYPE bapi_pp_timeticket,ls_goods TYPE bapi2017_gm_item_create,lt_goods TYPE STANDARD TABLE OF bapi2017_gm_item_create, ls_link TYPE bapi_link_conf_goodsmov,lt_link TYPE STANDARD TABLE OF bapi_link_conf_goodsmov, lt_return_detail TYPE STANDARD TABLE OF bapi_coru_return, ls_return_detail TYPE bapi_coru_return,ls_return TYPE bapiret1.*--------------------------------------------------------------------**4.1 需要更新的数据设置ls_propose-quantity = 'X'.ls_propose-date_and_time = 'X'.ls_propose-goodsmovement = 'X'.*--------------------------------------------------------------------**4.2 timeticketCLEAR ls_time.ls_time-orderid = ls_afpo_find-aufnr. "⽣产订单号ls_time-operation = '0010'. "⼯序号：0010ls_time-postg_date = up_head-budat. "记账⽇期ls_time-yield = up_head-menge. "⽣产数量*ls_time-conf_quan_unit = 'PC'.*ls_time-conf_quan_unit_iso = 'PC'.APPEND ls_time TO lt_time.*--------------------------------------------------------------------**4.3 goodsmovements* 第⼀次赋值，⽤于获取相关默认值CLEAR ls_goods.ls_goods-orderid = ls_afpo_find-aufnr. "⽣产订单号ls_goods-order_itno = '0010'. "⼯序号：0010* VAL_TYPE 评估类型APPEND ls_goods TO lt_goods.*4.4 调⽤BAPI，获取默认值CLEAR: ls_return.CALL FUNCTION 'BAPI_PRODORDCONF_GET_TT_PROP'EXPORTINGpropose = ls_proposeIMPORTINGreturn = ls_returnTABLEStimetickets = lt_timegoodsmovements = lt_goodslink_conf_goodsmov = lt_linkdetail_return = lt_return_detail.IF ls_return-type = 'E' ORls_return-type = 'A'.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = ls_return-type.ls_message-msgno = ls_return-number.ls_message-msgtxt = ls_return-message.APPEND ls_message TO tp_message.cp_eind = 'X'.ENDIF.LOOP AT lt_return_detail INTO ls_return_detailWHERE type IS NOT INITIAL.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = ls_return_detail-type.ls_message-msgno = ls_return_detail-number.ls_message-msgtxt = ls_return_detail-message.APPEND ls_message TO tp_message.IF ls_return_detail-type = 'E' ORls_return_detail-type = 'A'.cp_eind = 'X'.ENDIF.ENDLOOP.CHECK cp_eind NE 'X'.*4.5 若来⾃RMX系统的信息显⽰⽣产订单对应的销售合同为来料加⼯，* 则需要由接⼝程序将默认带出的评估类型PRD改为OEMLOOP AT lt_goods INTO ls_goods.IF up_head-vtype = cns_vtype_2.ls_goods-val_type = 'OEM'.ELSE.ls_goods-val_type = 'PRD'.ENDIF.MODIFY lt_goods FROM ls_goods TRANSPORTING val_type.ENDLOOP.*4.6 准备⾏项⽬数据"lt_goods中已经有⽣产订单对应的⼀条⾏记录，需要将传输的消耗物料信息 "添加到内表中，进⾏确认，⽣成物料凭证CLEAR: ls_return, lt_return_detail." 产量，lt_time 中默认是⽣产订单剩余未确认的产量LOOP AT lt_time INTO ls_time.ls_time-yield = up_head-menge. "产量ls_time-postg_date = up_head-budat. "记账⽇起MODIFY lt_time FROM ls_time TRANSPORTING yield postg_date.ENDLOOP."⽣产的物料，数量默认为未确认的全部数量LOOP AT lt_goods INTO ls_goods.ls_goods-entry_qnt = up_head-menge. "产量MODIFY lt_goods FROM ls_goods TRANSPORTING entry_qnt.ENDLOOP.LOOP AT tp_item INTO ls_item.lv_index = sy-tabix.CLEAR ls_goods.ls_goods-material = ls_item-matnr.ls_goods-move_type = '261'.ls_goods-plant = ls_item-werks.ls_goods-stge_loc = ls_item-lgort. "'0001'.ls_goods-entry_qnt = ls_item-menge.ls_goods-entry_uom = ls_item-meins.* ls_goods-entry_uom_iso = 'PCE'.APPEND ls_goods TO lt_goods.CLEAR ls_link.ls_link-index_confirm = 1.ls_link-index_goodsmov = lv_index + 1.APPEND ls_link TO lt_link.ENDLOOP.CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_TT'* EXPORTING* POST_WRONG_ENTRIES = '0'* testrun = ''IMPORTINGreturn = ls_returnTABLEStimetickets = lt_timegoodsmovements = lt_goodslink_conf_goodsmov = lt_linkdetail_return = lt_return_detail.IF ls_return-type = 'E' ORls_return-type = 'A'.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = ls_return-type.ls_message-msgno = ls_return-number.ls_message-msgtxt = ls_return-message.APPEND ls_message TO tp_message.cp_eind = 'X'.ENDIF.LOOP AT lt_return_detail INTO ls_return_detailWHERE type IS NOT INITIAL.CLEAR ls_message.ls_message-class = 'BUS'.ls_message-msgtyp = ls_return_detail-type.ls_message-msgno = ls_return_detail-number.CONCATENATE ls_return_detail-message';确认号:' ls_return_detail-conf_no';计数器:' ls_return_detail-conf_cntINTO ls_message-msgtxt .APPEND ls_message TO tp_message.IF ls_return_detail-type = 'E' ORls_return_detail-type = 'A'.cp_eind = 'X'.ELSE.IF ls_return_detail-conf_no IS NOT INITIAL.cp_rueck = ls_return_detail-conf_no. "确认号cp_rmzhl = ls_return_detail-conf_cnt. "计数器ENDIF.ENDIF.ENDLOOP.IF cp_eind NE 'X'.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF.CHECK cp_eind NE 'X'.CLEAR afwi.DO 5 TIMES.SELECT SINGLE *FROM afwiWHERE rueck = cp_rueckAND rmzhl = cp_rmzhl.* IF sy-subrc EQ 0.IF afwi-mjahr IS NOT INITIAL.EXIT.ELSE.WAIT UP TO 1 SECONDS.ENDIF.ENDDO.IF afwi IS INITIAL.ls_message-class = 'BUS'.ls_message-msgtyp = 'W'.ls_message-msgno = '000'.ls_message-msgtxt = '⽣产完⼯⼊库物料凭证未⽣成成功，请⼈⼯处理！'. APPEND ls_message TO tp_message.ENDIF.ENDFORM. " FRM_PROCESS_CO11N。

FU BAPI_GOODSMVT_CREATE GOODSMVT_CODE____________________________________________________Short TextAssign Code to Transaction for Goods MovementDescriptionThis parameter transfers the new key assignment of the GM_CODE to the relevant transactions in Inventory Management.For more information on the individual parameter fields, see the data element documentation in the ABAP Dictionary.Function ModuleBAPI_GOODSMVT_CREATEPost goods movements with MB_CREATE_GOODS_MOVEMENT FunctionalityYou can use this method to create a material document for a goods movement.You can only create one material document each time you call up the method.You can use a simulation function before posting the goods movement to check how the data is updated in the database. The standard system is configured so that the goods movement is posted immediately, without prior simulation.Ensure that you transfer the data in the same way as it is managed in the database. For example:∙Material number 18-character with leading zeros∙Batches with uppercase lettersEnsure that the header data of the material document includes the posting date for all transactions/events listed below. Populate the PSTNG_DATE field (import structure GOODSMVT_HEADER) in the interfaceBAPI2017_GM_HEAD_01 for this purpose.NotesFrom Release ERP2005 onwards, it is possible to populate customers' own fields in database tables using the BAPI, without carrying out a modification.The enhancements are passed on to the BAPI in a container and can be processed within the BAPI function module.Technically, this is realized via an extension parameter (ExtensionIn) (see below or tab page 'Tables -> Long Text') .Authorization checkIn the MM Inventory Management component, the method does not perform any authorization checks.Note that the system can also check authorization objects of other applications during the posting of a goods movement, depending on the business transaction.TransferThe following information about the material document that is to be created is passed on to the method:∙ A structure with the header data∙ A structure with the code for the movement∙ A table with the item data∙ A table with the serial numbersThe posting is made by the function module MB_CREATE_GOODS_MOVEMENT.ConfirmationsMessages are returned in the Return parameter. The parameter documentation shows the return codes and their meanings.Further informationThe method can only perform your function if no error messages were generated in the Return table. This is the case if the header data and all the items were processed successfully.Transaction control is not implemented. The calling program therefore has to execute the Commit Work itself after this method has been successfully invoked (in other words, if no errors were reported in the Return parameter).Which fields must be populated during the various transactions/events?The following example scenarios illustrate which fields have to be populated for which business transactions/events (code).There are the following types of transactions/events:1. GM_Code 01: Goods receipt for purchase order2. GM_Code 02: Goods receipt for production order3. GM_Code 03: Goods issue4. GM_Code 04: Transfer posting5. GM_Code 05: Other goods receipt6. GM_Code 06: Reversal of goods movements7. GM_Code 07: Subsequent adjustment with regard to a subcontract orderEntering the movement indicatorDepending on the transaction, you must enter the following in the movement indicator field:∙GM_Code 01 (Goods receipt for purchase order): B∙GM_Code 02 (Goods receipt for production order): F∙For all other transactions, leave the field blank.For 1: GM_Code 01: Goods receipt for purchase order∙Purchase order knownThe following fields must be populated:o Purchase ordero Purchase order itemo Movement typeo Movement indicatoro Quantity in unit of entryo ISO code unit of measurement for unit of entry orquantity proposalThe following fields may have to be populated (this is not a complete list):o Minimum shelf life expiration date (if set up in the system)o Reason for movement (if set up in the system)o Batch (if the material is handled in batches and no automatic batch assignment has been set up)o Storage location (if no storage location us specified in the purchase order item)The following fields can be populated (this is not a complete list):o Stock typeo Item texto Unloading pointo Delivery completed indicatorThe following fields must not be populated (this is not a complete list):o Account assignment fields (the account assignment is adopted from the purchase order)o Reservationo Receiving/issuing materialo Receiving/issuing planto Receiving/issuing storage locationIn the case of a purchase order item with the item category "subcontracting", only the GR item is to be passed on in the interface. The GI items are determined automatically in the system.Purchase order unknown: Shipping notification knownThe following fields must be populated:o Deliveryo Delivery itemo Movement typeOther fields as under "Purchase order known". The system determines the relevant purchase order item via the delivery/delivery item.Purchase order unknown: Purchase order is to be created automaticallyThe following fields must be populated:o Material numbero Planto Storage locationo Vendoro Movement typeo Movement indicatoro Quantity in unit of entryo ISO code unit of measurement for unit of entryThe following fields may have to be populated (this is not a complete list):o Minimum shelf life expiration date (if set up in the system)o Reason for movement (if set up in the system)o Batch (if the material is handled in batches and batches are not assigned automatically)The following fields can be populated (this is not a complete list):o Stock typeo Item texto Unloading pointYou cannot populate the following fields (this is not a complete list):o Account assignment fields (automatic creation of purchase order items with account assignment is not supported)o Reservationo Receiving/issuing materialo Receiving/issuing planto Receiving/issuing storage locationPurchase order unknown: A purchase order is not to be createdThe following fields must be populated:o Material numbero Planto Storage locationo Vendoro Movement typeo Movement indicatoro Quantity in unit of entryo ISO code unit of measurement for unit of entryThe following fields may have to be populated in some cases (this is not a complete list)o Minimum shelf life expiration date (if set up in the system)o Reason for movement (if set up in the system)o Batch (if the material is handled in batches and automatic assignment of batch numbers is not set)The following fields can be populated (this is not a complete list)o Special stock indicatoro Item texto Unloading pointo Goods recipientThe following fields cannot be populated (this is not a complete list)o Account assignment fields (automatic creation of purchase order items with account assignment is not supported)o Reservationo Receiving/issuing materialo Receiving/issuing planto Receiving/issuing storage locationo Receiving/issuing batchThe input combinations listed above for the GM_CODE 01 can be combined within an input table so that they can be posted in a material document. Items can also be posted for different purchase orders, provided that all the purchase orders relate to the same vendor.∙Transfer of subcontracting componentsWhen the end product (ordered material of a subcontract order) is posted using movement type 101, the populated unique identification of the document line (LINE_ID) is additionally needed for the transfer of the subcontracting components.More information on LINE_ID and PARENT_IDThe following fields must be populated for the components:o Unique identification of the document lineo Identification of the immediately superordinate lineo Material numbero Planto Storage locationo Quantity in unit of entryThe following fields can be filled for the components:o All other fields in the method that are included in this list.The following fields cannot be populated for the components:o All fields that are not included in the list above. The movement indicator must be initial.∙Additional fields in goods-receipt-based invoice verificationWhen you post a goods receipt to purchase order with movement type 102, an issue with reference to a previously posted goods issue, the following fields must also be transferred:o REF_DOC_IT (LFPOS): Item of a reference documento REF_DOC (LFBNR): Document number of a reference documento REF_DOC_YR (LFBJA): Fiscal year of a reference documentOnly if you transfer these fields can you be sure that the link to the original goods movement is retained. For 2 GM_Code 02: Goods receipt for production orderThe following fields have to be populated:o Ordero Movement typeo Movement indicatoro Quantity in unit of entryo ISO code unit of measurement for unit of entry orquantity proposalThe following fields may have to be populated in some cases (this is not a complete list): o Minimum shelf life expiration date (if set up in the system)o Reason for movement (if set up in the system)o Batch (if the material is handled in batches and automatic batch number assignment is not set)o Storage location (if storage location has not been specified in the order)The following fields can be populated (this is not a complete list):o Order item (co-product)o Stock typeo Item texto Unloading pointo"Delivery completed" indicatorThe following fields cannot be populated (this is not a complete list):o Account assignment fields (the account assignments are adopted from the purchase order)o Reservationo Receiving/issuing materialo Receiving/issuing planto Receiving/issuing storage locationo Receiving/issuing batchFor 3 GM_Code 03: Goods issueGoods issue without reference to a reservationThe following fields must be populated:o Material numbero Planto Storage locationo Movement typeo Movement indicatoro Quantity in unit of entryo ISO code unit of measurement for unit of entryThe following fields may have to be populated in some cases (this is not a complete list): o Special stock (e.g. sales order, project, vendor etc.)o Minimum shelf life expiration date (if set up in the system)o Reason for movement (if set up in the system)o Batch (if the material is handled in batches and automatic batch number assignment is not set)o Account assignment fieldsThe following fields can be populated (this is not a complete list):o Special stock indicatoro Item texto Unloading pointo Goods recipientThe following fields cannot be populated (this is not a complete list):o Reservationo Receiving/issuing materialo Receiving/issuing planto Receiving/issuing storage locationo Receiving/issuing batchGoods issue with reference to a reservationThe following fields must to be populated:o Reservation numbero Reservation itemo Record type of the reservationo Movement indicatoro Quantity in unit of entryo ISO code unit of measurement for unit of entryThe following fields may have to be populated in some cases (this is not a complete list): o Minimum shelf life expiration date (if set up in the system)o Reason for movement (if set up in the system)o Batch (if the material is handled in batches and automatic batch number assignment is not set) o Storage location (if not planned in the reservation)The following fields can be populated (this is not a complete list):o Special stock indicatoro Item texto Unloading pointo Goods recipientThe following fields cannot be populated (this is not a complete list):o Movement typeo Materialo Planto Account assignment fieldsFor 4 GM_Code 04: Transfer postingTransfer posting without reference to a reservationThe following fields must be populated:o Material numbero Planto Storage locationo Movement typeo Movement indicatoro Quantity in unit of entryo ISO code unit of measurement for unit of entryThe following fields may have to be populated in some cases (this is not a complete list): o Receiving materialo Receiving planto Receiving storage locationo Receiving batch (if material is handled in batches and you want to change batches)o Receiving/issuing special stock (e.g. sales order, project, vendor etc.)o Minimum shelf life expiration date (if set up in the system)o Reason for movement (if set up in the system)o Batch (if the material is handled in batches and automatic batch number assignment is not set) The following fields can be populated (this is not a complete list):o Special stock indicatoro Item texto Account assignment fields (for automatic posting lines: expense/income from stock transfer) The following fields cannot be populated (this is not a complete list):o Reservation∙Transfer posting with reference to a reservationSee goods issue with reference to a reservationFor 5 GM_Code 05: Other goods receipts∙Other goods receipt without reference to a reservationSee goods issue without reference to a reservation∙Other goods receipt with reference to a reservationSee goods issue with reference to a reservationFor 6 GM_Code 06: Reversal of goods movementsYou can use the Cancel method to reverse goods movements. But you may also want to cancel agoods movement without referring to a material document (see the Cancel method).If you want to work without referring to the document, you have to populate theBAPI_GM_ITEM_CREATE-XSTOB field in the interface (import table GOODSMVT_ITEM). In this case, the system converts the movement type assigned in the interface to the reversal movement type.Alternatively, you can set the reversal movement type in the interface. In this case, theBAPI_GM_ITEM_CREATE_XSTOB field must be transferred blank.If you want to cancel a goods movement with reference to a reservation (without using the Cancelmethod) you can only transfer the BAPI_GM_ITEM_CREATE_XSTOB field if it is populated. Movement types are not transferred when you post with reference to a reservation, as the movement type iscontained in the reservation item.For 7. GM_Code 07: Subsequent adjustment with regard to a subcontract order∙Ordered material of subcontract orderThe following fields must be populated:o Unique identification of document line (can be freely assigned)o Posting date in document headero Document number of purchasing documento Item number of purchasing documento Material numbero Planto Movement type (select movement type 121)o Movement indicator (must be O)Further entries are not allowed. The entry quantity for the ordered material of a subcontract order must be zero.∙ComponentsThe following fields must be populated:o Unique identification of document line (can be freely assigned)o Identification of the immediately superordinate lineo Planto Material numbero Quantity in unit of entry; can also be negativeThe following fields can be populated:o Storage locationo All other fields in the method that are included in this list.The following fields may not be populated:o All fields that are not in the list above. The movement indicator must be blank.More information on LINE_ID and PARENT_IDAdditional fields in goods-receipt-based invoice verificationWhen you post a subsequent adjustment, the following fields must also be transferred: o REF_DOC_IT (LFPOS): Item of a reference documento REF_DOC (LFBNR): Document number of a reference documento REF_DOC_YR (LFBJA): Fiscal year of a reference documentOnly if you transfer these fields can you be sure that the link to the original goods movement is retained.。

订单BAPI_SALESORDER_CREATEFROMDAT2 创建销售订单BAPISDORDER_GETDETAILEDLIST 销售订单明细BAPI_SALESORDER_GETLIST 销售订单列表BAPI_SALESORDER_CHANGE 修改销售订单交货单BAPI_OUTB_DELIVERY_READ_SLS 根据销售订单创建交货单，得到交货单创建初始页面所需的数据BAPI_OUTB_DELIVERY_GETDETAIL 根据交货单号读取单据的详细内容BAPI_OUTB_DELIVERY_CREATE_SLS 根据销售订单创建交货单BAPI_OUTB_DELIVERY_CHANGE 根据交货单号修改、删除单据的详细内容采购订单BAPI_PO_CREATEREF_PR 根据采购申请创建采购订单，得到采购订单创建初始页面所需的数据BAPI_READ_GOODS_RECEIPT 根据采购订单创建收货，得到货物接收初始页面所需的数据BAPI_PO_RELEASE 审批采购订单BAPI_PO_RESET_RELEASE 取消审批采购订单BAPI_PO_CHANGE 修改采购订单BAPI_PO_CREATE1 创建采购订单BAPI_PO_GETDETAIL1 采购订单明细BAPI_PO_GET_LIST 采购订单列表BAPI_PO_GETITEMS 采购订单明细列表报价单BAPI_QUOTATION_GETDETAILBOS 报价单明细BAPI_CUSTOMERQUOTATION_CHANGE 修改销售订单BAPI_QUOTATION_CREATEFROMDATA2 创建报价单功能描述事务码BAPI函数名称检验批修改建议批QA02 暂未找到查看检验批明细QA03 BAPI_INSPLOT_GETDETAIL检验结果记录检验点结果QE11 BAPI_INSPPOINT_CREATEFROMDATA修改检验点结果QE12 BAPI_INSPPOINT_CHANGE显示检验点结果明细QE13 BAPI_INSPPOINT_GETREQUIREMENTS缺陷检验记录缺陷QF01 QFFE_FAILURE_RECORDING修改缺陷QF02 暂未找到显示缺陷QF03 暂未找到使用决策记录使用决策QA11 BAPI_INSPLOT_SETUSAGEDECISION修改使用决策QA12 暂未找到显示使用决策QA13 暂未找到质量结果通知单创建质量通知单QM01 BAPI_QNOTIFICAT_CREATE修改质量通知单QM02 BAPI_QUALNOT_MODIFY_DATA显示质量通知单明细QM03 BAPI_QUALNOT_GETDETAIL检验批清单检验批清单列表QA32 BAPI_INSPLOT_GETLIST 选择检验批。

SAP项目中开发用到的BAPISAP项目中开发用到的BAPIMM模块1、BAPI_MATERIAL_SAVEDATA 创建物料主数据注意参数EXTENSIONIN的使用，可以创建自定义字段例如WA_BAPI_TE_MARA-MATERIAL = ITAB_UP-MATNR.T_EXTENSIONIN-STRUCTURE = 'BAPI_TE_MARA'.T_EXTENSIONIN-VALUEPART1 = WA_BAPI_TE_MARA.APPEND T_EXTENSIONIN.WA_BAPI_TE_MARAX-MATERIAL = ITAB_UP-MATNR.T_EXTENSIONINX-STRUCTURE = 'BAPI_TE_MARAX'.T_EXTENSIONINX-VALUEPART1 = WA_BAPI_TE_MARAX.APPEND T_EXTENSIONINX.2、BAPI_OBJCL_CREATE 分类视图的创建3、BAPI_OBJCL_GETCLASSES 分类视图得到详细信息4、BAPI_MATERIAL_SAVEREPLICA 物料视图的扩充5、BAPI_GOODSMVT_CREATE 创建物料凭证注意表T158G可以决定goodsmvt_code GOODSMVT_CODE参数对应值01 MB0102 MB3103 MB1A04 MB1B05 MB1C06 MB1107 MB046、BAPI_GOODSMVT_CANCEL 冲销物料凭证7、BAPI_PR_CREATE 创建PR8、BAPI_PO_CREATE1 创建PO9、BAPI_PO_CHANGE 修改PO和删除PO10、WS_REVERSE_GOODS_ISSUE 冲销交货单的过账发货11、BAPI_RESERVATION_CREATE1 创建预留12、BAPI_RESERVATION_CHANGE 修改和删除预留SD模块1、BAPI_SALESORDER_CREATEFROMDAT2 创建销售订单2、SD_SALESDOCUMENT_CREATE 创建销售订单3、BAPI_OUTB_DELIVERY_CREATE_SLS 根据销售订单创建交货单4、BAPI_BILLINGDOC_CREATEMULTIPLE 创建发票，注意参数ref_doc_ca5、BAPI_SALESORDER_CHANGE 修改或者删除销售订单6、MB_CANCEL_GOODS_MOVEMENT 冲销交货单的过账发货7、BAPI_BILLINGDOC_CANCEL 发票的冲销8、修改外向交货单9、SD_DELIVERY_UPDATE_PICKING 修改外向交货单拣配数量10、WS_DELIVERY_UPDATE 外向交货单的发货过账PM模块1、BAPI_OBJCL_CREATE 、BAPI_OBJCL_CHANGE、BAPI_OBJCL_GETDETAIL计量点通用属性导入2、MEASUREM_DOCUM_RFC_SINGLE_001 计量凭证创建FI模块1、K_HIERARCHY_TABLES_READ 成本要素组明细2、BAPI_ACC_DOCUMENT_POST 创建会计凭证3、BAPI_ACC_DOCUMENT_REV_POST 反冲会计凭证PS模块1、BAPI_PS_INITIALIZATION、BAPI_BUS2001_CREATE、BAPI_PS_PRECOMMIT 创建项目定义2、BAPI_PS_INITIALIZATION、BAPI_BUS2054_CREATE_MULTI、BAPI_PS_PRECOMMIT 创建WBS 创建WBS的时候，注意参数wbs_left和wbs_up，这个是创建有层级的WBS必须要填写的3、KBPP_EXTERN_UPDATE_CO 修改项目和WBS的预算。

SAP各模块常⽤的BAPIPP模块⽣产计划的BAPI列表：:Routing(⼯艺路线)BAPI_ROUTING_CREATE 创建⼯艺路线BAPI - ca03BAPI_ROUTING_EXISTENCE_CHECK 检查⼯艺路线是否存在Reference operation set:（参考操作集）BAPI_REFSETOFOPERATIONS_CREATE 创建参考参考⼯序集BAPI_REFSETOFOPR_EXISTENCE_CHK 检查参考参考⼯序集Planned order:（计划订单）BAPI_PLANNEDORDER_CHANGE 更改计划订单 -md04BAPI_PLANNEDORDER_CREATE 创建计划订单BAPI_PLANNEDORDER_DELETE 删除计划订单BAPI_PLANNEDORDER_EXIST_CHECK 检查计划订单是否存在BAPI_PLANNEDORDER_GET_DETAIL 获取计划订单详细信息(计划订单）BAPI_PLANNEDORDER_GET_DET_LIST 获得计划订单信息Planned Independent Requirement:(计划独⽴需求)BAPI_REQUIREMENTS_CHANGE 更改计划独⽴需求 -md61BAPI_REQUIREMENTS_CREATE 创建计划独⽴需求BAPI_REQUIREMENTS_GETDETAIL 显⽰计划独⽴需求Production order:(⽣产订单)BAPI_PRODORD_WM_MAT_STAGING WM材料分期BAPI_PRODORD_SETUSERSTATUS 设置⽤户状态BAPI_PRODORD_SET_DEL_INDICATOR 设置删除标识BAPI_PRODORD_SET_DELETION_FLAG 设置删除标识BAPI_PRODORD_SCHEDULE 进⾏调整BAPI_PRODORD_REVOKEUSERSTATUS 取消⽤户状态BAPI_PRODORD_RELEASE 发布BAPI_PRODORD_GET_LIST 列表抬头订单BAPI_PRODORD_GET_DETAIL 抬头订单明细BAPI_PRODORD_EXIST_CHECK 确认检查性BAPI_PRODORD_CREATE_FROM_REF 创建模板BAPI_PRODORD_CREATE_FROM_PLORD 创建带有计划订单BAPI_PRODORD_CREATE_CAP_REQ 产⽣能⼒需求BAPI_PRODORD_CREATE 创建⽣产订单BAPI_PRODORD_COSTING 创建成本估计BAPI_PRODORD_COMPLETE_TECH 完整的技术BAPI_PRODORD_CLOSE 关闭订单BAPI_PRODORD_CHECK_MAT_AVAIL 检查物料可⽤性BAPI_PRODORD_CHANGE 更改⽣产订单Production order confirmation:(⽣产订单确认)BAPI_PRODORDCONF_GET_TT_PROP 确认计⼯单BAPI_PRODORDCONF_GET_TE_PROP 确认计⼯单BAPI_PRODORDCONF_GETLIST ⽣产订单确认BAPI_PRODORDCONF_GETDETAIL ⽣产订单确认详细信息BAPI_PRODORDCONF_GET_HDR_PROP 确认计划订单BAPI_PRODORDCONF_EXIST_CHK 检查⼯单是否存在BAPI_PRODORDCONF_CREATE_TT 确认计划⼯单BAPI_PRODORDCONF_CREATE_TE 确认计划⼯单BAPI_PRODORDCONF_PDC_UPLOAD_TT PP 确认计⼯单BAPI_PRODORDCONF_PDC_UPLOAD_TE PP 确认计⼯单BAPI_PRODORDCONF_CREATE_HDR 输⼊订单确认BAPI_PRODORDCONF_CREATE_ACT 输⼊订单激活确认BAPI_PRODORDCONF_CANCEL 取消⽣产订单BDC Download & Upload for production order: （下载和上传的BDC的⽣产订单）BAPI_RCVPRORDCF_RECEIVEPRODORD PP-PDC: 下载⽣产订单BAPI_RCVPRORDCF_RECEIVEWORKC PP-PDC: 下载⼯作中⼼BAPI_RCVPRODCF_REQUEST_CONF PP-PDC: 上传请求KANBAN: (看板)BAPI_KANBAN_CHANGE 更改kanban数据BAPI_KANBAN_CHANGESTATUS 更改kanban状态BAPI_KANBAN_CHANGESTATUS1 更改kanban状态1BAPI_KANBAN_GETLIST 匹配选择标准KANBAN的测定BAPI_KANBAN_GETLIST_ALL 匹配选择标准KANBAN的测定BAPI_KANBAN_GETLISTFORSUPPLIE1 匹配选择标准KANBAN的测定BAPI_KANBAN_GETLISTFORSUPPLIER 为供应商提供kanban数据BAPI_KANBAN_SETINPROCESS 为供应商提供kanban数据KANBAN CONTROL CYCLE: （看板）BAPI_KANBANCC_ADDEVENTDRKANBAN Create Event-Driven KANBAN for Control Cycle BAPI_KANBANCC_CHANGE Change Control CycleBAPI_KANBANCC_CREATE Create Control CycleBAPI_KANBANCC_DELETE Delete Control CyclesBAPI_KANBANCC_EXISTCHECK Check Existence of Control CycleBAPI_KANBANCC_GETLIST Determine Kanban Control Cycles with Selection Criteria BAPI_KANBANCC_GETLIST_ALL Determine Kanban Control Cycles with Selection Criteria BAPI_KANBANCC_WITHDRAWQUANTITY Quantity Signal for Kanban Control CycleREM Confirmation: ( REM确认)BAPI_REPMANCONF_CANCEL 处理的重复制造取消BAPI_REPMANCONF_CREATE_MTO 销售订单执⾏重复制造情况BAPI_REPMANCONF_CREATE_PLOT 执⾏⽣产成本BAPI_REPMANCONF_CREATE_MTS 在很多情况下，执⾏⽣产成本BAPI_REPMANCONF_EXIST_CHK 检查对象存在REM Confirmation1:BAPI_REPMANCONF1_CANCEL 处理的重复制造取消BAPI_REPMANCONF1_CREATE_MTO 销售订单执⾏重复制造情况BAPI_REPMANCONF1_CREATE_MTP 在很多情况下，执⾏⽣产成本BAPI_REPMANCONF1_CREATE_MTS 在很多情况下，执⾏⽣产成本BAPI_REPMANCONF1_EXIST_CHK 检查对象存在FI模块1、K_HIERARCHY_TABLES_READ 成本要素组明细2、BAPI_ACC_DOCUMENT_POST 创建会计凭证3、BAPI_ACC_DOCUMENT_REV_POST 反冲会计凭证可以冲销⾃开发程序⽣成的凭证必须传⼊交易码参数 BAPI_ACC_GL_POSTING_REV_POST 只能冲销标准TCODE⽣成的凭证4、FCOM_COSTCENTER_CHANGEMULTIPLEFCOM_COSTCENTER_CREATEMULTIPLEBAPI_COSTCENTER_CHANGEMULTIPLE ：Change One or More Cost CentersBAPI_COSTCENTER_CHECKMULTIPLE ：Check One or More Cost CentersBAPI_COSTCENTER_CREATEMULTIPLE ：Create One or More Cost CentersBAPI_COSTCENTER_DELETEMULTIPLE ：Delete One or More Cost Centers4、BAPI_INCOMINGINVOICE_CREATE 发票检验（miro）5、BAPI_INCOMINGINVOICE_CANCEL 发票校验冲销（mr8m）PS模块1、BAPI_PS_INITIALIZATION、BAPI_BUS2001_CREATE、BAPI_PS_PRECOMMIT 创建项⽬定义2、BAPI_PS_INITIALIZATION、BAPI_BUS2054_CREATE_MULTI、BAPI_PS_PRECOMMIT 创建WBS创建WBS的时候，注意参数 wbs_left和 wbs_up，这个是创建有层级的WBS必须要填写的3、KBPP_EXTERN_UPDATE_CO 修改项⽬和WBS的预算PM模块1、BAPI_OBJCL_CREATE 、BAPI_OBJCL_CHANGE、BAPI_OBJCL_GETDETAIL计量点通⽤属性导⼊2、MEASUREM_DOCUM_RFC_SINGLE_001 计量凭证创建SD模块1、 BAPI_SALESORDER_CREATEFROMDAT2 创建销售订单2、 SD_SALESDOCUMENT_CREATE 创建销售订单3、 BAPI_OUTB_DELIVERY_CREATE_SLS 根据销售订单创建交货单4、 BAPI_BILLINGDOC_CREATEMULTIPLE 创建发票，注意参数ref_doc_ca5、 BAPI_SALESORDER_CHANGE 修改或者删除销售订单6、 MB_CANCEL_GOODS_MOVEMENT 冲销交货单的过账发货7、 BAPI_BILLINGDOC_CANCEL1 发票的冲销8、 BAPI_OUTB_DELIVERY_CHANGE 修改外向交货单9、 SD_DELIVERY_UPDATE_PICKING 修改外向交货单拣配数量10、WS_DELIVERY_UPDATE 外向交货单的发货过账11、SD_CUSTOMER_MAINTAIN_ALL 创建客户。

ABAP创建销售订单BAPI创建销售订单BAPI的区别：创建销售订单有三个BAPI:BAPI_SALESORDER_CREATEFROMDAT2BAPI_CUSTOMERRETURN_CREATESD_SALESDOCUMENT_CREATEBAPI_SALESORDER_CREATEFROMDAT2和BAPI_CUSTOMERRETURN_CREATE 都调⽤了SD_SALESDOCUMENT_CREATE这个FM,区别在于调⽤的时候业务类型是写死的，BAPI_SALESORDER_CREATEFROMDAT2限制了业务对象为BUS2032，不能⽤来创建退货凭证；退货类型的业务对象是BUS2012，BAPI_CUSTOMERRETURN_CREATE⽤来创建退货凭证。

是否退货类型凭证可以在TVAK表中VBTYP字段判断，每种凭证类型对应的都有凭证类别，类别为H的就为退货凭证以SD_SALESDOCUMENT_CREATE 为⽰例：DATA: lv_sales_header_in LIKE bapisdhd1,lv_sales_header_inx LIKE bapisdhd1x,lv_logic_switch TYPE bapisdls,lv_salesdocument_ex LIKE bapivbeln-vbeln,lt_sales_items_in LIKE TABLE OF bapisditm WITH HEADER LINE,lt_sales_items_inx LIKE TABLE OF bapisditmx WITH HEADER LINE,lt_sales_schedules_in LIKE TABLE OF bapischdl WITH HEADER LINE,lt_sales_schedules_inx LIKE TABLE OF bapischdlx WITH HEADER LINE,lt_sales_conditions_in LIKE TABLE OF bapicond WITH HEADER LINE,lt_sales_conditions_inx LIKE TABLE OF bapicondx WITH HEADER LINE,lt_sales_text LIKE TABLE OF bapisdtext WITH HEADER LINE,lt_sales_partners_in LIKE TABLE OF bapiparnr WITH HEADER LINE,lt_partner_add LIKE TABLE OF bapiaddr1 WITH HEADER LINE,lt_return LIKE TABLE OF bapiret2 WITH HEADER LINE.DATA: l_answer TYPE c,lv_kwmeng TYPE kwmeng,lv_cond_value TYPE bapikbetr1,lv_cond_value1 TYPE bapikbetr1,lv_sched_line TYPE etenr VALUE '0001',lv_itm_num TYPE posnr_va VALUE '000010'.CLEAR: lt_sales_items_in, lt_sales_items_inx,lt_sales_schedules_in, lt_sales_schedules_inx,lt_sales_conditions_in,lt_sales_conditions_inx,lt_sales_partners_in,lt_return ,lt_alv1,lt_alv1.DATA:xt_ztsd03 TYPE TABLE OF ztsd0003 .READ TABLE gt_alv1 ASSIGNING FIELD-SYMBOL(<xs_alv1>) WITH KEY box = 'X'.IF sy-subrc <> 0 . "Begin of document1MESSAGE e002(zsd01) .ELSE.LOOP AT gt_alv1 ASSIGNING FIELD-SYMBOL(<gs_alv1>) WHERE box = 'X'.CALL FUNCTION'SAPGUI_PROGRESS_INDICATOR'EXPORTING* percentage = lv_percentage "执⾏程序的百分⽐text = '订单正在确认中......'. "提⽰⽂本IF <gs_alv1>-vbeln IS INITIAL .******** sales order headerlv_sales_header_in-doc_type = 'ZOR1'. " 销售凭证类型 ”固定lv_sales_header_in-sales_org = <gs_alv1>-vkorg. " 销售机构lv_sales_header_in-distr_chan = <gs_alv1>-vtweg. " 分销渠道lv_sales_header_in-division = <gs_alv1>-spart. " 产品组lv_sales_header_inx-doc_type = abap_true.lv_sales_header_inx-sales_org = abap_true.lv_sales_header_inx-distr_chan = abap_true.lv_sales_header_inx-division = abap_true.******** Header textsCLEAR: lt_sales_text[].APPEND INITIAL LINE TO lt_sales_text ASSIGNING FIELD-SYMBOL(<ls_sales_text>).<ls_sales_text>-itm_number = space.<ls_sales_text>-text_id = '0002'.<ls_sales_text>-langu = sy-langu.<ls_sales_text>-format_col = '*'.<ls_sales_text>-text_line = <gs_alv1>-remark.lv_itm_num = '0010'.LOOP AT gt_itab ASSIGNING FIELD-SYMBOL(<ls_itab2>) WHERE order_no = <gs_alv1>-order_no. <ls_itab2>-kunnr = |{ <ls_itab2>-kunnr ALPHA = IN }| .******** PARTNERSELECT SINGLE name1,pstlz,adrnr,ort01FROM kna1 WHERE kunnr = @<ls_itab2>-kunnrINTO ( @DATA(lv_name) ,@DATA(lv_code),@DATA(lv_adrnr),@DATA(lv_city) ).lt_sales_partners_in-partn_role = 'WE'.lt_sales_partners_in-partn_numb = <ls_itab2>-kunnr."送达⽅lt_sales_partners_in-title = '公司'."称谓lt_sales_partners_in-name = lv_name."名称1lt_sales_partners_in-country = 'CN' ."国家代码lt_sales_partners_in-postl_code = lv_code ."邮政编码lt_sales_partners_in-city = lv_city ."城市lt_sales_partners_in-street = <ls_itab2>-con_address ."地址lt_sales_partners_in-district = <ls_itab2>-consignee && ';' && <ls_itab2>-con_phone ."⼿机号APPEND lt_sales_partners_in.CLEAR lt_sales_partners_in.lt_sales_partners_in-partn_role = 'AG'.lt_sales_partners_in-partn_numb = <ls_itab2>-kunnr." 售达⽅APPEND lt_sales_partners_in.CLEAR lt_sales_partners_in.******** PARTNERADDRESSES* lt_partner_add-addr_no = lv_adrnr .* lt_partner_add-street = <ls_itab2>-con_phone .* APPEND lt_partner_add.* CLEAR lt_partner_add.******** sales order itemlt_sales_items_in-purch_no_s = <ls_itab2>-order_no."加前导零CALL FUNCTION'CONVERSION_EXIT_MATN1_INPUT'EXPORTINGinput = <ls_itab2>-matnrIMPORTINGoutput = <ls_itab2>-matnr.lt_sales_items_in-material = <ls_itab2>-matnr. " 物料lt_sales_items_in-plant = <ls_itab2>-vkorg. " ⼯⼚lt_sales_items_in-batch = <ls_itab2>-charg. " 库存地点lt_sales_items_inx-purch_no_s = abap_true.lt_sales_items_inx-material = abap_true.lt_sales_items_inx-plant = abap_true.lt_sales_items_inx-batch = abap_true. " 批次号******** sales order itemlt_sales_items_in-itm_number = lv_itm_num.lt_sales_items_inx-itm_number = lv_itm_num.*APPEND: lt_sales_items_in, lt_sales_items_inx.CLEAR: lt_sales_items_in, lt_sales_items_inx.******** sales Schedule Linelt_sales_schedules_in-itm_number = lv_itm_num.lt_sales_schedules_in-sched_line = lv_sched_line. " L_TABIX.lt_sales_schedules_in-req_date = <gs_alv1>-edatu. " 计划⾏⽇期lt_sales_schedules_in-req_qty = <ls_itab2>-menge. " 以销售单位计的订单数量lt_sales_schedules_inx-itm_number = lv_itm_num.lt_sales_schedules_inx-sched_line = lv_sched_line.lt_sales_schedules_inx-req_date = abap_true.lt_sales_schedules_inx-req_qty = abap_true.APPEND: lt_sales_schedules_in, lt_sales_schedules_inx.CLEAR: lt_sales_schedules_in, lt_sales_schedules_inx.******** 复制不变定价因素且重定税款lv_logic_switch-pricing = 'G'.*lt_sales_conditions_in-itm_number = lv_itm_num.lt_sales_conditions_in-cond_type = 'Z002'. " 条件类型定价条件lt_sales_conditions_in-cond_value = <ls_itab2>-reb_amount. " 价格定价⽐率lt_sales_conditions_in-currency = 'CNY'. " 货币码*lt_sales_conditions_inx-itm_number = lv_itm_num.lt_sales_conditions_inx-cond_type = 'Z002'.lt_sales_conditions_inx-currency = abap_true.lt_sales_conditions_inx-cond_value = abap_true.APPEND: lt_sales_conditions_in,lt_sales_conditions_inx.CLEAR: lt_sales_conditions_in,lt_sales_conditions_inx,lv_cond_value.lt_sales_conditions_in-itm_number = lv_itm_num.lt_sales_conditions_in-cond_type = 'Z003'. " 条件类型定价条件lt_sales_conditions_in-cond_value = <ls_itab2>-exe_amount . " 价格定价⽐率lt_sales_conditions_in-currency = 'CNY'. " 货币码*lt_sales_conditions_inx-itm_number = lv_itm_num.lt_sales_conditions_inx-cond_type = 'Z003'.lt_sales_conditions_inx-currency = abap_true.lt_sales_conditions_inx-cond_value = abap_true.*APPEND: lt_sales_conditions_in,lt_sales_conditions_inx.CLEAR: lt_sales_conditions_in,lt_sales_conditions_inx,lv_cond_value.lv_itm_num = lv_itm_num + 10 .ENDLOOP.******** CALL BAPI 'SD_SALESDOCUMENT_CREATE'CLEAR:lv_salesdocument_ex,lt_return,lt_return[].CALL FUNCTION'SD_SALESDOCUMENT_CREATE'EXPORTING* salesdocument = <ls_itab2>-vbelnsales_header_in = lv_sales_header_insales_header_inx = lv_sales_header_inxconvert_parvw_auart = abap_onlogic_switch = lv_logic_switchIMPORTINGsalesdocument_ex = lv_salesdocument_exTABLESreturn = lt_returnsales_items_in = lt_sales_items_insales_items_inx = lt_sales_items_inxsales_schedules_in = lt_sales_schedules_insales_schedules_inx = lt_sales_schedules_inxsales_conditions_in = lt_sales_conditions_insales_conditions_inx = lt_sales_conditions_inxsales_partners = lt_sales_partners_inpartneraddresses = lt_partner_addsales_text = lt_sales_text[].IF sy-subrc EQ0AND lv_salesdocument_ex IS NOT INITIAL.<gs_alv1>-zicon = icon_green_light.<gs_alv1>-mseg = lv_salesdocument_ex .<gs_alv1>-vbeln = lv_salesdocument_ex .PERFORM frm_return_dms TABLES lt_alv1 lt_outUSING'Confirmed' .READ TABLE lt_out ASSIGNING FIELD-SYMBOL(<ls_out1>) INDEX 1.IF sy-subrc = 0.IF <ls_out1>-rtnval = '1'.COMMIT WORK.MOVE-CORRESPONDING gt_itab[] TO xt_ztsd03 .DELETE xt_ztsd03 WHERE order_no NE <gs_alv1>-order_no .MODIFY ztsd0003 FROM TABLE xt_ztsd03 .UPDATE ztsd0003 SET vbeln = lv_salesdocument_ex WHERE order_no = <gs_alv1>-order_no .ELSE.ROLLBACK WORK.<gs_alv1>-zicon = icon_red_light.<gs_alv1>-mseg = <ls_out1>-rtnmsg .ENDIF.ENDIF.ELSE.LOOP AT lt_return WHERE type = 'E'.* MESSAGE e000(zsd01) WITH lt_return-message.<gs_alv1>-zicon = icon_red_light.<gs_alv1>-mseg = lt_return-message .EXIT.ENDLOOP.ROLLBACK WORK.ENDIF.CLEAR:lv_sales_header_in,lv_sales_header_inx,lv_logic_switch,lt_sales_items_in[],lt_sales_items_inx[],lt_sales_schedules_in[],lt_sales_schedules_inx[],lt_sales_conditions_in[], lt_sales_conditions_inx,lt_sales_partners_in[],lt_sales_text[].ELSE.<gs_alv1>-zicon = icon_yellow_light.<gs_alv1>-mseg = '⽆法重复确认！'.ENDIF.ENDLOOP.ENDIF.具体需要输⼊什么参数可以根据BAPI的表格结构去添加。

创建销售订单BAPI⼀些⼼得1.创建销售订单使⽤的BAPIBAPI_SALESORDER_CREATEFROMDAT2但是 BUSINESS OBJECT限制为 BUS2032使⽤FM:DATA LV_OBJTYPE TYPE OJ_NAME .LS_HEADER-SD_DOC_CAT为销售订单类型,即类型为:VBAK-VBTYPCALL FUNCTION 'SD_OBJECT_TYPE_DETERMINE'EXPORTINGI_DOCUMENT_TYPE = LS_HEADER-SD_DOC_CATIMPORTINGE_BUSINESS_OBJECT = LV_OBJTYPEEXCEPTIONSOTHERS = 1.如果LV_OBJTYPE = BUS2032则可以使⽤BAPI_SALESORDER_CREATEFROMDAT2如果其他的业务对象则使⽤FM: SD_SALESDOCUMENT_CREATE创建销售订单2.关于销售订单的增强使⽤参数 EXTENSIONIN举个例⼦,例如VBKD的数据 VBKD- TRATY VBKD- TRMTYP⼤家应该可以看出来VBKD 数据中, 虽然分为vbeln posnr 但是⼀般只会使⽤vbeln字段,posnr 为空,此时,VBKD 数据⼀般都可以在bapi参数ORDER_HEADER_IN 找到,但是VBKD- TRATY 却在bapi 中没有.所以我们需要做增强.⾸先我们要确认使⽤ BAPE_VBAK 和BAPE_VBAKX两个结构LS_BAPIPAREX-STRUCTURE = 'BAPE_VBAK'.LS_BAPE_VBAK-TRATY = LS_BAPISDHD1_VBKD-TRATY.LS_BAPE_VBAK-VSART = LS_BAPISDHD1_VBKD-VSART.LS_BAPE_VBAK-TRMTYP = LS_BAPISDHD1_VBKD-TRMTYP.LS_BAPE_VBAK-SDABW = LS_BAPISDHD1_VBKD-SDABW.LS_BAPIPAREX-VALUEPART1 = LS_BAPE_VBAK.APPEND LS_BAPIPAREX TO ET_BAPIPAREX.LS_BAPIPAREX-STRUCTURE = 'BAPE_VBAKX'.LS_BAPE_VBAKX-TRATY = CNS_X.LS_BAPE_VBAKX-VSART = CNS_X.LS_BAPE_VBAKX-TRMTYP = CNS_X.LS_BAPE_VBAKX-SDABW = CNS_X.LS_BAPIPAREX-VALUEPART1 = LS_BAPE_VBAKX.其次:VBAKKOZ 需要增加TRATY . VBAKKOZX 也添加相应的控制字段TRATY type BAPIUPDATE然后请注意,ORDER_HEADER_INX-UPDATEFLAG = SPACE . !! 这点很重要.详细逻辑请找:SE38:FV45KFAK_VBAK_FUELLEN_VBAKKOM。

FUNCTION zfun_mzorder_lh.*"----------------------------------------------------------------------*"*"本地接口：*" IMPORTING*" VALUE(INPUT) TYPE STRING*" EXPORTING*" VALUE(OUTPUT) TYPE STRING*"----------------------------------------------------------------------CLEAR : lv_input,gt_doc[], l_msg.DATA ls_ekko TYPE ekko.DATA: gv_number_guid TYPE char20.DATA: gs_header TYPE thead .DATA: gt_ltxts TYPE STANDARD TABLE OF tline .DATA: lw_ltxt TYPE tline .DATA flag TYPE c.PERFORM frm_log_record_start IN PROGRAM saplzxml_log_re cordUSING 'I' "类型 I/O'ZFUN_MZORDER_LH' "函数名input "传入Xml'' "Xml2'''''''''X' "commitCHANGING gv_number_guidIF FOUND.lv_input = input.CALL FUNCTION 'Z_XML_TO_INPUT'EXPORTINGinput = lv_inputTABLESoutput = gt_doc[].*抬头DATA:lwa_zmmt_mzlog TYPE zmmt_mzlog,lit_zmmt_mzlog TYPE TABLE OF zmmt_mzlog WITH H EADER LINE,"项目lwa_zmmt_item TYPE zmmt_item,lit_zmmt_item TYPE TABLE OF zmmt_item WITH HEADER LINE.DATA wa_head TYPE zmmt_mzlog.CLEAR :wa_doc,lwa_zmmt_mzlog,lwa_zmmt_item,lit_zmmt_mzl og[],lit_zmmt_item[],poheader,poitem[],poitem,poitemx[],poit emx,poschedule,poschedule[],poschedulex,poschedulex[],flag.IF NOT gt_doc[] IS INITIAL.DATA zihrez TYPE ekko-ihrez.CLEAR zihrez.READ TABLE gt_doc INTO wa_doc INDEX 1.IF sy-subrc = 01 AND wa_doc-orid IS NOT INITIAL."木作下单接口2,需要看程序是否检验EKKO表中<您的参考>字段，HDS传过来的木作流水号是否已存在SELECT SINGLE ihrez INTO zihrez FROM ekko WHERE ihr ez = wa_doc-orid.IF sy-subrc = 0.wa_return-sign = 'N'.wa_return-data = ''.wa_return-message = '订单已存在'.wa_return-errorcode = '2'.APPEND wa_return TO gt_return.CLEAR wa_return.* 生成返回XMLPERFORM frm_xml_return_doc CHANGING output.* 记录接口反馈的xmlPERFORM frm_log_record_end IN PROGRAM saplzxml_lo g_recordUSING 'O' "类型 I/O'ZFUN_MZORDER_LH' "函数名output "传出Xml''''''''''gv_number_guidIF FOUND.EXIT.ENDIF.ENDIF.LOOP AT gt_doc INTO wa_doc.* IF sy-tabix = 1 AND wa_doc-orid IS NOT INITIAL.* "木作下单接口2,需要看程序是否检验EKKO表中<您的参考>字段，HDS传过来的木作流水号是否已存在* SELECT SINGLE ihrez INTO zihrez FROM ekko WHERE ihrez = wa_doc-orid.* IF sy-subrc = 0.* wa_return-sign = 'N'.* wa_return-data = ''.* wa_return-message = '订单已存在'.* wa_return-errorcode = '2'.* APPEND wa_return TO gt_return.* CLEAR wa_return.*** 生成返回XML* PERFORM frm_xml_return_doc CHANGING output.** 记录接口反馈的xml* PERFORM frm_log_record_end IN PROGRAM saplzxml _log_record* USING 'O' "类型 I/O* 'ZFUN_MZORDER_LH' "函数名* output "传出Xml* ''* ''* ''* ''* ''* gv_number_guid* IF FOUND.** LEAVE PROGRAM.** ENDIF.* ENDIF.IF flag IS INITIAL.IF wa_doc-menge EQ '0.000'.flag = 'X'.CONCATENATE '物料号' wa_doc-matnr '对应的数量不允许为0' INTO wa_return-message.ENDIF.ENDIF.IF flag IS INITIAL.IF wa_doc-netpr EQ '0.00'.flag = 'X'.CONCATENATE '物料号' wa_doc-matnr '对应的金额不允许为0' INTO wa_return-message.ENDIF.ENDIF.IF NOT wa_doc-orid IS INITIAL.lwa_zmmt_mzlog-mandt = sy-mandt.MOVE-CORRESPONDING wa_doc TO lwa_zmmt_mzlog.APPEND lwa_zmmt_mzlog TO lit_zmmt_mzlog.ENDIF.MOVE-CORRESPONDING wa_doc TO lwa_zmmt_item.CLEAR: wa_doc-orid.lwa_zmmt_item-mandt = sy-mandt.lwa_zmmt_item-orid = lwa_zmmt_mzlog-orid.APPEND lwa_zmmt_item TO lit_zmmt_item.ENDLOOP."排序SORT lit_zmmt_mzlog BY orid.SORT lit_zmmt_item BY orid ebelp.IF flag IS INITIAL.INSERT zmmt_mzlog FROM TABLE lit_zmmt_mzlog ACCEPT ING DUPLICATE KEYS.CLEAR lit_zmmt_mzlog.READ TABLE lit_zmmt_mzlog INDEX 1.SELECT SINGLE * INTO ls_ekko FROM ekko WHERE ihrez = lit_zmmt_mzlog-orid.IF sy-subrc <> 0.LOOP AT lit_zmmt_mzlog.MOVE 'ZP03' TO poheader-doc_type. "采购凭证类型poheader-comp_code = lit_zmmt_mzlog-bukrs . "公司代码poheader-ref_1 = lit_zmmt_mzlog-orid . "MOVE sy-datum TO poheader-creat_date.MOVE sy-uname TO poheader-created_by.poheader-ref_1 = lit_zmmt_mzlog-orid . "你的参考* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'* EXPORTING* input = lit_zmmt_mzlog-lifnr* IMPORTING* output = poheader-vendor. "供应商poheader-vendor = '0000006003'.MOVE '1000' TO poheader-purch_org. "采购组织* MOVE '001' TO poheader-pur_group. "采购组MOVE 'X' TO poheaderx-doc_type. "采购凭证类型MOVE 'X' TO poheaderx-comp_code.MOVE 'X' TO poheaderx-creat_date.MOVE 'X' TO poheaderx-created_by.MOVE 'X' TO poheaderx-vendor.MOVE 'X' TO poheaderx-purch_org.MOVE 'X' TO poheaderx-ref_1 .LOOP AT lit_zmmt_item WHERE orid = lit_zmmt_mzl og-orid.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = lit_zmmt_item-ebelpIMPORTINGoutput = lit_zmmt_item-ebelp.poitem-po_item = lit_zmmt_item-ebelp."采购凭证的项目编号CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = lit_zmmt_item-matnrIMPORTINGoutput = poitem-material."物料编码poitem-plant = lit_zmmt_item-werks."工厂IF poheader-pur_group IS INITIAL.SELECT SINGLE ekgrp INTO poheader-pur_gr oup FROM t024 WHERE ektel = lit_zmmt_item-werks.MOVE 'X' TO poheaderx-pur_group.ENDIF.poitem-quantity = lit_zmmt_item-menge."采购订单数量MOVE sy-datum TO poitem-price_date."价格确定日期poitem-net_price = lit_zmmt_item-netpr.poitem-tax_code = 'J0'."销售税代码poitem-calctype = 'B'.poitem-po_price = '2' .IF ( lit_zmmt_item-werks = '2001' OR lit_zmmt _item-werks = '2046' or lit_zmmt_item-werks = '6007') .poitem-acctasscat = 'P'. "科目分配类别ELSE.poitem-acctasscat = 'Q'.ENDIF.READ TABLE lit_zmmt_mzlog INDEX 1.IF lit_zmmt_mzlog-ekorg = 'FY'.poitem-acctasscat = 'P'.ENDIF.poitem-preq_name = lit_zmmt_item-zxsj1.poitem-trackingno = lit_zmmt_item-zxsj.IF lit_zmmt_item-ps_psp_pnr IS INITIAL AND p oitem-material CS 'S9' . "20131209 gaofengCLEAR poitem-acctasscat.ENDIF.IF lit_zmmt_item-werks = '2001' AND lit_zmmt_ item-ps_psp_pnr IS INITIAL AND poitem-material CS 'S9'. "20131206 g aofeng 成本中心poitem-acctasscat = 'K'. "科目分配类别poaccount-costcenter = 'CC20011002'.poaccountx-costcenter = 'X'.ELSEIF lit_zmmt_item-werks = '2046' AND lit_z mmt_item-ps_psp_pnr IS INITIAL AND poitem-material CS 'S9'.poitem-acctasscat = 'K'. "科目分配类别poaccount-costcenter = 'CC20461001'.poaccountx-costcenter = 'X'.ENDIF.IF poitem-material CS 'S1' or poitem-materia l CS 'W5'.CLEAR poitem-acctasscat.ENDIF.APPEND poitem.CLEAR poitem.poitemx-po_item = lit_zmmt_item-ebelp.MOVE 'X' TO poitemx-material.MOVE 'X' TO poitemx-plant.MOVE 'X' TO poitemx-quantity.MOVE 'X' TO poitemx-price_date.MOVE 'X' TO poitemx-net_price.MOVE 'X' TO poitemx-tax_code.poitemx-acctasscat = 'X'.poitemx-calctype = 'X'.poitemx-po_price = 'X'.poitemx-preq_name = 'X'.poitemx-trackingno = 'X'.APPEND poitemx.CLEAR poitemx.poschedule-po_item = lit_zmmt_item-ebelp.poschedule-delivery_date = lit_zmmt_item-eein d.APPEND poschedule.CLEAR poschedule.poschedulex-po_item = lit_zmmt_item-ebelp.MOVE 'X' TO poschedulex-delivery_date.APPEND poschedulex.CLEAR poschedulex.poaccount-po_item = lit_zmmt_item-ebelp.poaccount-serial_no = '01'.* poaccount-WBS_ELEMENT = '11601130100031'.poaccount-wbs_element = lit_zmmt_item-ps_psp _pnr.IF poitem-material CS 'S1' OR poitem-material CS 'S9' OR poitem-material CS 'W5' OR poitem-material CS 'W9'.CLEAR poaccount-wbs_element.ENDIF.APPEND poaccount.CLEAR poaccount.poaccountx-po_item = lit_zmmt_item-ebelp.poaccountx-serial_no = '01'.poaccountx-wbs_element = 'X'.APPEND poaccountx.CLEAR poaccountx.ENDLOOP.CALL FUNCTION 'BAPI_PO_CREATE1'EXPORTINGpoheader = poheaderpoheaderx = poheaderxno_price_from_po = 'X'IMPORTINGexppurchaseorder = exppurchaseorderexpheader = expheaderexppoexpimpheader = exppoexpimpheaderTABLESreturn = returnpoitem = poitempoitemx = poitemx* POADDRDELIVERY =poschedule = poscheduleposchedulex = poschedulexpoaccount = poaccountpoaccountx = poaccountx.IF exppurchaseorder IS NOT INITIAL.* READ TABLE return WITH KEY type = 'E' .* if sy-subrc <> 0.CLEAR gt_ltxts[] .CLEAR lw_ltxt .lw_ltxt-tdformat = '*' .lw_ltxt-tdline = lit_zmmt_mzlog-sgtxt.APPEND lw_ltxt TO gt_ltxts .CLEAR lw_ltxt.lw_ltxt-tdformat = '*' .lw_ltxt-tdline = lit_zmmt_mzlog-ablad.APPEND lw_ltxt TO gt_ltxts .CLEAR lw_ltxt.lw_ltxt-tdformat = '*' .lw_ltxt-tdline = lit_zmmt_mzlog-wempf1.APPEND lw_ltxt TO gt_ltxts .CLEAR lw_ltxt.CLEAR gs_header .gs_header-tdobject = 'EKKO' .gs_header-tdid = 'F06'.gs_header-tdspras = '1'.gs_header-tdname = exppurchaseorder.CALL FUNCTION 'SAVE_TEXT'EXPORTINGclient = sy-mandtheader = gs_header* INSERT = ' 'savemode_direct = 'X'owner_specified = 'X'* LOCAL_CAT = ' '* IMPORTING* FUNCTION =* NEWHEADER =TABLESlines = gt_ltxts .CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' .wa_return-sign = 'Y'.wa_return-data = exppurchaseorder.wa_return-message = '数据保存成功'.wa_return-errorcode = '0'.APPEND wa_return TO gt_return.CLEAR wa_return.* =================================================================== =============READ TABLE lit_zmmt_mzlog INDEX 1.IF lit_zmmt_mzlog-ekorg = 'FY'.DATA: ls_goodsmvt_header LIKE bapi2017_gm_head_01,lv_goodsmvt_code LIKE bapi2017_gm_c ode. "'01'-MB01DATA: lt_goodsmvt_item LIKE bapi2017_gm_i tem_create OCCURS 0 WITH HEADER LINE,ls_goodsmvt_item TYPE bapi2017_gm_i tem_create.DATA: lt_goodsmvt_serialnumber LIKE bapi201 7_gm_serialnumber OCCURS 0 WITH HEADER LINE,ls_goodsmvt_serialnumber TYPE bapi201 7_gm_serialnumber.DATA: lt_mat_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.DATA: lv_matdoc_itm TYPE mblpo,lv_out_matdoc TYPE bapi2017_gm_h ead_ret-mat_doc.* ls_goodsmvt_header-pstng_date = sy-datum. "过账日期改ls_goodsmvt_header-doc_date = sy-datum.. ls_goodsmvt_header-pr_uname = sy-uname.lv_goodsmvt_code-gm_code = '01'. "MB 01LOOP AT lit_zmmt_item.IF ls_goodsmvt_header-pstng_date IS IN ITIAL.CALL FUNCTION 'ZFUN_BUDAT_INFO'EXPORTINGbwkey = lit_zmmt_item-werksIMPORTINGbudat = ls_goodsmvt_header-pstng_da te.ENDIF.lv_matdoc_itm = lit_zmmt_item-ebelp.*--- 收货行项目处理ls_goodsmvt_item-move_type = '101'.ls_goodsmvt_item-mvt_ind = 'B'.* LS_GOODSMVT_ITEM-MATERIAL = LS_TMP_EKPO-MATNR. "物料ls_goodsmvt_item-plant = lit_zmmt_ite m-werks. "工厂ls_goodsmvt_item-entry_qnt = lit_zmmt_ite m-menge. "数量* LS_GOODSMVT_ITEM-STGE_LOC = '1001'. "库存地点(测试写死)**** LS_GOODSMVT_ITEM-BATCH = LS_TMP_EKPO-CHARG. "批次号ls_goodsmvt_item-po_number = exppurchaseo rder.ls_goodsmvt_item-po_item = lit_zmmt_ite m-ebelp.ls_goodsmvt_item-wbs_elem = lit_zmmt_ite m-ps_psp_pnr. "WBS信息APPEND ls_goodsmvt_item TO lt_goodsmvt_it em.* LS_GOODSMVT_SERIALNUMBER-MATDOC_ITM = LV_MATDOC_ITM.* APPEND LS_GOODSMVT_SERIALNUMBER TO LT_GOODSMVT_SERIALNUM BER.* LV_MATDOC_ITM = LV_MATDOC_ITM + 1.ENDLOOP.* 收货动作CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header = ls_goodsmvt_hea dergoodsmvt_code = lv_goodsmvt_cod eIMPORTINGmaterialdocument = lv_out_matdocTABLESgoodsmvt_item = lt_goodsmvt_ite mgoodsmvt_serialnumber = lt_goodsmvt_ser ialnumberreturn = lt_mat_return.IF lv_out_matdoc IS NOT INITIAL.*UPDATECOMMIT WORK AND WAIT.* LOOP AT LT_TMP_INFO_DATA INTO LS_TMP_INFO_DATA.* LS_TMP_INFO_DATA-SIGN = 'Y'.* LS_TMP_INFO_DATA-EBELN = LS_TMP_INFO_DATA-EBELN.* LS_TMP_INFO_DATA-WERKS = LS_TMP_INFO_DATA-WERKS.* LS_TMP_INFO_DATA-MATNR = LS_TMP_INFO_DATA-MATNR.** APPEND LS_TMP_INFO_DATA TO GT_RETURN.* CLEAR LS_TMP_INFO_DATA.* ENDLOOP.ELSE.ROLLBACK WORK.ENDIF.ENDIF.* =================================================================== =============ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .LOOP AT return .CALL FUNCTION 'FORMAT_MESSAGE'EXPORTINGid = return-id* lang = sy-languno = return-numberv1 = return-message_v1v2 = return-message_v2v3 = return-message_v3v4 = return-message_v4IMPORTINGmsg = l_msgEXCEPTIONSnot_found = 1OTHERS = 2.IF return-id = 'BAPI' AND return-number = '001'.CLEAR l_msg.ENDIF.IF return-id = 'MEPO' AND return-numbe r = '000'.CLEAR l_msg.ENDIF.CONCATENATE l_msg2 l_msg INTO l_msg2.ENDLOOP.wa_return-sign = 'N'.wa_return-data = ''.wa_return-message = l_msg2.wa_return-errorcode = '2'.APPEND wa_return TO gt_return.CLEAR wa_return.ENDIF.CLEAR: l_msg.ENDLOOP.ELSE."HDS订单号已经存在wa_return-sign = 'N'.wa_return-data = ''.CONCATENATE 'HDS单号' lit_zmmt_mzlog-orid '已创建SAP采购订单号' INTO wa_return-message.wa_return-errorcode = '1'.APPEND wa_return TO gt_return.CLEAR wa_return.ENDIF.ELSE. "wa_return-sign = 'N'.wa_return-data = ''.wa_return-message = wa_return-message.wa_return-errorcode = '2'.APPEND wa_return TO gt_return.CLEAR wa_return.ENDIF.ELSE.wa_return-sign = 'N'.wa_return-data = ''.wa_return-message = '字符串解析失败'.wa_return-errorcode = '2'.APPEND wa_return TO gt_return.CLEAR wa_return.ENDIF.* 生成返回XMLPERFORM frm_xml_return_doc CHANGING output.* 记录接口反馈的xmlPERFORM frm_log_record_end IN PROGRAM saplzxml_log_reco rdUSING 'O' "类型 I/O'ZFUN_MZORDER_LH' "函数名output "传出Xml''''''''''gv_number_guidIF FOUND.ENDFUNCTION.*&---------------------------------------------------------------------**& Form frm_xml_return_doc*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->P_OUTPUT text*----------------------------------------------------------------------*FORM frm_xml_return_doc CHANGING p_output.CHECK NOT gt_return[] IS INITIAL.CONCATENATE '<?xml version="1.0" encoding="utf-8"?>''<RESULT>' p_output INTO p_outputSEPARATED BY space.LOOP AT gt_return INTO wa_return.CONCATENATE p_output '<SIGN>' wa_return-sign'</SIGN>' INTO p_output.CONCATENATE p_output '<DATA>' wa_return-data'</DATA>' INTO p_output.CONCATENATE p_output '<MESSAGE>' wa_return-message'</MESSAGE>' INTO p_output.CONCATENATE p_output '<ERRORCODE>' wa_return-errorc ode'</ERRORCODE>' INTO p_output.ENDLOOP.CONCATENATE p_output '</RESULT>' INTO p_output.CONDENSE p_output.ENDFORM. "frm_xml_return_doc。