Partners from a CRM service document

Question

Hi Guys,
I have to extract the Partners assigned to a CRM Service document to BW. The way I have been doing it is calling the "CRM_ORDER_READ" function module in the User exit and using the "Partner function" trying to populate the additional field that I had created to enhance the datasource.
But I believe there should be a better way of doing it. The issues with the way I am doing are
1. If I have some new "Partner functions" defined, then I have to extend the "extraction structure" to include those additonal ones.
2. If the same partner function is used more than once, e.g. a "resp employee" is used twice, then I cannot dynamically include the 2nd "emp resp" to be included in the extract strucuture.
So if anyone has worked on this and knows a better way of extracting the data, please share.
Appreciate your help.
Doniv

Answer 1

Hi
I would suggest not to use CRM_ORDER_READ because of
performance.
Instead look at the function I use (below).
Also, if you want to keep your partner at the same level as the Line or Header you will have to extend the struct.
Other wise you can load all the BP's to a seperate ODS and link them to the other ODS's (Lines and Headers).
Reg's
Edan
FORM fill_partner_info2
Find additional partner data
-->  L_STRUCT - structure of the enhanced transactional data source
FORM fill_partner_info2 CHANGING l_struct STRUCTURE crmt_bw_complaints_i
                           p_modified TYPE c.
  DATA: v_so_guid     LIKE crmd_orderadm_i-guid,
        v_partner_no  LIKE crmd_partner-partner_no,
        v_partner_fct LIKE crmd_partner-partner_fct,
        v_partner     LIKE but000-partner.
  v_so_guid = l_struct-item_guid.
  select single partner_no into v_partner_fct
    from crmv_linkpartner where ( guid_hi = v_so_guid ).
  if sy-subrc ne 0.
    v_so_guid = l_struct-guid.
  endif.
  SELECT PARTNER_NO PARTNER_FCT
  INTO (v_partner_no, v_partner_fct)
  FROM CRMV_LINKPARTNER
  WHERE ( GUID_HI = v_so_guid ) and
        ( ( PARTNER_FCT = 'ZBOOKED' ) or ( PARTNER_FCT = 'ZRTP' ) or
          ( PARTNER_FCT = 'ZYAPLAN' ) ).
    select single partner
    into v_partner
    from but000
    where partner_guid = v_partner_no.
    case v_partner_fct.
      when 'ZBOOKED'.
        l_struct-zzbook_to = v_partner.
      when 'ZRTP'.
        l_struct-zzrevenue_to = v_partner.
      when 'ZYAPLAN'.
        l_struct-zzip_planner = v_partner.
    endcase.
    p_modified = 'X'.
  ENDSELECT.
  IF ( l_struct-zzbook_to is initial ).
    l_struct-zzbook_to = l_struct-sold_to_party.
  ENDIF.
  IF ( l_struct-zzrevenue_to is initial ).
    l_struct-zzrevenue_to = l_struct-sold_to_party.
  ENDIF.
ENDFORM.                    "fill_partner_info2