SAP ABAP 动态结构实现发送企业微信应用消息

企业微信官方接口：

应用支持推送文本、图片、视频、文件、图文等类型。

请求方式：POST（HTTPS）
请求地址： https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token=ACCESS_TOKEN

大概思路：

1. 封装调用企业微信函数 SE37 ：ZWECHAT_SEND_MESSAGE_MSGTYPE

注：

a.   I_MSGTYPE 参数值 作为动态值新增到表结构，构造企业微信API body

b.   I_MESSAGE 参数值 为json格式的消息内容

2.程序调用 ZWECHAT_SEND_MESSAGE_MSGTYPE，传入处理过的 I_MESSAGE

代码实现：

1. SE37 ：ZWECHAT_SEND_MESSAGE_MSGTYPE

  1 FUNCTION zwechat_send_message_msgtype.
  2 *"----------------------------------------------------------------------
  3 *"*"本地接口：
  4 *"  IMPORTING
  5 *"     VALUE(I_MESSAGE) TYPE  STRING
  6 *"     VALUE(I_MSGTYPE) TYPE  STRING
  7 *"  EXPORTING
  8 *"     VALUE(E_MESSAGE) TYPE  STRING
  9 *"  TABLES
 10 *"      T_TOUSER STRUCTURE  ZWECHAT_NOTIFYER OPTIONAL
 11 *"      T_TOPARTY STRUCTURE  ZWECHAT_NOTIFYER OPTIONAL
 12 *"      T_TOTAG STRUCTURE  ZWECHAT_NOTIFYER OPTIONAL
 13 *"----------------------------------------------------------------------
 14
 15
 16   DATA:url TYPE string VALUE  'https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token='."接口地址
 17   DATA:i_agentid TYPE string VALUE '小程序ID'.
 18   DATA:i_corpid TYPE string VALUE '公司的ID'.
 19   DATA:i_corpsecret TYPE string VALUE '企业应用secret'.
 20
 21   DATA:access_token TYPE string.
 22   DATA:lv_client TYPE REF TO if_http_client.
 23
 24   DATA:l_touser TYPE string.
 25   DATA:l_toparty TYPE string.
 26   DATA:l_totag TYPE string.
 27
 28
 29   "http通用参数
 30   TYPES:BEGIN OF ty_common,
 31           touser                   TYPE string, "成员ID列表，多个接收者用‘|’分隔，最多支持1000个
 32           toparty                  TYPE string, "部门ID列表，多个接收者用‘|’分隔，最多支持100个
 33           totag                    TYPE string, "标签ID列表，多个接收者用‘|’分隔，最多支持100个
 34           msgtype                  TYPE string, "消息类型
 35           agentid                  TYPE string, "企业应用的id
 36           safe                     TYPE i,      "表示是否是保密消息，0表示可对外分享，1表示不能分享且内容显示水印，默认为0
 37           enable_id_trans          TYPE i,      "是否开启id转译，0表示否，1表示是，默认0。仅第三方应用需要用到，企业自建应用可以忽略
 38           enable_duplicate_check   TYPE i,      "是否开启重复消息检查，0表示否，1表示是，默认0
 39           duplicate_check_interval TYPE i,      "是否重复消息检查的时间间隔，默认1800s，最大不超过4小时
 40         END OF ty_common.
 41
 42
 43   "http返回
 44   TYPES:BEGIN OF t_record,
 45           errcode TYPE string,
 46           errmsg  TYPE string,
 47         END OF t_record.
 48
 49   DATA:json TYPE string.
 50   DATA:record TYPE t_record.
 51   DATA:common TYPE ty_common.
 52
 53   DATA:ev_data(6000) TYPE c."返回
 54   DATA:lv_json TYPE string.
 55
 56
 57 *--动态创建结构和表
 58   DATA:
 59     dref_str    TYPE REF TO data,
 60     struct_type TYPE REF TO cl_abap_structdescr,
 61     elem_type   TYPE REF TO cl_abap_elemdescr,
 62     comp_tab    TYPE cl_abap_structdescr=>component_table WITH HEADER LINE.
 63
 64   "动态创建结构类型
 65 *  struct_type ?= cl_abap_structdescr=>describe_by_name( 'ZTPP200' ).   "根据名称获取系统创建好的结构
 66   struct_type ?= cl_abap_structdescr=>describe_by_data( common ).       "根据程序中定义的结构，创建结构类型
 67
 68   "获取该结构类型中，结构组件（字段）
 69   comp_tab[] = struct_type->get_components( )."组成结构体的各个字段组件
 70
 71   "扩展结构字段
 72   elem_type ?= cl_abap_elemdescr=>get_string( ).
 73   comp_tab-name = i_msgtype.   "新增成员的类型名称，消息类型
 74   comp_tab-type = elem_type.   "新增成员的类型对象
 75   INSERT comp_tab INTO comp_tab INDEX 1.
 76
 77
 78   "根据新的组件创建结构类型
 79   struct_type = cl_abap_structdescr=>create( comp_tab[] ).
 80   "根据结构类型，创建结构对象
 81   CREATE DATA dref_str TYPE HANDLE struct_type.
 82
 83   FIELD-SYMBOLS: <is_str> TYPE any.
 84   "引用创建的动态构造
 85   IF dref_str IS BOUND.
 86     ASSIGN  dref_str->* TO <is_str>.
 87   ENDIF.
 88
 89
 90
 91 *--基本检查
 92   CHECK ( t_touser[] IS NOT INITIAL
 93       OR t_toparty[] IS NOT INITIAL
 94         OR t_totag[] IS NOT INITIAL ) AND i_message IS NOT INITIAL.
 95
 96
 97   CLEAR:l_touser,l_toparty,l_totag,lv_json,ev_data,record,json.
 98
 99 *--通知人员处理
