1、SAP Webservice 类型

这篇文章讲解的非常全面，可以移步阅读《SAP Web service》。

本想通过 RFC 来发布 ODATA 服务，奈何当前 SAP ECC 版本过低不支持，只好采用其他方式来发布服务，于是就尝试了下面这两种方法。

2、SAP Webservice 服务发布

2.1、准备 RFC

SE37，创建以下测试用 RFC

FUNCTION ZFM_DEMO_ODATA.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  TABLES
*"      T_DATA STRUCTURE  SPFLI
*"----------------------------------------------------------------------

select *
into table T_DATA
from spfli.

ENDFUNCTION.

测试执行 RFC，得到的数据结果如下图：
在这里插入图片描述
需要发布服务的 FM 必须设置允许远程访问，即 RFC 函数

2.2、通过 RFC 创建服务

菜单：Utilities → More Utilities → Create Web Service → From the Function Module
在这里插入图片描述
根据向导，填写 WebService 定义信息：

至此，Webservice 服务定义完成，可以在 SE80 中查看服务定义。

2.3、查看 WSDL

首选需要确定SAP版本，不同版本的事务码不同。
NW740版本之前版本：使用事务码：WSCONFIG，WSADMIN
NW740版本之后版本：使用事务码：SOAMANAGER
查看具体SAP版本，可参考这篇文章《如何更详细查看SAP 系统版本信息》。

本人当前使用SAP版本为SAP ECC6.0，执行事务码：WSADMIN。
在这里插入图片描述
展开左边树形第一个节点，找到刚才定义的 Webservice 服务 ZWS_DEMO

在这里插入图片描述

输入SAP用户名和密码，即可获得 WSDL 地址

2.4、访问服务

Webservice服务测试，推荐使用SoaPUI工具。
（1）新建项目，Add WSDL，贴入上面获取到的 WSDL地址
在这里插入图片描述

（2）输入SAP用户名及密码

（3）修改入参，调用服务

至此，SAP Webservice 服务发布完成。

2.5、删除服务

SE80，Enterprise Services → Service Definitions 中，找到对应的服务名称 ZWS_DEMO，右键 → Delete → Delete All Objects
在这里插入图片描述

3、SAP RESTful 服务发布

现在系统集成，都推荐采用 RESTful 服务，于是继续研究在 SAP 中发布 RESTful 服务的方法，具体实现步骤如下。

3.1、创建数据服务类

（1）SE24，创建数据服务类：YCL_REST_TEST
在这里插入图片描述
（2）继承系统接口：IF_HTTP_EXTENSION

（3）实现接口中的方法：IF_HTTP_EXTENSION~HANDLE_REQUEST
该方法为服务的主入口，主要就是分发处理各种 HTTP 方法，因为是发布数据查询服务，所以这里只演示了 GET方法。

（4）添加 GET 方法，并将 server 作为入参
在这里插入图片描述
（5）实现 GET 方法，查询数据，并返回Json串

METHOD get.

  DATA: lt_fields TYPE tihttpnvp,
          s_carrid  TYPE rseloption,
          s_connid  TYPE rseloption,
     lv_content_type TYPE string.
  DATA: ls_selopt TYPE rsdsselopt.

* 获取请求参数
  server->request->get_form_fields( CHANGING fields = lt_fields ).
  IF lt_fields IS INITIAL.
    " Sets current HTTP status code
    server->response->set_status( code = 404 reason = '未查询到传入参数,请检查' ).
    RETURN.
  ENDIF.

  FIELD-SYMBOLS: <fs> LIKE LINE OF lt_fields.
  LOOP AT lt_fields ASSIGNING <fs>. "FIELD-SYMBOL(<fs>).
    TRANSLATE <fs>-name TO UPPER CASE.
    CASE <fs>-name.
      WHEN 'CARRID'.
        CLEAR ls_selopt.
        ls_selopt-sign = 'I'.
        ls_selopt-option = 'EQ'.
        ls_selopt-low = <fs>-value.
        APPEND ls_selopt TO s_CARRID.

      WHEN 'CONNID'.
        CLEAR ls_selopt.
        ls_selopt-sign = 'I'.
        ls_selopt-option = 'EQ'.
        ls_selopt-low = <fs>-value.
        APPEND ls_selopt TO s_CONNID.
    ENDCASE.
  ENDLOOP.

* 查询数据
  DATA: lt_data TYPE TABLE OF SPFLI.
  SELECT *
    FROM SPFLI
    INTO CORRESPONDING FIELDS OF TABLE lt_data
    WHERE CARRID in s_CARRID
      and CONNID IN s_CONNID.

* 返回 Json 结果
  " Sets the HTTP body of this entity to the given char. data
  data: lv_str type string.
* 说明：SAP ECC 不具备Json处理类，需要找网上第三方工具类，此处定义为：Z_UI2_CL_JSON2。
*       SAP S4 可以直接使用系统自带的Json处理类：/ui2/cl_json，两者功能相似
  lv_str = Z_UI2_CL_JSON2=>serialize(   data = lt_data "lt_sflight"将内表转换为json传出
                                        compress = abap_true
                                        pretty_name = Z_UI2_CL_JSON2=>pretty_mode-camel_case ).
  server->response->set_cdata( lv_str ).
  " Sets current HTTP status code
  server->response->set_status( code = 200 reason = 'OK' ).
  lv_content_type = 'application/json'.
  " Set the Body Type (Text/HTML, for example)
  server->response->set_content_type( lv_content_type ).
  
ENDMETHOD.

保存，激活，待用。