批量删除满足指定条件的 SAP CRM One Order 订单

*&---------------------------------------------------------------------*
*& Report ZORDER_DELETE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZORDER_DELETE.
data: lt_crmd_orderadm_h TYPE STANDARD TABLE OF crmd_orderadm_h,
       lt_guid  TYPE crmt_object_guid_tab.
SELECT guid INTO CORRESPONDING FIELDS OF TABLE lt_crmd_orderadm_h FROM crmd_orderadm_h as a
inner join crmc_proc_type as _type on a~process_type =
     _type~process_type and _type~object_type = 'BUS2000116' where A~process_type = 'SRVO'.
LOOP AT lt_crmd_orderadm_h ASSIGNING FIELD-SYMBOL(<order>).
    WRITE: / 'id: ' COLOR COL_POSITIVE , <order>-object_id COLOR COL_GROUP, ' description: ' , <order>-description COLOR COL_TOTAL.
    CLEAR: lt_guid.
    INSERT <order>-guid INTO TABLE lt_guid.
    CALL FUNCTION 'CRM_ORDER_DELETE'
      EXPORTING
        it_objects_to_delete  = lt_guid
        iv_update_task_local  = abap_true
      EXCEPTIONS
        single_deletion_error = 1
        deletion_error        = 2
        no_authority          = 3
        document_not_found    = 4
        OTHERS                = 5.
    IF sy-subrc <> 0.
      WRITE: / 'order: ' , <order>-object_id,  ' deletion failed: ', sy-subrc.
    ENDIF.
  ENDLOOP.
  COMMIT WORK AND WAIT.
BREAK-POINT.