SAP GUI 表现SAP UI5应用，并实现SSO同一登陆 - IT评测·应用市场-qidao123.com技术社区

DATA: lo_html_control TYPE REF TO cl_gui_html_viewer,
fcode LIKE sy-ucomm,
lo_container TYPE REF TO cl_gui_custom_container,
lo_http_client TYPE REF TO if_http_client,
lv_url(2048).
START-OF-SELECTION.
SET SCREEN 100.
" 创建屏幕容器
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
IF lo_container IS INITIAL.
lo_container = NEW cl_gui_custom_container(
container_name = 'CO1'
).
ENDIF.
" 创建 HTML 控件
IF lo_html_control IS INITIAL.
lo_html_control = NEW cl_gui_html_viewer(
parent = lo_container
).
IF sy-subrc NE 0.
RAISE cntl_error.
ENDIF.
ENDIF.
" 设置 SAPUI5 应用的 URL（需替换为实际地址）
lv_url = 'https://IP:Port/sap/bc/ui5_ui5/sap/zbook'.
IF sy-subrc = 0.
IF sy-subrc = 0.
* lo_html_control->enable_sapsso( enabled = 'X' ).
"加载页面
lo_html_control->show_url( url = lv_url )."不跳转到浏览器
* lo_html_control->detach_url_in_browser( url = lv_url ).
cl_gui_cfw=>flush( ).
ENDIF.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE fcode.
WHEN 'BACK'.
IF NOT lo_html_control IS INITIAL.
CALL METHOD lo_html_control->free.
FREE lo_html_control.
ENDIF.
IF NOT lo_container IS INITIAL.
CALL METHOD lo_container->free
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
ENDIF.
FREE lo_container.
ENDIF.
LEAVE PROGRAM.
WHEN OTHERS.
CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CLEAR fcode.
ENDMODULE.

复制代码