In our CRM social integration project we extract the picture of one tweet from twitter website and store them in CRM system as attachment.
We are creating attachment in CRM via the approach described in this blog.
However, we found the Create by property for an attachment is always hard coded with sy-uname, even we explicitly specify the created_by property when calling cl_crm_documents=>create_with_table. However our requirement is it should be filled by the screen name in twitter website who posts the tweet.
After some debugging I found the created_by property could only be modified after the attachment is created. First I query all attachments of a given tweet:
DATA(ls) = VALUE SIBFLPORB( INSTID = iv_guid typeid = iv_bor_type catid = 'BO' ).
CALL METHOD CL_CRM_DOCUMENTS=>get_info
EXPORTING
BUSINESS_OBJECT = ls
IMPORTING
LOIOS = LOIOS
phios = phios.Then I use FM SDOK_PHIO_PROPERTIES_SET to change the property:
DATA(ls_property) = VALUE SDOKPROPTY( name = iv_attr_name value = iv_new_value ).
APPEND ls_property TO lt_properties.
LOOP AT phios ASSIGNING FIELD-SYMBOL(<ios>).
ls_header-class = <ios>-class.
ls_header-objid = <ios>-objid.
CALL FUNCTION 'SDOK_PHIO_PROPERTIES_SET'
EXPORTING
object_id = ls_header
TABLES
properties = lt_properties
EXCEPTIONS
NOT_EXISTING = 1
BAD_PROPERTIES = 2
NOT_AUTHORIZED = 3
EXCEPTION_IN_EXIT = 4.
ENDLOOP.I have put the code into a utility class and test it:
And that’s done:
Never forget to activate internal mode, or else you will fail with an error message that created_by field is read only.
要获取更多Jerry的原创文章，请关注公众号"汪子熙":
602392714
清零编程群