如何用ABAP代码触发SAP CRM partner determination

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'
    IMPORTING
      ev_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'
    EXPORTING
      iv_ref_guid         = lv_guid
      iv_ref_kind         = 'A'
      iv_point_of_determ  = '0'
      iv_predecessor_guid = '00000000000000000000000000000000'
      is_partner_control  = ls_partner_control
      is_md_structure     = ls_com_structure
    IMPORTING
      ev_selection_needed = lv_selection_needed
      et_partner_com      = lt_partner_com
      et_input_fields     = lt_input_fields
      et_attributes_com   = lt_attributes_com
    EXCEPTIONS
      error_occurred      = 1
      parameter_error     = 2
      OTHERS              = 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 table
  ls_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 to
  ls_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'
    EXPORTING
      it_active_switch = lt_switch
      it_partner       = lt_partner
    CHANGING
      ct_orderadm_h    = lt_orderadm_h_com
      ct_input_fields  = lt_input_fields
    EXCEPTIONS
      OTHERS           = 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'
    EXPORTING
      it_objects_to_save   = lt_save
      iv_update_task_local = abap_true
      iv_no_bdoc_send      = abap_true
    IMPORTING
      et_saved_objects     = lt_saved
    EXCEPTIONS
      document_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.