ABAP调用外部网站生成彩色二维码打印在smartform中

SAP也提供了标准的二维码功能，只是比较简单，下面的方式是调用在线二维码网站生成的一些酷炫的二维码。

场景：调用外部系统创建一个 QR code ，分别在屏幕和smartform中打印显示。

1、创建smartform


2、在Form Interface中创建一个参数[W_NAME type char20]，用来接收存储在SAP中二维码图片的名称


3、在smartform中创建一个graphics 元素，并命名 &W_NAME&


4、SE38创建执行程序

1. *&---------------------------------------------------------------------*
   
2. *& Report  Z03_QRCODE_IMAGE
   
3. *&
   
4. *&---------------------------------------------------------------------*
   
5. *&
   
6. *&
   
7. *&---------------------------------------------------------------------*
   
8. 
   
9. 
   
10. *types:  ty_boolean(1) type c.
    
11. *
    
12. *constants:
    
13. *  c_true  type ty_boolean value 'X',
    
14. *  c_false type ty_boolean value space.
    
15. 
    
16. DATA : bds_description  LIKE bapisignat-prop_value.
    
17. 
    
18. 
    
19. * BDS handling
    
20. CONSTANTS:
    
21.   c_bds_classname TYPE sbdst_classname VALUE 'DEVC_STXD_BITMAP',
    
22.   c_bds_classtype TYPE sbdst_classtype VALUE 'OT',          " others
    
23.   c_bds_mimetype  TYPE bds_mimetp      VALUE 'application/octet-stream',
    
24.   c_bds_original  TYPE sbdst_doc_var_tg VALUE 'OR'.
    
25. 
    
26. * Graphic handling
    
27. CONSTANTS:
    
28.       c_stdtext  LIKE thead-tdobject VALUE 'TEXT',
    
29.       c_graphics LIKE thead-tdobject VALUE 'GRAPHICS',
    
30.       c_bmon     LIKE thead-tdid     VALUE 'BMON',
    
31.       c_bcol     LIKE thead-tdid     VALUE 'BCOL'.
    
32. 
    
33. 
    
34. DATA: gi_filename    TYPE rlgrap-filename,
    
35.       gi_name        TYPE stxbitmaps-tdname,
    
36.       gi_object      TYPE stxbitmaps-tdobject,
    
37.       gi_id          TYPE stxbitmaps-tdid,
    
38.       gi_btype       TYPE stxbitmaps-tdbtype,
    
39.       gi_resident    TYPE stxbitmaps-resident,
    
40.       gi_autoheight  TYPE stxbitmaps-autoheight,
    
41.       gi_bmcomp      TYPE stxbitmaps-bmcomp,
    
42.       gi_resolution  TYPE stxbitmaps-resolution,
    
43.       l_extension TYPE rlgrap-filename,
    
44.       l_docid     TYPE stxbitmaps-docid.
    
45. 
    
46. "Picture Control
    
47. DATA: picture_container TYPE REF TO cl_gui_custom_container,
    
48.       picture_control   TYPE REF TO cl_gui_picture.
    
49. 
    
50. 
    
51. DATA: l_img_url     TYPE w3url.
    
52. DATA :l_img_subtype TYPE w3param-cont_type.
    
53. DATA : l_str_length TYPE i.
    
54. DATA : url TYPE string.
    
55. DATA :  l_content_length TYPE  i.
    
56. 
    
57. DATA :  mime TYPE  w3mimetabtype.
    
58. DATA: blob TYPE w3mimetabtype,
    
59.             blob_size TYPE w3param-cont_len,
    
60.             blob_type TYPE w3param-cont_type.
    
61. 
    
62. DATA : i_igs_image_converter TYPE REF TO cl_igs_image_converter.
    
63. DATA: content TYPE xstring.
    
64. DATA : http_client TYPE REF TO if_http_client.
    
65. 
    
66. 
    
67. TYPES : BEGIN OF ty_binary,
    
68.                     binary_field(1000) TYPE c,
    
