前篇提到park document save時,借貸要相等的做法是用BTE event 2213,但是error時會整個交易Exit。
我想解法應該不只一種,就用ECC6以後才有的Enhancement Implementation處理:
1 以F-65為例,先找到save時在PAI檢查的PAI module。
2 進一步找到include program LF040F00裡面的form beleg_parken_pruefen,從這段code當中發現是用來做save檢查的。
3 直接在form上面enhance,Enhancement Implementation名稱就取叫ZEH_LF040F00。
4 在enhancement加入以下code:
data: h_wrbtr type wrbtr,
s_wrbtr type wrbtr.
LOOP AT xbseg .
case xbseg-SHKZG.
when 'H'.
h_wrbtr = h_wrbtr + xbseg-wrbtr.
when 'S'.
s_wrbtr = s_wrbtr + xbseg-wrbtr.
endcase.
ENDLOOP.
check h_wrbtr ne s_wrbtr.
message e888(SABAPDOCU) with '借貸金額不平,請修改明細項目!'.
5 最後記得要active。
沒有留言:
張貼留言