两种使用代码获得SAP CRM product sales status的办法-阿里云开发者社区

开发者社区> 开发者小助手-bz4> 正文

两种使用代码获得SAP CRM product sales status的办法

简介: 两种使用代码获得SAP CRM product sales status的办法
+关注继续查看

Requirement:

I would like to get Product sales status id via ABAP code. The test product id: 1467image.pngIn TJ02T, we know the status id is: I1050

image.pngApproach1: use function module CRM_STATUS_READ.image.png 

METHOD read_prod_sales_status.

   DATA(lv_guid) = get_guid_by_id( iv_prod_id ).

   CONSTANTS: gv_salesa TYPE comm_pr_frg_rod-fragment_type

    VALUE '37D58F1B772D53A4E10000009B38FA0B'.

   DATA: lv_objnr  TYPE comm_pr_frg_rod-status_object,

         lt_status TYPE STANDARD TABLE OF jstat.

   SELECT SINGLE status_object FROM comm_pr_frg_rod INTO lv_objnr

      WHERE product_guid = lv_guid AND fragment_type = gv_salesa.

   CHECK sy-subrc = 0.

   CALL FUNCTION 'CRM_STATUS_READ'

     EXPORTING

       objnr            = lv_objnr

     TABLES

       status           = rt_status

     EXCEPTIONS

       object_not_found = 1.

 ENDMETHOD.Output:image.pngSource code:METHOD get_prod_sales_status_via_bol.

   DATA:

     lo_collection    TYPE REF TO if_bol_entity_col,

     lv_view_name     TYPE crmt_view_name,

     lv_query_name    TYPE crmt_ext_obj_name,

     ls_parameter     TYPE genilt_query_parameters,

     lt_sel_parameter TYPE crmt_name_value_pair_tab,

     ls_sel_parameter LIKE LINE OF lt_sel_parameter.

   lv_query_name = 'ProdAdvancedSearchProducts'.

   ls_sel_parameter = VALUE #( name = 'PRODUCT_ID' value = iv_prod_id ).

   APPEND ls_sel_parameter TO lt_sel_parameter.

   DATA(lo_result) = so_core->query(

       iv_query_name               = lv_query_name

       it_query_params = lt_sel_parameter

       iv_view_name                = lv_view_name ).

   CHECK lo_result->size( ) = 1.

   DATA(lo_product) = lo_result->get_first( ).

   DATA(lo_dc) = lo_product->get_related_entity( 'ProductDistrChain' ).

   CHECK lo_dc IS NOT INITIAL.

   DATA(lo_salesa) = lo_dc->get_related_entity( 'ProductDcSalesa' ).

   CHECK lo_salesa IS NOT INITIAL.

   RV_STATUS = lo_Salesa->get_property_as_string( 'STATUS_OBJECT' ).

 ENDMETHOD.image.png

Define a static attribute so_core and initialize it in class constructor:Test method CLASS_CONSTRUCTOR.

    so_core = cl_crm_bol_core=>get_instance( ).

    so_core->load_component_set( 'PROD_ALL' ).

 endmethod.Test result:

image.png


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
2315
文章
0
问答
来源圈子
更多
+ 订阅
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载