在sap中调用浏览器打开url网页

1、创建 screen 2000
在标准屏幕2000上画一个customer container

定义屏幕按钮

逻辑流

1. PROCESS BEFORE OUTPUT.
   
2. MODULE STATUS_2000.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5. MODULE USER_COMMAND_2000.

复制代码

2、创建 module pool program

1. PROGRAM  ydamon_082.
   
2. DATA:v_or_container TYPE REF TO cl_gui_custom_container,
   
3.      v_or_html_viewer TYPE REF TO cl_gui_html_viewer,
   
4.      g_init,
   
5.      g_frame(225),
   
6.      url(225) VALUE 'https://www.591sap.com/'.
   
7. *&---------------------------------------------------------------------*
   
8. *&      Module  STATUS_2000  OUTPUT
   
9. *&---------------------------------------------------------------------*
   
10. *       text
    
11. *----------------------------------------------------------------------*
    
12. MODULE status_2000 OUTPUT.
    
13.   SET PF-STATUS 'ZSTATUS'.
    
14. *  SET TITLEBAR 'xxx'.
    
15.   IF g_init IS INITIAL.
    
16.     CREATE OBJECT v_or_container
    
17.             EXPORTING container_name = 'CUSTOM'.
    
18.     CREATE OBJECT v_or_html_viewer
    
19.             EXPORTING parent = v_or_container
    
20.             EXCEPTIONS cntl_error = 1
    
21.                        cntl_install_error = 2
    
22.                        dp_install_error = 3
    
23.                        dp_error = 4.
    
24.     g_init = 'X'.
    
25.   ENDIF.
    
26. ENDMODULE.                 " STATUS_2000  OUTPUT
    
27. *&---------------------------------------------------------------------*
    
28. *&      Module  USER_COMMAND_2000  INPUT
    
29. *&---------------------------------------------------------------------*
    
30. *       text
    
31. *----------------------------------------------------------------------*
    
32. MODULE user_command_2000 INPUT.
    
33.   CASE sy-ucomm.
    
34.     WHEN 'SHOW_URL'.
    
35.       CALL METHOD v_or_html_viewer->show_url
    
36.         EXPORTING
    
37.           url        = url
    
38.         EXCEPTIONS
    
39.           cntl_error = 1.
    
40.     WHEN 'EXIT'.
    
41.       LEAVE PROGRAM.
    
42.   ENDCASE.
    
43. ENDMODULE.                 " USER_COMMAND_2000  INPUT

复制代码

3、 module pool program不能直接执行，需定义T-code执行


4、输入T-code，点击按钮，就能看到屏幕调用到浏览器打开的网页了