Created by Jerry Wang, last modified on Apr 29, 2015

執(zhí)行report ZDETER_AND_CREATE,
這個(gè)report完成三件事情：

創(chuàng)建一個(gè)新的process type為SC1的service contract

call partner determination的API，完成determination 邏輯(這個(gè)例子里determine出來的是employee responsible)

將step2 得到的partner assign到step1創(chuàng)建的service contract里，同時(shí)hard code 另一個(gè)Bill to party

call order save將創(chuàng)建的service contract保存到DB

REPORT zdeter_and_create. DATA: lt_input_fields TYPE crmt_input_field_tab,ls_input_field LIKE LINE OF lt_input_fields,ls_field_name LIKE LINE OF ls_input_field-field_names,lv_guid TYPE guid_16,lt_orderadm_h_com TYPE crmt_orderadm_h_comt,ls_orderadm_h_com LIKE LINE OF lt_orderadm_h_com,lt_partner TYPE crmt_partner_comt,ls_partner LIKE LINE OF lt_partner,ls_partner_control TYPE crmt_partner_control,ls_com_structure TYPE string,lv_selection_needed TYPE crmt_boolean,lv_is_buying_center TYPE abap_bool,lt_partner_com TYPE crmt_partner_comt,ls_partner_com LIKE LINE OF lt_partner_com,lt_attributes_com TYPE crmt_partner_attribute_com_tab,lt_save TYPE crmt_object_guid_tab,lt_saved TYPE crmt_return_objects,ls_saved LIKE LINE OF lt_saved,lt_switch TYPE crmt_active_switch_t,ls_switch TYPE LINE OF crmt_active_switch_t. START-OF-SELECTION.PERFORM call_bp_determ_api.PERFORM call_order_maintain.PERFORM call_order_save. FORM call_bp_determ_api.CALL FUNCTION 'GUID_CREATE'IMPORTINGev_guid_16 = lv_guid.ls_partner_control-document_id = lv_guid.ls_partner_control-caller = 'CRM'.ls_partner_control-object_type = 'BUS2000112'.ls_partner_control-master_data_structure = 'CRMT_BUS_SALES_COM'.ls_partner_control-determ_proc = '00000041'.ls_partner_control-scope = 'A'.ls_partner_control-no_default_for_calendar_flag = 'X'.ls_partner_control-process_type = 'SC1'.CALL FUNCTION 'CRM_PARTNER_DETERMINATION_OW'EXPORTINGiv_ref_guid = lv_guidiv_ref_kind = 'A'iv_point_of_determ = '0'iv_predecessor_guid = '00000000000000000000000000000000'is_partner_control = ls_partner_controlis_md_structure = ls_com_structureIMPORTINGev_selection_needed = lv_selection_neededet_partner_com = lt_partner_comet_input_fields = lt_input_fieldset_attributes_com = lt_attributes_comEXCEPTIONSerror_occurred = 1parameter_error = 2OTHERS = 3.IF sy-subrc = 0.WRITE: / 'partner determination is done successfully'.ENDIF. ENDFORM. FORM call_order_maintain.CLEAR: ls_orderadm_h_com, ls_input_field, lt_input_fields.ls_orderadm_h_com-guid = lv_guid.ls_orderadm_h_com-description = 'created by code on:' && sy-timlo.ls_orderadm_h_com-process_type = 'SC1'.ls_orderadm_h_com-mode = 'A'.APPEND ls_orderadm_h_com TO lt_orderadm_h_com.ls_input_field-ref_guid = lv_guid.ls_input_field-ref_kind = 'A'.ls_input_field-objectname = 'ORDERADM_H'. * sorted tablels_field_name-fieldname = 'DESCRIPTION'.APPEND ls_field_name TO ls_input_field-field_names.ls_field_name-fieldname = 'MODE'.APPEND ls_field_name TO ls_input_field-field_names.ls_field_name-fieldname = 'PROCESS_TYPE'.APPEND ls_field_name TO ls_input_field-field_names.APPEND ls_input_field TO lt_input_fields.CLEAR: ls_input_field.ls_input_field-ref_guid = lv_guid.ls_input_field-ref_kind = 'A'.ls_input_field-objectname = 'PARTNER'.CLEAR: ls_field_name.ls_field_name-fieldname = 'DISPLAY_TYPE'.APPEND ls_field_name TO ls_input_field-field_names.ls_field_name-fieldname = 'KIND_OF_ENTRY'.APPEND ls_field_name TO ls_input_field-field_names.ls_field_name-fieldname = 'NO_TYPE'.APPEND ls_field_name TO ls_input_field-field_names.ls_field_name-fieldname = 'PARTNER_FCT'.APPEND ls_field_name TO ls_input_field-field_names.ls_field_name-fieldname = 'PARTNER_NO'.APPEND ls_field_name TO ls_input_field-field_names.ls_input_field-ref_handle = '0000000000'.ls_input_field-logical_key = '0000'.APPEND ls_input_field TO lt_input_fields.ls_partner-ref_guid = lv_guid.ls_partner-ref_kind = 'A'.ls_partner-kind_of_entry = 'C'.ls_partner-partner_fct = '00000003'. "Bill tols_partner-partner_no = '0004102821'.ls_partner-display_type = 'BP'.ls_partner-no_type = 'BP'.APPEND ls_partner TO lt_partner.READ TABLE lt_partner_com INTO ls_partner_com INDEX 1.ls_partner-ref_guid = lv_guid.ls_partner-ref_kind = 'A'.ls_partner-kind_of_entry = 'C'.ls_partner-partner_fct = ls_partner_com-partner_fct.ls_partner-partner_no = ls_partner_com-partner_no.ls_partner-display_type = 'BP'.ls_partner-no_type = 'BP'.APPEND ls_partner TO lt_partner.ls_switch-ref_guid = lv_guid.ls_switch-ref_kind = 'A'.ls_switch-partner_determ = 'A'.APPEND ls_switch TO lt_switch.CALL FUNCTION 'CRM_ORDER_MAINTAIN'EXPORTINGit_active_switch = lt_switchit_partner = lt_partnerCHANGINGct_orderadm_h = lt_orderadm_h_comct_input_fields = lt_input_fieldsEXCEPTIONSOTHERS = 99.IF sy-subrc = 0.WRITE:/ 'Order maintain function is done successfully.'.ENDIF. ENDFORM. FORM call_order_save.INSERT lv_guid INTO TABLE lt_save.CALL FUNCTION 'CRM_ORDER_SAVE'EXPORTINGit_objects_to_save = lt_saveiv_update_task_local = abap_trueiv_no_bdoc_send = abap_trueIMPORTINGet_saved_objects = lt_savedEXCEPTIONSdocument_not_saved = 1.IF sy-subrc <> 0.WRITE: / 'Service contract created failed'.ELSE.READ TABLE lt_saved INTO ls_saved INDEX 1.WRITE: / 'service contract created successfully, id: ' , ls_saved-object_id.ENDIF.COMMIT WORK AND WAIT. ENDFORM.

總結(jié)

以上是生活随笔為你收集整理的如何使用代码创建service contract并实现partner determination的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。