二维码

[其他] CRM 创建自定义的Genil/Bol object Model

Twilight发表于 2016-02-16 10:24Twilight 最后回复于 2016-02-16 10:24 [复制链接] 6291 0

使用接口：IF_GENIL_APPL_MODEL，创建动态模型。

1、SE24 创建类：ZCL_CUSTOMER_MODEL
Genil 1.jpg

Genil 1.jpg

添加继承类：CL_WCF_GENIL_ABSTR_COMPONENT，保存激活

2、SM34 注册Genil component
Genil 2.jpg

Genil 2.jpg

输入CRMVC_GIL_APPDEF ，维护数据
Genil 3.jpg

Genil 3.jpg

定义 Component和 Component Set，然后将 Component分配到 Component Set中
Genil 4.jpg

Genil 4.jpg

Genil 5.jpg

3、se11 创建Table：ZMAST_CUST
Genil 6.jpg

Genil 6.jpg

4、创建Genil Business Objects相关对象
Genil 7.jpg

Genil 7.jpg

Key Structure of Customer Data

Genil 8.jpg

Genil 8.jpg

Attribute structure of a Customer Data

Genil 9.jpg

Genil 9.jpg

Genil 10.jpg

Table Type of Attribute Structure

5、创建表ZMAST_CUST锁
Genil 11.jpg

Genil 11.jpg

6、T-code：GENIL_MODEL_BROWSER，输入组件ZCUST
Genil 12.jpg

Genil 12.jpg

7、创建Root Objects：Customer

输入Key Structure Name , Attribute structure name and Create structure name
Genil 13.jpg

Genil 13.jpg

Genil 14.jpg

调整BOL对表字段的属性状态：可编辑

8、se24：ZCL_CUSTOMER_API
Genil 15.jpg

Genil 15.jpg

CREATE_CUSTOMER
Genil 16.jpg

Genil 16.jpg

METHOD create_customer.
DATA : lv_data LIKE LINE OF gt_customer.
* First step is to Lock a Customer.
CALL FUNCTION 'ENQUEUE_EZMAST_CUST'
EXPORTING
mode_zmast_cust = 'E'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
* Writing to Buffer values passed by parameters and setting Flag C.
lv_data-guid = is_cust_key-guid.
lv_data-custno = is_cust_key-custno.
lv_data-new = 'C'.
APPEND lv_data TO gt_customer.
rv_success = 'X'.
ENDMETHOD.

复制代码

SAVE_CUSTOMER
Genil 17.jpg

Genil 17.jpg

METHOD save_customer.
DATA : wa_cust TYPE zmast_cust.
DATA : lv_success TYPE abap_bool.
FIELD-SYMBOLS: <customer_attr_n> LIKE LINE OF gt_customer.
lv_success = 'X'.
READ TABLE gt_customer ASSIGNING <customer_attr_n> WITH
KEY guid = cs_key-guid
custno = cs_key-custno.
CHECK sy-subrc = 0.
CASE <customer_attr_n>-new.
WHEN 'C' OR 'M'.
MOVE-CORRESPONDING <customer_attr_n> TO wa_cust.
MODIFY zmast_cust FROM wa_cust.
WHEN OTHERS.
ENDCASE.
CALL FUNCTION 'DEQUEUE_EZMAST_CUST'
EXPORTING
mode_zmast_cust = 'E'
guid = cs_key-guid
custno = cs_key-custno.
CLEAR cs_key.
ENDMETHOD.

复制代码

GET_CUSTOMER Genil 18.jpg

Genil 18.jpg

METHOD get_customer.
FIELD-SYMBOLS <data> LIKE LINE OF gt_customer.
*
IF is_cust_key IS NOT INITIAL.
* Try to read from Buffer.
READ TABLE gt_customer WITH KEY
guid = is_cust_key-guid
custno = is_cust_key-custno
ASSIGNING <data>.
ELSE.
READ TABLE gt_customer WITH KEY new = 'C' ASSIGNING <data>.
IF sy-subrc <> 0.
RETURN.
ENDIF.
ENDIF.
IF sy-subrc = 0.
IF <data>-new EQ 'C' OR <data>-new EQ 'M'.
MOVE-CORRESPONDING <data> TO es_cust_attr.
RETURN.
ENDIF.
ENDIF.
ENDMETHOD.

复制代码

CHANGE_CUSTOMER
Genil 19.jpg

Genil 19.jpg

METHOD change_customer.
FIELD-SYMBOLS : <line> TYPE zattr_cust,
<old> TYPE simple,
<new> TYPE simple,
<name> TYPE name_komp.
READ TABLE gt_customer WITH KEY
guid = is_cust_attr-guid
custno = is_cust_attr-custno ASSIGNING <line> .
CHECK sy-subrc IS INITIAL.
LOOP AT it_names ASSIGNING <name>.
ASSIGN COMPONENT <name> OF STRUCTURE <line> TO <old>.
CHECK sy-subrc = 0.
ASSIGN COMPONENT <name> OF STRUCTURE is_cust_attr TO <new>.
CHECK sy-subrc = 0.
<old> = <new>.
ENDLOOP.
<line>-new = 'M'.
rv_success ='X'.
ENDMETHOD.

复制代码

9、se24：ZCL_CUSTOMER_MODEL Genil 20.jpg

Genil 20.jpg

