点击此处---> 群内免费提供SAP练习系统(在群公告中)
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
前面在SEGW中完成了Model的创建工作,接下来我们需要开始写代码,前面说过,在激活Model的时候产生了4个类,MPC两个(Model Provider),DPC两个(Data Provider),在实际开发中,主要基于**DPC_EXT**进行程序的开发。
首先我们来看看DCP_EXT几个主要的方法:
可以看到,对于每个entity,都包括了CRUD的操作,其中READ包含GET_ENTITY以及GET_ENTITYSET。
•
GET_ENTITYSET:取得符合筛选条件的多条记录。
•
GET_ENTITY: 取得根据Key值返回的单条记录。
取得plant列表
重定义PLANTSET_GET_ENTITYSET方法
method PLANTSET_GET_ENTITYSET. SELECT * from t001w into CORRESPONDING FIELDS OF TABLE et_entityset UP TO 50 ROWS where adrnr <> space. endmethod.
取得plant单条记录
method PLANTSET_GET_ENTITY. DATA ls_converted_keys LIKE er_entity. data lv_plant type werks_d. io_tech_request_context->get_converted_keys( IMPORTING es_key_values = ls_converted_keys ). lv_plant = ls_converted_keys-werks. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_plant IMPORTING output = lv_plant. select single * from t001w into CORRESPONDING FIELDS OF ER_ENTITY where werks = lv_plant. endmethod.
根据plant信息,取得address信息
method ADDRESSSET_GET_ENTITY. data: lt_key_tab TYPE /iwbep/t_mgw_tech_pairs, ls_keys LIKE LINE OF lt_key_tab. data: lv_adrnr type AD_ADDRNUM, lv_werks type werks_d. CALL METHOD io_tech_request_context->get_source_keys RECEIVING rt_source_keys = lt_key_tab. IF lt_key_tab IS INITIAL. lt_key_tab = io_tech_request_context->get_source_keys( ). ENDIF. read table lt_key_tab INTO ls_keys index 1. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = ls_keys-value IMPORTING output = lv_werks. select single adrnr from t001w into lv_adrnr where werks = lv_werks. select SINGLE * from adrc into CORRESPONDING FIELDS OF ER_ENTITY where ADDRNUMBER = lv_adrnr. endmethod.
根据plant信息,取得geo信息
method GEOCODESET_GET_ENTITY. data: lt_key_tab TYPE /iwbep/t_mgw_tech_pairs, ls_keys LIKE LINE OF lt_key_tab. data: lv_adrnr type AD_ADDRNUM, lv_werks type werks_d. CALL METHOD io_tech_request_context->get_source_keys RECEIVING rt_source_keys = lt_key_tab. . IF lt_key_tab IS INITIAL. lt_key_tab = io_tech_request_context->get_source_keys( ). ENDIF. read table lt_key_tab INTO ls_keys index 1. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = ls_keys-value IMPORTING output = lv_werks. select single adrnr from t001w into lv_adrnr where werks = lv_werks. select SINGLE * from geoloc into CORRESPONDING FIELDS OF ER_ENTITY where ADDRNUMBER = lv_adrnr. endmethod.
接下来我们会介绍如何把已经开发的odata service注册到Gateway server上面。
翱翔云天的博客