DATA: l_url_str TYPE string. "String to hold another application's
"Absolute URL
DATA: l_window_manager TYPE REF TO if_wd_window_manager.
DATA: l_cmp_api TYPE REF TO if_wd_component.
DATA: l_window TYPE REF TO if_wd_window.
DATA: lt_para TYPE tihttpnvp. "Holding passed in parameters
DATA: lwa_para TYPE ihttpnvp. "Work area for passing in parameters
* Fill pass in parameters
* Appointment type
lwa_para-name = 'ZATYPE'.
lwa_para-value = l_atype.
APPEND lwa_para TO lt_para.
CLEAR lwa_para.
* Request number
lwa_para-name = 'ZREQNO'."Request number
lwa_para-value = lv_req_no.
APPEND lwa_para TO lt_para.
CLEAR lwa_para.
* Get absolute URL of another application
cl_wd_utilities=>construct_wd_url(
EXPORTING
application_name = 'ZGECFWDA0029'
in_parameters = lt_para
IMPORTING
out_absolute_url = l_url_str
).
* Get a reference of window from component
l_cmp_api = wd_comp_controller->wd_get_api( ).
l_window_manager = l_cmp_api->get_window_manager( ).
l_window = l_window_manager->create_external_window(
url = l_url_str
* title = title
* modal = ABAP_FALSE
* has_menubar = ABAP_TRUE
* is_resizable = ABAP_TRUE
* has_scrollbars = ABAP_TRUE
* has_statusbar = ABAP_TRUE
* has_toolbar = ABAP_TRUE
* has_location = ABAP_TRUE
).
l_window->open( ).
转载于:https://www.cnblogs.com/jojozhuang/archive/2011/04/12/2013603.html