REST 方法

FUNCTION ZFM_INTERFACE_LOG.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" REFERENCE(IV_DSTART) TYPE EDI_UPDDAT
*"----------------------------------------------------------------------

TYPES: TY_TIME_COND TYPE RANGE OF TIMESTAMP.
DATA: S_TS TYPE TY_TIME_COND.
* DATA: S_TS TYPE RANGE OF TIMESTAMP.

DATA START_TIMESTAMP TYPE TZONREF-TSTAMPS.
DATA END_TIMESTAMP TYPE TZONREF-TSTAMPS.

CALL FUNCTION 'CIF_GEN4_CONVERT_DATETIME'
EXPORTING
IV_DATE = IV_DSTART
IV_TIME = '000000'
IV_TIMEZONE = SY-ZONLO
IMPORTING
EV_TIMESTAMP = START_TIMESTAMP.

CALL FUNCTION 'CIF_GEN4_CONVERT_DATETIME'
EXPORTING
IV_DATE = IV_DSTART
IV_TIME = '235959'
IV_TIMEZONE = SY-ZONLO
IMPORTING
EV_TIMESTAMP = END_TIMESTAMP.

S_TS = VALUE #( SIGN = 'I' OPTION = 'BT' ( LOW = START_TIMESTAMP HIGH = END_TIMESTAMP ) ).

DATA :BEGIN OF GS_ITEM,
GUID TYPE ZAFL_LOG-GUID,
FNAME TYPE ZAFL_LOG-FNAME,
CUST_FIELD1 TYPE ZAFL_LOG-CUST_FIELD1,
CUST_FIELD2 TYPE ZAFL_LOG-CUST_FIELD2,
CUST_FIELD3 TYPE ZAFL_LOG-CUST_FIELD3,
STATUS TYPE ZAFL_LOG-STATUS,
TIMESTAMP TYPE ZAFL_LOG-TIMESTAMP,
TIME_COST TYPE ZAFL_LOG-TIME_COST,
UNAME TYPE ZAFL_LOG-UNAME,
MESSAGE TYPE ZAFL_LOG-MESSAGE,
IMPORT TYPE ZAFL_LOG-IMPORT,
EXPORT TYPE ZAFL_LOG-EXPORT,
TABLE_IN TYPE ZAFL_LOG-TABLE_IN,
TABLE_OUT TYPE ZAFL_LOG-TABLE_OUT,
CHANGE_IN TYPE ZAFL_LOG-CHANGE_IN,
CHANGE_OUT TYPE ZAFL_LOG-CHANGE_OUT,
UDATE TYPE ZTSD001M-UDATE,
UTIME TYPE ZTSD001M-UTIME,
END OF GS_ITEM,
GT_ITEM LIKE TABLE OF GS_ITEM.

DATA: BEGIN OF GS_HEAD,
apiName(20),
END OF GS_HEAD.

DATA: BEGIN OF GS_BODY,
DATA LIKE TABLE OF GS_ITEM,
END OF GS_BODY.

DATA: BEGIN OF GS_SEND,
HEAD LIKE GS_HEAD,
BODY LIKE GS_BODY,
END OF GS_SEND.

TYPES: BEGIN OF T_RESP,
ERR_CODE TYPE STRING,
ERR_MSG TYPE STRING,
TRACE_MSG TYPE STRING,
END OF T_RESP.

GS_SEND-HEAD-APINAME = 'SD100'.

DATA:GS_RESP TYPE T_RESP.

SELECT * FROM ZAFL_LOG WHERE TIMESTAMP IN @S_TS INTO CORRESPONDING FIELDS OF TABLE @GT_ITEM.

APPEND INITIAL LINE TO GT_ITEM.
GS_SEND-BODY-DATA = GT_ITEM.

* IF GT_ITEM IS NOT INITIAL.

DATA:LT_FIELDS TYPE TIHTTPNVP,
LS_FIELDS TYPE IHTTPNVP,
LS_URL TYPE ZTSEND_URL,
LV_TYPE TYPE BAPI_MTYPE,
LV_SEND TYPE STRING,
LV_MESSAGE TYPE STRING,
LV_RESPONSE TYPE STRING.

DATA:BEGIN OF LS_NAME_MAPPING,
ABAP TYPE ABAP_COMPNAME,
JSON TYPE STRING,
END OF LS_NAME_MAPPING,
LT_MAPPINGS LIKE HASHED TABLE OF LS_NAME_MAPPING WITH UNIQUE KEY ABAP.