100   DATA(l_lines) = lines( t_touser ).
101
102   LOOP AT t_touser. "人员ID
103     IF sy-tabix = l_lines.
104       l_touser = t_touser-notifyer && l_touser && ''.
105     ELSE.
106       l_touser = l_touser && '|' && t_touser-notifyer.
107     ENDIF.
108   ENDLOOP.
109
110   CLEAR:l_lines.
111   l_lines = lines( t_totag ).
112   LOOP AT t_toparty. "部门ID
113     IF sy-tabix = l_lines.
114       l_toparty = t_toparty-notifyer && l_toparty && ''.
115     ELSE.
116       l_toparty = l_toparty && '|' && t_toparty-notifyer.
117     ENDIF.
118   ENDLOOP.
119
120   CLEAR:l_lines.
121   l_lines = lines( t_totag ).
122   LOOP AT t_totag.   "标签ID
123     IF sy-tabix = l_lines.
124       l_totag = t_totag-notifyer && l_totag && ''.
125     ELSE.
126       l_totag = l_totag && '|' && t_totag-notifyer.
127     ENDIF.
128   ENDLOOP.
129
130
131 *--message处理
132   FIELD-SYMBOLS:<fs_msg_value> TYPE any.
133   "用指针<fs_msg_value>指向工作区<is_str>中的一个字段，字段名为i_msgtype.
134   ASSIGN COMPONENT i_msgtype OF STRUCTURE <is_str> TO <fs_msg_value>.
135   "给指针指向的字段赋值
136   <fs_msg_value> = i_message.  "接口message传值
137
138 *--通用参数处理
139   MOVE-CORRESPONDING VALUE ty_common( touser = l_touser
140                              toparty = l_toparty
141                                totag = l_totag
142                              msgtype = i_msgtype
143                              agentid = i_agentid
144               enable_duplicate_check = 1 ) TO <is_str>.  "开启重复消息检查
145
146   "abap结构转json
147   /ui2/cl_json=>serialize( EXPORTING data = <is_str>
148                               pretty_name = 'L' "空大写，L小写，X驼峰，Y增强驼峰
149                          RECEIVING r_json = lv_json ).
150
151
152   "特殊字符反转义
153   lv_json = replace(  val = lv_json
154                       sub = '\"'
155                      with = '"'
156                       occ = '0' ).
157
158   lv_json = replace(  val = lv_json
159                       sub = '\\'
160                      with = '\'
161                       occ = '0' ).
162
163   lv_json = replace(  val = lv_json
164                       sub = '"{'
165                      with = '{'
166                       occ = '0' ).
167
168   lv_json = replace(  val = lv_json
169                       sub = '}"'
170                      with = '}'
171                       occ = '0' ).
172
173
174
175 *--http请求处理
176   CALL FUNCTION 'ZWECHAT_GET_ACCESS_TOKEN'    "获取token
177     EXPORTING
178       i_corpid       = i_corpid
179       i_corpsecret   = i_corpsecret
180     IMPORTING
181       o_access_token = access_token.
182
183
184   url =  url && access_token.
185
186
187   CALL METHOD cl_http_client=>create_by_url
188     EXPORTING
189       url                = url
190     IMPORTING
191       client             = lv_client
192     EXCEPTIONS
193       argument_not_found = 1
194       plugin_not_active  = 2
195       internal_error     = 3
196       OTHERS             = 4.
197
198
199   lv_client->request->set_header_field( name = '~request_method' value = 'POST' )."调用方法get OR post
200   lv_client->request->set_content_type( 'application/json' ).
201
202   "传入参数json格式
203   lv_client->request->set_cdata( lv_json ).
204
205
206   CALL METHOD lv_client->send(
207     EXCEPTIONS
208       http_communication_failure = 1
209       http_invalid_state         = 2 ).
210 * Prepare client-receive:
211
212   CALL METHOD lv_client->receive
213     EXCEPTIONS
214       http_communication_failure = 1
215       http_invalid_state         = 2
216       http_processing_failed     = 3
217       OTHERS                     = 4.
218
219 * Get HTML:
220   ev_data = lv_client->response->get_cdata( )."返回值
221
222   json = ev_data.
223
224   /ui2/cl_json=>deserialize( EXPORTING json = json CHANGING data = record ).
225
226   e_message = record-errmsg.
227
228
229 ENDFUNCTION.