69.                END OF ty_binary.
    
70. 
    
71. DATA : hex_tab1 TYPE TABLE OF ty_binary WITH HEADER LINE.
    
72. 
    
73. 
    
74. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    
75. PARAMETERS : qr_text TYPE char100 OBLIGATORY.
    
76. SELECTION-SCREEN END OF BLOCK b1.
    
77. 
    
78. 
    
79. 
    
80. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
    
81. PARAMETERS : width TYPE int3,
    
82.              height TYPE int3.
    
83. SELECTION-SCREEN END OF BLOCK b2.
    
84. 
    
85. 
    
86. 
    
87. PARAMETERS : p_rad1 RADIOBUTTON GROUP rd1 DEFAULT 'X',
    
88.              p_rad2 RADIOBUTTON GROUP rd1.
    
89. 
    
90. 
    
91. START-OF-SELECTION.
    
92. 
    
93.   PERFORM download_qrcode.
    
94.   PERFORM convert_image.
    
95. 
    
96. *&---------------------------------------------------------------------*
    
97. *&      Form  DOWNLOAD_QRCODE
    
98. *&---------------------------------------------------------------------*
    
99. *       text
    
100. *----------------------------------------------------------------------*
     
101. *  -->  p1        text
     
102. *  <--  p2        text
     
103. *----------------------------------------------------------------------*
     
104. 
     
105. FORM download_qrcode .
     
106. 
     
107. *  CONCATENATE 'http://chart.apis.google.com/chart?chs=200x200&cht=qr&chld=|1&chl=' qr_text '/chart.png' INTO url.
     
108.   CONCATENATE 'http://qr.topscan.com/api.php?&bg=ffffff&fg=cc0000&pt=00ff00&inpt=000000&text=' qr_text INTO url.
     
109. 
     
110.   CALL METHOD cl_http_client=>create_by_url
     
111.     EXPORTING
     
112.       url                = url
     
113.     IMPORTING
     
114.       client             = http_client
     
115.     EXCEPTIONS
     
116.       argument_not_found = 1
     
117.       plugin_not_active  = 2
     
118.       internal_error     = 3
     
119.       OTHERS             = 4.
     
120. 
     
121. 
     
122.   IF sy-subrc = 0.
     
123.     CALL METHOD http_client->send
     
124. *  EXPORTING
     
125. *    timeout                    = CO_TIMEOUT_DEFAULT
     
126.       EXCEPTIONS
     
127.         http_communication_failure = 1
     
128.         http_invalid_state         = 2
     
129.         http_processing_failed     = 3
     
130.         http_invalid_timeout       = 4
     
131.         OTHERS                     = 5.
     
132. 
     
133.     CALL METHOD http_client->receive
     
134.       EXCEPTIONS
     
135.         http_communication_failure = 1
     
136.         http_invalid_state         = 2
     
137.         http_processing_failed     = 3
     
138.         OTHERS                     = 4.
     
139. 
     
140. 
     
141.     content = http_client->response->get_data( ).
     
142. 
     
143.     http_client->close( ).
     
144. 
     
145.     l_str_length = xstrlen( content ).
     
146. 
     
147.     CALL FUNCTION 'RSFO_XSTRING_TO_MIME'
     
148.       EXPORTING
     
149.         c_xstring = content
     
150.         i_length  = l_str_length
     
151.       TABLES
     
152.         c_t_mime  = mime.
     
153. 
     
154.   ENDIF.
     
155. 
     
156. ENDFORM.                    " DOWNLOAD_QRCODE
     
157. 
     
158. *&---------------------------------------------------------------------*
     
159. *&      Form  CONVERT_IMAGE
     
160. *&---------------------------------------------------------------------*
     
161. *       text
     
162. *----------------------------------------------------------------------*
     
163. *  -->  p1        text
     
164. *  <--  p2        text
     
165. *----------------------------------------------------------------------*
     
166. 
     
167. FORM convert_image .
     
168. 
     
