Code listing for: GET_ATTACHMENTS_FOR_BO

Description: Get list of attachments for given BO

**************************************************************************
*   Method attributes.                                                   *
**************************************************************************
Instantiation: Public
**************************************************************************

METHOD get_attachments_for_bo.

  FIELD-SYMBOLS: <attachment_line> TYPE skwf_lpio.

  DATA:
    ls_business_object TYPE sibflporb,
    lt_attachments TYPE skwf_lpios,
    lo_attachment TYPE REF TO zcl_gos_attachment.

* Create a GOS Key structure for the given GOS Object
  ls_business_object-instid = object_key.
  ls_business_object-typeid = object_type.
  ls_business_object-catid = category_id.

* Retrieve all GOS Attachments for the supplied Object
  CALL METHOD cl_crm_documents=>get_info
    EXPORTING
      business_object = ls_business_object
    IMPORTING
      phioloios       = lt_attachments.

* Return ZCL_GOS_ATTACHMENT instances for each of the found attachments
  LOOP AT lt_attachments ASSIGNING <attachment_line>.
    CREATE OBJECT lo_attachment
      EXPORTING
        key = <attachment_line>.
    APPEND lo_attachment TO attachments.
  ENDLOOP.

ENDMETHOD.