*&---------------------------------------------------------------------* 
*& FORM fm_order_teco 
*&---------------------------------------------------------------------* 
* CO02设置工单为技术上已完成 
FORM fm_order_teco USING VALUE(p_aufnr). 
  DATA lt_orders TYPE TABLE OF bapi_order_key WITH HEADER LINE. 
  DATA lt_return TYPE TABLE OF bapi_order_return WITH HEADER LINE. 
 
  CLEAR:lt_orders,lt_orders[]. 
  lt_orders-order_number = p_aufnr. 
  APPEND lt_orders. 
 
  CLEAR:lt_return,lt_return[]. 
  CALL FUNCTION 'BAPI_PRODORD_COMPLETE_TECH' 
    TABLES 
      orders                   =  lt_orders 
      detail_return            = lt_return. 
 
  READ TABLE lt_return WITH KEY type = 'E'. 
  IF sy-subrc = 0. 
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. 
  ELSE. 
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. 
  ENDIF. 
ENDFORM.

*&---------------------------------------------------------------------* 
*& FORM fm_order_unteco 
*&---------------------------------------------------------------------* 
* CO02设置工单取消技术上已完成,相关表JEST，TJ02T 
FORM fm_order_unteco USING VALUE(p_aufnr). 
  DATA gt_jstat TYPE jstat OCCURS 0 WITH HEADER LINE. 
  DATA iv_objnr TYPE aufk-objnr. 
 
  CLEAR:gt_jstat,gt_jstat[]. 
  gt_jstat-stat = 'I0002'.     "已释放 
  gt_jstat-inact = ''. 
  APPEND gt_jstat. 
  CLEAR gt_jstat. 
  gt_jstat-stat = 'I0045'.      "teco X代表不激活，不生效 
  gt_jstat-inact = 'X'. 
  APPEND gt_jstat. 
 
  SELECT SINGLE objnr INTO iv_objnr FROM aufk WHERE aufnr = p_aufnr. 
 
  CALL FUNCTION 'STATUS_CHANGE_INTERN' 
  EXPORTING 
  client                = sy-mandt 
  objnr                 = iv_objnr 
  TABLES 
  status                = gt_jstat 
  EXCEPTIONS 
  object_not_found      = 1 
  status_inconsistent   = 2 
  status_not_allowed    = 3 
  OTHERS                = 4. 
 
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. 
ENDFORM.