JSON推送数据签名
作者：互联网
1，定义JSON结构
2，调用类生成JSON格式
FC_JSON = /UI2/CL_JSON=>SERIALIZE( DATA = LS_JSON PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-LOW_CASE ASSOC_ARRAYS = ABAP_TRUE ASSOC_ARRAYS_OPT = ABAP_TRUE ).
3，调用生成 CALCULATE_HASH_FOR_CHAR 生成加密签名
4，创建http 对象
CL_HTTP_CLIENT=>CREATE_BY_URL
1 DATA: LF_TIMESTAMPL_B TYPE TIMESTAMPL,
2 LF_TIMESTAMPL_E TYPE TIMESTAMPL.
3 DATA: LT_ALV TYPE TT_ALV,
4 LS_ALV TYPE TY_ALV.
5 DATA: LS_JSON TYPE STRING .
6
7 CLEAR: LT_ALV ,LT_ALV[] .
8 LOOP AT GT_ALV INTO GS_ALV WHERE CHECK = 'X' OR CHECKBOX = 'X' .
9 APPEND GS_ALV TO LT_ALV .
10 CLEAR GS_ALV .
11 ENDLOOP .
12 CHECK LT_ALV[] IS NOT INITIAL .
13
14
15 DATA: LT_ZTMT014ERR TYPE TABLE OF ZTMT014ERR,
16 LS_ZTMT014ERR TYPE ZTMT014ERR.
17 DATA: LT_ZTMT014 TYPE TABLE OF ZTMT014,
18 LS_ZTMT014 TYPE ZTMT014.
19
20 DATA LF_LOGSYS TYPE T000-LOGSYS .
21 CLEAR LF_LOGSYS .
22 SELECT SINGLE LOGSYS INTO LF_LOGSYS FROM T000 WHERE MANDT = SY-MANDT .
23 LOOP AT GT_ALV INTO GS_ALV WHERE CHECK = 'X' OR CHECKBOX = 'X' .
24
25 CLEAR: LT_ZTMT014 ,LT_ZTMT014[] .
26 CLEAR: LT_ZTMT014ERR ,LT_ZTMT014ERR[] .
27
28 CLEAR LS_JSON .
29 PERFORM FRM_GET_TOR_DATA USING GS_ALV-TOR_ROOT_KEY CHANGING LS_JSON .
30 * 执行url
31
32 DATA: LF_TIMESTAMP TYPE CEST1-TIMESTMP,
33 LF_SECRETKEY TYPE STRING,
34 LF_SECRET TYPE STRING,
35 LF_DATA TYPE STRING,
36 LF_SIGN TYPE STRING.
37 DATA: LF_BASE_URL TYPE STRING VALUE 'http://ziyan.hzmmys.com/restapi/',
38 LF_JIEKOU TYPE STRING VALUE 'tms/open/gateway/api.order.create'.
39 IF LF_LOGSYS = 'S4PCLN100'.
40 LF_BASE_URL = 'http://tmmp.foods.com/restapi/' .
41 ELSE .
42 LF_BASE_URL = 'http://zytmq.zfoods.com/restapi/' .
43 ENDIF.
44
45
46
47 DATA: LF_REL_DATE LIKE SY-DATUM VALUE '19700101', " Bezugsdatum
48 LF_SECONDS_PER_DAY(8) TYPE P VALUE 86400,
49 LF_SECONDS_PER_HOUR(8) TYPE P VALUE 3600.
50 DATA: LF_DAYS TYPE INT4 .
51 LF_DAYS = SY-DATUM - LF_REL_DATE .
52 LF_TIMESTAMP = LF_DAYS * LF_SECONDS_PER_DAY + SY-UZEIT - SY-TZONE.
53 LF_SECRETKEY = 'ziyan-tm' .
54 LF_SECRET = 'ziyan-tm-qwueiqoweuqw' .
55
56
57 * DATA LF_LEN_VISUAL TYPE I .
58 * CALL FUNCTION 'NLS_VISUAL_CHARLEN'
59 * EXPORTING
60 * STR = LS_JSON
61 * IMPORTING
62 * LEN_VISUAL = LF_LEN_VISUAL.
63 *
64 * IF LF_LEN_VISUAL = 2 . "包含汉字
65 * LF_DATA = CL_HTTP_UTILITY=>ESCAPE_URL( LS_JSON ).
66 * ELSE .
67 * LF_DATA = LS_JSON .
68 * ENDIF .
69 LF_DATA = LS_JSON .
70
71
72 DATA: LF_HASH TYPE HASH160,
73 LF_HASHLEN TYPE I,
74 LF_HASHX TYPE HASH160X,
75 LF_HASHXLEN TYPE I,
76 LF_HASHSTRING TYPE STRING,
77 LF_HASHXSTRING TYPE XSTRING,
78 LF_HASHB64STRING TYPE STRING.
79 DATA LF_SIGN_INPUT TYPE STRING .
80 LF_SIGN_INPUT = LF_SECRETKEY && LF_SECRET && LF_TIMESTAMP && LF_DATA .
81 CALL FUNCTION 'CALCULATE_HASH_FOR_CHAR'
82 EXPORTING
83 ALG = 'MD5'
84 DATA = LF_SIGN_INPUT
85 LENGTH = 0
86 IMPORTING
87 HASH = LF_HASH
88 HASHLEN = LF_HASHLEN
89 HASHX = LF_HASHX
90 HASHXLEN = LF_HASHXLEN
91 HASHSTRING = LF_HASHSTRING
92 HASHXSTRING = LF_HASHXSTRING
93 HASHB64STRING = LF_HASHB64STRING
94 EXCEPTIONS
95 UNKNOWN_ALG = 1
96 PARAM_ERROR = 2
97 INTERNAL_ERROR = 3
98 OTHERS = 4.
99 LF_SIGN = LF_HASHSTRING .
100
101
102
103
104 DATA: LF_MESSAGE TYPE STRING,
105 LF_TYPE TYPE CHAR1.
106 CLEAR: LF_TYPE ,LF_MESSAGE .
107
108 DATA LC_HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT.
109 DATA LF_REQ_URL TYPE STRING .
110 DATA LF_REQUEST_BODY TYPE STRING .
111 DATA LF_LEN TYPE I .
112 DATA LF_RESPONSE_STRING TYPE STRING .
113 DATA LF_REQUEST_BODYX TYPE XSTRING .
114 * 1. 创建http对象
115 CLEAR: LF_TIMESTAMPL_B ,LF_TIMESTAMPL_E .
116 GET TIME STAMP FIELD LF_TIMESTAMPL_B.
117 CLEAR: LF_REQ_URL .
118 LF_REQ_URL = LF_BASE_URL && LF_JIEKOU .
119 CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
120 EXPORTING
121 URL = LF_REQ_URL
122 IMPORTING
123 CLIENT = LC_HTTP_CLIENT
124 EXCEPTIONS
125 ARGUMENT_NOT_FOUND = 1
126 PLUGIN_NOT_ACTIVE = 2
127 INTERNAL_ERROR = 3
128 OTHERS = 4.
129 IF SY-SUBRC <> 0 .
130 LF_MESSAGE = '未能访问到网址' .
131 LF_TYPE = 'E' .
132 EXIT .
133 ENDIF .
134 *2.REQUEST 对象 设定编码格式
135 LC_HTTP_CLIENT->REQUEST->SET_CONTENT_TYPE( CONTENT_TYPE = 'application/json; charset=utf-8' ).
136 * LC_HTTP_CLIENT->REQUEST->SET_CONTENT_TYPE( CONTENT_TYPE = 'application/json' )..
137 *3.REQUEST 对象 设定调用服务
138 LC_HTTP_CLIENT->REQUEST->SET_METHOD( IF_HTTP_REQUEST=>CO_REQUEST_METHOD_POST ).
139
140 *4. 设置待传输内容
141
142 LF_REQUEST_BODY = '{"secretKey":' && '"' && LF_SECRETKEY && '",'
143 && '"timeStamp":' && LF_TIMESTAMP && ','
144 && '"sign":' && '"' && LF_SIGN && '",'
145 && '"data":' && LF_DATA && '}'.
146
147 CLEAR LF_LEN .
148 LF_LEN = STRLEN( LF_REQUEST_BODY ).
149 DATA LF_LENC TYPE STRING .
150 LF_LENC = LF_LEN .
151 * LC_HTTP_CLIENT->REQUEST->SET_HEADER_FIELD( NAME = 'Content-Length' VALUE = LF_LENC ).
152 LC_HTTP_CLIENT->REQUEST->SET_CDATA( DATA = LF_REQUEST_BODY OFFSET = 0 LENGTH = LF_LEN ).
153 * LC_HTTP_CLIENT->REQUEST->SET_CDATA( DATA = LF_REQUEST_BODY ).
154
155
156 *5. 发送请求
157 LC_HTTP_CLIENT->SEND(
158 EXPORTING
159 TIMEOUT = IF_HTTP_CLIENT=>CO_TIMEOUT_DEFAULT
160 EXCEPTIONS
161 HTTP_COMMUNICATION_FAILURE = 1
162 HTTP_INVALID_STATE = 2
163 HTTP_PROCESSING_FAILED = 3
164 HTTP_INVALID_TIMEOUT = 4
165 OTHERS = 5 ).
166 IF SY-SUBRC <> 0.
167 "操作失败，获取失败原因
168 LC_HTTP_CLIENT->GET_LAST_ERROR( IMPORTING MESSAGE = LF_MESSAGE ).
169 LF_TYPE = 'E' .
170 EXIT.
171 ENDIF.
172 *6. RESPONSE 对象
173 LC_HTTP_CLIENT->RECEIVE(
174 EXCEPTIONS
175 HTTP_COMMUNICATION_FAILURE = 1
176 HTTP_INVALID_STATE = 2
177 HTTP_PROCESSING_FAILED = 3
178 OTHERS = 4 ).
179 IF SY-SUBRC = 0 .
180 CLEAR: LF_RESPONSE_STRING .
181 LF_RESPONSE_STRING = LC_HTTP_CLIENT->RESPONSE->GET_CDATA( ).
182 ELSE .
183 LC_HTTP_CLIENT->GET_LAST_ERROR( IMPORTING MESSAGE = LF_MESSAGE CODE = DATA(G_SUBRC) ).
184 ENDIF .
185 GET TIME STAMP FIELD LF_TIMESTAMPL_E.
186
187
188
189 TYPES: BEGIN OF TY_RESULT ,
190 CODE TYPE STRING,
191 MESSAGE TYPE STRING,
192 END OF TY_RESULT .
193 DATA: LS_RESULT TYPE TY_RESULT .
194 CLEAR LS_RESULT .
195
196 /UI2/CL_JSON=>DESERIALIZE( EXPORTING JSON = LF_RESPONSE_STRING ASSOC_ARRAYS = ABAP_TRUE ASSOC_ARRAYS_OPT = ABAP_TRUE CHANGING DATA = LS_RESULT ).
197 CLEAR LF_RESPONSE_STRING .
198 IF LS_RESULT-CODE = '0'.
199
200 ELSE .
201 LF_TYPE = 'E' .
202 LF_MESSAGE = LS_RESULT-CODE && ':' && LS_RESULT-MESSAGE .
203 ENDIF.
204 * {"code":0,"message":"success","data":null}
205
206
207 IF LF_TYPE = 'E' .
208 GS_ALV-MESSAGE = LF_MESSAGE .
209
210 LS_ZTMT014ERR-TOR_ID = GS_ALV-TOR_ID .
211 LS_ZTMT014ERR-ZDATUM = SY-DATUM .
212 LS_ZTMT014ERR-ZUZEIT = SY-UZEIT .
213 LS_ZTMT014ERR-CODE = LS_RESULT-CODE .
214 LS_ZTMT014ERR-ERRMESSAGE = LS_RESULT-MESSAGE .
215 APPEND LS_ZTMT014ERR TO LT_ZTMT014ERR .
216 CLEAR LS_ZTMT014ERR .
217 ELSE .
218 GS_ALV-MESSAGE = '成功：已传输至小程序'.
219 LS_ZTMT014-TOR_ID = GS_ALV-TOR_ID .
220 LS_ZTMT014-ZDATUM = SY-DATUM .
221 LS_ZTMT014-ZUZEIT = SY-UZEIT .
222 CALL FUNCTION 'CIF_GEN4_CONVERT_DATETIME'
223 EXPORTING
224 IV_DATE = LS_ZTMT014-ZDATUM
225 IV_TIME = LS_ZTMT014-ZUZEIT
226 IV_TIMEZONE = 'UTC+8'
227 IMPORTING
228 EV_TIMESTAMP = LS_ZTMT014-CHANGED_ON
229 EXCEPTIONS
230 TIME_CONVERSION_FAILED = 1
231 OTHERS = 2.
232 APPEND LS_ZTMT014 TO LT_ZTMT014 .
233 CLEAR LS_ZTMT014 .
234 ENDIF.
235
236
237
238 DATA: LT_ZTMT014_TIME TYPE TABLE OF ZTMT014_TIME,
239 LS_ZTMT014_TIME TYPE ZTMT014_TIME.
240 CLEAR: LT_ZTMT014_TIME ,LT_ZTMT014_TIME[] .
241
242 CALL FUNCTION 'GUID_CREATE'
243 IMPORTING
244 EV_GUID_16 = LS_ZTMT014_TIME-ZGUID. " “未加工”格式的 GUID
245 LS_ZTMT014_TIME-TIMESTAMPL_B = LF_TIMESTAMPL_B .
246 LS_ZTMT014_TIME-TIMESTAMPL_E = LF_TIMESTAMPL_E .
247 PERFORM FRM_TIME_JIANGE USING LF_TIMESTAMPL_B LF_TIMESTAMPL_E CHANGING LS_ZTMT014_TIME-ZTIME_JIANGE .
248 LS_ZTMT014_TIME-TOR_ID = GS_ALV-TOR_ID .
249 LS_ZTMT014_TIME-ZDATUM = SY-DATUM .
250 LS_ZTMT014_TIME-ZUZEIT = SY-UZEIT .
251 APPEND LS_ZTMT014_TIME TO LT_ZTMT014_TIME .
252 CLEAR LS_ZTMT014_TIME .
253
254 MODIFY GT_ALV FROM GS_ALV TRANSPORTING MESSAGE .
255 CLEAR GS_ALV .
256
257
258
259 MODIFY ZTMT014ERR FROM TABLE LT_ZTMT014ERR[] .
260 MODIFY ZTMT014 FROM TABLE LT_ZTMT014[] .
261 MODIFY ZTMT014_TIME FROM TABLE LT_ZTMT014_TIME[] .
262 IF SY-SUBRC = 0.
263 COMMIT WORK AND WAIT .
264 ELSE .
265 ROLLBACK WORK .
266 ENDIF.
267
268 WAIT UP TO 1 SECONDS .
269 CLEAR LS_ALV .
270 ENDLOOP.
View Code
1 FORM FRM_GET_TOR_DATA USING VALUE(FU_TOR_ROOT_KEY) TYPE /SCMTMS/S_TOR_ROOT_K-KEY 2 CHANGING FC_JSON TYPE STRING . 3 4 CLEAR: FC_JSON . 5 6 DATA: LF_DATE TYPE SY-DATUM, 7 LF_TIME TYPE SY-UZEIT. 8 DATA: LS_KEYS TYPE /BOBF/S_FRW_KEY, 9 LT_KEYS TYPE /BOBF/T_FRW_KEY. 10 11 DATA LO_SRV_MGR TYPE REF TO /BOBF/IF_TRA_SERVICE_MANAGER. 12 DATA LO_CHANGE TYPE REF TO /BOBF/IF_TRA_CHANGE. 13 DATA LO_MESSAGE TYPE REF TO /BOBF/IF_FRW_MESSAGE. 14 15 TRY. 16 LO_SRV_MGR = /BOBF/CL_TRA_SERV_MGR_FACTORY=>GET_SERVICE_MANAGER( /SCMTMS/IF_TOR_C=>SC_BO_KEY ). 17 CATCH /BOBF/CX_FRW INTO DATA(LF_FRW). 18 DATA(LF_ERR_MSG) = LF_FRW->GET_TEXT( ). 19 ENDTRY . 20 21 CLEAR: LT_KEYS ,LT_KEYS[] . 22 LS_KEYS-KEY = FU_TOR_ROOT_KEY . 23 APPEND LS_KEYS TO LT_KEYS . 24 CLEAR LS_KEYS . 25 26 DATA: LT_ROOT_TOR_DATA TYPE /SCMTMS/T_TOR_ROOT_K, 27 LS_ROOT_TOR_DATA TYPE /SCMTMS/S_TOR_ROOT_K. 28 CLEAR: LT_ROOT_TOR_DATA ,LT_ROOT_TOR_DATA[] . 29 LO_SRV_MGR->RETRIEVE( 30 EXPORTING 31 IV_NODE_KEY = /SCMTMS/IF_TOR_C=>SC_NODE-ROOT 32 IT_KEY = LT_KEYS 33 IMPORTING 34 EO_MESSAGE = LO_MESSAGE 35 EO_CHANGE = LO_CHANGE 36 ET_DATA = LT_ROOT_TOR_DATA ). 37 38 TYPES: BEGIN OF TY_TRQ_009 , 39 ZCHLS TYPE ZTMT009HD-ZCHLS, 40 ZLX TYPE ZTMT009HD-ZLX, 41 TOR_ID TYPE ZTMT009HD-TOR_ID, 42 TRQ_ID TYPE ZTMT009HD-TRQ_ID, 43 END OF TY_TRQ_009 . 44 DATA: LT_TRQ_009 TYPE TABLE OF TY_TRQ_009, 45 LS_TRQ_009 TYPE TY_TRQ_009. 46 CLEAR: LT_TRQ_009 ,LT_TRQ_009[] . 47 IF LT_ROOT_TOR_DATA[] IS NOT INITIAL. 48 SELECT 49 ZCHLS 50 ZLX 51 TOR_ID 52 TRQ_ID 53 INTO CORRESPONDING FIELDS OF TABLE LT_TRQ_009 54 FROM ZTMT009HD FOR ALL ENTRIES IN LT_ROOT_TOR_DATA 55 WHERE TOR_ID = LT_ROOT_TOR_DATA-TOR_ID AND 56 TRQ_ID <> SPACE . 57 ENDIF. 58 SORT LT_TRQ_009 BY TRQ_ID . 59 60 61 DATA: LT_ITEM_TR TYPE /SCMTMS/T_TOR_ITEM_TR_K, 62 LS_ITEM_TR TYPE /SCMTMS/S_TOR_ITEM_TR_K. 63 CLEAR: LT_ITEM_TR ,LT_ITEM_TR[] . 64 LO_SRV_MGR->RETRIEVE_BY_ASSOCIATION( 65 EXPORTING 66 IV_NODE_KEY = /SCMTMS/IF_TOR_C=>SC_NODE-ROOT 67 IT_KEY = LT_KEYS 68 IV_ASSOCIATION = /SCMTMS/IF_TOR_C=>SC_ASSOCIATION-ROOT-ITEM_TR 69 IV_FILL_DATA = ABAP_TRUE 70 IV_EDIT_MODE = /BOBF/IF_CONF_C=>SC_EDIT_READ_ONLY 71 IMPORTING 72 EO_MESSAGE = LO_MESSAGE 73 ET_DATA = LT_ITEM_TR ). 74 75 DATA: LT_STOP TYPE /SCMTMS/T_TOR_STOP_K, 76 LS_STOP TYPE /SCMTMS/S_TOR_STOP_K. 77 CLEAR: LT_STOP ,LT_STOP[] . 78 LO_SRV_MGR->RETRIEVE_BY_ASSOCIATION( 79 EXPORTING 80 IV_NODE_KEY = /SCMTMS/IF_TOR_C=>SC_NODE-ROOT 81 IT_KEY = LT_KEYS 82 IV_ASSOCIATION = /SCMTMS/IF_TOR_C=>SC_ASSOCIATION-ROOT-STOP 83 IV_FILL_DATA = ABAP_TRUE 84 IV_EDIT_MODE = /BOBF/IF_CONF_C=>SC_EDIT_READ_ONLY 85 IMPORTING 86 EO_MESSAGE = LO_MESSAGE 87 ET_DATA = LT_STOP ) . 88 89 90 DATA: LT_HEAD TYPE TABLE OF ZTM014HEAD, 91 LS_HEAD TYPE ZTM014HEAD. 92 CLEAR: LT_HEAD ,LT_HEAD[] . 93 LOOP AT LT_ROOT_TOR_DATA INTO LS_ROOT_TOR_DATA . 94 LS_HEAD-TOR_ID = LS_ROOT_TOR_DATA-TOR_ID . " 单据 95 LS_HEAD-TOR_TYPE = LS_ROOT_TOR_DATA-TOR_TYPE . " 业务凭证类型 96 LS_HEAD-TSPID = LS_ROOT_TOR_DATA-TSPID . " 运输公司 97 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' 98 EXPORTING 99 INPUT = LS_HEAD-TSPID 100 IMPORTING 101 OUTPUT = LS_HEAD-TSPID. 102 103 LS_HEAD-EXEC_ORG_ID = LS_ROOT_TOR_DATA-EXEC_ORG_ID . " 计划和执行组织 104 LS_HEAD-EXEC_GRP_ID = LS_ROOT_TOR_DATA-EXEC_GRP_ID . " 计划和执行组 105 LS_HEAD-LIFECYCLE = LS_ROOT_TOR_DATA-LIFECYCLE . " 生命周期状态 106 LS_HEAD-EXECUTION = LS_ROOT_TOR_DATA-EXECUTION . " 执行状态 107 LS_HEAD-DELIVERY = LS_ROOT_TOR_DATA-DELIVERY . " 交货状态 108 LS_HEAD-MTR = LS_ROOT_TOR_DATA-MTR . " 运输方式 109 LS_HEAD-MAX_UTIL = LS_ROOT_TOR_DATA-MAX_UTIL . " 最大利用率 110 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 111 EXPORTING 112 INPUT = LS_HEAD-MAX_UTIL 113 IMPORTING 114 OUTPUT = LS_HEAD-MAX_UTIL. 115 LS_HEAD-MAX_UTIL_MASS = LS_ROOT_TOR_DATA-MAX_UTIL_MASS . " 最大利用率 116 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 117 EXPORTING 118 INPUT = LS_HEAD-MAX_UTIL_MASS 119 IMPORTING 120 OUTPUT = LS_HEAD-MAX_UTIL_MASS. 121 LS_HEAD-MAX_UTIL_VOLUME = LS_ROOT_TOR_DATA-MAX_UTIL_VOLUME . " 最大利用率 122 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 123 EXPORTING 124 INPUT = LS_HEAD-MAX_UTIL_VOLUME 125 IMPORTING 126 OUTPUT = LS_HEAD-MAX_UTIL_VOLUME. 127 128 LS_HEAD-GRO_WEI_VAL = LS_ROOT_TOR_DATA-GRO_WEI_VAL . " 毛重 129 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 130 EXPORTING 131 INPUT = LS_HEAD-GRO_WEI_VAL 132 IMPORTING 133 OUTPUT = LS_HEAD-GRO_WEI_VAL. 134 135 LS_HEAD-GRO_WEI_UNI = LS_ROOT_TOR_DATA-GRO_WEI_UNI . " 毛重计量单位 136 LS_HEAD-GRO_VOL_VAL = LS_ROOT_TOR_DATA-GRO_VOL_VAL . " 总体积 137 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 138 EXPORTING 139 INPUT = LS_HEAD-GRO_VOL_VAL 140 IMPORTING 141 OUTPUT = LS_HEAD-GRO_VOL_VAL. 142 LS_HEAD-GRO_VOL_UNI = LS_ROOT_TOR_DATA-GRO_VOL_UNI . " 总体积计量单位 143 LS_HEAD-CONFIRMATION = LS_ROOT_TOR_DATA-CONFIRMATION . " 确认状态 144 IF LS_ROOT_TOR_DATA-CREATED_ON IS NOT INITIAL. 145 CLEAR: LF_DATE ,LF_TIME . 146 CALL FUNCTION 'CIF_GEN4_CONVERT_TIMESTAMP' 147 EXPORTING 148 IV_TIMESTAMP = LS_ROOT_TOR_DATA-CREATED_ON 149 IV_TIMEZONE = 'UTC+8' 150 IMPORTING 151 EV_DATE = LF_DATE 152 EV_TIME = LF_TIME 153 EXCEPTIONS 154 TIME_CONVERSION_FAILED = 1 155 OTHERS = 2. 156 LS_HEAD-CRTDT = LF_DATE . " 创建日期 157 LS_HEAD-CRTTM = LF_TIME . " 创建时间 158 ENDIF. 159 160 161 LS_HEAD-CREATED_BY = LS_ROOT_TOR_DATA-CREATED_BY . " 创建者 162 READ TABLE GT_USER INTO GS_USER WITH KEY BNAME = LS_ROOT_TOR_DATA-CREATED_BY BINARY SEARCH . 163 IF SY-SUBRC = 0. 164 LS_HEAD-CRTNM = GS_USER-NAME_TEXT . " 业务用户描述 165 ENDIF. 166 CLEAR GS_USER . 167 168 IF LS_ROOT_TOR_DATA-CHANGED_ON IS NOT INITIAL. 169 CLEAR: LF_DATE ,LF_TIME . 170 CALL FUNCTION 'CIF_GEN4_CONVERT_TIMESTAMP' 171 EXPORTING 172 IV_TIMESTAMP = LS_ROOT_TOR_DATA-CHANGED_ON 173 IV_TIMEZONE = 'UTC+8' 174 IMPORTING 175 EV_DATE = LF_DATE 176 EV_TIME = LF_TIME 177 EXCEPTIONS 178 TIME_CONVERSION_FAILED = 1 179 OTHERS = 2. 180 LS_HEAD-CHGDT = LF_DATE . " 更改日期 181 LS_HEAD-CHGTM = LF_TIME . " 更改时间 182 ENDIF. 183 184 LS_HEAD-CHANGED_BY = LS_ROOT_TOR_DATA-CHANGED_BY . " 创建者 185 READ TABLE GT_USER INTO GS_USER WITH KEY BNAME = LS_ROOT_TOR_DATA-CHANGED_BY BINARY SEARCH . 186 IF SY-SUBRC = 0. 187 LS_HEAD-CHGNM = GS_USER-NAME_TEXT . " 业务用户描述 188 ENDIF. 189 CLEAR GS_USER . 190 191 LS_HEAD-TOTAL_DISTANCE_KM = LS_ROOT_TOR_DATA-TOTAL_DISTANCE_KM . " 总距离 (km) 192 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 193 EXPORTING 194 INPUT = LS_HEAD-TOTAL_DISTANCE_KM 195 IMPORTING 196 OUTPUT = LS_HEAD-TOTAL_DISTANCE_KM. 197 LS_HEAD-TOTAL_DURATION_NET = LS_ROOT_TOR_DATA-TOTAL_DURATION_NET . " 总计净持续时间 198 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 199 EXPORTING 200 INPUT = LS_HEAD-TOTAL_DURATION_NET 201 IMPORTING 202 OUTPUT = LS_HEAD-TOTAL_DURATION_NET. 203 READ TABLE LT_ITEM_TR INTO LS_ITEM_TR WITH KEY ROOT_KEY = LS_ROOT_TOR_DATA-KEY 204 ITEM_CAT = 'AVR' . 205 IF SY-SUBRC = 0. 206 LS_HEAD-RES_ID = LS_ITEM_TR-RES_ID . " 资源 207 LS_HEAD-PLATENUMBER = LS_ITEM_TR-PLATENUMBER . " 注册编号 208 SELECT SINGLE DESCRIPTION INTO LS_HEAD-ZXLMS FROM /SCMTMS/D_SCHDSC 209 WHERE PARENT_KEY = LS_ITEM_TR-SCHED_KEY AND 210 LANGUAGE_CODE = SY-LANGU. 211 *20210624 212 SELECT SINGLE SCH_ID INTO LS_HEAD-SCH_ID FROM /SCMTMS/D_SCHROT 213 WHERE DB_KEY = LS_ITEM_TR-SCHED_KEY . 214 ENDIF. 215 CLEAR LS_ITEM_TR . 216 217 APPEND LS_HEAD TO LT_HEAD . 218 CLEAR LS_HEAD . 219 220 CLEAR LS_ROOT_TOR_DATA . 221 ENDLOOP. 222 223 DATA: LT_ZDRIVER TYPE TABLE OF ZTM014ZDRIVER, 224 LS_ZDRIVER TYPE ZTM014ZDRIVER. 225 CLEAR: LT_ZDRIVER ,LT_ZDRIVER[] . 226 227 LOOP AT LT_ITEM_TR INTO LS_ITEM_TR WHERE ITEM_CAT = 'DRI' . 228 READ TABLE LT_ROOT_TOR_DATA INTO LS_ROOT_TOR_DATA WITH KEY KEY = LS_ITEM_TR-ROOT_KEY . 229 IF SY-SUBRC = 0. 230 LS_ZDRIVER-TOR_ID = LS_ROOT_TOR_DATA-TOR_ID . "单据 231 LS_ZDRIVER-ITEM_ID = LS_ITEM_TR-ITEM_ID . " 项目 232 LS_ZDRIVER-RES_ID = LS_ITEM_TR-RES_ID ." 资源 233 LS_ZDRIVER-ITEM_DESCR = LS_ITEM_TR-ITEM_DESCR ." 项目描述 234 APPEND LS_ZDRIVER TO LT_ZDRIVER . 235 CLEAR LS_ZDRIVER . 236 ENDIF. 237 CLEAR LS_ROOT_TOR_DATA . 238 239 CLEAR LS_ITEM_TR . 240 ENDLOOP. 241 242 DATA: LT_ZCARGO TYPE TABLE OF ZTM014ZCARGO, 243 LS_ZCARGO TYPE ZTM014ZCARGO. 244 CLEAR: LT_ZCARGO ,LT_ZCARGO[] . 245 LOOP AT LT_ITEM_TR INTO LS_ITEM_TR WHERE ORIG_REF_BO = 'TRQ' . 246 IF LS_ITEM_TR-ITEM_CAT <> 'PRD'. 247 READ TABLE LT_ROOT_TOR_DATA INTO LS_ROOT_TOR_DATA WITH KEY KEY = LS_ITEM_TR-ROOT_KEY . 248 IF SY-SUBRC = 0. 249 LS_ZCARGO-TOR_ID = LS_ROOT_TOR_DATA-TOR_ID . " 单据 250 LS_ZCARGO-ITEM_ID = LS_ITEM_TR-ITEM_ID . " 项目 251 LS_ZCARGO-KEY = LS_ITEM_TR-KEY . " 运输订单项目的键值 252 LS_ZCARGO-ITEM_PARENT_KEY = LS_ITEM_TR-ITEM_PARENT_KEY . " 运输订单项目的键值 253 LS_ZCARGO-ITEM_DESCR = LS_ITEM_TR-ITEM_DESCR . " 项目描述 254 LS_ZCARGO-ITEM_CAT = LS_ITEM_TR-ITEM_CAT . " 项目类别 255 LS_ZCARGO-MAIN_CARGO_ITEM = LS_ITEM_TR-MAIN_CARGO_ITEM . " 主货物项目 256 LS_ZCARGO-SHIPPER_ID = LS_ITEM_TR-SHIPPER_ID . " 发货方 257 LS_ZCARGO-CONSIGNEE_ID = LS_ITEM_TR-CONSIGNEE_ID . " 收货方 258 LS_ZCARGO-GRO_WEI_VAL = LS_ITEM_TR-GRO_WEI_VAL . " 毛重 259 *20210624 260 LS_ZCARGO-SRC_STOP_KEY = LS_ITEM_TR-SRC_STOP_KEY . " 提货站点KEY值 261 LS_ZCARGO-DES_STOP_KEY = LS_ITEM_TR-DES_STOP_KEY . " 卸货站点KEY值 262 LS_ZCARGO-AMT_GDSV_VAL = LS_ITEM_TR-AMT_GDSV_VAL . " 货物价值 263 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 264 EXPORTING 265 INPUT = LS_ZCARGO-AMT_GDSV_VAL 266 IMPORTING 267 OUTPUT = LS_ZCARGO-AMT_GDSV_VAL. 268 269 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 270 EXPORTING 271 INPUT = LS_ZCARGO-GRO_WEI_VAL 272 IMPORTING 273 OUTPUT = LS_ZCARGO-GRO_WEI_VAL. 274 LS_ZCARGO-GRO_WEI_UNI = LS_ITEM_TR-GRO_WEI_UNI . " 毛重计量单位 275 LS_ZCARGO-GRO_VOL_VAL = LS_ITEM_TR-GRO_VOL_VAL . " 总体积 276 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 277 EXPORTING 278 INPUT = LS_ZCARGO-GRO_VOL_VAL 279 IMPORTING 280 OUTPUT = LS_ZCARGO-GRO_VOL_VAL. 281 LS_ZCARGO-GRO_VOL_UNI = LS_ITEM_TR-GRO_VOL_UNI . " 总体积计量单位 282 LS_ZCARGO-NET_WEI_VAL = LS_ITEM_TR-NET_WEI_VAL . " 净重 283 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 284 EXPORTING 285 INPUT = LS_ZCARGO-NET_WEI_VAL 286 IMPORTING 287 OUTPUT = LS_ZCARGO-NET_WEI_VAL. 288 LS_ZCARGO-NET_WEI_UNI = LS_ITEM_TR-NET_WEI_UNI . " 净重计量单位 289 LS_ZCARGO-QUA_PCS_VAL = LS_ITEM_TR-QUA_PCS_VAL . " 数量 290 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 291 EXPORTING 292 INPUT = LS_ZCARGO-QUA_PCS_VAL 293 IMPORTING 294 OUTPUT = LS_ZCARGO-QUA_PCS_VAL. 295 LS_ZCARGO-QUA_PCS_UNI = LS_ITEM_TR-QUA_PCS_UNI . " 数量计量单位 296 CALL FUNCTION 'ZNUMBER_CONV_OUTPUT' 297 EXPORTING 298 INPUT = LS_ZCARGO-QUA_PCS_UNI 299 IMPORTING 300 OUTPUT = LS_ZCARGO-QUA_PCS_UNI. 301 LS_ZCARGO-PKGUN_WEI_UNI = LS_ITEM_TR-PKGUN_WEI_UNI . " 皮重计量单位 302 SELECT SINGLE TRQ_ID INTO LS_ZCARGO-TRQ_ID FROM /SCMTMS/D_TRQROT 303 WHERE DB_KEY = LS_ITEM_TR-ORIG_REF_ROOT . " 代运单或代运报价中的项目类型 304 SELECT SINGLE ITEM_TYPE INTO LS_ZCARGO-ITEM_TYPE FROM /SCMTMS/D_TRQITM 305 WHERE DB_KEY = LS_ITEM_TR-ORIG_REF_ITEM AND 306 PARENT_KEY = LS_ITEM_TR-ORIG_REF_ROOT . " 代运单或代运报价中的项目类型 307 SELECT SINGLE DESCRIPTION_S INTO LS_ZCARGO-ZXMLXMS FROM /SCMTMS/C_TRQITT 308 WHERE LANGU = SY-LANGU AND ITEM_TYPE = LS_ZCARGO-ITEM_TYPE ." 项目类型的描述 309 LS_ZCARGO-PRODUCT_ID = LS_ITEM_TR-PRODUCT_ID . " 产品 310 LS_ZCARGO-TRANSSRVLVL_CODE = LS_ITEM_TR-TRANSSRVLVL_CODE . " 运输服务级别 - 销售 311 SELECT SINGLE VTEXT INTO LS_ZCARGO-ZFWJBMS FROM TVSBT 312 WHERE VSBED = LS_ITEM_TR-TRANSSRVLVL_CODE AND SPRAS = SY-LANGU . " 运输服务级别描述 313 READ TABLE LT_STOP INTO LS_STOP WITH KEY KEY = LS_ITEM_TR-SRC_STOP_KEY . 314 IF SY-SUBRC = 0. 315 LS_ZCARGO-SRC_LOC_IDTRQ = LS_STOP-LOG_LOCID . " 源位置 316 ENDIF. 317 CLEAR LS_STOP . 318 319 READ TABLE LT_STOP INTO LS_STOP WITH KEY KEY = LS_ITEM_TR-DES_STOP_KEY . 320 IF SY-SUBRC = 0. 321 LS_ZCARGO-DES_LOC_IDTRQ = LS_STOP-LOG_LOCID . " 目标位置 322 ENDIF. 323 CLEAR LS_STOP . 324 325 IF LS_ITEM_TR-ASSGN_START IS NOT INITIAL. 326 CLEAR: LF_DATE ,LF_TIME . 327 CALL FUNCTION 'CIF_GEN4_CONVERT_TIMESTAMP' 328 EXPORTING 329 IV_TIMESTAMP = LS_ITEM_TR-ASSGN_START 330 IV_TIMEZONE = 'UTC+8' 331 IMPORTING 332 EV_DATE = LF_DATE 333 EV_TIME = LF_TIME 334 EXCEPTIONS 335 TIME_CONVERSION_FAILED = 1 336 OTHERS = 2. 337 LS_ZCARGO-ASSGN_DT = LF_DATE . " 计划提货日期 338 LS_ZCARGO-ASSGN_TM = LF_TIME . " 计划提货时间 339 ENDIF. 340 341 IF LS_ITEM_TR-UNASSGN_START IS NOT INITIAL. 342 CLEAR: LF_DATE ,LF_TIME . 343 CALL FUNCTION 'CIF_GEN4_CONVERT_TIMESTAMP' 344 EXPORTING 345 IV_TIMESTAMP = LS_ITEM_TR-UNASSGN_START 346 IV_TIMEZONE = 'UTC+8' 347 IMPORTING 348 EV_DATE = LF_DATE 349 EV_TIME = LF_TIME 350 EXCEPTIONS 351 TIME_CONVERSION_FAILED = 1 352 OTHERS = 2. 353 LS_ZCARGO-UNASSGN_DT = LF_DATE . " 计划交货日期 354 LS_ZCARGO-UNASSGN_TM = LF_TIME . " 计划交货时间 355 ENDIF. 356 READ TABLE LT_TRQ_009 INTO LS_TRQ_009 WITH KEY TRQ_ID = LS_ZCARGO-TRQ_ID BINARY SEARCH . 357 IF SY-SUBRC <> 0. 358 APPEND LS_ZCARGO TO LT_ZCARGO . 359 ENDIF. 360 CLEAR LS_TRQ_009 . 361 362 CLEAR LS_ZCARGO . 363 364 ENDIF. 365 CLEAR LS_ROOT_TOR_DATA . 366 ENDIF. 367 368 CLEAR LS_ITEM_TR . 369 ENDLOOP. 370 371 DATA: LT_ZSTOP TYPE TABLE OF ZTM014ZSTOP, 372 LS_ZSTOP TYPE ZTM014ZSTOP. 373 CLEAR: LT_ZSTOP ,LT_ZSTOP[] . 374 LOOP AT LT_STOP INTO LS_STOP. 375 READ TABLE LT_ROOT_TOR_DATA INTO LS_ROOT_TOR_DATA WITH KEY KEY = LS_STOP-ROOT_KEY . 376 IF SY-SUBRC = 0 . 377 LS_ZSTOP-TOR_ID = LS_ROOT_TOR_DATA-TOR_ID . " 单据 378 LS_ZSTOP-KEY = LS_STOP-KEY . " 运输订单的站的键值 379 LS_ZSTOP-STOP_ID = LS_STOP-STOP_ID . " 运输订单的站的键值 380 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' 381 EXPORTING 382 INPUT = LS_ZSTOP-STOP_ID 383 IMPORTING 384 OUTPUT = LS_ZSTOP-STOP_ID. 385 386 LS_ZSTOP-STOP_CAT = LS_STOP-STOP_CAT . " 站类别 387 LS_ZSTOP-LOG_LOCID = LS_STOP-LOG_LOCID . " 位置 388 389 IF LS_STOP-PLAN_TRANS_TIME IS NOT INITIAL. 390 CLEAR: LF_DATE ,LF_TIME . 391 CALL FUNCTION 'CIF_GEN4_CONVERT_TIMESTAMP' 392 EXPORTING 393 IV_TIMESTAMP = LS_STOP-PLAN_TRANS_TIME 394 IV_TIMEZONE = 'UTC+8' 395 IMPORTING 396 EV_DATE = LF_DATE 397 EV_TIME = LF_TIME 398 EXCEPTIONS 399 TIME_CONVERSION_FAILED = 1 400 OTHERS = 2. 401 LS_ZSTOP-PLAN_TRANS_DT = LF_DATE . " 运输计划日期 402 LS_ZSTOP-PLAN_TRANS_TM = LF_TIME . " 运输计划时间 403 ENDIF. 404 405 LS_ZSTOP-STOP_SEQ_POS = LS_STOP-STOP_SEQ_POS . " 在运输站顺序中的站位置 406 APPEND LS_ZSTOP TO LT_ZSTOP . 407 CLEAR LS_ZSTOP . 408 ENDIF. 409 CLEAR LS_ROOT_TOR_DATA . 410 411 412 CLEAR LS_STOP . 413 ENDLOOP. 414 415 DATA: LT_ZSTOP_TMP TYPE TABLE OF ZTM014ZSTOP, 416 LS_ZSTOP_TMP TYPE ZTM014ZSTOP. 417 CLEAR: LT_ZSTOP_TMP ,LT_ZSTOP_TMP[] . 418 LT_ZSTOP_TMP[] = LT_ZSTOP[] . 419 CLEAR: LT_ZSTOP ,LT_ZSTOP[] . 420 SORT LT_ZSTOP_TMP BY PLAN_TRANS_DT PLAN_TRANS_TM . 421 LOOP AT LT_ZSTOP_TMP INTO LS_ZSTOP_TMP WHERE STOP_SEQ_POS = 'F' . 422 APPEND LS_ZSTOP_TMP TO LT_ZSTOP . 423 CLEAR LS_ZSTOP_TMP . 424 ENDLOOP. 425 LOOP AT LT_ZSTOP_TMP INTO LS_ZSTOP_TMP WHERE STOP_SEQ_POS <> 'F' AND STOP_SEQ_POS <> 'L' . 426 APPEND LS_ZSTOP_TMP TO LT_ZSTOP . 427 CLEAR LS_ZSTOP_TMP . 428 ENDLOOP. 429 LOOP AT LT_ZSTOP_TMP INTO LS_ZSTOP_TMP WHERE STOP_SEQ_POS = 'L' . 430 APPEND LS_ZSTOP_TMP TO LT_ZSTOP . 431 CLEAR LS_ZSTOP_TMP . 432 ENDLOOP. 433 LOOP AT LT_ZSTOP INTO LS_ZSTOP WHERE STOP_CAT <> 'O' AND STOP_SEQ_POS <> 'I' . 434 LS_ZSTOP-ORDERE = LS_ZSTOP-ORDERE + 1. 435 MODIFY LT_ZSTOP FROM LS_ZSTOP TRANSPORTING ORDERE. 436 CLEAR LS_ZSTOP . 437 ENDLOOP. 438 CLEAR: LT_ZSTOP_TMP ,LT_ZSTOP_TMP[] . 439 440 441 TYPES: TT_ZTM014ZCARGO TYPE STANDARD TABLE OF ZTM014ZCARGO WITH NON-UNIQUE KEY TOR_ID ITEM_ID. 442 TYPES: TT_ZTM014ZSTOP TYPE STANDARD TABLE OF ZTM014ZSTOP WITH NON-UNIQUE KEY TOR_ID KEY. 443 TYPES: TT_ZTM014ZDRIVER TYPE STANDARD TABLE OF ZTM014ZDRIVER WITH NON-UNIQUE KEY TOR_ID ITEM_ID. 444 445 TYPES: BEGIN OF TY_JSON . 446 INCLUDE TYPE ZTM014HEAD . 447 TYPES: ZCARGO TYPE TT_ZTM014ZCARGO. 448 TYPES: ZDRIVER TYPE TT_ZTM014ZDRIVER. 449 TYPES: ZSTOP TYPE TT_ZTM014ZSTOP. 450 TYPES: END OF TY_JSON . 451 DATA: LS_JSON TYPE TY_JSON . 452 CLEAR LS_JSON . 453 READ TABLE LT_HEAD INTO LS_HEAD INDEX 1 . 454 IF SY-SUBRC = 0. 455 MOVE-CORRESPONDING LS_HEAD TO LS_JSON . 456 LS_JSON-ZCARGO[] = LT_ZCARGO[] . 457 LS_JSON-ZSTOP[] = LT_ZSTOP[] . 458 LS_JSON-ZDRIVER[] = LT_ZDRIVER[] . 459 ENDIF. 460 CLEAR LS_HEAD . 461 462 463 CLEAR FC_JSON . 464 FC_JSON = /UI2/CL_JSON=>SERIALIZE( DATA = LS_JSON PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-LOW_CASE ASSOC_ARRAYS = ABAP_TRUE ASSOC_ARRAYS_OPT = ABAP_TRUE ). 465 466 467 ENDFORM.View Code
标签：LF,TOR,TYPE,LT,JSON,签名,推送,DATA,LS 来源： https://www.cnblogs.com/yushuiguodong/p/15050109.html