SAP ABAP 主动调用外部系统的REST接口（x-www-form-urlencoded）

如何在SAP ECC中调用外部系统提供的REST接口地址？

Postman中使用Body中参数情况，使用链接的情况

x-www-form-urlencoded

POST成功调用样例如下：

SAP中实现如下：

1. 事务码STRUST,导入对方系统证书

2. 事务码SM59配置destination

外部系统提供的接口地址：

https://dev-api.jushuitan.com/open/jushuitan/otherinout/upload

测试连接

返回200表示成功

3. 代码实现：

   &---------------------------------------------------------------------
   *& Report ZTEST_JST
   *&
   &---------------------------------------------------------------------
   *&
   *&
   &---------------------------------------------------------------------

   REPORT ztest_jst.

   "发送
   DATA: lo_http_client TYPE REF TO if_http_client.
   DATA: lv_respon TYPE string.
   DATA: lv_ssl_id TYPE ssfapplssl VALUE 'ANONYM'.
   DATA: lv_string TYPE string.
   DATA: lv_timestamp TYPE string.
   DATA: lv_sign TYPE string.
   DATA: lv_biz TYPE string.
   DATA: lv_jason TYPE string.
   DATA: lv_hashstring TYPE string.
   DATA: message TYPE string.
   DATA: msgtyp TYPE char1.

   "请求时间，时间戳格式(Unix 纪元到当前时间的秒数),API服务端允许客户端请求最大时间误差为10分钟。
   DATA: lv_sydatum TYPE sy-datum,
   lv_syuzeit TYPE sy-uzeit.

   "创建客户端请求
   CALL METHOD cl_http_client=>create_by_destination
   EXPORTING
   destination = 'JST'
   IMPORTING
   client = lo_http_client
   EXCEPTIONS
   argument_not_found = 1
   destination_not_found = 2
   destination_no_authority = 3
   plugin_not_active = 4
   internal_error = 5
   OTHERS = 6.
   IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH
   sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   EXIT.
   ENDIF.

   "设定传输请求内容格式以及编码格式
   lo_http_client->request->set_content_type( content_type = 'application/x-www-form-urlencoded;charset=UTF-8' ).

   "设定调用服务
   lo_http_client->request->set_method( if_http_request=>co_request_method_post ).

   lo_http_client->propertytype_accept_cookie = lo_http_client->co_enabled.

   lv_sydatum = sy-datum.
   lv_syuzeit = sy-uzeit.
   cl_pco_utility=>convert_abap_timestamp_to_java(
   EXPORTING
   iv_date = lv_sydatum "sy-datum
   iv_time = lv_syuzeit "sy-uzeit
   IMPORTING
   ev_timestamp = lv_timestamp ).

   lv_timestamp = lv_timestamp(10) - 8 * 60 * 60.
   CONDENSE lv_timestamp.

   lv_biz = '{"external_id": "2023111311287","type": "in","is_confirm": true,"items": [{"batch_id": "","qty": 120,"sku_id": "YC.01.0001","remark": "测试","expiration_date": "","sale_price": 0,"produced_date": ""}]}'.
   CONDENSE lv_biz.

   lv_string = '99c4cef262f34ca882975a7064de0b87' && 'access_token' && 'b7e3b1e24e174593af8ca5c397e53dad'
   && 'app_key' && 'b0b7d1db226d4216a3d58df9ffa2dde5' && 'biz' && lv_biz
   && 'charset' && 'utf-8' && 'timestamp' && lv_timestamp && 'version' && '2'.
   CONDENSE lv_string.

   CALL FUNCTION 'CALCULATE_HASH_FOR_CHAR'
   EXPORTING
   alg = 'MD5'
   data = lv_string
   IMPORTING
   hashstring = lv_hashstring
   EXCEPTIONS
   unknown_alg = 1
   param_error = 2
   internal_error = 3
   OTHERS = 4.
   lv_sign = lv_hashstring.
   TRANSLATE lv_sign TO LOWER CASE.

   lv_jason = 'app_key=' && 'b0b7d1db226d4216a3d58df9ffa2dde5' && '&access_token=' &&
   'b7e3b1e24e174593af8ca5c397e53dad' && '&timestamp=' && lv_timestamp
   && '&charset=' && 'utf-8' && '&version=' && '2' && '&sign=' && lv_sign
   && '&biz=' && lv_biz.

   *在POSTMAN中，调用时自动将参数进行urlencode转换，调用如果需要，可以如上使用方法转换
   *lv_time_64 = cl_http_utility=>escape_url( timestamp ). "escape_url

   "设置待传输内容
   lo_http_client->request->set_data( cl_abap_codepage=>convert_to( source = lv_jason ) ).

   "发送请求
   lo_http_client->send( EXCEPTIONS http_communication_failure = 1
   http_invalid_state = 2 ).

   IF sy-subrc <> 0.
   "操作失败，获取失败原因
   lo_http_client->get_last_error( IMPORTING message = message ).
   msgtyp = 'E'.
   ENDIF.

   "读取远程服务返回的处理过结果。
   lo_http_client->receive( EXCEPTIONS http_communication_failure = 1
   http_invalid_state = 2
   http_processing_failed = 3 ).
   IF sy-subrc <> 0 .
   "lv_subrc = sy-subrc.
   lo_http_client->get_last_error( IMPORTING message = message ).
   msgtyp = 'E'.
   ELSE.
   "读取返回返回内容
   CLEAR lv_respon.
   lv_respon = lo_http_client->response->get_cdata( ).

   • DATA: lv_xmldata TYPE xstring .

   • DATA: lt_result_xml TYPE STANDARD TABLE OF smum_xmltb,

   •    ls_result_xml TYPE smum_xmltb.
     

   • DATA: lt_return TYPE STANDARD TABLE OF bapiret2 .

   • CALL FUNCTION 'SCMS_STRING_TO_XSTRING'

   • EXPORTING

   •  text   = lv_respon
     

   • IMPORTING

   •  buffer = lv_xmldata.
     

   • CALL FUNCTION 'SMUM_XML_PARSE'

   • EXPORTING

   •  xml_input = lv_xmldata
     

   • TABLES

   •  xml_table = lt_result_xml
     

   •  return    = lt_return.
     

     "解析JSON串
     TYPES: BEGIN OF lty_recdata,
     msg TYPE string,
     code TYPE i,
     END OF lty_recdata.
     DATA: ls_recdata TYPE lty_recdata.

     CLEAR:ls_recdata.
     /ui2/cl_json=>deserialize( EXPORTING json = lv_respon
     pretty_name = 'X'
     CHANGING data = ls_recdata ).

   ENDIF.
   "关闭接口
   CALL METHOD lo_http_client->close.