CRM CICO - Automatically complete follow on activities

Question

Hi all,
In tcode CIC0 to automatically complete the activities I am trying to use BAPI BAPI_ACTIVITYCRM_CHANGEMULTI. I am forwarding the whole program too. Can anyone please tell me why the progrm si not working ?
REPORT  z_crmorderread.
DATA : lt_header_guid TYPE crmt_object_guid_tab,
       wa_header_guid TYPE crmt_object_guid,
       wac TYPE  crmt_object_guid,
       lt_doc_flow TYPE crmt_doc_flow_wrkt,
       wa_doc_flow TYPE crmt_doc_flow_wrk,
       lt_status TYPE crmt_status_wrkt,
       lt_save TYPE TABLE OF bapibus20001_guid_dis,
       wa_save TYPE bapibus20001_guid_dis,
       h_header TYPE TABLE OF bapibus2000110_header_ins,
       wah_header TYPE bapibus2000110_header_ins, " work area
       hx_header TYPE TABLE OF bapibus2000110_header_insx,
       wahx_header TYPE bapibus2000110_header_insx, " work area
       s_status TYPE TABLE OF bapibus20001_status_ins,
       was_status TYPE bapibus20001_status_ins, " work area
       lt_input_fields type table of BAPIBUS20001_INPUT_FIELDS,
       wa_input_fields type  BAPIBUS20001_INPUT_FIELDS,
       sx_status TYPE TABLE OF bapibus20001_status_insx,
       wasx_status TYPE bapibus20001_status_insx. " work area
DATA : return TYPE TABLE OF bapiret2,
       vc_log_handle TYPE balloghndl, " log_handle
       saved_objects TYPE TABLE OF bapibus20001_object_id,
       return2 TYPE TABLE OF bapiret2.
*---- Here I am hardcoding the GUID of the complaint.
wa_header_guid = '44401B7FCBF1016C00000000888DE646'.
APPEND wa_header_guid TO lt_header_guid.
CALL FUNCTION 'CRM_ORDER_READ'
EXPORTING
    it_header_guid                = lt_header_guid
IMPORTING
    et_status                     = lt_status
    et_doc_flow                   = lt_doc_flow
  CHANGING
    cv_log_handle                 = vc_log_handle
     EXCEPTIONS
       DOCUMENT_NOT_FOUND            = 1
       ERROR_OCCURRED                = 2
       DOCUMENT_LOCKED               = 3
       NO_CHANGE_AUTHORITY           = 4
       NO_DISPLAY_AUTHORITY          = 5
       NO_CHANGE_ALLOWED             = 6
       OTHERS                        = 7
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE lt_doc_flow INTO wa_doc_flow INDEX 1.
wah_header-guid = wa_doc_flow-objkey_b.
wa_input_fields-REF_GUID = wa_doc_flow-objkey_b.
append wa_input_fields to lt_input_fields.
was_status-ref_guid = wa_doc_flow-objkey_b.
wac = wa_doc_flow-objkey_a.
wa_save-guid = wa_doc_flow-objkey_b.
APPEND wah_header TO h_header.
wahx_header-guid = 'X'.
APPEND wahx_header TO hx_header.
was_status-status = 'E0005'.
APPEND was_status TO s_status.
wasx_status-ref_guid = 'X'.
wasx_status-status = 'X'.
APPEND wasx_status TO sx_status.
CALL FUNCTION 'BAPI_ACTIVITYCRM_CHANGEMULTI'
TABLES
   header              = h_header
   headerx             = hx_header
   status              = s_status
   statusx             = sx_status
  input_fields        = lt_input_fields
   return              = return.
APPEND wa_save TO lt_save.
**commit work.
CALL FUNCTION 'BAPI_ACTIVITYCRM_SAVE'
                EXPORTING
                  UPDATE_TASK_LOCAL       = 'X'  "update_task_local
                  SAVE_FRAME_LOG          = 'X'  "save_frame_log
IMPORTING
   log_handle              = vc_log_handle
TABLES
   objects_to_save         = lt_save
   saved_objects           = saved_objects
   return                  = return2.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    wait = 'X'.
COMMIT WORK.
break-point.
The contents of both return tables are :
                                                         Return :
W   |CRM_ORDER           |004   |Referenced object type (STATUS) not allowed
S   |CRM_MESSAGES        |006   |Start of processing 'Individual receipt'
Return2
E   |CRM_ORDER           |037   |The document could not be saved
Regards and thanks in advance,
Varun.

Answer 1

Hi
You should set a break-point in function module crm_order_maintain and manually close a follow on.  By doing this you will see exactly what values you need to pass to the function module.  You will also see that this function module will get fired a few times, depending on what processing you do to the follow up.
Here is the code I use for closing an interaction record, I hope it helps...
  DATA:
  ls_input_field   TYPE crmt_input_field,
  lt_input_field   TYPE crmt_input_field_tab,
  ls_input_names   TYPE crmt_input_field_names,
  lt_input_names   TYPE crmt_input_field_names_tab,
  lt_orderadm_h      TYPE crmt_orderadm_h_wrkt,
  ls_orderadm_h      TYPE crmt_orderadm_h_wrk,
  et_status TYPE crmt_status_comt,
  es_status TYPE crmt_status_com,
  wa_status type crmt_status_wrk.
      es_status-ref_guid       =  iv_guid.
          es_status-ref_kind       = 'A'.
          es_status-status         = 'E0003'.
          if ls_orderadm_h-process_type = 'Z001'.
            es_status-user_stat_proc = 'ZINTREC'.
          else.
            es_status-user_stat_proc = 'ZCALLIST'.
          endif.
          es_status-activate       = 'X'.
          append es_status to et_status.
          ls_input_field-REF_GUID    = iv_guid.
          ls_input_field-REF_KIND    = 'A'.
          ls_input_field-OBJECTNAME  = 'STATUS'.
          if ls_orderadm_h-process_type = 'Z001'.
            ls_input_field-LOGICAL_KEY = 'E0003ZINTREC'.
          else.
            ls_input_field-LOGICAL_KEY = 'E0003ZCALLIST'.
          endif.
          clear ls_input_names.
          ls_input_names-FIELDNAME = 'ACTIVATE'.
          append ls_input_names to gt_field_names.
          ls_input_field-field_names = gt_field_names[].
          append ls_input_field to lt_input_field.
          CALL FUNCTION 'CRM_ORDER_MAINTAIN'
            EXPORTING
              it_status         = et_status
            CHANGING
              ct_orderadm_h     = it_orderadm_h
              ct_input_fields   = lt_input_field
            EXCEPTIONS
              error_occurred    = 1
              document_locked   = 2
              no_change_allowed = 3
              no_authority      = 4
              OTHERS            = 5.
    CALL FUNCTION 'CRM_ORDER_MAINTAIN'
            EXPORTING
              it_status         = et_status
            CHANGING
              ct_orderadm_h     = it_orderadm_h
              ct_input_fields   = lt_input_field
            EXCEPTIONS
              error_occurred    = 1
              document_locked   = 2
              no_change_allowed = 3
              no_authority      = 4
              OTHERS            = 5.
CALL FUNCTION 'BAPI_ACTIVITYCRM_SAVE'
  TABLES
  objects_to_save = lt_save
  saved_objects = saved_objects
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
  wait = 'X'.
  COMMIT WORK.