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.
ls_business_object-instid = object_key.
ls_business_object-typeid = object_type.
ls_business_object-catid = category_id.
CALL METHOD cl_crm_documents=>get_info
EXPORTING
business_object = ls_business_object
IMPORTING
phioloios = lt_attachments.
LOOP AT lt_attachments ASSIGNING <attachment_line>.
CREATE OBJECT lo_attachment
EXPORTING
key = <attachment_line>.
APPEND lo_attachment TO attachments.
ENDLOOP.
ENDMETHOD.
|