169.   CREATE OBJECT i_igs_image_converter .
     
170. 
     
171.   i_igs_image_converter->input = 'image/png'.
     
172.   i_igs_image_converter->output = 'image/bmp'.
     
173.   i_igs_image_converter->width = width.
     
174.   i_igs_image_converter->height = height.
     
175. 
     
176.   CALL METHOD i_igs_image_converter->set_image
     
177.     EXPORTING
     
178.       blob      = mime
     
179.       blob_size = l_content_length.
     
180. 
     
181. 
     
182.   CALL METHOD i_igs_image_converter->execute
     
183.     EXCEPTIONS
     
184.       communication_error = 1
     
185.       internal_error      = 2
     
186.       external_error      = 3
     
187.       OTHERS              = 4.
     
188. 
     
189.   IF sy-subrc = 0.
     
190. 
     
191.     CALL METHOD i_igs_image_converter->get_image
     
192.       IMPORTING
     
193.         blob      = blob
     
194.         blob_size = blob_size
     
195.         blob_type = blob_type.
     
196. 
     
197.   ENDIF.
     
198. 
     
199.   IF sy-subrc = 0.
     
200. 
     
201.     IF  p_rad1 = 'X'.
     
202. 
     
203.       CALL SCREEN '9000'.  "Calling the screen for qrcode display
     
204. 
     
205.     ELSE.
     
206. 
     
207.       PERFORM show_smart_form. "calling the smartform for qrcode display
     
208. 
     
209.     ENDIF.
     
210. 
     
211.   ENDIF.
     
212. 
     
213. ENDFORM.                    " CONVERT_IMAGE
     
214. 
     
215. 
     
216. *&---------------------------------------------------------------------*
     
217. *&      Module  STATUS_9000  OUTPUT
     
218. *&---------------------------------------------------------------------*
     
219. *       text
     
220. *----------------------------------------------------------------------*
     
221. 
     
222. MODULE status_9000 OUTPUT.
     
223. 
     
224.   SET PF-STATUS 'PF'.
     
225. 
     
226.   "Creating the object for the container
     
227. 
     
228.   CREATE OBJECT picture_container
     
229.     EXPORTING
     
230.       container_name = 'PICTURECONTROL'.
     
231.   CREATE OBJECT picture_control
     
232.     EXPORTING
     
233.       parent = picture_container.
     
234. 
     
235.   "Calling the screen
     
236. 
     
237.   PERFORM call_screen.
     
238. 
     
239. ENDMODULE.                 " STATUS_9000  OUTPUT
     
240. 
     
241. *&---------------------------------------------------------------------*
     
242. *&      Form  CALL_SCREEN
     
243. *&---------------------------------------------------------------------*
     
244. *       text
     
245. *----------------------------------------------------------------------*
     
246. *  -->  p1        text
     
247. *  <--  p2        text
     
248. *----------------------------------------------------------------------*
     
249. 
     
250. FORM call_screen .
     
251. 
     
252.   "Creating the url of the image for the display in the container in the screen
     
253.   SPLIT blob_type AT '/' INTO blob_type l_img_subtype.
     
254. 
     
255.   CALL FUNCTION 'DP_CREATE_URL'
     
256.     EXPORTING
     
257.       type     = blob_type
     
258.       subtype  = l_img_subtype
     
259.       size     = blob_size
     
260.       lifetime = cndp_lifetime_transaction
     
261.     TABLES
     
262.       data     = blob
     
263.     CHANGING
     
264.       url      = l_img_url
     
265.     EXCEPTIONS
     
266.       OTHERS   = 1.
     
267. 
     
268. 
     
269.   IF sy-subrc IS INITIAL.
     
270.     CALL METHOD picture_control->load_picture_from_url
     
271.       EXPORTING
     
272.         url = l_img_url.
     
273.   ENDIF.
     
274. 
     
275. ENDFORM.                    " CALL_SCREEN
     
276. 
     
277. *&---------------------------------------------------------------------*
     
