ABAP 打开网页浏览器

Posted 2021-09-08 狗尾巴草_lan

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.