打印product所有attachment 具体信息的小工具

REPORT zprod_list_doc.

PARAMETERS: id TYPE comm_product-product_id OBLIGATORY DEFAULT 'CK0000001'.

DATA: ls_prod     TYPE comt_product,
      lt_io       TYPE skwf_ios,
      lt_property TYPE crm_kw_propst.

CONSTANTS: doc_id     TYPE crm_kw_props-objid VALUE 'Document ID',
           doc_url    TYPE sdok_propv VALUE 'Relative URL',
           doc_author TYPE sdok_propv VALUE 'Author',
           doc_time   TYPE sdok_propv VALUE 'Created On'.

ls_prod-product_id = id.
CALL FUNCTION 'CRM_PRODUCT_DOC_GET_DETAI'
  EXPORTING
    is_product     = ls_prod
  IMPORTING
    et_prop_result = lt_property.

WRITE: / doc_id COLOR COL_NEGATIVE, 35 doc_url COLOR COL_POSITIVE,
         75 doc_author COLOR COL_GROUP, 95 doc_time COLOR COL_TOTAL.

LOOP AT lt_property ASSIGNING FIELD-SYMBOL(<result>) WHERE objtype = 'P'.
  READ TABLE <result>-properties ASSIGNING FIELD-SYMBOL(<name>) WITH KEY name = 'CREATED_BY'.
  READ TABLE <result>-properties ASSIGNING FIELD-SYMBOL(<date>) WITH KEY name = 'CREATED_AT'.
  READ TABLE <result>-properties ASSIGNING FIELD-SYMBOL(<url>) WITH KEY name = 'KW_RELATIVE_URL'.

  WRITE: / <result>-objid UNDER doc_id COLOR COL_NEGATIVE, <url>-value UNDER doc_url COLOR COL_POSITIVE,
           <name>-value UNDER doc_author COLOR COL_GROUP, <date>-value UNDER doc_time COLOR COL_TOTAL.
ENDLOOP.