自学内容网 自学内容网

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.

  


原文地址:https://blog.csdn.net/HeathlX/article/details/144271708

免责声明:本站文章内容转载自网络资源,如本站内容侵犯了原著者的合法权益,可联系本站删除。更多内容请关注自学内容网(zxcms.com)!