采购订单收货后不能修改价格的增强
生活随笔
收集整理的這篇文章主要介紹了
采购订单收货后不能修改价格的增强
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
| 采購訂單收貨后不能修改價格的增強 增強名：MM06E005 出口：EXIT_SAPMM06E_012? ??IF SY-TCODE <> 'ME22N' AND SY-TCODE??<> 'ME22' AND??SY-TCODE <> 'ME23N' AND SY-TCODE??<> 'ME23'. ??EXIT. ENDIF. DATA T_NETPR TYPE EKPO-NETPR. DATA TT_SUM? ?TYPE EKBE-BPMNG. DATA T_SUM? ? TYPE EKBE-BPMNG. DATA T_SHKZG??TYPE EKBE-SHKZG. LOOP AT TEKPO. ??SELECT SINGLE NETPR INTO T_NETPR FROM EKPO WHERE EBELN = TEKPO-EBELN ? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?AND EBELP = TEKPO-EBELP. ??IF TEKPO-NETPR <> T_NETPR. ? ? SELECT BPMNG SHKZG INTO (T_SUM,T_SHKZG) FROM EKBE WHERE EBELN = TEKPO-EBELN ? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ???AND? ?EBELP = TEKPO-EBELP ? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ???AND? ?BEWTP = 'E'. ? ?? ?IF T_SHKZG = 'S'. ? ?? ???TT_SUM = TT_SUM + T_SUM. ? ?? ?ELSE. ? ?? ???TT_SUM = TT_SUM - T_SUM. ? ?? ?ENDIF. ? ? ENDSELECT. ? ? IF TT_SUM <> 0. ? ?? ?MESSAGE E899(MM) WITH TEKPO-EBELN TEKPO-EBELP '由于已收貨，不允許修改價格'. ? ? ENDIF. ??ENDIF. ??CLEAR T_NETPR. ??CLEAR TT_SUM. ??CLEAR T_SUM. ENDLOOP. |
總結
以上是生活随笔為你收集整理的采购订单收货后不能修改价格的增强的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Field XXXX input val
- 下一篇： 财务凭证过账增强 BAPI_ACC_DO