2.程序调用 ZWECHAT_SEND_MESSAGE_MSGTYPE

 1 FORM frm_send_wechat .
 2
 3   DATA:BEGIN OF ls_textcard,
 4          title       TYPE string VALUE 'FDPPM质量预警监控平台推送',
 5          description TYPE string,
 6          url         TYPE string VALUE 'https://exmail.qq.com/login',
 7          btntxt      TYPE string VALUE '更多',
 8        END OF ls_textcard.
 9
10   DATA:lv_json TYPE string.
11   DATA:e_message TYPE string.
12   CLEAR:lv_json.
13
14   DATA:l_week LIKE scal-week.
15
16
17   SELECT ad_smtpadr FROM zmm_t_0003 INTO TABLE @DATA(lt_wechat_tag) WHERE status = 'W' AND zprogram = @sy-repid.
18
19   CHECK lt_wechat_tag[] IS NOT INITIAL.
20
21   CALL FUNCTION 'DATE_GET_WEEK'
22     EXPORTING
23       date = s_budat-low
24     IMPORTING
25       week = l_week
26 *   EXCEPTIONS
27 *     DATE_INVALID       = 1
28 *     OTHERS             = 2
29     .
30   IF sy-subrc <> 0.
31 * Implement suitable error handling here
32   ENDIF.
33
34   CONDENSE lv_count_v.
35   CONDENSE lv_count_m.
36
37   IF s_budat-high IS INITIAL.
38     s_budat-high = sy-datum.
39   ENDIF.
40
41   ls_textcard-description = '<div class=\"gray\">' && s_budat-low && '-' && s_budat-high && '</div>'.
42   ls_textcard-description = ls_textcard-description && '<div class=\"normal\">' && '【' && l_week+0(4) && 'W' && l_week+4(2) && '】'.
43   ls_textcard-description = ls_textcard-description && '供应商来料不良情况汇总-Week</div>'.
44   ls_textcard-description = ls_textcard-description && '<div class=\"normal\">未达标供应商个数：' && lv_count_v && '</div>'.
45   ls_textcard-description = ls_textcard-description && '<div class=\"normal\">不良物料号个数：' && lv_count_m && '</div>'.
46   ls_textcard-description = ls_textcard-description && '<div class=\"highlight\">具体明细已发送至您的邮箱</div>'.
47
48   "abap数据转json
49   CLEAR:lv_json.
50   /ui2/cl_json=>serialize( EXPORTING data = ls_textcard
51                                      pretty_name = 'L' "空大写，L小写，X驼峰，Y增强驼峰
52                            RECEIVING r_json = lv_json ).
53
54   lv_json = replace(  val = lv_json sub = '\"' with = '"' occ = '0' ).
55   lv_json = replace(  val = lv_json sub = '\\' with = '\' occ = '0' ).
56
57   CALL FUNCTION 'ZWECHAT_SEND_MESSAGE_MSGTYPE'
58     EXPORTING
59       i_message = lv_json
60       i_msgtype = 'textcard'
61     IMPORTING
62       e_message = e_message
63     TABLES
64       t_totag   = lt_wechat_tag[].
65
66 ENDFORM.

3.实现效果：企业微信通知