如何使用代码创建具有Organization unit的opportunity

版权声明:署名,允许他人基于本文进行创作,且必须基于与原先许可协议相同的许可协议分发本文 (Creative Commons

Created by Jerry Wang, last modified on May 18, 2015

source code:

*&---------------------------------------------------------------------*

*& Report  ZPARTNER_DETERMINE_VIA_CODE

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT zorg_deter_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_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_org_man          TYPE crmt_orgman_comt,

      ls_org_man          LIKE LINE OF lt_org_man.

START-OF-SELECTION.

  "PERFORM call_bp_determ_api.

  CALL FUNCTION 'GUID_CREATE'

    IMPORTING

      ev_guid_16 = lv_guid.

  PERFORM call_order_maintain.

  PERFORM call_order_save.

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 = 'OPPT'.

  ls_orderadm_h_com-mode = 'A'.

  APPEND ls_orderadm_h_com TO lt_orderadm_h_com.

  " Hard code sales org

  ls_org_man-dis_channel = '01'.

  ls_org_man-division = '02'.

  ls_org_man-sales_orgr_ori = 'C'.

  ls_org_man-sales_org_resp = 'O 50000732'.

  ls_org_man-error_flag = 'X'.

  ls_org_man-mode = 'A'.

  ls_org_man-no_determination = 'X'.

  ls_org_man-ref_guid = lv_guid.

  ls_org_man-ref_kind = 'A'.

  APPEND ls_org_man TO lt_org_man.

  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.

* input field for Org management

  CLEAR: ls_input_field,ls_field_name.

  ls_field_name-fieldname = 'DIS_CHANNEL'.

  APPEND ls_field_name TO ls_input_field-field_names.

  ls_field_name-fieldname = 'DIVISION'.

  APPEND ls_field_name TO ls_input_field-field_names.

  ls_field_name-fieldname = 'NO_DETERMINATION'.

  APPEND ls_field_name TO ls_input_field-field_names.

  ls_field_name-fieldname = 'SALES_ORGR_ORI'.

  APPEND ls_field_name TO ls_input_field-field_names.

  ls_field_name-fieldname = 'SALES_ORG_RESP'.

  APPEND ls_field_name TO ls_input_field-field_names.

  ls_input_field-ref_guid = lv_guid.

  ls_input_field-ref_kind = 'A'.

  ls_input_field-objectname = 'ORGMAN'.

  INSERT ls_input_field INTO TABLE lt_input_fields.

  ls_partner-ref_guid = lv_guid.

  ls_partner-ref_kind = 'A'.

  ls_partner-kind_of_entry = 'C'.

  ls_partner-partner_fct = '00000021'. "sales prospect

  ls_partner-partner_no = '0004031140'.

  ls_partner-display_type = 'BP'.

  ls_partner-no_type = 'BP'.

  APPEND ls_partner TO lt_partner.

  CALL FUNCTION 'CRM_ORDER_MAINTAIN'

    EXPORTING

      it_partner      = lt_partner

      it_orgman       = lt_org_man

    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: / 'Opportunity created failed'.

  ELSE.

    READ TABLE lt_saved INTO ls_saved INDEX 1.

    WRITE: / 'Opportunity created successfully, id: ' , ls_saved-object_id.

  ENDIF.

  COMMIT WORK AND WAIT.

ENDFORM.

关键点:

1. hard code sales organization信息如下:

2. 对于opportunity来说,sales prospect 是mandatory field,hard code如下:

3. webUI上,下列红色highlight的area内的数据是上述代码hard code而来:

在这个report里,FM CRM_ORDER_MAINTAIN 不会trigger organization unit的determination 的原因如下:

因为global buffer里sales org已经available了,因此 line 177 organization management determination的逻辑不会再执行。

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

扫码关注云+社区

领取腾讯云代金券