SAP获取企业微信打开记录并更新HR相关数据

FUNCTION zfm_zhrrxxx.
*“----------------------------------------------------------------------
"“本地接口：
*” IMPORTING
*” VALUE(IV_BEG_DATUM) TYPE SY-DATUM
*" VALUE(IV_BEG_UZEIT) TYPE SY-UZEIT
*" VALUE(IV_END_DATUM) TYPE SY-DATUM
*" VALUE(IV_END_UZEIT) TYPE SY-UZEIT
*" EXPORTING
*" VALUE(EV_STATUS) TYPE CHAR1
*" VALUE(EV_RESPONSE) TYPE STRING
*" VALUE(EV_RESULTMSG) TYPE STRING
*" VALUE(EV_RESULTCODE) TYPE I
*" VALUE(EV_DATASTR) TYPE STRING
*" TABLES
*" ET_ZHRT008_I STRUCTURE ZHRT008_I OPTIONAL

---

DATA:lv_url TYPE string.
DATA:lv_http_client TYPE REF TO if_http_client.

"获取ztip配置表地址
PERFORM frm_get_ztip USING lv_url
ev_status
ev_response.

CHECK ev_status IS INITIAL.

"初始化HTTP
PERFORM frm_http_create USING lv_http_client
lv_url.

"传入参数转JSON
PERFORM frm_get_json USING iv_beg_datum
iv_beg_uzeit
iv_end_datum
iv_end_uzeit
ev_datastr.

"数据传递HTTP
PERFORM frm_send_data USING lv_http_client
ev_resultmsg
ev_resultcode
ev_datastr.

"返回参数JSON解析
PERFORM frm_parse_json TABLES et_zhrt008_i
USING ev_status
ev_response
ev_resultmsg
ev_resultcode
.

"解析后数据处理
PERFORM frm_processing_data TABLES et_zhrt008_i
USING ev_status
ev_response.

"关闭接口HTTP
PERFORM frm_http_close USING lv_http_client.

ENDFUNCTION.

----------------------------------------------------------------------
***INCLUDE LZFG_ZHR044F02.
----------------------------------------------------------------------
&---------------------------------------------------------------------
*& Form fmr_get_ztip
&---------------------------------------------------------------------
*& 获取ztip配置表地址
&---------------------------------------------------------------------
*& --> pv_url
*& --> pv_status
*& --> pv_response
&---------------------------------------------------------------------
FORM frm_get_ztip USING pv_url TYPE string
pv_status TYPE char1
pv_response TYPE string.

SELECT SINGLE
url
INTO pv_url
FROM ztip
WHERE proname = ‘ZFM_ZHRR072’.
IF sy-subrc <> 0.
pv_status = ‘E’.
pv_response = ‘ZTIP配置表没有地址’.
ENDIF.

ENDFORM.
&---------------------------------------------------------------------
*& Form frm_get_json
&---------------------------------------------------------------------
*& 传入参数转JSON
&-------------------------------------