SAP ABAP代码中打开浏览器跳转访问URL示例(支持超长URL)
SAP ABAP代码中打开浏览器跳转访问URL(支持超长URL)
代码:
- 方法一:
DATA: LV_OPENURL TYPE C LENGTH 300,
LV_TEMPURL TYPE char50.
" Url可由多个字符串组合
LV_TEMPURL = 'https://'.
CONCATENATE LV_OPENURL LV_TEMPURL INTO LV_OPENURL.
LV_TEMPURL = |baike.baidu.com/item/SAP/40878|.
CONCATENATE LV_OPENURL LV_TEMPURL INTO LV_OPENURL.
call function 'CALL_BROWSER'
EXPORTING
URL = LV_OPENURL
* WINDOW_NAME = ' '
* NEW_WINDOW = ' '
* BROWSER_TYPE =
* CONTEXTSTRING =
EXCEPTIONS
FRONTEND_NOT_SUPPORTED = 1
FRONTEND_ERROR = 2
PROG_NOT_FOUND = 3
NO_BATCH = 4
UNSPECIFIED_ERROR = 5
OTHERS = 6.
if sy-subrc <> 0.
* Implement suitable error handling here
endif.
- 方法二:
DATA LV_URL TYPE SO_TEXT255.
LV_URL = |https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=baidu&wd=abap%20URL&oq=abap&rsv_pq=adf68d5800002aed&rsv_t=|.
LV_URL = |{ LV_URL }4e1bO0c9%2BnfMgoPLUuuurh%2FlZD%2FLCj8YFX7d04cHn0hivUNpA%2BKIZKTQhzk&rqlang=|.
LV_URL = |{ LV_URL }cn&rsv_dl=tb&rsv_enter=1&rsv_sug3=5&rsv_sug1=5&rsv_sug7=100&rsv_sug2=0&rsv_btype=t&inputT=3827&rsv_sug4=4307|.
CALL FUNCTION 'CALL_INTERNET_ADRESS'
EXPORTING
PI_ADRESS = LV_URL
* PI_TECHKEY =
EXCEPTIONS
NO_INPUT_DATA = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
- 方法三:
DATA LV_URL TYPE STRING.
LV_URL = |https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=baidu&wd=abap%20URL&oq=abap&rsv_pq=adf68d5800002aed&rsv_t=|.
LV_URL = |{ LV_URL }4e1bO0c9%2BnfMgoPLUuuurh%2FlZD%2FLCj8YFX7d04cHn0hivUNpA%2BKIZKTQhzk&rqlang=|.
LV_URL = |{ LV_URL }cn&rsv_dl=tb&rsv_enter=1&rsv_sug3=5&rsv_sug1=5&rsv_sug7=100&rsv_sug2=0&rsv_btype=t&inputT=3827&rsv_sug4=4307|.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE
EXPORTING
DOCUMENT = LV_URL
EXCEPTIONS
OTHERS = 1.
- 方法四:
DATA LV_URL TYPE STRING.
LV_URL = |https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=baidu&wd=abap%20URL&oq=abap&rsv_pq=adf68d5800002aed&rsv_t=|.
LV_URL = |{ LV_URL }4e1bO0c9%2BnfMgoPLUuuurh%2FlZD%2FLCj8YFX7d04cHn0hivUNpA%2BKIZKTQhzk&rqlang=|.
LV_URL = |{ LV_URL }cn&rsv_dl=tb&rsv_enter=1&rsv_sug3=5&rsv_sug1=5&rsv_sug7=100&rsv_sug2=0&rsv_btype=t&inputT=3827&rsv_sug4=4307|.
CALL METHOD CL_ABAP_BROWSER=>SHOW_URL
EXPORTING
URL = LV_URL
* TITLE =
* SIZE = CL_ABAP_BROWSER=>MEDIUM
* MODAL = ABAP_TRUE
* PRINTING = ABAP_FALSE
* BUTTONS = NAVIGATE_OFF
* FORMAT = CL_ABAP_BROWSER=>LANDSCAPE
* POSITION = CL_ABAP_BROWSER=>TOPLEFT
* CONTAINER =
* CONTEXT_MENU = ABAP_FALSE
* DIALOG = ABAP_TRUE
.
- 方法五:
DATA:LV_OBJ TYPE SMENSAPNEW-REPORT VALUE 'URL',
LV_URL TYPE SMEN_BUFFI-URL,
LV_REP TYPE SMENSAPNEW-REPORTTYPE VALUE 'OT'.
LV_URL = |https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=baidu&wd=abap%20URL&oq=abap&rsv_pq=adf68d5800002aed&rsv_t=|.
LV_URL = |{ LV_URL }4e1bO0c9%2BnfMgoPLUuuurh%2FlZD%2FLCj8YFX7d04cHn0hivUNpA%2BKIZKTQhzk&rqlang=|.
LV_URL = |{ LV_URL }cn&rsv_dl=tb&rsv_enter=1&rsv_sug3=5&rsv_sug1=5&rsv_sug7=100&rsv_sug2=0&rsv_btype=t&inputT=3827&rsv_sug4=4307|.
CALL FUNCTION 'MENU_START_OBJECT_VIA_INDX'
EXPORTING
OBJECT_NAME = LV_OBJ
REPORTTYPE = LV_REP
* SAP_GUID =
URL = LV_URL
* TARGET_SYSTEM =
.
- Webdynpro中:
DATA LV_URL TYPE STRING.
DATA IF_FPM TYPE REF TO IF_FPM.
DATA IF_NAV TYPE REF TO IF_FPM_NAVIGATE_TO.
DATA LS_URL TYPE FPM_S_LAUNCH_URL.
LV_URL = |https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=baidu&wd=abap%20URL&oq=abap&rsv_pq=adf68d5800002aed&rsv_t=|.
LV_URL = |{ LV_URL }4e1bO0c9%2BnfMgoPLUuuurh%2FlZD%2FLCj8YFX7d04cHn0hivUNpA%2BKIZKTQhzk&rqlang=|.
LV_URL = |{ LV_URL }cn&rsv_dl=tb&rsv_enter=1&rsv_sug3=5&rsv_sug1=5&rsv_sug7=100&rsv_sug2=0&rsv_btype=t&inputT=3827&rsv_sug4=4307|.
IF_FPM = CL_FPM_FACTORY=>GET_INSTANCE( ).
IF_NAV = IF_FPM->GET_NAVIGATE_TO( ).
LS_URL-HEADER_TEXT = 'New Page'.
LS_URL-URL = LV_URL.
LS_PARAMETERS-NAVIGATION_MODE = 'EXTERNAL'.
CALL METHOD IF_NAV->LAUNCH_URL
EXPORTING
IS_URL_FIELDS = LS_URL
IS_ADDITIONAL_PARAMETERS = LS_PARAMETERS.
运行效果
post SAP-Garson
原文链接:https://blog.csdn.net/qq_30797051/article/details/109137563文章来自于网络,如果侵犯了您的权益,请联系站长删除!