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

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的逻辑不会再执行。
要获取更多Jerry的原创文章,请关注公众号"汪子熙":
展开阅读全文

Git 实用技巧

11-24
这几年越来越多的开发团队使用了Git,掌握Git的使用已经越来越重要,已经是一个开发者必备的一项技能;但很多人在刚开始学习Git的时候会遇到很多疑问,比如之前使用过SVN的开发者想不通Git提交代码为什么需要先commit然后再去push,而不是一条命令一次性搞定; 更多的开发者对Git已经入门,不过在遇到一些代码冲突、需要恢复Git代码时候就不知所措,这个时候哪些对 Git掌握得比较好的少数人,就像团队中的神一样,在队友遇到 Git 相关的问题的时候用各种流利的操作来帮助队友于水火。 我去年刚加入新团队,发现一些同事对Git的常规操作没太大问题,但对Git的理解还是比较生疏,比如说分支和分支之间的关联关系、合并代码时候的冲突解决、提交代码前未拉取新代码导致冲突问题的处理等,我在协助处理这些问题的时候也记录各种问题的解决办法,希望整理后通过教程帮助到更多对Git操作进阶的开发者。 本期教程学习方法分为“掌握基础——稳步进阶——熟悉协作”三个层次。从掌握基础的 Git的推送和拉取开始,以案例进行演示,分析每一个步骤的操作方式和原理,从理解Git 工具的操作到学会代码存储结构、演示不同场景下Git遇到问题的不同处理方案。循序渐进让同学们掌握Git工具在团队协作中的整体协作流程。 在教程中会通过大量案例进行分析,案例会模拟在工作中遇到的问题,从最基础的代码提交和拉取、代码冲突解决、代码仓库的数据维护、Git服务端搭建等。为了让同学们容易理解,对Git简单易懂,文章中详细记录了详细的操作步骤,提供大量演示截图和解析。在教程的最后部分,会从提升团队整体效率的角度对Git工具进行讲解,包括规范操作、Gitlab的搭建、钩子事件的应用等。 为了让同学们可以利用碎片化时间来灵活学习,在教程文章中大程度降低了上下文的依赖,让大家可以在工作之余进行学习与实战,并同时掌握里面涉及的Git不常见操作的相关知识,理解Git工具在工作遇到的问题解决思路和方法,相信一定会对大家的前端技能进阶大有帮助。
©️2020 CSDN 皮肤主题: 深蓝海洋 设计师: CSDN官方博客 返回首页
实付0元
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值