创建一个简单BP的实例

最新推荐文章于 2024-05-21 11:15:06 发布

范叉叉

最新推荐文章于 2024-05-21 11:15:06 发布

阅读量9.4k

点赞数

文章标签： SAP CRM BOL genIL

本文链接：https://blog.csdn.net/fanchacha/article/details/51544550

版权

  DATA lr_bol_core TYPE REF TO cl_crm_bol_core.
  DATA ls_query_parameter TYPE crmt_name_value_pair.
  DATA lt_query_params TYPE crmt_name_value_pair_tab.
  DATA lr_bpresult TYPE REF TO if_bol_entity_col.
  DATA lr_property_access TYPE REF TO if_bol_bo_property_access.
  DATA ls_bpresult TYPE crmst_header_object_buil.
  DATA lt_bpresult TYPE TABLE OF crmst_header_object_buil.
  DATA lv_partner TYPE bu_partner .
  DATA lr_root TYPE REF TO cl_crm_bol_entity.
  DATA lr_transaction TYPE REF TO if_bol_transaction_context.
  DATA lr_root_factory TYPE REF TO cl_crm_bol_entity_factory.
  DATA lr_head TYPE REF TO cl_crm_bol_entity.
  DATA lr_standardaddress TYPE REF TO cl_crm_bol_entity.
  DATA ls_standardaddress TYPE crmst_address_buil.
  DATA lr_role TYPE REF TO cl_crm_bol_entity.
  DATA ls_role TYPE crmt_bupa_il_roles.

*加载组件集
  lr_bol_core = cl_crm_bol_core=>get_instance( ).
  lr_bol_core->start_up('BTBP').

*查询BOL
  CLEAR ls_query_parameter.
  REFRESH lt_query_params.
  ls_query_parameter-name = 'TELEPHONE'.
  ls_query_parameter-value = tel.
  APPEND ls_query_parameter TO lt_query_params.
  ls_query_parameter-name = 'ROLECATEGORY'.
  ls_query_parameter-value = 'XXXXX'.
  APPEND ls_query_parameter TO lt_query_params.
  CALL METHOD lr_bol_core->query
    EXPORTING
      iv_query_name               = 'BuilHeaderSearch'
      it_query_params             = lt_query_params
      iv_view_name