Created by Jerry Wang, last modified on Aug 18, 2015
執行report之前：
執行report之后：
*&---------------------------------------------------------------------**& Report ZAPPOINTMENT_ADD_OPP*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT zappointment_overwrite_opp.PARAMETERS: oppid TYPE crmd_orderadm_h-object_id OBLIGATORY DEFAULT '1424',opptype TYPE crmd_orderadm_h-process_type OBLIGATORY DEFAULT 'OPPT'.INCLUDE: crm_object_names_con,crm_object_types_con,crm_object_kinds_con,crm_mode_con.DATA: ls_docflow TYPE crmt_doc_flow_com,ct_doc_flow TYPE crmt_doc_flow_comt,ls_link TYPE LINE OF crmt_doc_flow_extdt,lv_opp_guid TYPE crmd_orderadm_h-guid,lv_app_guid LIKE lv_opp_guid,ct_input_fields TYPE crmt_input_field_tab,cs_input LIKE LINE OF ct_input_fields,cs_field LIKE LINE OF cs_input-field_names,lv_opp_id TYPE crmd_orderadm_h-object_id,lv_opp_type TYPE crmd_orderadm_h-process_type,lt_save TYPE crmt_object_guid_tab,lt_not_saved LIKE lt_save,lt_header TYPE crmt_object_guid_tab,lt_doc_flow TYPE crmt_doc_flow_wrkt,ls_doc_flow LIKE LINE OF lt_doc_flow,lt_save_exception TYPE crmt_exception_t,lt_exception TYPE crmt_exception_t.START-OF-SELECTION.* Jerry comment: replace this appointment guid with your own one.* One relation will be created. Relation source: the appointment of this guid* Relation target: the opportunity specified in this report*lv_app_guid = '3440B5B172DE1ED590B1C3A05B175D6A'.PERFORM delete_existing_rel USING lv_app_guid.PERFORM add_new_rel USING lv_app_guid.FORM add_new_rel USING iv_opp_guid TYPE crmd_orderadm_h-guid.lv_opp_id = oppid.lv_opp_type = opptype.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = lv_opp_idIMPORTINGoutput = lv_opp_id.SELECT SINGLE guid INTO lv_opp_guid FROM crmd_orderadm_hWHERE object_id EQ lv_opp_id AND process_type = lv_opp_type.ASSERT sy-subrc = 0.CLEAR: ls_docflow, ls_link, ct_doc_flow,ct_input_fields.ls_docflow-ref_kind = 'A'.ls_docflow-ref_guid = lv_app_guid.ls_link-objkey_a = lv_opp_guid.ls_link-objtype_a = gc_object_type-opportunity."'BUS2000111'.ls_link-objkey_b = lv_app_guid.ls_link-objtype_b = gc_object_type-businessactivity. "'BUS2000126'.ls_link-brel_kind = 'A'.ls_link-brel_mode = 'A'.ls_link-reltype = 'VONA'.APPEND ls_link TO ls_docflow-doc_link.INSERT ls_docflow INTO TABLE ct_doc_flow.CLEAR: cs_input-field_names.cs_field = 'OBJKEY_A'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'OBJTYPE_A'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'OBJKEY_B'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'OBJTYPE_B'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'BREL_KIND'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'RELTYPE'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'RELATIONID'.INSERT cs_field INTO TABLE cs_input-field_names.cs_input-ref_guid = lv_app_guid.cs_input-ref_kind = gc_object_ref_kind-orderadm_h.cs_input-objectname = gc_object_name-doc_flow.INSERT cs_input INTO TABLE ct_input_fields.CALL FUNCTION 'CRM_ORDER_MAINTAIN'IMPORTINGet_exception = lt_exceptionCHANGINGct_input_fields = ct_input_fieldsct_doc_flow = ct_doc_flowEXCEPTIONSerror_occurred = 1document_locked = 2no_change_allowed = 3no_authority = 4.WRITE: / sy-subrc.APPEND lv_app_guid TO lt_save.CALL FUNCTION 'CRM_ORDER_SAVE'EXPORTINGit_objects_to_save = lt_saveIMPORTINGet_objects_not_saved = lt_not_savedet_exception = lt_save_exceptionEXCEPTIONSdocument_not_saved = 1.WRITE: / sy-subrc.COMMIT WORK AND WAIT.ENDFORM.FORM delete_existing_rel USING iv_app_guid TYPE crmd_orderadm_h-guid.APPEND iv_app_guid TO lt_header.CALL FUNCTION 'CRM_ORDER_READ'EXPORTINGit_header_guid = lt_headerIMPORTINGet_doc_flow = lt_doc_flow.IF lt_doc_flow IS INITIAL.WRITE: / 'no relation to delete.'.RETURN.ENDIF.ls_docflow-ref_kind = 'A'.ls_docflow-ref_guid = iv_app_guid.* Jerry comment: for test purpose, one appointment has only one relationship of Opportunity,* thus use INDEX 1READ TABLE lt_doc_flow INTO ls_doc_flow INDEX 1.ls_link-objkey_a = ls_doc_flow-objkey_a.ls_link-objtype_a = gc_object_type-opportunity."'BUS2000111'.ls_link-objkey_b = ls_doc_flow-objkey_b.ls_link-objtype_b = gc_object_type-businessactivity. "'BUS2000126'.ls_link-brel_kind = 'A'.ls_link-brel_mode = 'D'. " deletion* Jerry: this line below is essential!! It points out which exactly relation should be deletedls_link-relationid = ls_doc_flow-relationid.ls_link-reltype = 'VONA'.APPEND ls_link TO ls_docflow-doc_link.INSERT ls_docflow INTO TABLE ct_doc_flow.CLEAR: cs_input-field_names.cs_field = 'DOC_LINK'.INSERT cs_field INTO TABLE cs_input-field_names.cs_input-ref_guid = lv_app_guid.cs_input-ref_kind = gc_object_ref_kind-orderadm_h.cs_input-objectname = gc_object_name-doc_flow.INSERT cs_input INTO TABLE ct_input_fields.CALL FUNCTION 'CRM_ORDER_MAINTAIN'IMPORTINGet_exception = lt_exceptionCHANGINGct_input_fields = ct_input_fieldsct_doc_flow = ct_doc_flowEXCEPTIONSerror_occurred = 1document_locked = 2no_change_allowed = 3no_authority = 4.ASSERT sy-subrc = 0.ENDFORM.
?
刪除某個appointment 關聯的Opportunity relation
Created by Jerry Wang, last modified on Aug 18, 2015
執行report之前：
執行report之后：
REPORT zappointment_delete_opp.INCLUDE: crm_object_names_con,crm_object_types_con,crm_object_kinds_con,crm_mode_con.DATA: ls_docflow TYPE crmt_doc_flow_com,ct_doc_flow TYPE crmt_doc_flow_comt,ls_link TYPE LINE OF crmt_doc_flow_extdt,lv_opp_guid TYPE crmd_orderadm_h-guid,lv_app_guid LIKE lv_opp_guid,ct_input_fields TYPE crmt_input_field_tab,cs_input LIKE LINE OF ct_input_fields,cs_field LIKE LINE OF cs_input-field_names,lt_save TYPE crmt_object_guid_tab,lt_not_saved LIKE lt_save,lt_header TYPE crmt_object_guid_tab,lt_doc_flow TYPE crmt_doc_flow_wrkt,ls_doc_flow LIKE LINE OF lt_doc_flow,lt_save_exception TYPE crmt_exception_t,lt_exception TYPE crmt_exception_t.* Jerry comment: All the relation of this appointment will be deleted by this report* replace this hard code one with your ownlv_app_guid = '3440B5B172DE1ED590B1C3A05B175D6A'.APPEND lv_app_guid TO lt_header.CALL FUNCTION 'CRM_ORDER_READ'EXPORTINGit_header_guid = lt_headerIMPORTINGet_doc_flow = lt_doc_flow.IF lt_doc_flow IS INITIAL.WRITE: / 'no relation to delete.'.RETURN.ENDIF.ls_docflow-ref_kind = 'A'.ls_docflow-ref_guid = lv_app_guid.* Jerry comment: for test purpose, one appointment has only one relationship of Opportunity,* thus use INDEX 1READ TABLE lt_doc_flow INTO ls_doc_flow INDEX 1.ls_link-objkey_a = ls_doc_flow-objkey_a.ls_link-objtype_a = gc_object_type-opportunity."'BUS2000111'.ls_link-objkey_b = ls_doc_flow-objkey_b.ls_link-objtype_b = gc_object_type-businessactivity. "'BUS2000126'.ls_link-brel_kind = 'A'.ls_link-brel_mode = 'D'. " deletion* Jerry: this line below is essential!! It points out which exactly relation should be deletedls_link-relationid = ls_doc_flow-relationid.ls_link-reltype = 'VONA'.APPEND ls_link TO ls_docflow-doc_link.INSERT ls_docflow INTO TABLE ct_doc_flow.CLEAR: cs_input-field_names.cs_field = 'DOC_LINK'.INSERT cs_field INTO TABLE cs_input-field_names.cs_input-ref_guid = lv_app_guid.cs_input-ref_kind = gc_object_ref_kind-orderadm_h.cs_input-objectname = gc_object_name-doc_flow.INSERT cs_input INTO TABLE ct_input_fields.CALL FUNCTION 'CRM_ORDER_MAINTAIN'IMPORTINGet_exception = lt_exceptionCHANGINGct_input_fields = ct_input_fieldsct_doc_flow = ct_doc_flowEXCEPTIONSerror_occurred = 1document_locked = 2no_change_allowed = 3no_authority = 4.WRITE: / sy-subrc.APPEND lv_app_guid TO lt_save.CALL FUNCTION 'CRM_ORDER_SAVE'EXPORTINGit_objects_to_save = lt_saveIMPORTINGet_objects_not_saved = lt_not_savedet_exception = lt_save_exceptionEXCEPTIONSdocument_not_saved = 1.WRITE: / sy-subrc.COMMIT WORK AND WAIT.
?
手動為appointment 添加opportunity的關聯關系
Created by Jerry Wang, last modified on Aug 18, 2015
初始狀態:
執行如下report:
REPORT zappointment_add_opp.
INCLUDE: crm_object_names_con,crm_object_types_con,crm_object_kinds_con,crm_mode_con.DATA: ls_docflow TYPE crmt_doc_flow_com,ct_doc_flow TYPE crmt_doc_flow_comt,ls_link TYPE LINE OF crmt_doc_flow_extdt,lv_opp_guid TYPE crmd_orderadm_h-guid,lv_app_guid LIKE lv_opp_guid,ct_input_fields TYPE crmt_input_field_tab,cs_input LIKE LINE OF ct_input_fields,cs_field LIKE LINE OF cs_input-field_names,lv_opp_id TYPE crmd_orderadm_h-object_id VALUE '1424',lv_opp_type TYPE crmd_orderadm_h-process_type value 'OPPT',"lt_order_h TYPE crmt_orderadm_h_comt,"ls_order_h LIKE LINE OF lt_order_h,lt_save TYPE crmt_object_guid_tab,lt_not_saved LIKE lt_save,lt_save_exception TYPE crmt_exception_t,lt_exception TYPE crmt_exception_t.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = lv_opp_idIMPORTINGoutput = lv_opp_id.SELECT SINGLE guid INTO lv_opp_guid FROM crmd_orderadm_hWHERE object_id EQ lv_opp_id AND process_type = lv_opp_type.ASSERT sy-subrc = 0.lv_app_guid = '3440B5B172DE1ED590B1C3A05B175D6A'.ls_docflow-ref_kind = 'A'.ls_docflow-ref_guid = lv_app_guid.ls_link-objkey_a = lv_opp_guid.ls_link-objtype_a = gc_object_type-opportunity."'BUS2000111'.ls_link-objkey_b = lv_app_guid.ls_link-objtype_b = gc_object_type-businessactivity. "'BUS2000126'.ls_link-brel_kind = 'A'.ls_link-brel_mode = 'A'.ls_link-reltype = 'VONA'.APPEND ls_link TO ls_docflow-doc_link.INSERT ls_docflow INTO TABLE ct_doc_flow.CLEAR: cs_input-field_names.cs_field = 'OBJKEY_A'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'OBJTYPE_A'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'OBJKEY_B'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'OBJTYPE_B'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'BREL_KIND'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'RELTYPE'.INSERT cs_field INTO TABLE cs_input-field_names.cs_field-fieldname = 'RELATIONID'.INSERT cs_field INTO TABLE cs_input-field_names.cs_input-ref_guid = lv_app_guid.cs_input-ref_kind = gc_object_ref_kind-orderadm_h.cs_input-objectname = gc_object_name-doc_flow.INSERT cs_input INTO TABLE ct_input_fields.CALL FUNCTION 'CRM_ORDER_MAINTAIN'IMPORTINGet_exception = lt_exceptionCHANGINGct_input_fields = ct_input_fieldsct_doc_flow = ct_doc_flowEXCEPTIONSerror_occurred = 1document_locked = 2no_change_allowed = 3no_authority = 4.WRITE: / sy-subrc.APPEND lv_app_guid TO lt_save.CALL FUNCTION 'CRM_ORDER_SAVE'EXPORTINGit_objects_to_save = lt_saveIMPORTINGet_objects_not_saved = lt_not_savedet_exception = lt_save_exceptionEXCEPTIONSdocument_not_saved = 1.WRITE: / sy-subrc.COMMIT WORK AND WAIT.