278. *&      Module  USER_COMMAND_9000  INPUT
     
279. *&---------------------------------------------------------------------*
     
280. *       text
     
281. *----------------------------------------------------------------------*
     
282. MODULE user_command_9000 INPUT.
     
283. 
     
284.   IF sy-ucomm = 'BACK'.
     
285. 
     
286.     LEAVE TO SCREEN 0.
     
287. 
     
288.   ENDIF.
     
289. 
     
290. ENDMODULE.                 " USER_COMMAND_9000  INPUT
     
291. 
     
292. *&---------------------------------------------------------------------*
     
293. *&      Form  SHOW_SMART_FORM
     
294. *&---------------------------------------------------------------------*
     
295. *       text
     
296. *----------------------------------------------------------------------*
     
297. *  -->  p1        text
     
298. *  <--  p2        text
     
299. *----------------------------------------------------------------------*
     
300. 
     
301. FORM show_smart_form .
     
302. 
     
303.   gi_name = 'QRCODE10'.         "name of the qrcode will be in se78 after one time running this program
     
304.   gi_object = 'GRAPHICS'.
     
305.   gi_id = 'BMAP'.
     
306.   gi_btype = 'BCOL'. "If u want black and white pass BMON
     
307.   gi_resident = ' '.
     
308.   gi_autoheight =  'X'.
     
309.   gi_bmcomp = 'X'.
     
310.   l_extension = 'BMP'.
     
311. 
     
312.   "importing the image into se78 before displaying it in the smartform.
     
313. 
     
314.   PERFORM import_bitmap_bds    USING blob
     
315.                                    gi_name
     
316.                                    gi_object
     
317.                                    gi_id
     
318.                                    gi_btype
     
319.                                    l_extension
     
320.                                    ' '
     
321.                                    gi_resident
     
322.                                    gi_autoheight
     
323.                                    gi_bmcomp
     
324.                           CHANGING l_docid
     
325.                                    gi_resolution.
     
326. 
     
327. 
     
328.   IF sy-subrc = 0.
     
329. 
     
330.     DATA:fname TYPE rs38l_fnam.
     
331. 
     
332.     "gettingt the name FM of the smartform
     
333.     CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
     
334.       EXPORTING
     
335.         formname           = 'ZQR_TEST'
     
336. *       VARIANT            = ' '
     
337. *       DIRECT_CALL        = ' '
     
338.       IMPORTING
     
339.         fm_name            = fname
     
340.       EXCEPTIONS
     
341.         no_form            = 1
     
342.         no_function_module = 2
     
343.         OTHERS             = 3.
     
344.     "Calling the FM of the smartform for display
     
345.     CALL FUNCTION fname
     
346.       EXPORTING
     
347. *       ARCHIVE_INDEX    =
     
348. *       ARCHIVE_INDEX_TAB          =
     
349. *       ARCHIVE_PARAMETERS         =
     
350. *       CONTROL_PARAMETERS         =
     
351. *       MAIL_APPL_OBJ    =
     
352. *       MAIL_RECIPIENT   =
     
353. *       MAIL_SENDER      =
     
354. *       OUTPUT_OPTIONS   =
     
355. *       USER_SETTINGS    = 'X'
     
356.         w_name           = 'QRCODE10'
     
357. *  IMPORTING
     
358. *       DOCUMENT_OUTPUT_INFO       =
     
359. *       JOB_OUTPUT_INFO  =
     
360. *       JOB_OUTPUT_OPTIONS         =
     
361.       EXCEPTIONS
     
362.         formatting_error = 1
     
363.         internal_error   = 2
     
364.         send_error       = 3
     
365.         user_canceled    = 4
     
366.         OTHERS           = 5.
     
367.     IF sy-subrc <> 0.
     
368. * Implement suitable error handling here
     
369.     ENDIF.
     
370. 
     
371.   ENDIF.
     
372. 
     
373. ENDFORM.                    " SHOW_SMART_FORM
     
374. 
     