LT_MAPPINGS = VALUE #(
( ABAP = 'GUID' JSON = 'guid' )
( ABAP = 'FNAME' JSON = 'fname' )
( ABAP = 'CUST_FIELD1' JSON = 'cust_field1' )
( ABAP = 'CUST_FIELD2' JSON = 'cust_field2' )
( ABAP = 'CUST_FIELD3' JSON = 'cust_field3' )
( ABAP = 'STATUS' JSON = 'status' )
( ABAP = 'TIMESTAMP' JSON = 'timestamp' )
( ABAP = 'TIME_COST' JSON = 'time_cost' )
( ABAP = 'UNAME' JSON = 'uname' )
( ABAP = 'MESSAGE' JSON = 'message' )
( ABAP = 'IMPORT' JSON = 'import' )
( ABAP = 'EXPORT' JSON = 'export' )
( ABAP = 'TABLE_IN' JSON = 'table_in' )
( ABAP = 'TABLE_OUT' JSON = 'table_out' )
( ABAP = 'CHANGE_IN' JSON = 'change_in' )
( ABAP = 'CHANGE_OUT' JSON = 'change_out' )
).

/UI2/CL_JSON=>SERIALIZE( EXPORTING DATA = GS_SEND PRETTY_NAME = '' NAME_MAPPINGS = LT_MAPPINGS RECEIVING R_JSON = LV_SEND ).

SELECT SINGLE * INTO @LS_URL FROM ZTSEND_URL WHERE POSOBJ = 'ZSD_100'.
SELECT SINGLE * INTO @DATA(LS_TOKEN) FROM ZTSC_TOKEN WHERE POSOBJ = 'SC1'.
*
LS_FIELDS-NAME = 'Content-Type'.
LS_FIELDS-VALUE = 'application/json'.
APPEND LS_FIELDS TO LT_FIELDS.
CLEAR:LS_FIELDS.

LS_FIELDS-NAME = 'accesstoken'.
LS_FIELDS-VALUE = LS_TOKEN-TOKEN.
APPEND LS_FIELDS TO LT_FIELDS.
CLEAR:LS_FIELDS.
*
*
CALL FUNCTION 'ZFM_RESTFUL_SEND'
EXPORTING
IV_URL = LS_URL-URL
IV_METHOD = 'POST'
IT_FIELDS = LT_FIELDS
IV_SEND_DATA = LV_SEND
IMPORTING
EV_TYPE = LV_TYPE
EV_MESSAGE = LV_MESSAGE
EV_RESPONSE_DATA = LV_RESPONSE.

/UI2/CL_JSON=>DESERIALIZE( EXPORTING JSON = LV_RESPONSE PRETTY_NAME = 'X' CHANGING DATA = GS_RESP ).

* MESSAGE LV_MESSAGE TYPE LV_TYPE.

* ENDIF.

ENDFUNCTION.

=====================================

FUNCTION zfm_restful_send.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(IV_URL) TYPE ZE_URL OPTIONAL
*" VALUE(IV_METHOD) TYPE STRING DEFAULT 'POST'
*" VALUE(IV_USERNAME) TYPE STRING OPTIONAL
*" VALUE(IV_PASSWORD) TYPE STRING OPTIONAL
*" VALUE(IT_FIELDS) TYPE TIHTTPNVP OPTIONAL
*" VALUE(IV_SEND_DATA) TYPE STRING OPTIONAL
*" VALUE(IV_PROXY_B) TYPE CHAR1 OPTIONAL
*" VALUE(IV_URL2) TYPE STRING OPTIONAL
*" EXPORTING
*" VALUE(EV_TYPE) TYPE BAPI_MTYPE
*" VALUE(EV_MESSAGE) TYPE STRING
*" VALUE(EV_RESPONSE_DATA) TYPE STRING
*"----------------------------------------------------------------------
TYPES: BEGIN OF ty_response,
code TYPE char1,
message TYPE string,
END OF ty_response.
DATA: ls_response TYPE ty_response.
DATA:lv_url TYPE string.
DATA:lo_http_client TYPE REF TO if_http_client,
lv_code TYPE i.
DATA:lv_proxy_host TYPE string.
DATA:lv_proxy_service TYPE string.
DATA: lv_ssl_id TYPE ssfapplssl .
IF iv_proxy_b IS NOT INITIAL.
lv_proxy_host = 'proxy'.
lv_proxy_service = '3128'.
ENDIF.

IF iv_url IS NOT INITIAL.
lv_url = iv_url.
ELSE.
lv_url = iv_url2.
ENDIF.

