ABAP: Link Case to Business Partner

Question

Anyone know of a BAPI or class that will allow me to do this.  I have created a Case (so have its GUID) and have the GUID of the Citizen (Business Partner) - just need to link them together - any ideas?

Answer 1

Hi Nigel,
You could also do it directly in the same way the standard in the webclient does it:
This is the coding of the method eh_OnCreate of class CL_CRM_IC_CASEAATTRIBUTE_IMPL which is the controller of view CaseAAttribute.htm from BSP application CRM_IC:
Here you find the creation of a case and the raising of the event.
You could also try to raise the event itself.
  DATA: lr_cucoacmg   TYPE REF TO cl_crm_ic_cucoacmg_impl,
        lr_collection TYPE REF TO if_bol_bo_col,
        lr_entity     TYPE REF TO cl_crm_bol_entity.
  DATA: lr_core        TYPE REF TO cl_crm_bol_core,
        lr_transaction TYPE REF TO if_bol_transaction_context,
        lr_factory     TYPE REF TO cl_crm_bol_entity_factory.
  DATA: lt_params  TYPE crmt_name_value_pair_tab,
        ls_params  TYPE crmt_name_value_pair.
* get the core object out of the factory
  lr_core = cl_crm_bol_core=>get_instance( ).
* get the current transaction (should have been started already)
  lr_transaction = lr_core->begin_transaction( ).
* build create parameters
  ls_params-value = typed_context->case_type->get_casetype( attribute_path = ' ' ).
* Create only with valid case type
  check not ls_params-value is initial.
  ls_params-name  = 'CASE_TYPE'.
  APPEND ls_params TO lt_params.
* get factory for 'CmgCase' business object
  lr_factory = lr_core->get_entity_factory( cl_crm_cmg_il=>co_on_case ).
* create 'CmgCase' Entity
  lr_entity = lr_factory->create( lt_params ).
  check lr_entity is bound.
   IF iv_deactivate EQ abap_true.
     lr_entity->deactivate_sending( ).
   ENDIF.
* add to collection
  lr_collection ?= typed_context->caseattribute->get_collection_wrapper( ).
  lr_collection->add( lr_entity ).
* Set current focus of case in collection
  lr_collection->find( iv_bo = lr_entity ).
*--- Content Management Integration
* terminate Alert for previous Case
  cl_crm_ic_cmgadetail_impl=>terminate_alert( me ).
* Raise event Case_Selected
  cl_crm_ic_cmgadetail_impl=>raise_case_selected( ).
Hope this helps you out a bit.
Kind regards,
Micha