375. *&---------------------------------------------------------------------*
     
376. *&      Form  IMPORT_BITMAP_BDS (Copied from standard program and modified it as per the requirement)
     
377. *&---------------------------------------------------------------------*
     
378. FORM import_bitmap_bds
     
379.         USING    p_blob       TYPE w3mimetabtype
     
380.                  p_name           TYPE stxbitmaps-tdname
     
381.                  p_object         TYPE stxbitmaps-tdobject
     
382.                  p_id             TYPE stxbitmaps-tdid
     
383.                  p_btype          TYPE stxbitmaps-tdbtype
     
384.                  p_format         TYPE c
     
385.                  p_title          LIKE bds_description
     
386.                  p_resident       TYPE stxbitmaps-resident
     
387.                  p_autoheight     TYPE stxbitmaps-autoheight
     
388.                  p_bmcomp         TYPE stxbitmaps-bmcomp
     
389.         CHANGING p_docid          TYPE stxbitmaps-docid
     
390.                  p_resolution     TYPE stxbitmaps-resolution.
     
391. 
     
392. 
     
393.   DATA: l_object_key TYPE sbdst_object_key.
     
394.   DATA: l_tab        TYPE ddobjname.
     
395. 
     
396.   DATA: BEGIN OF l_bitmap OCCURS 0,
     
397.           l(64) TYPE x,
     
398.         END OF l_bitmap.
     
399. 
     
400.   DATA: l_filename        TYPE string,
     
401.         l_bytecount       TYPE i,
     
402.         l_bds_bytecount   TYPE i.
     
403.   DATA: l_color(1)        TYPE c,
     
404. 
     
405.         l_width_tw        TYPE stxbitmaps-widthtw,
     
406.         l_height_tw       TYPE stxbitmaps-heighttw,
     
407.         l_width_pix       TYPE stxbitmaps-widthpix,
     
408.         l_height_pix      TYPE stxbitmaps-heightpix.
     
409.   DATA: l_bds_object      TYPE REF TO cl_bds_document_set,
     
410.         l_bds_content     TYPE sbdst_content,
     
411.         l_bds_components  TYPE sbdst_components,
     
412.         wa_bds_components TYPE LINE OF sbdst_components,
     
413.         l_bds_signature   TYPE sbdst_signature,
     
414.         wa_bds_signature  TYPE LINE OF sbdst_signature,
     
415.         l_bds_properties  TYPE sbdst_properties,
     
416.         wa_bds_properties TYPE LINE OF sbdst_properties.
     
417. 
     
418.   DATA  wa_stxbitmaps TYPE stxbitmaps.
     
419. 
     
420. 
     
421. 
     
422. * Enqueue
     
423.   PERFORM enqueue_graphic USING p_object
     
424.                                 p_name
     
425.                                 p_id
     
426.                                 p_btype.
     
427. 
     
428. 
     
429. * Bitmap conversion
     
430.   CALL FUNCTION 'SAPSCRIPT_CONVERT_BITMAP_BDS'
     
431.     EXPORTING
     
432.       color                    = 'X'
     
433.       format                   = p_format
     
434.       resident                 = p_resident
     
435.       bitmap_bytecount         = l_bytecount
     
436.       compress_bitmap          = p_bmcomp
     
437.     IMPORTING
     
438.       width_tw                 = l_width_tw
     
439.       height_tw                = l_height_tw
     
440.       width_pix                = l_width_pix
     
441.       height_pix               = l_height_pix
     
442.       dpi                      = p_resolution
     
443.       bds_bytecount            = l_bds_bytecount
     
444.     TABLES
     
445.       bitmap_file              = p_blob
     
446.       bitmap_file_bds          = l_bds_content
     
447.     EXCEPTIONS
     
448.       format_not_supported     = 1
     
449.       no_bmp_file              = 2
     
450.       bmperr_invalid_format    = 3
     
451.       bmperr_no_colortable     = 4
     
452.       bmperr_unsup_compression = 5
     
