Created by Jerry Wang, last modified on Apr 22, 2015

首先執(zhí)行如下的report，檢測某個business document是否存在pricing document：

REPORT ZORDER_READ_PRICE_PROCEDURE. PARAMETERS: id type crmd_orderadm_h-object_id OBLIGATORY. START-OF-SELECTION. DATA: lt_guid type STANDARD TABLE OF crmd_orderadm_h-guid,lv_procedure TYPE PRCT_PRIC_PROC. SELECT guid INTO TABLE lt_guid FROM crmd_orderadm_h WHERE object_id = id. LOOP AT lt_guid ASSIGNING FIELD-SYMBOL(<guid>).CLEAR: lv_procedure.CALL FUNCTION 'CRM_PRIDOC_READ_PRICPROC_OW'EXPORTINGIV_HEADER_GUID = <guid>IMPORTINGEV_PRICING_PROCEDURE = lv_procedure.WRITE: / 'price procedure: ' , lv_procedure. ENDLOOP.

輸出pricing procedure，證明該document 存在pricing document：

輸出pricing procedure，證明該document 存在pricing document：

成功刪除：

再執(zhí)行pricing procedure的read report，輸出為空，證明link已經(jīng)成功刪除了：

REPORT zremove_price_data.PARAMETERS: id TYPE crmd_orderadm_h-object_id OBLIGATORY.START-OF-SELECTION.DATA: lt_guid TYPE STANDARD TABLE OF crmd_orderadm_h-guid,lv_guid LIKE LINE OF lt_guid,lt_link TYPE STANDARD TABLE OF crmd_link.SELECT guid INTO TABLE lt_guid FROM crmd_orderadm_h WHERE object_id = id.IF sy-subrc <> 0.WRITE: / 'the id you have specified is not valid' , id.RETURN.ENDIF.SELECT * INTO TABLE lt_link FROM crmd_link FOR ALL ENTRIES IN lt_guidWHERE objtype_hi = '05' AND objtype_set = '18' AND guid_hi = lt_guid-table_line.IF sy-subrc <> 0.WRITE: / 'no pricing document link for this order.'.RETURN.ENDIF.LOOP AT lt_guid INTO lv_guid.DELETE FROM crmd_link WHERE objtype_hi = '05' AND objtype_set = '18'AND guid_hi = lv_guid.IF sy-subrc = 0.WRITE: / 'pricing link for document:' , lv_guid, ' deleted successfully.'.ELSE.WRITE: / 'pricing link for document:' , lv_guid, ' deleted failed.'.ENDIF.ENDLOOP.

打印系統(tǒng)里所有具有Pricing document的One order ID

Created by Jerry Wang, last modified on Apr 21, 2015

執(zhí)行如下report：

REPORT ZORDER_SEARCH_PRICING. data: lt_order TYPE STANDARD TABLE OF crmd_orderadm_h,lt_link_com TYPE CRMT_LINK_COMT. START-OF-SELECTION.SELECT * INTO TABLE lt_order FROM crmd_orderadm_h UP TO 1000 ROWSWHERE process_type <> 'TA'.LOOP AT lt_order ASSIGNING FIELD-SYMBOL(<order>).CLEAR: lt_link_com.CALL FUNCTION 'CRM_LINK_GET_OW'EXPORTINGiv_guid_hi = <order>-guidiv_objname_hi = 'ORDERADM_H'iv_objname_set = 'PRIDOC'IMPORTINGet_link = lt_link_comEXCEPTIONSno_allocated_obj_found = 1invalid_input_data = 2undefined_internal_error = 3OTHERS = 4.IF sy-subrc = 0.WRITE: / 'id: ' , <order>-object_id, ' type: ' , <order>-process_type.ENDIF.ENDLOOP.

根據(jù)打印出的ID 到WebUI上根據(jù)Id查找：

?

總結

以上是生活随笔為你收集整理的如何手动删除一个business document和pricing document的relationship的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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