1、BAPIMEPOACCOUNTXLINE.TYPES:BEGINty_data,oridzmmt_mzlog-orid,订单编号唯一ebelnzmmt_mzlog-ebeln,采购凭证号bukrszmmt_mzlog-bukrs,公司代码lifnrzmmt_mzlog-lifnr,供应商ekorgzmmt_mzlog-ekorg,采购组织ekgrpzmmt_mzlog-ekgrp,采购组wrbtrzmmt_mzlog-wrbtr,总金额SGTXTRESB-SGTXT,ABLADRESB-ABLAD,WEMPF1RESB-WEMPF,ebelpzmmt_item-ebelp,采购凭证的项目编号m
2、atnrzmmt_item-matnr,物料号PS_PSP_PNRprps-POSID,werkszmmt_item-werks,工厂lbzmmt_item-lb,类别matklzmmt_item-matkl,物料组MAKTXMAKT-MAKTX,mengezmmt_item-menge,数量netprzmmt_item-netpr,价格eeindzmmt_item-eeind,日期zxsjBEDNR,需求编号存放销售价格zxsj1AFNAM申请者存放销售价格2(折前)ENDty_data.DATA:wa_docgt_docty_data.完整凭证数据lv_inputstring.ty_ret
3、urn,sign(1)c,data(18)message(100)errorcode(1)ty_return.wa_returngt_returndatal_msgl_msg1l_msg3l_msg2string.mainFUNCTIONzfun_mzorder.*-本地接口:IMPORTINGVALUE(INPUT)STRINGEXPORTINGVALUE(OUTPUT)CLEARlv_input,gt_doc,l_msg.ls_ekkoekko.gv_number_guidchar20.gs_headerthead.gt_ltxtstlinelw_ltxtflagC.PERFORMfrm_
4、log_record_startINPROGRAMsaplzxml_log_recordUSINGI类型I/OZFUN_MZORDER函数名INPUT传入XmlXml2XcommitCHANGINGgv_number_guidIFFOUND.=INPUT.CALLZ_XML_TO_INPUTlv_inputTABLESOUTPUTgt_doc.*抬头lwa_zmmt_mzlogzmmt_mzlog,lit_zmmt_mzlogzmmt_mzlog项目lwa_zmmt_itemzmmt_item,lit_zmmt_itemzmmt_itemwa_headzmmt_mzlog.wa_doc,lwa
5、_zmmt_mzlog,lwa_zmmt_item,lit_zmmt_mzlog,lit_zmmt_item,poheader,poitem,poitem,poitemx,poitemx,poschedule,poschedule,poschedulex,poschedulex,flag.NOTgt_docISINITIAL.LOOPATINTOwa_doc.wa_doc-mengeEQ0.000CONCATENATE物料号wa_doc-matnr对应的数量不允许为0wa_return-MESSAGE.ENDIF.wa_doc-netpr0.00对应的金额不允许为0wa_doc-oridlwa
6、_zmmt_mzlog-mandtsy-mandt.MOVE-CORRESPONDINGTOlwa_zmmt_mzlog.APPENDlit_zmmt_mzlog.lwa_zmmt_item.CLEAR:wa_doc-orid.lwa_zmmt_item-mandtlwa_zmmt_item-oridlwa_zmmt_mzlog-orid.lit_zmmt_item.ENDLOOP.排序SORTBYorid.ebelp.INSERTFROMACCEPTINGDUPLICATEKEYS.READINDEX1.SELECTSINGLE*ekkoWHEREihrezlit_zmmt_mzlog-or
7、id.sy-subrc0.MOVEZP03poheader-doc_type.采购凭证类型poheader-comp_codelit_zmmt_mzlog-bukrs.poheader-ref_1lit_zmmt_mzlog-oridsy-datumpoheader-creat_date.sy-unamepoheader-created_by.你的参考CONVERSION_EXIT_ALPHA_INPUTinputlit_zmmt_mzlog-lifnroutputpoheader-vendor.poheader-vendor00000060031000poheader-purch_org.0
8、01poheader-pur_group.poheaderx-doc_type.poheaderx-comp_code.poheaderx-creat_date.poheaderx-created_by.poheaderx-vendor.poheaderx-purch_org.poheaderx-ref_1lit_zmmt_item-ebelplit_zmmt_item-ebelp.poitem-po_itemlit_zmmt_item-ebelp.lit_zmmt_item-matnrpoitem-material.物料编码poitem-plantlit_zmmt_item-werks.po
9、header-pur_groupt024ektellit_zmmt_item-werks.poheaderx-pur_group.poitem-quantitylit_zmmt_item-menge.采购订单数量poitem-price_date.价格确定日期poitem-net_pricelit_zmmt_item-netpr.poitem-tax_codeJ0.销售税代码poitem-calctypeBpoitem-po_price2(lit_zmmt_item-werks2001OR2046)poitem-acctasscatP科目分配类别ELSE.Qlit_zmmt_mzlog-eko
10、rgFYpoitem-preq_namelit_zmmt_item-zxsj1.poitem-trackingnolit_zmmt_item-zxsj.lit_zmmt_item-ps_psp_pnrINITIALANDpoitem-materialCSS920131209gaofengpoitem-acctasscat.20131206gaofeng成本中心Kpoaccount-costcenterCC20011002poaccountx-costcenterELSEIFCC20461001S1poitem.poitemx-po_itempoitemx-material.poitemx-plant.poitemx-quantity.poitemx-price_date.poitemx-net_price.poitemx-tax_code.poitemx-acctasscatpoitemx-calctypepoitemx-po_pricepoitemx-preq_namepoitemx-trackingnopoitemx.po