Instantiation: Public
METHOD get_url_content.
DATA:
ls_key TYPE skwf_io,
ls_error TYPE skwf_error,
lv_dummy_message TYPE string,
lv_url TYPE saeuri.
ls_key-objtype = me->key-objtypeph.
ls_key-class = me->key-classph.
ls_key-objid = me->key-objidph.
CALL METHOD cl_crm_documents=>get_with_url
EXPORTING
phio = ls_key
url_type = crmkw_url-standard
IMPORTING
error = ls_error
url = lv_url
EXCEPTIONS
no_io = 1
OTHERS = 2.
IF sy-subrc <> 0 OR ls_error IS NOT INITIAL.
MESSAGE ID ls_error-id TYPE ls_error-type NUMBER ls_error-no
WITH ls_error-v1 ls_error-v2 ls_error-v3 ls_error-v4
INTO lv_dummy_message.
RAISE EXCEPTION TYPE zcx_gos_attachment_exception.
ENDIF.
url = lv_url.
ENDMETHOD.
|