FUNCTION ZSD_POPUP_WEB_BROWSER.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(IV_URL) TYPE STRING OPTIONAL
*"----------------------------------------------------------------------
IF IV_URL IS INITIAL.
SELECT SINGLE URL FROM ZTSD040 INTO IV_URL WHERE ACTIVE = 'X'.
IF SY-SUBRC <> 0.
MESSAGE I001(00) WITH '请配置要打开的网址!'.
RETURN.
ENDIF.
ENDIF.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE
EXPORTING
DOCUMENT = IV_URL
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC <> 0.
MESSAGE I001(00) WITH '打开浏览器失败!'.
ENDIF.
ENDFUNCTION.
ABAP 打开网页浏览器
最新推荐文章于 2024-04-25 21:53:44 发布