How to update BOL entity property value via ABAP code

Suppose I have one product with ID I042416 which could be found in CRM WebClient UI:

I would like to change its description from "i042416" to for example "Jerry test".

Here below is the ABAP code which uses CRM BOL API to achieve.

Execute the report, specify product ID and new description to be updated:

Execute the report, product description is updated:

Double confirm in UI to see updated description as expected:

The complete code could be found below:

REPORT PROD_UPDATE_TEST.

PARAMETERS: prd_id TYPE string,
des_val1 TYPE string,
uom_val2 TYPE string,
sta_val3 TYPE string,
icg_val4 TYPE string,
not_val5 TYPE string,
dis_txt6 TYPE string.

DATA:
      lo_core               TYPE REF TO cl_crm_bol_core,
      lo_collection         TYPE REF TO if_bol_entity_col,
      lo_root_entity        TYPE REF TO cl_crm_bol_entity,
      lo_short_text         TYPE REF TO cl_crm_bol_entity,
      lo_uom                TYPE REF TO cl_crm_bol_entity,
      lo_stat               TYPE REF TO cl_crm_bol_entity,
      lo_matb               TYPE REF TO cl_crm_bol_entity,
      lo_note               TYPE REF TO cl_crm_bol_entity,
      lo_dischain           TYPE REF TO cl_crm_bol_entity,
      lo_dischaintxt        TYPE REF TO cl_crm_bol_entity.

DATA:
      lv_view_name          TYPE crmt_view_name,
      lv_query_name         TYPE crmt_ext_obj_name,
      lt_query_parameter    TYPE crmt_name_value_pair_tab,
      ls_query_parameter    LIKE LINE OF lt_query_parameter,
      lo_transaction        TYPE REF TO if_bol_transaction_context,
      lv_success            TYPE abap_bool,
      lv_changed            TYPE abap_bool,
      lv_size               TYPE I.

* get the product
lo_core = cl_crm_bol_core=>get_instance( ).
lo_core->load_component_set( 'PROD_ALL' ).
lo_transaction = lo_core->get_transaction( ).

lv_query_name = 'ProdAdvancedSearchProducts'.

ls_query_parameter-name = 'PRODUCT_ID'.
ls_query_parameter-VALUE = prd_id.
APPEND ls_query_parameter TO lt_query_parameter.

lo_collection = lo_core->query(
iv_query_name               = lv_query_name
it_query_params             = lt_query_parameter
iv_view_name                = lv_view_name ).

lv_size = lo_collection->IF_BOL_BO_COL~SIZE( ).

WRITE:/ 'Product number found:' , lv_size.

ASSERT lv_size = 1.

lo_root_entity = lo_collection->get_first( ).

IF des_val1 IS NOT INITIAL.
* update product description
  lo_short_text = lo_root_entity->get_related_entity( 'ProductShortText' ).

  IF lo_short_text IS INITIAL.
    " HANDLING
    lo_short_text = lo_root_entity->CREATE_RELATED_ENTITY( IV_RELATION_NAME = 'ProductShortText' ).
  ENDIF.

  lo_short_text->set_property( iv_attr_name = 'SHORT_TEXT' iv_value = des_val1 ).
  lo_short_text->set_property( iv_attr_name   = 'LANGU'    iv_value = sy-langu ).
ENDIF.

IF uom_val2 IS NOT INITIAL.
* update base unit
  lo_uom = lo_root_entity->get_related_entity( 'ProductUom' ).

  IF lo_uom IS INITIAL.
    " HANDLING
    lo_uom = lo_root_entity->CREATE_RELATED_ENTITY( IV_RELATION_NAME = 'ProductUom' ).
  ENDIF.

  lo_uom->set_property( iv_attr_name = 'UNIT' iv_value = uom_val2 ).
ENDIF.

IF sta_val3 IS NOT INITIAL.
* update status
  lo_stat = lo_root_entity->get_related_entity( 'ProductStat' ).

  IF lo_stat IS INITIAL.
    lo_stat = lo_root_entity->CREATE_RELATED_ENTITY( IV_RELATION_NAME = 'ProductStat' ).
  ENDIF.

  lo_stat->set_property( iv_attr_name = 'STAT' iv_value = sta_val3 ).
ENDIF.

IF icg_val4 IS NOT INITIAL.
* update item category group
  lo_matb = lo_root_entity->get_related_entity( 'ProductMatBasic' ).

  IF lo_matb IS INITIAL.
    lo_matb = lo_root_entity->CREATE_RELATED_ENTITY( IV_RELATION_NAME = 'ProductMatBasic' ).
  ENDIF.

  lo_matb->set_property( iv_attr_name = 'ITEM_CAT_GROUP' iv_value = icg_val4 ).