453.       bmperr_corrupt_rle_data  = 6
     
454.       OTHERS                   = 7.
     
455. 
     
456.   IF sy-subrc <> 0.
     
457. 
     
458.     PERFORM dequeue_graphic USING p_object
     
459.                                   p_name
     
460.                                   p_id
     
461.                                   p_btype.
     
462.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     
463.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
     
464.     RAISING conversion_failed.
     
465. 
     
466.   ENDIF.
     
467. 
     
468. 
     
469. 
     
470. * Save bitmap in BDS
     
471.   CREATE OBJECT l_bds_object.
     
472. 
     
473.   wa_bds_components-doc_count  = '1'.
     
474.   wa_bds_components-comp_count = '1'.
     
475.   wa_bds_components-mimetype   = c_bds_mimetype.
     
476.   wa_bds_components-comp_size  = l_bds_bytecount.
     
477.   APPEND wa_bds_components TO l_bds_components.
     
478. 
     
479.   IF p_docid IS INITIAL.          " graphic is new
     
480. 
     
481.     wa_bds_signature-doc_count = '1'.
     
482.     APPEND wa_bds_signature TO l_bds_signature.
     
483. 
     
484. 
     
485.     CALL METHOD l_bds_object->create_with_table
     
486.       EXPORTING
     
487.         classname  = c_bds_classname
     
488.         classtype  = c_bds_classtype
     
489.         components = l_bds_components
     
490.         content    = l_bds_content
     
491.       CHANGING
     
492.         signature  = l_bds_signature
     
493.         object_key = l_object_key
     
494.       EXCEPTIONS
     
495.         OTHERS     = 1.
     
496. 
     
497.     IF sy-subrc <> 0.
     
498. 
     
499.       PERFORM dequeue_graphic USING p_object
     
500.                                     p_name
     
501.                                     p_id
     
502.                                     p_btype.
     
503. *      message e285 with p_name  'BDS'.
     
504. 
     
505.     ENDIF.
     
506. 
     
507.     READ TABLE l_bds_signature INDEX 1 INTO wa_bds_signature
     
508.     TRANSPORTING doc_id.
     
509. 
     
510.     IF sy-subrc = 0.
     
511. 
     
512.       p_docid = wa_bds_signature-doc_id.
     
513. 
     
514.     ELSE.
     
515. 
     
516.       PERFORM dequeue_graphic USING p_object
     
517.                                     p_name
     
518.                                     p_id
     
519.                                     p_btype.
     
520. *      message e285 with p_name 'BDS'.
     
521. 
     
522.     ENDIF.
     
523. 
     
524.   ELSE.                " graphic already exists
     
525. 
     
526. ********* read object_key for faster access *****
     
527.     CLEAR l_object_key.
     
528.     SELECT SINGLE * FROM stxbitmaps INTO wa_stxbitmaps
     
529.         WHERE tdobject = p_object
     
530.           AND tdid     = p_id
     
531.           AND tdname   = p_name
     
532.           AND tdbtype  = p_btype.
     
533. 
     
534.     SELECT SINGLE tabname FROM bds_locl INTO l_tab
     
535.        WHERE classname = c_bds_classname
     
536.           AND classtype = c_bds_classtype.
     
537. 
     
538.     IF sy-subrc = 0.
     
539. 
     
540.       SELECT SINGLE object_key FROM (l_tab) INTO l_object_key
     
541.         WHERE loio_id = wa_stxbitmaps-docid+10(32)
     
542.           AND classname = c_bds_classname
     
543.             AND classtype = c_bds_classtype.
     
544. 
     
545.     ENDIF.
     
546. 
     
547. ******** read object_key end ********************
     
548. 
     
549.     CALL METHOD l_bds_object->update_with_table
     
550.       EXPORTING
     
551.         classname     = c_bds_classname
     
552.         classtype     = c_bds_classtype
     
553.         object_key    = l_object_key
     
554.         doc_id        = p_docid
     
555.         doc_ver_no    = '1'
     
