PP ABAP技术性完成 TECO 及 PM状态修改

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.

PM 状态
https://blog.csdn.net/Pegasus666/article/details/116798910 ；

Umsetzen der Methodenbezeichnungen **********************
MOVE ls_methodline-method TO lv_method.
TRANSLATE lv_method
USING ‘aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ’.
CASE lv_method. 方法名
WHEN ‘NOSCHEDULING’.
MOVE gc_meth_no_scheduling TO
ls_methodline-method.
WHEN ‘NOCALCULATION’.
MOVE gc_meth_no_calculation TO
ls_methodline-method.
WHEN ‘SAVE’.
MOVE gc_meth_save TO
ls_methodline-method.
WHEN ‘DIALOG’.
MOVE gc_meth_dialog TO
ls_methodline-method.
WHEN ‘DELETEDSEX’ OR ‘DELDSEX’. "Delete external scheduling
MOVE gc_meth_deldsex TO
ls_methodline-method.
WHEN ‘CREATE’.
MOVE gc_meth_create TO
ls_methodline-method.
WHEN ‘CREATETONOTIF’.
MOVE gc_meth_createtonotif TO
ls_methodline-method.
WHEN ‘CHANGE’.
MOVE gc_meth_change TO
ls_methodline-method.
WHEN ‘DELETE’.
MOVE gc_meth_delete TO
ls_methodline-method.
WHEN ‘RELEASE’.
MOVE gc_meth_release TO
ls_methodline-method.
WHEN ‘TECOMPLETE’ OR ‘TECO’ OR ‘TECHNICALCOMPLETE’.
MOVE gc_meth_tecomplete TO
ls_methodline-method.
WHEN ‘ATPCHECK’.
MOVE gc_meth_atpcheck TO
ls_methodline-method.
WHEN ‘CALCULATE’.
MOVE gc_meth_calculate TO
ls_methodline-method.
WHEN ‘SCHEDULE’.
MOVE gc_meth_schedule TO
ls_methodline-method.
WHEN ‘ADD’ or ‘EXPLODE’.
MOVE gc_meth_add TO
ls_methodline-method.
WHEN OTHERS.

• Methodenname &1 in Methodentabelle nicht gültig
  MESSAGE e102(iwo_bapi2)
  WITH ls_methodline-method INTO mess.
  bapi_message.
  MOVE gc_error TO lv_met_error.
  ENDCASE. "lv_metho