1、创建类
引用标准接口
改写集成的接口方法
此处仅实现POST方法，将传入的JSON报文转为函数传入参数，调用获取物料接口，并将返回的物料信息，转换为JSON报文返回
METHOD if_http_extension~handle_request.
DATA:lv_method TYPE string,
lv_req_json TYPE string,
lv_res_json TYPE string.
lv_method = server->request->get_header_field( '~request_method' ).
* lv_path = server->request->get_header_field( '~request_uri' ).
IF lv_method <> 'POST'.
server->response->set_header_field( name = 'Content-Type' value = 'text/html' ).
server->response->set_cdata( '请使用POST方法' ).
server->response->set_status( code = 200
reason = '' ).
RETURN.
ENDIF.
TYPES:BEGIN OF ty_input,
i_matnr TYPE marc-matnr,
END OF ty_input.
DATA:ls_input TYPE ty_input,
lt_marc TYPE TABLE OF ymms_marc.
TYPES:BEGIN OF ty_output,
t_marc LIKE lt_marc,
END OF ty_output.
DATA:ls_output TYPE ty_output.
lv_req_json = server->request->get_cdata( ).
/ui2/cl_json=>deserialize( EXPORTING json = lv_req_json
pretty_name = /ui2/cl_json=>pretty_mode-camel_case
CHANGING data = ls_input ).
CALL FUNCTION 'YLCCTEST01_GETMATNR'
EXPORTING
i_matnr = ls_input-i_matnr
TABLES
t_marc = lt_marc.
ls_output-t_marc = lt_marc.
lv_res_json = /ui2/cl_json=>serialize( data = ls_output )."pretty_name = /ui2/cl_json=>pretty_mode-low_case ).
server->response->set_status( code = 200 reason = 'successfully' ). "
server->response->set_header_field( name = 'Content-Type' value = 'application/json' ).
server->response->set_cdata( lv_res_json ).
ENDMETHOD.
2、创建WEB服务
事务代码SICF，创建新节点
处理器清单中填上类名称
3、激活并测试服务
TRANSLATE with
- 中文（简体）
- 中文（繁体）
- 丹麦语
- 乌克兰语
- 乌尔都语
- 亚美尼亚语
- 俄语
- 保加利亚语
- 克罗地亚语
- 冰岛语
- 加泰罗尼亚语
- 匈牙利语
- 卡纳达语
- 印地语
- 印尼语
- 古吉拉特语
- 哈萨克语
- 土耳其语
- 威尔士语
- 孟加拉语
- 尼泊尔语
- 布尔语(南非荷兰语)
- 希伯来语
- 希腊语
- 库尔德语
- 德语
- 意大利语
- 拉脱维亚语
- 挪威语
- 捷克语
- 斯洛伐克语
- 斯洛文尼亚语
- 旁遮普语
- 日语
- 普什图语
- 毛利语
- 法语
- 波兰语
- 波斯语
- 泰卢固语
- 泰米尔语
- 泰语
- 海地克里奥尔语
- 爱沙尼亚语
- 瑞典语
- 立陶宛语
- 缅甸语
- 罗马尼亚语
- 老挝语
- 芬兰语
- 英语
- 荷兰语
- 萨摩亚语
- 葡萄牙语
- 西班牙语
- 越南语
- 阿塞拜疆语
- 阿姆哈拉语
- 阿尔巴尼亚语
- 阿拉伯语
- 韩语
- 马尔加什语
- 马拉地语
- 马拉雅拉姆语
- 马来语
- 马耳他语
- 高棉语