DATA:itab LIKE bapi_pp_order_change,
itabx LIKE bapi_pp_order_changex,
errmsg LIKE bapiret2.
CLEAR: itab.
"加上前导零
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = aufnr "生产订单号
IMPORTING
output = aufnr. "生产订单号
itab-quantity = psmng."修改数量
itabx-quantity = 'X'."修改数量标志
itab-basic_start_date = startdate."修改开始日期
itabx-basic_start_date = 'X'."修改开始日期标志
itab-basic_end_date = enddate."修改结束日期
itabx-basic_end_date = 'X'."修改结束日期标志
CALL FUNCTION 'BAPI_PRODORD_CHANGE'
EXPORTING
number = aufnr
orderdata = itab
orderdatax = itabx
IMPORTING
return = errmsg.
IF errmsg-type = 'E' OR errmsg-type = 'A'.
message = errmsg-message.
flag = 'E'.
ELSE.
COMMIT WORK.
message = '生产订单修改成功!'.
flag = 'S'.
ENDIF.
SAP中生产订单修改CO02的BAPI是BAPI_PRODORD_CHANGE
最新推荐文章于 2024-07-29 08:50:29 发布