CRM Document Flow

Question

I need to create the document flow in CRM to link leased contracts to its SPM. So far, i tried CRM_ORDER_MAINTAIN and BAPI_ACTIVITYCRM_CHANGEMULTI but i still can't create the document flow. I also tried CRM_CREATE_DOC_FLOW. It creates the doc flow but in the wrong 'Role' field.
Any idea how?
PS: I am very new to CRM. :P

Answer 1

hi gregor wolf ,
i tried the same code but unable to create a link .i used same code as urs but could not suceed can u suggest?
code is as follows.
PARAMETERS: lv_id_a TYPE crmt_object_id OBLIGATORY,
lv_id_b TYPE crmt_object_id OBLIGATORY.
DATA: guids TYPE crmt_object_guid_tab,
      guid_a LIKE LINE OF guids,
      guid_b LIKE LINE OF guids.
* Read GUID for Activity A *
CALL FUNCTION 'CRM_ORDERADM_H_GUID_GET_DB'
  EXPORTING
    iv_object_id = lv_id_a
  IMPORTING
    et_guid      = guids.
READ TABLE guids INTO guid_a INDEX 1.
REFRESH: guids.
* Read GUID for Activity B *
CALL FUNCTION 'CRM_ORDERADM_H_GUID_GET_DB'
  EXPORTING
    iv_object_id = lv_id_b
  IMPORTING
    et_guid      = guids.
READ TABLE guids INTO guid_b INDEX 1.
DATA: it_activity_h TYPE crmt_activity_h_wrkt,
      ls_activity_h LIKE LINE OF it_activity_h,
       it_requested_objects TYPE crmt_object_name_tab,
       ls_requested_objects LIKE LINE OF it_requested_objects,
        it_orderadm_h TYPE crmt_orderadm_h_wrkt,
         ls_orderadm_h LIKE LINE OF it_orderadm_h,
         it_doc_flow TYPE crmt_doc_flow_wrkt,
         ls_doc_flow LIKE LINE OF it_doc_flow,
         it_header_guid TYPE crmt_object_guid_tab,
         ls_header_guid LIKE LINE OF it_header_guid.
Append GUID_A to Header GUID Table
APPEND guid_a TO it_header_guid.
What should we read
ls_requested_objects = 'ACTIVITY_H'.
APPEND ls_requested_objects TO it_requested_objects.
ls_requested_objects = 'DOC_FLOW'.
APPEND ls_requested_objects TO it_requested_objects.
* Read Activity A *
CALL FUNCTION 'CRM_ORDER_READ'
  EXPORTING
    it_header_guid       = it_header_guid
    it_requested_objects = it_requested_objects
  IMPORTING
    et_orderadm_h        = it_orderadm_h
    et_activity_h        = it_activity_h
    et_doc_flow          = it_doc_flow.
DATA: it_activity_h_comt TYPE crmt_activity_h_comt,
       ls_activity_h_comt LIKE LINE OF it_activity_h_comt,
        ct_doc_flow TYPE crmt_doc_flow_comt,
         ls_doc_flow_comt LIKE LINE OF ct_doc_flow,
         ref_guid TYPE guid_16,
lt_doc_link TYPE crmt_doc_flow_extdt,
ls_doc_link LIKE LINE OF lt_doc_link,
  ct_input_fields TYPE crmt_input_field_tab,
   ls_input_field TYPE crmt_input_field,
    ls_input_field_names TYPE crmt_input_field_names,
     log_handle TYPE balloghndl.
LOOP AT it_activity_h INTO ls_activity_h.
  MOVE-CORRESPONDING ls_activity_h TO ls_activity_h_comt.
  APPEND ls_activity_h_comt TO it_activity_h_comt.
ENDLOOP.
* Fill DOC_FLOW Structure *
ls_doc_link-objkey_a = guid_a.
ls_doc_link-objtype_a = 'BUS2000126'.
ls_doc_link-objkey_b = guid_b.
ls_doc_link-objtype_b = 'BUS2000111'.
ls_doc_link-vona_kind = 'A'.
ls_doc_link-reltype = 'VONA'.
ls_doc_link-brel_kind = 'A'.
APPEND ls_doc_link TO lt_doc_link.
CLEAR: ls_doc_flow_comt.
ls_doc_flow_comt-ref_guid = guid_a.
ls_doc_flow_comt-ref_kind = 'A'.
ls_doc_flow_comt-doc_link[] = lt_doc_link.
APPEND ls_doc_flow_comt TO ct_doc_flow.
* Fill INPUT_FIELDS which indicate what Values where changed * and had to be updated *
ls_input_field_names-fieldname = 'OBJKEY_A'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'OBJTYPE_A'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'OBJKEY_B'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'OBJTYPE_B'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'VONA_KIND'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'RELTYPE'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'BREL_KIND'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'BREL_MODE'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'RELATIONID'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field_names-fieldname = 'RELATION_HANDLE'.
INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
ls_input_field-objectname = 'DOC_FLOW'.
ls_input_field-ref_guid = guid_a.
ls_input_field-ref_kind = 'A'.
INSERT ls_input_field INTO TABLE ct_input_fields.
* Update Document Flow *
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
  CHANGING
    ct_input_fields   = ct_input_fields
    cv_log_handle     = log_handle
    ct_doc_flow       = ct_doc_flow
  EXCEPTIONS
    error_occurred    = 1
    document_locked   = 2
    no_change_allowed = 3
    no_authority      = 4
    OTHERS            = 5.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
DATA: it_saved_objects TYPE crmt_return_objects.
* Save Changes *
CALL FUNCTION 'CRM_ORDER_SAVE'
  EXPORTING
    it_objects_to_save   = it_header_guid
    IV_UPDATE_TASK_LOCAL = 'X'
    IV_SAVE_FRAME_LOG    = 'X'
  IMPORTING
    et_saved_objects     = it_saved_objects.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
  DATA: lt_return TYPE TABLE OF bapiret2,
         ls_return LIKE LINE OF lt_return.
* Commit Changes *
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait   = 'X'
    IMPORTING
      return = ls_return.
  WRITE: / ls_return-message.
* Read Error Messages *
  IF NOT log_handle IS INITIAL.
    DATA: is_msg_handle TYPE balmsghndl,
           es_info TYPE crmt_msg_info,
            es_msg TYPE bal_s_msg,
            ev_ref_object TYPE crmt_ref_obj_text.
    is_msg_handle-log_handle = log_handle.
    CALL FUNCTION 'CRM_MESSAGES_GET_MSG_INFO'
      EXPORTING
        is_msg_handle      = is_msg_handle
        iv_get_caller_name = 'X'
      IMPORTING
        es_info            = es_info
        es_msg             = es_msg
        ev_ref_object      = ev_ref_object.
  ENDIF.