ENDIF.

IF not_val5 IS NOT INITIAL.
* update notes
  lo_note = lo_root_entity->get_related_entity( 'ProductLongtext' ).

  IF lo_note IS INITIAL.
    lo_note = lo_root_entity->CREATE_RELATED_ENTITY( IV_RELATION_NAME = 'ProductLongtext' ).
  ENDIF.

  lo_note->set_property( iv_attr_name = 'CONC_LINES' iv_value = not_val5 ).
ENDIF.

IF dis_txt6 IS NOT INITIAL.
* update sales area text
  lo_dischain = lo_root_entity->get_related_entity( 'ProductDistrChain' ).

  IF lo_dischain IS INITIAL.
    lo_dischain = lo_root_entity->CREATE_RELATED_ENTITY( IV_RELATION_NAME = 'ProductDistrChain' ).
  ENDIF.

  lo_dischaintxt = lo_dischain->GET_RELATED_ENTITY( 'ProductDcLongtext' ).

  IF lo_dischaintxt IS INITIAL.
    lo_dischaintxt = lo_dischain->CREATE_RELATED_ENTITY( IV_RELATION_NAME = 'ProductDcLongtext' ).
  ENDIF.

  lo_dischaintxt->set_property( iv_attr_name = 'CONC_LINES' iv_value = dis_txt6 ).
ENDIF.

* execute modification
lo_core->modify( ).
lv_changed = lo_transaction->check_save_needed( ).

CHECK lv_changed EQ abap_true.
lv_success = lo_transaction->save( ).
IF lv_success = abap_true.
  lo_transaction->commit( ).
  WRITE:/ 'Product changed Successfully'.
ELSE.
  lo_transaction->rollback( ).
ENDIF.

要获取更多Jerry的原创文章,请关注公众号"汪子熙":

原创声明,本文系作者授权云+社区发表,未经许可,不得转载。

如有侵权,请联系 yunjia_community@tencent.com 删除。

编辑于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏ASP.NET MVC5 后台权限管理系统

ASP.NET MVC5+EF6+EasyUI 后台管理系统(41)-组织架构

本节开始我们要实现工作流,此工作流可以和之前的所有章节脱离关系,也可以紧密合并。 我们当初设计的项目解决方案就是可伸缩可以拆离,可共享的项目解决方案。所以我们同...

22470
来自专栏杨建荣的学习笔记

探索ASH 第一篇

老是在用ASH,对它的依赖感觉已经大于AWR,昨天心血来潮,想看看ash视图里面是怎么样的,过程也算曲折,不过也算抛砖引玉。 先看看v$active_sessi...

45980
来自专栏杨建荣的学习笔记

通过shell脚本得到数据字典的信息 (r2笔记72天)

在平时的工作中,可能需要查询一些数据字典的信息,比如数据字典对应的基表信息,可以得到更多数据库内部的一些详细信息。 比如user_objects这个数据字典视图...

29870
来自专栏杨建荣的学习笔记

使用hint来调优sql语句(72天)

最近生产发现有一个sql语句运行耗时达5000多秒。 抓出来sql_id一看,sql倒不是一个很长的语句。结构也很简单。如下。 select company_c...

27260
来自专栏杨建荣的学习笔记

生产环境大型sql语句调优实战第一篇(一) (r2笔记第31天)

在生产环境中有一条sql语句的性能极差,在早晨非高峰时段运行抽取数据,平均要花费40分钟,有时候竟然要跑10个多小时。 sql语句比较长,需要点耐心往下看。我对...

42140
来自专栏Java学习123

ORACLE数据库日常维护

66280
来自专栏跟着阿笨一起玩NET

(1)显示每个类别最新更新的数据

在项目中经常遇到求每个类别最新显示的数据,比如显示某某某类别最新更新的5条数据。特写下这个sql记录于此:

9210
来自专栏数据和云

Oracle 的 DBMS_SCN 修正以及 SCN 的 auto-rollover 新特性

在 Oracle 11.2.0.2 之后,随着一系列 SCN 耗尽问题的出现,很多补丁涌现出来,一个新的 Package 增加进来。 这个 Package 就是...

46360
来自专栏kwcode

SQL语句帮助大全

--删除约束 Status:字段名 alter table Table_1 drop constraint Status; --添加约束 --Status :字...

358110
来自专栏ASP.NET MVC5 后台权限管理系统

ASP.NET MVC5+EF6+EasyUI 后台管理系统(35)-文章发布系统②-构建项目

注:阅读本文,需要阅读本系列的之前文章 代码生成器下载地址(文章开头处)  接下来我们建立数据库的表和各层的代码 我们只需要两张表,文章列表(MIS_Artic...

28190

扫码关注云+社区

领取腾讯云代金券