Delete the attachments in Service orders

Question

Hi Guys,
I am developing a report, which it needs to be delete the attachments from the CRM service order, could you please suggest, is any FM/BAPI for the same.
Thanks,
Gourisankar.

Answer 1

Hi,
User below code, it will work.
REPORT zcrm_service_order_delet_attch.
TABLES
TABLES:crmd_orderadm_h.
                           TYPES DECLARATION
TYPES: BEGIN OF t_crmd,
         guid TYPE crmt_object_guid,
         object_id TYPE crmt_object_id_db,
         date TYPE crmt_posting_date,
         object_type TYPE crmt_subobject_category_db,
       END OF t_crmd.
TYPES: BEGIN OF t_crmd_final,
         object_id TYPE crmt_object_id_db,
         date TYPE crmt_posting_date,
         sucess TYPE i,
         failure TYPE i,
         total TYPE i,
       END OF t_crmd_final.
                       Internal Tables                               *
DATA: i_crmd TYPE STANDARD TABLE OF t_crmd,
                w_crmd TYPE t_crmd,
      i_object_no TYPE STANDARD TABLE OF crmt_icss_object_guid,
               w_object_no TYPE crmt_icss_object_guid,
      i_attch TYPE STANDARD TABLE OF crmt_icss_att_info,
                w_attch TYPE crmt_icss_att_info,
      i_crmd_final TYPE STANDARD TABLE OF t_crmd_final,
                w_crmd_final TYPE t_crmd_final,
      ls_crmt_object_guid TYPE crmt_object_guid_tab,
      i_return_objects  TYPE crmt_return_objects.
DATA: lt_ios         TYPE skwf_ios.
DATA: ls_io          TYPE skwf_io.
DATA: l_docbusobj    TYPE sibflporb.
DATA: l_sucess       TYPE i.
DATA: l_failure      TYPE i.
DATA: l_tot_final    TYPE i.
DATA: l_lines        TYPE i.
                       CONSTANTS                                     *
CONSTANTS:
c_typeid(10)     TYPE c VALUE 'BUS2000116',
c_catid(2)       TYPE c VALUE 'BO',
c_object_type(1) TYPE c VALUE 'P'.
Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-s01.
SELECT-OPTIONS: so_date FOR crmd_orderadm_h-posting_date OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
Start-of-selection
START-OF-SELECTION.
  PERFORM getdata.
  PERFORM delete_attach_save_order.
  PERFORM display_output.
write: u_line(100)
skip.
  WRITE: /05 'Total number of attachments deleted',
          75  l_tot_final.
*&      Form  getdata
FORM getdata .
  SELECT guid
         object_id
         posting_date
         object_type INTO TABLE i_crmd
                             FROM crmd_orderadm_h
                             WHERE posting_date IN so_date.
ENDFORM.                    " getdata
*&      Form  delete_attach_save_order
FORM delete_attach_save_order .
*Fetching the attachments for GUID.
  LOOP AT i_crmd INTO w_crmd.
    CLEAR: i_attch, i_object_no.
    MOVE: w_crmd-guid TO w_object_no-object_guid.
    APPEND w_object_no TO i_object_no.
    CALL FUNCTION 'CRM_ICSS_GET_ATTACHMENTS'
      TABLES
        it_object_guid     = i_object_no
        et_attachment_list = i_attch.
*Deleting the attachment for GUID.
    DESCRIBE TABLE i_attch LINES l_lines.
    LOOP AT i_attch INTO w_attch.
      l_docbusobj-instid = w_crmd-guid.
      l_docbusobj-typeid = c_typeid.              "'BUS2000116'.
      l_docbusobj-catid  = c_catid.                "'BO'.
      ls_io-objtype = c_object_type.              "'P'.
      ls_io-class   = w_attch-att_class.          "'CRM_P_ORD'.
      ls_io-objid   = w_attch-objkey.
      APPEND ls_io TO lt_ios.
      CALL METHOD cl_crm_documents=>delete
        EXPORTING
          business_object = l_docbusobj
          ios             = lt_ios.
      IF sy-subrc = 0.
        l_sucess = l_sucess + 1.
      ENDIF.
*Saved the service order after deleting the attachment.
      APPEND w_crmd-guid TO ls_crmt_object_guid.
      CALL FUNCTION 'CRM_ORDER_SAVE'
        EXPORTING
          it_objects_to_save   = ls_crmt_object_guid
          iv_update_task_local = 'X'
        IMPORTING
          et_saved_objects     = i_return_objects
        EXCEPTIONS
          document_not_saved   = 1
          OTHERS               = 2.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDLOOP.
*Moving the data to inter table to display the output.
    IF l_lines EQ l_sucess.
      MOVE: w_crmd-object_id TO w_crmd_final-object_id.
      MOVE: w_crmd-date TO w_crmd_final-date.
      MOVE: l_sucess    TO w_crmd_final-sucess.
      MOVE: l_failure   TO w_crmd_final-failure.
      MOVE: l_sucess    TO w_crmd_final-total.
      APPEND w_crmd_final TO i_crmd_final.
*Clearing the internal tables and variables.
      CLEAR: i_attch,
             w_crmd,
             l_sucess,
             l_failure,
             ls_crmt_object_guid,
             l_docbusobj,
             lt_ios,
             i_object_no,
             l_lines.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " delete_attach_save_order
*&      Form  Display_output
FORM display_output .
  IF NOT i_crmd_final IS INITIAL.
    WRITE: /5 'Order Number',
           20 'Creation date',
           35 'success Records',
           55 'Fail Records',
           75 'Total Records'.
  ENDIF.
  LOOP AT i_crmd_final INTO w_crmd_final.
    WRITE: /5  w_crmd_final-object_id,
           20 w_crmd_final-date,
           35 w_crmd_final-sucess,
           55 w_crmd_final-failure,
           75 w_crmd_final-total.
    l_tot_final = l_tot_final + w_crmd_final-total.
  ENDLOOP.
  CLEAR : w_crmd_final.
ENDFORM.                    " Display_output