*创建客户端请求
CALL METHOD cl_http_client=>create_by_url
EXPORTING
url = lv_url
proxy_host = lv_proxy_host
proxy_service = lv_proxy_service
ssl_id = lv_ssl_id
IMPORTING
client = lo_http_client
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
pse_not_found = 4
pse_not_distrib = 5
pse_errors = 6
oa2c_set_token_error = 7
oa2c_missing_authorization = 8
oa2c_invalid_config = 9
oa2c_invalid_parameters = 10
oa2c_invalid_scope = 11
oa2c_invalid_grant = 12
OTHERS = 13.

IF sy-subrc <> 0.
ev_type = 'E'.
lo_http_client->get_last_error( IMPORTING message = ev_message ).
ev_message = '创建代理失败！' && ev_message.
RETURN.
ENDIF.

*不显示登录界面
lo_http_client->propertytype_logon_popup = lo_http_client->co_disabled.

*设置账号+密码
IF iv_username IS NOT INITIAL AND iv_password IS NOT INITIAL.
lo_http_client->authenticate( EXPORTING username = iv_username password = iv_password ).
ENDIF.

*设定调用服务
lo_http_client->request->set_method( EXPORTING method = iv_method ).

*设置Headers
lo_http_client->request->set_header_fields( EXPORTING fields = it_fields[] ).

*设置报文数据
IF iv_send_data IS NOT INITIAL.
CALL METHOD lo_http_client->request->set_cdata
EXPORTING
data = iv_send_data
offset = 0
length = strlen( iv_send_data ).
ENDIF.

*发送请求
CALL METHOD lo_http_client->send
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2.
IF sy-subrc <> 0.
ev_type = 'E'.
lo_http_client->get_last_error( IMPORTING message = ev_message ).
ev_message = '发送请求失败！' && ev_message.
RETURN.
ENDIF.

*读取远程服务返回的处理过结果
CALL METHOD lo_http_client->receive
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3.

IF sy-subrc <> 0 .
ev_type = 'E'.
lo_http_client->get_last_error( IMPORTING message = ev_message ).
ev_message = '获取返回消息失败！' && ev_message.
RETURN.
ELSE.
CALL METHOD lo_http_client->response->get_status
IMPORTING
code = lv_code
reason = ev_message.

IF lv_code BETWEEN '200' AND '299'.
ev_type = 'S'.
ev_message = '调用接口成功！'.
ELSE.
ev_type = 'E'.
ev_message = '返回码提示失败！' && ev_message.
ENDIF.

*读取返回内容

ev_response_data = lo_http_client->response->get_cdata( ).
IF ev_response_data IS NOT INITIAL.
REPLACE ALL OCCURRENCES OF '#' IN ev_response_data WITH space.
CONDENSE ev_response_data NO-GAPS.
ev_message = ev_message && ';' && ev_response_data.
ENDIF.
ENDIF.

lo_http_client->close( ).

ENDFUNCTION.

==================================

数例：
	110	ZFI_003	SAP成本中心推送星瀚主数据平台	http://172.16.17.220/ierp/kapi/v2/wwv2/base/bos_adminorg/bd_adminorg_save
	110	ZFI_028	成本中心推送主数据接口	http://172.16.17.220/ierp/kapi/v2/wwv2/basedata/wwv2_bd_fi_profitcenter/bd_fi_profitcenter_save
	110	ZFI_028A	公司代码映射	http://172.16.17.220/ierp/kapi/v2/wwv2/basedata/wwv2_bd_company/bd_hr_company_query

ZTSC_TOKEN		获取接口TOKEN存储表

	MANDT	MANDT	CLNT	3	0	0	客户端
	POSOBJ	ZE_OBJECT	CHAR	50	0	0	对象值
	TOKEN		STRING	0	0	0	token


	110	SC	2084196387246833664_74CFovIbX7QVBES18nXXsXfIBBNt3K8yz8ZDwmReL7lRaVxcNdNT4ORJ50nt15aEQB17kOSUQFXWAjK4y17bBqPTuqHgwRlENFzd00
	110	SC1	2084196387246833664_ORuUKnPuM5Rt2Q54or0SvsN7YGueIWxvPOA8vUl8ykoRY4awNYJtCwuQh2dGXbhWls2qt8oza8H84IR4mW2PNGJQDRTXYl9KhKyr00

ZTSEND_URL	SAP推送数据接口地址维护表


	MANDT	MANDT	CLNT	3
	POSOBJ	ZE_OBJECT	CHAR	50
	OBJECT_T	ZE_OBJECT_T	CHAR	50
	URL	ZE_URL	CHAR	257
	USERNAME	USRTX	CHAR	40
	PASSWORD	CTE_PASSWORD	CHAR	60