|
刚刚试了下在出口USEREXIT_MOVE_FIELD_TO_VBAP 的代码如下
"齐箱检查
data l_trgqty like packpo-trgqty .
data l_var like packpo-trgqty .
LOOP AT xvbap .
if xvbap-matnr+0(3) = '101' .
"获取物料的单位包装数量
SELECT SINGLE
trgqty into l_trgqty
from packpo
where matnr = xvbap-matnr
.
l_var = xvbap-kwmeng mod l_trgqty .
if l_var ne 0 .
message '物料不齐箱,请重新输入数据!' type 'E'.
clear:sy-UCOMM.
ENDIF .
ENDIF .
ENDLOOP .
还是在报错之后不能输入,好像也没有说的那样回车就检查. |
|