556.         doc_var_id    = '1'
     
557.       CHANGING
     
558.         components    = l_bds_components
     
559.         content       = l_bds_content
     
560.       EXCEPTIONS
     
561.         nothing_found = 1
     
562.         OTHERS        = 2.
     
563. 
     
564.     IF sy-subrc = 1.   " inconsistency STXBITMAPS - BDS; repeat check in
     
565. 
     
566.       wa_bds_signature-doc_count = '1'.
     
567.       APPEND wa_bds_signature TO l_bds_signature.
     
568. 
     
569.       CALL METHOD l_bds_object->create_with_table
     
570.         EXPORTING
     
571.           classname  = c_bds_classname
     
572.           classtype  = c_bds_classtype
     
573.           components = l_bds_components
     
574.           content    = l_bds_content
     
575.         CHANGING
     
576.           signature  = l_bds_signature
     
577.           object_key = l_object_key
     
578.         EXCEPTIONS
     
579.           OTHERS     = 1.
     
580. 
     
581.       IF sy-subrc <> 0.
     
582.         PERFORM dequeue_graphic USING p_object
     
583.                                       p_name
     
584.                                       p_id
     
585.                                       p_btype.
     
586. *        message e285 with p_name 'BDS'.
     
587. 
     
588.       ENDIF.
     
589. 
     
590.       READ TABLE l_bds_signature INDEX 1 INTO wa_bds_signature
     
591.       TRANSPORTING doc_id.
     
592.       IF sy-subrc = 0.
     
593.         p_docid = wa_bds_signature-doc_id.
     
594.       ELSE.
     
595. 
     
596.         PERFORM dequeue_graphic USING p_object
     
597.                                       p_name
     
598.                                       p_id
     
599.                                       p_btype.
     
600. 
     
601. *        message e285 with p_name 'BDS'.
     
602. 
     
603.       ENDIF.
     
604. 
     
605.     ELSEIF sy-subrc = 2.
     
606. 
     
607.       PERFORM dequeue_graphic USING p_object
     
608.                                     p_name
     
609.                                     p_id
     
610.                                     p_btype.
     
611. 
     
612. *      message e285 with p_name 'BDS'.
     
613. 
     
614.     ENDIF.
     
615. 
     
616.   ENDIF.
     
617. 
     
618. * Save bitmap header in STXBITPMAPS
     
619.   wa_stxbitmaps-tdname     = p_name.
     
620.   wa_stxbitmaps-tdobject   = p_object.
     
621.   wa_stxbitmaps-tdid       = p_id.
     
622.   wa_stxbitmaps-tdbtype    = p_btype.
     
623.   wa_stxbitmaps-docid      = p_docid.
     
624.   wa_stxbitmaps-widthpix   = l_width_pix.
     
625.   wa_stxbitmaps-heightpix  = l_height_pix.
     
626.   wa_stxbitmaps-widthtw    = l_width_tw.
     
627.   wa_stxbitmaps-heighttw   = l_height_tw.
     
628.   wa_stxbitmaps-resolution = p_resolution.
     
629.   wa_stxbitmaps-resident   = p_resident.
     
630.   wa_stxbitmaps-autoheight = p_autoheight.
     
631.   wa_stxbitmaps-bmcomp     = p_bmcomp.
     
632.   INSERT INTO stxbitmaps VALUES wa_stxbitmaps.
     
633. 
     
634.   IF sy-subrc <> 0.
     
635. 
     
636.     UPDATE stxbitmaps FROM wa_stxbitmaps.
     
637. 
     
638.     IF sy-subrc <> 0.
     
639. 
     
640. *       message e285 with p_name 'STXBITMAPS'.
     
641. 
     
642.     ENDIF.
     
643. 
     
644.   ENDIF.
     
645. 
     
646. 
     
647. 
     
648. * Set description in BDS attributes
     
649. 
     
650.   wa_bds_properties-prop_name  = 'DESCRIPTION'.
     
