Created by Jerry Wang, last modified on Dec 13, 2014

wiki末尾的report能夠刪除指定id的one order document，例如希望刪除ui上的Opportunity 1616：

執(zhí)行report，指定id和Opportunity type OPPT：

CRM_ORDER_DELETE執(zhí)行context會(huì)自動(dòng)調(diào)用CRM_ORDER_SAVE保存save動(dòng)作：

importing parameter lt_exception內(nèi)的entry可以忽略：

report執(zhí)行完畢后，該Opportunity已經(jīng)成功被刪除，UI上無法再搜索到。

REPORT zorder_delete. PARAMETERS: id TYPE crmd_orderadm_h-object_id OBLIGATORY DEFAULT '1616',type TYPE crmd_orderadm_h-process_type OBLIGATORY DEFAULT 'OPPT'. DATA: lv_guid TYPE crmt_object_guid,lt_delete TYPE crmt_object_guid_tab,lt_deleted TYPE crmt_return_objects,lt_saved LIKE lt_deleted,lt_exception TYPE crmt_exception_t,lv_type TYPE crmd_orderadm_h-process_type,lv_id TYPE crmd_orderadm_h-object_id.START-OF-SELECTION.lv_id = id.lv_type = type.SELECT SINGLE guid FROM crmd_orderadm_h INTO lv_guid WHERE object_id = lv_id AND process_type = lv_type.IF sy-subrc <> 0.WRITE: / 'No order found' COLOR COL_NEGATIVE.RETURN.ENDIF.APPEND lv_guid TO lt_delete.CALL FUNCTION 'CRM_ORDER_DELETE'EXPORTINGit_objects_to_delete = lt_deleteiv_update_task_local = abap_trueiv_no_check = abap_falseIMPORTINGet_deleted_objects = lt_deletedet_exception = lt_exceptionEXCEPTIONSsingle_deletion_error = 1deletion_error = 2no_authority = 3document_not_found = 4.IF sy-subrc <> 0.WRITE: / 'Deletion failed, error code: ' , sy-subrc COLOR COL_NEGATIVE.ELSE.WRITE: / 'No error found after CRM_ORDER_DELETE call ' COLOR COL_POSITIVE.ENDIF.LOOP AT lt_deleted ASSIGNING FIELD-SYMBOL(<deleted>).WRITE: / 'Deleted object: ' , <deleted>-object_id COLOR COL_TOTAL.ENDLOOP.LOOP AT lt_exception ASSIGNING FIELD-SYMBOL(<exception>).WRITE:/ 'Error message class: ' , <exception>-class, ' id: ', <exception>-code COLOR COL_POSITIVE.ENDLOOP.COMMIT WORK AND WAIT.

總結(jié)

以上是生活随笔為你收集整理的One order deletion tool的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。