CO_XT_COMPONENTS_DELETE 删除工单组件

REPORT zdtest6.

**判断是否有原始组件，如有全删
DATA: ls_return TYPE coxt_bapireturn.
DATA: lt_resbkeys TYPE coxt_t_resbdel,
      lt_return   TYPE STANDARD TABLE OF bapiret2,
      lv_error    TYPE flag.
DATA:
  lv_orderno   TYPE aufnr,
  ls_orderdata TYPE bapi_pp_order_create,
  ls_return1   TYPE bapiret2.



START-OF-SELECTION.


  PARAMETERS:p_aufnr TYPE aufnr OBLIGATORY.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = p_aufnr
    IMPORTING
      output = p_aufnr.

  SELECT SINGLE rsnum
    FROM afko
    INTO @DATA(lv_rsnum)
   WHERE aufnr = @p_aufnr.


  SELECT rsnum,
        rspos,
        matnr,
        werks,
        bdmng,
        meins
   FROM resb
   INTO TABLE @DATA(lt_resb)
  WHERE rsnum = @lv_rsnum.

  IF sy-subrc EQ 0.
    lt_resbkeys = CORRESPONDING #( lt_resb ).
  ENDIF.

  CHECK lt_resbkeys[] IS NOT INITIAL.

* BAPI to delete the components of Production Order
  CALL FUNCTION 'CO_XT_COMPONENTS_DELETE'
    EXPORTING
      it_resbkeys_to_delete = lt_resbkeys
    IMPORTING
      e_error_occurred      = lv_error
    TABLES
      ct_bapireturn         = lt_return
    EXCEPTIONS
      delete_failed         = 1
      OTHERS                = 2.

  IF lv_error IS INITIAL.

    PERFORM change_flag_set(saplcozv).
*    CALL FUNCTION 'CO_IT_SET_FLG_ITAB_NEW'.

    CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'.
    COMMIT WORK AND WAIT.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ENDIF.