PP ABAP技术性完成 TECO

ABAP技术性完成 TECO

DATA: lv_flag TYPE c.
DATA: ls_return TYPE bapiret2.

DATA: lt_orders LIKE TABLE OF bapi_order_key WITH HEADER LINE.

CLEAR: ls_return.
REFRESH: lt_orders.
CLEAR: lt_orders.
lt_orders-order_number = p_aufnr.
APPEND lt_orders.
lv_flag = ‘N’.
CALL FUNCTION ‘BAPI_PRODORD_COMPLETE_TECH’
IMPORTING
return = ls_return
TABLES
orders = lt_orders.

IF sy-subrc EQ 0.
IF ls_return-type = ‘E’ OR ls_return-type = ‘A’.
lv_flag = ‘N’.
CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’.
MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_return-number
WITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4
INTO p_mess.
CONCATENATE ‘生产订单’ p_aufnr ‘TECO关单失败！’ p_mess INTO p_mess SEPARATED BY ‘’.
ELSE.
CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’
EXPORTING
wait = ‘X’.
lv_flag = ‘Y’.
CONCATENATE ‘生产订单’ p_aufnr ‘TECO关单成功！’ INTO p_mess SEPARATED BY ‘’.
ENDIF.
ELSE.
lv_flag = ‘N’.
CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
INTO p_mess.
CONCATENATE ‘生产订单’ p_aufnr ‘TECO关单失败！’ p_mess INTO p_mess SEPARATED BY ‘’.
ENDIF.
p_flag = lv_flag.

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！