METHOD if_genil_appl_intlay~create_objects.
TYPES : BEGIN OF ty_cust,
custno TYPE zcustno,
END OF ty_cust.
DATA : lv_guid TYPE crmt_object_guid.
DATA : lv_key TYPE zattr_cust_key.
DATA : lv_success TYPE char1.
DATA : lit_cust TYPE TABLE OF ty_cust.
DATA : wa TYPE ty_cust.
DATA : lv_count TYPE i VALUE 0.
* Fill structure based on Name Value Pairs Table.
fill_struct_from_nvp_tab( EXPORTING it_parameters = it_parameters
CHANGING cs_parameter = lv_key ).
* Creating a Guid.
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_16 = lv_guid.
* Custom Logic to create a New Customer Number.
SELECT custno FROM zmast_cust INTO TABLE lit_cust.
SORT lit_cust DESCENDING.
IF lit_cust IS NOT INITIAL.
LOOP AT lit_cust INTO wa.
lv_count = wa-custno + 1.
EXIT.
ENDLOOP.
ELSE.
lv_count = 1.
ENDIF.
lv_key-guid = lv_guid.
lv_key-custno = lv_count.
* API Class fills the the global attribute.
CALL METHOD zcl_customer_api=>create_customer
EXPORTING
is_cust_key = lv_key
IMPORTING
rv_success = lv_success.
* Add the object to Data Container - Root Object List Interface
IF lv_success IS NOT INITIAL.
iv_root_list->add_object( iv_object_name = iv_object_name
is_object_key = lv_key ).
ENDIF.
ENDMETHOD.

复制代码

METHOD if_genil_appl_intlay~get_objects.
DATA lv_root TYPE REF TO if_genil_cont_root_object.
DATA lv_key TYPE zattr_cust_key.
DATA lv_cust_att TYPE zattr_cust.
* Get the first object of data container.
lv_root = iv_root_list->get_first( ).
lv_root->get_key( IMPORTING es_key = lv_key ).
* Check if attributes are read after Create
IF lv_root->check_attr_requested( ) = abap_true.
* Custom API class to get the customer attributes.
zcl_customer_api=>get_customer( EXPORTING is_cust_key = lv_key
IMPORTING es_cust_attr = lv_cust_att ).
* Return the objects only if it exists
IF lv_cust_att IS NOT INITIAL.
* Set the attributes in container
lv_root->set_attributes( lv_cust_att ).
* Get the next object of data container.
lv_root = iv_root_list->get_next( ).
ENDIF.
ENDIF.
ENDMETHOD.

复制代码

METHOD if_genil_appl_intlay~modify_objects.
DATA : lv_cust_attr TYPE zattr_cust,
lv_root TYPE REF TO if_genil_container_object,
lv_changed_objects TYPE crmt_genil_obj_instance,
lv_props TYPE REF TO if_genil_obj_attr_properties,
lt_changed_attr TYPE crmt_attr_name_tab,
lv_cust_key TYPE zattr_cust_key,
lv_success TYPE abap_bool.
DATA : lv_change TYPE crmt_genil_attr_property.
CHECK iv_root_list IS BOUND.
* Get the first object from Container.
lv_root = iv_root_list->get_first( ).
IF lv_root->get_delta_flag( ) IS NOT INITIAL.
* Get name of the object.
CASE lv_root->get_name( ).
WHEN 'Customer'.
* Returns an Property Object for Object Attributes.
lv_props = lv_root->get_attr_props_obj( ).
* Returns a Table of All Names with Specified Property.
CALL METHOD lv_props->get_name_tab_4_property
EXPORTING
iv_property = if_genil_obj_attr_properties=>modified
IMPORTING
et_names = lt_changed_attr.
lv_root->get_key( IMPORTING es_key = lv_cust_key ).
lv_root->get_attributes( IMPORTING es_attributes = lv_cust_attr ).
MOVE-CORRESPONDING lv_cust_key TO lv_cust_attr.
CALL METHOD zcl_customer_api=>change_customer
EXPORTING
is_cust_attr = lv_cust_attr
it_names = lt_changed_attr
IMPORTING
rv_success = lv_success.
IF lv_success IS NOT INITIAL.
lv_changed_objects-object_name = 'Customer'.
lv_changed_objects-object_id = cl_crm_genil_container_tools=>build_object_id( lv_cust_key ).
* Add into Object Table with Object Type and ID.
APPEND lv_changed_objects TO et_changed_objects.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDIF.
ENDMETHOD.

复制代码

METHOD if_genil_appl_alternative_dsil~save_objects.
DATA lv_cust_key TYPE zattr_cust_key.
FIELD-SYMBOLS <object> TYPE crmt_genil_obj_inst_line.
LOOP AT ct_object_list ASSIGNING <object>.
* Check for Object Instance.
CASE <object>-object_name.
WHEN 'Customer'.
TRY.
CALL METHOD cl_crm_genil_container_tools=>get_key_from_object_id(
EXPORTING
iv_object_name = <object>-object_name
iv_object_id = <object>-object_id
IMPORTING
es_key = lv_cust_key ).
.
CATCH cx_crm_genil_general_error .
ENDTRY.
* Custom API to Save the customer data.
CALL METHOD zcl_customer_api=>save_customer
CHANGING
cs_key = lv_cust_key.
IF lv_cust_key IS INITIAL.
<object>-success = abap_true.
ENDIF.
ENDCASE.
ENDLOOP.
ENDMETHOD. "if_genil_appl_alternative_dsil~save_objects

复制代码

9、T-code：genil_bol_browser
Create New Root Object
Genil 21.jpg

Genil 21.jpg

double click， Create Object
Genil 22.jpg

Genil 22.jpg

输入数据，保存

10、se11：ZMAST_CUST查看数据
Genil 23.jpg

Genil 23.jpg

CRM, BOL, Genil

相关帖子

回复

使用道具举报

Twilight

管理员

+发表新主题

846 主题
125 回帖
11239 积分

发消息

Ta最近发表

快速回帖

本版积分规则

快速回复 返回顶部 返回列表