本文共 1036 字，大约阅读时间需要 3 分钟。

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_guid     WHERE 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.

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/104009720 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！