651.   wa_bds_properties-prop_value = p_title.
     
652.   APPEND wa_bds_properties TO l_bds_properties.
     
653. 
     
654. 
     
655.   CALL METHOD l_bds_object->change_properties
     
656.     EXPORTING
     
657.       classname  = c_bds_classname
     
658.       classtype  = c_bds_classtype
     
659.       object_key = l_object_key
     
660.       doc_id     = p_docid
     
661.       doc_ver_no = '1'
     
662.       doc_var_id = '1'
     
663.     CHANGING
     
664.       properties = l_bds_properties
     
665.     EXCEPTIONS
     
666.       OTHERS     = 1.
     
667. 
     
668.   PERFORM dequeue_graphic USING p_object
     
669.                                 p_name
     
670.                                 p_id
     
671.                                 p_btype.
     
672. 
     
673. 
     
674. 
     
675. ENDFORM.
     
676. 
     
677. *&---------------------------------------------------------------------*
     
678. *&      Form  ENQUEUE_GRAPHIC
     
679. *&---------------------------------------------------------------------*
     
680. * Enqueue of graphics stored in BDS
     
681. *----------------------------------------------------------------------*
     
682. 
     
683. FORM enqueue_graphic USING p_object
     
684.                            p_name
     
685.                            p_id
     
686.                            p_btype.
     
687. 
     
688. 
     
689.   CALL FUNCTION 'ENQUEUE_ESSGRABDS'
     
690.     EXPORTING
     
691. *     MODE_STXBITMAPS = 'E'
     
692.       tdobject     = p_object
     
693.       tdname       = p_name
     
694.       tdid         = p_id
     
695.       tdbtype      = p_btype
     
696. *     X_TDOBJECT   = ' '
     
697. *     X_TDNAME     = ' '
     
698. *     X_TDID       = ' '
     
699. *     X_TDBTYPE    = ' '
     
700. *     _SCOPE       = '2'
     
701. *     _WAIT        = ' '
     
702. *     _COLLECT     = ' '
     
703.     EXCEPTIONS
     
704.       foreign_lock = 1
     
705.       OTHERS       = 2.
     
706. 
     
707.   IF sy-subrc <> 0.
     
708.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     
709.           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
     
710.     RAISING enqueue_failed.
     
711.   ENDIF.
     
712. 
     
713. ENDFORM.                    " ENQUEUE_GRAPHIC
     
714. 
     
715. 
     
716. 
     
717. *&---------------------------------------------------------------------*
     
718. *&      Form  DEQUEUE_GRAPHIC
     
719. *&---------------------------------------------------------------------*
     
720. * Dequeue of graphics stored in BDS
     
721. *----------------------------------------------------------------------*
     
722. 
     
723. FORM dequeue_graphic USING p_object
     
724.                            p_name
     
725.                            p_id
     
726.                            p_btype.
     
727. 
     
728.   CALL FUNCTION 'DEQUEUE_ESSGRABDS'
     
729.     EXPORTING
     
730. *     MODE_STXBITMAPS = 'E'
     
731. *     X_TDOBJECT      = ' '
     
732. *     X_TDNAME = ' '
     
733. *     X_TDID   = ' '
     
734. *     X_TDBTYPE       = ' '
     
735. *     _SCOPE   = '3'
     
736. *     _SYNCHRON       = ' '
     
737. *     _COLLECT = ' '
     
738.       tdobject = p_object
     
739.       tdname   = p_name
     
740.       tdid     = p_id
     
741.       tdbtype  = p_btype.
     
742. 
     
743. ENDFORM.                    " DEQUEUE_GRAPHIC

复制代码

创建一个screen 9000，并创建逻辑流；在屏幕上创建一个 acustom control，命名‘PICTURECONTROL’。

5、执行程序调试

Show Qrcode in the screen

Show Qrcode in the smartform


6、在线提供二维码接口的网站
二维码 API接口参数
还有很多参数，实现各种酷炫效果，拿去！

这个需要下载工具么，二维码的。