ABAP - 系统集成之SAP的数据同步到OA（泛微E9）服务器数据库

• 需求背景

项目经理说每次OA下单都需要调用一次SAP的接口获取数据，导致效率太慢了，能否把SAP的数据保存到OA的数据库表里，这样OA可以直接从数据库表里获取数据效率快很多。思来想去，提供了两个方案。

1. 在集群SAP节点下增加一个SQL Server数据库，通过ABAP技术把SAP数据写进SAP节点下的SQL Server，然后做集群下的主从复制，将SAP下的SQL Server复制到OA节点下的SQL Server。
2. OA对外发布保存数据的接口，供SAP调用,SAP传入数据，OA接口保存。

项目经理经决定采用了方案2.

• OA对外发布API的方式很多，本文采用建模引擎发布RESTFul API 的方式
• 步骤一：OA系统对外发布RESTful API
• 建模引擎操作在接口管理处新增一个RESTful接口，如图1.1所示，给新建的RESTful接口授权，如图1.2所示。

图 1.1

图 1.2

下载API文档，如图1.3所示

图1.3

使用POSTMAN测试

Tips1：设置请求头，如图1.4所示

图1.4

Tips2：设置请求体，先整理data报文，如图1.5所示，raw正文的数据即便是留着在那里也不会有影响，把整理好的data报文复制到表单格式的参数里，如图1.6所示。

图1.5

图1.6

测试结果如图1.7所示

图1.7

建模表单处查看数据，实现效果如图1.8所示

图1.8

• SAP系统调用OA发布RESTful API

  DATA(lv_send_data) = /ui2/cl_json=>serialize( data      = ls_post
                                                compress    = abap_false
                                                pretty_name = /ui2/cl_json=>pretty_mode-camel_case ).
  DATA(lv_url) = `http://ip:port/api/cube/restful/interface/saveOrUpdateModeData/SAPStckSyn`.
  cl_http_client=>create_by_url( EXPORTING url    = lv_url
                                 IMPORTING client = DATA(lo_http_client) ).

  //设置请求头
  lo_http_client->request->set_header_field( name = 'Content-Type' value = 'application/x-www-form-urlencoded; charset=utf-8' ).

  //设置请求方式
  lo_http_client->request->set_method( if_http_request=>co_request_method_post ).

  //设置请求体表单
  lo_http_client->request->set_form_field( name = 'datajson' value = lv_send_data ).

  //发送请求调用OA RESTful API
  lo_http_client->send( EXCEPTIONS http_communication_failure = 1
  http_invalid_state = 2 ).
  IF sy-subrc NE 0.
  lo_http_client->get_last_error( IMPORTING message = DATA(lv_send_msg) code = DATA(lv_send_code) ).
  ENDIF.

  //获取服务器响应
  lo_http_client->receive( EXCEPTIONS http_communication_failure = 1
  http_invalid_state = 2
  http_processing_failed = 3 ).
  IF sy-subrc EQ 0.
  DATA(lv_response) = lo_http_client->response->get_cdata( ).
  ELSE.
  lo_http_client->get_last_error( IMPORTING message = DATA(lv_rece_msg) code = DATA(lv_rece_code) ).
  ENDIF.

  //将服务器响应Json报文转换成SAP结构
  /ui2/cl_json=>deserialize( EXPORTING json = lv_response
                                       pretty_name = /ui2/cl_json=>pretty_mode-camel_case
                              CHANGING data = ls_success_receive ).
  IF ls_success_receive-status NE `1`.
    MESSAGE 'SAP库存同步OA失败' TYPE 'S' DISPLAY LIKE 'E'.
  ENDIF.