二. 使用PO User_exit
EXIT_SAPMM06E_001 (002,004,006,007,009) 006是PO还未create前检查的. EXIT_SAPMM06E_016, 017此时虽然有PO item数据但是PO No.还没有给出. EXIT_SAPMM06E_009, PO已经建立并且数据已经refresh . 所以使用EXIT_SAPMM06E_013
在使用之前必须update TFDIR表将MAND设置成”C”.程序如下: REPORT Zupdate .
data ztfdir like tfdir occurs 0 with header line .
select * from tfdir into table ztfdir where FUNCNAME = 'EXIT_SAPMM06E_013'. loop at ztfdir .
ztfdir-MAND = 'C' .
modify ztfdir index sy-tabix TRANSPORTING MAND. endloop.
update tfdir from ztfdir.
***由于只有一笔使用Work area就可搞定,所以要这样霸王强上弓是没有找到配置在哪里.
REPORT ZTEST11 .
data ztfdir like tfdir .
select single * from tfdir into ztfdir where FUNCNAME =
'EXIT_SAPMM06E_013'. ztfdir-MAND = 'C' .
update tfdir from ztfdir.
*** 通过在LSMODU23(Function: MODX_FUNCTION_ACTIVE_CHECK设置断点很容易找出已经有PO的user_exit)
SE37 : MODX_FUNCTION_ACTIVE_CHECK 在如下图中设置断点.
你就会发现TFDIR(Function Module表)的MAND必须=AKTIV_FLAG (值就是C)才会call相应的User_exit函数
用户增强: 所有的Enhancement在表MODSAP,用户增强大概有三类
MODSAP是Enhancement表, 而TFDIR是看是否此enhancement被激活,就看字段MAND是否是”C”而已
1. E Enhancement exits :就是常说的写User_exit 2. C GUI codes 没用过
3. 3. S Subscreens 屏幕增强
OK,其实上面不用coding, 通过search MODSAP发现EXIT_SAPMM06E_013 在Enhancement MM06E005中.
使用T-code :SMOD F8 test运行然后可激活EXIT_SAPMM06E_013 ,如果你确实找不到
enhancement name和exit函数对应关系,也没关系. 使用SMOD自己建立一个Enhancement 比如叫 ZPOSO ,然后你将function 加入,它也会有错误提示告诉你它属于的enhancement,还有就是使用上面的code直接update .
你自己可写个code将所有的user_exit找出来,很容易的哟.如你完全明白这篇文章,我想你就理解了user_exit 和BAPI的使用. 建立BAPI并使用其它语言call同样很简单.
EXIT_SAPMM06E_013 include程序 ZXM06U44
在coding前使用SE37 test BAPI :BAPI_SALESORDER_CREATEFROMDATA ***注意各企业因为设置的fields status不同可能有所不同. 对ORDER_HEADER_IN只需下面几个参数
ORDER_ITEMS_IN只需要MATERIAL,REQ_QTY—(Order qty in sales units - 00009001 corresponds to 9.001,就是说call BAP REQ_QTY测试时= actual qty * 1000)
, COND_TYPE, COND_VALUE,(即对应到price很奇怪必须/10, 不知其他系统是否这样,此是注意点)
PO_METH_S(Ship-to party purchase order type,如果设置了必须输入的话), ORDER_PARTNERS如果SP和SH相同的话,只要一条SP然后输入customer No就可,如果ship-to-party不同多家一条SH+customer No.吧.
还有一样要注意. AG—SP, RE—BP
—SH (SAP经常有这样的case,就是save在DB中的数据和display出来的数据有所不同, 为什么要这样, 不得而知,难怪SAP不推荐直接使用DB table 做报表,或者这是SAP AG的一个策略)
测试OK.开始coding on ZXM06U44, Source code 如下,log写在ZPOSO表中.
测试使用BAPI_SALESORDER_CHANGE
就是说它实际是call BAPI_SALESDOCUMENT_CHANGE的
你可知道ORDER_HEADER_INX-UPDATEFLAG为U时是update,为D时是Delete sales order,不选还不行.
好了下面是Source Code(仅供参考,大体框架OK,可能根据你的SAP实际情况做些调整) .
*----------------------------------------------------------------------* * INCLUDE ZXM06U44
* 在company 1000建立PO时同时建立SO in 1000和PO in 2000 * * 注意此程序会反复call .
*----------------------------------------------------------------------* data:
ZORDER_HEADER_IN like BAPISDHEAD ,
ZORDER_ITEMS_IN like BAPIITEMIN occurs 0 with header line , ZORDER_PARTNERS like BAPIPARTNR occurs 0 with header line , ZSALESDOCUMENT like BAPIVBELN-VBELN , ZRETURN like BAPIRETURN .
Data:
ZPOHEADER like BAPIEKKOC ,
ZPOITEMS like BAPIEKPOC occurs 0 with header line,
ZPO_ITEM_SCHEDULES like BAPIEKET occurs 0 with header line, ZPURCHASEORDER like BAPIEKKOC-PO_NUMBER . tables :ZPOSO .
data zposolog like zposo occurs 0 with header line.
data : Zrepcall(1) type C. \防止反复调用BAPI_PO_CREATE.
Refresh : ZORDER_ITEMS_IN .
*** 实际应用根据I_EKKO-EBELN(其实从EBELN-PO No.可判断出plant) *** 1.I_EKKO-EBELN前面5位用case语句判断
*** 2.根据I_EKKO-BUKRS(comp. code)和XEKPO-WERKS(plant)判断