【原创】【ABAP】Opening SAP Transaction Code in SAP GUI Window from WebDynpro through

lee_hirisun

　　有很多种方法在浏览器中打开SAP GUI窗口
　　第一种方式：在portal中创建带有TCode的iview，在webdynpro中调用该iview。可参考以下链接，说明很详细，还带有图片。
　　http://www.saptechnical.com/Tutorials/WebDynproABAP/SAPGUI/Index.htm
　　第二种方式：在桌面建立一个sap的shortcut，配置好相关信息后，把该文件上传至MIME repository,然后webdynpro中直接打开该文件。操作步骤如下：
　　1. Create an SAP shortcut on the desktop. Choose 'Transaction' as type, input the Tcode,system, client, login id, password, etc.

　　2. Upload this shortcut file to MIME repository of your WebDynpro. Find its path in the server.
　　3. Create a new action, write the code as below.



METHOD onactionopense80 .
DATA: lo_window_manager TYPE REF TO if_wd_window_manager,
lo_api_component  TYPE REF TO if_wd_component,
lo_window         TYPE REF TO if_wd_window,
lv_url            TYPE string.
lo_api_component = wd_comp_controller->wd_get_api( ).
lo_window_manager = lo_api_component->get_window_manager( ).
lv_url = 'http://hostserver:50075/sap/bc/webdynpro/sap/yzr_test/se80.sap'.
lo_window_manager->create_external_window(
EXPORTING
url = lv_url
RECEIVING
window = lo_window ).
lo_window->open( ).
ENDMETHOD.

　　here, yzr_test is your webdynpro component name; se80.sap is your shortcut name.
　　4. Done and test.
　　第三种方式：利用ICF service 去动态创建shortcut，而不是从MIME中读取文件。这种方式与第二种有点类似，只是获取shortcut的方式不同。
　　操作步骤如下：
　　1. 创建一个ICF service，在绑定的class中调用SWN_CREATE_SHORTCUT function module来产生我们需要的shortcut。通过request->get_form_field来接受传递过来的参数。为了返回文件形式的http response，我们需要在http头上加上'application/x-sapshortcut'标识。



METHOD if_http_extension~handle_request.
DATA lv_ftorg  TYPE string.
DATA lv_content TYPE string.
lv_ftorg = server->request->get_form_field( 'ftorg' ).
IF lv_ftorg IS INITIAL.
RETURN.
ENDIF.
CALL METHOD create_shortcut(
EXPORTING
iv_ftorg   = lv_ftorg
IMPORTING
ev_content = lv_content ).
server->response->set_header_field(
name  = 'Content-Type'
value = 'application/x-sapshortcut' ).
server->response->set_cdata( lv_content ).
ENDMETHOD.

　　
create_shortcut内的代码：
　　




  CALL FUNCTION 'SWN_CREATE_SHORTCUT'
EXPORTING
i_transaction           = 'SE80'
i_parameter             = 'S_FTORG-LOW=FTO_FR2200'
i_sysid                 = sy-sysid
i_client                = sy-mandt
i_user                  = sy-uname
i_language              = sy-langu
i_windowsize            = 'Maximized'
*     i_windowsize            = 'Normal window'
IMPORTING
shortcut_string         = rv_content
EXCEPTIONS
inconsistent_parameters = 1
OTHERS                  = 2.
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

　　这里，如果需要启动transaction code的时候跳过第一个屏幕，我们可以加一个星号在给定的i_transaction参数里，比如：‘*SE80’. 效果相当于CALL TRANSACTION 'SE80' AND SKIP FIRST SCREEN中的AND SKIP FIRST SCREEN功能。另外SWN_CREATE_SHORTCUT有一个限制，就是传入的tcode不能超过20个字符。如果你的tcode超过20个字符，比如在我的tcode之前加一个*号后达到21个字符，就没办法调用这个function。这时只能自己拼接shortcut的内容了。



  CONCATENATE '[System]' cl_abap_char_utilities=>cr_lf
'Name=' sy-sysid cl_abap_char_utilities=>cr_lf
'Description=' sy-sysid cl_abap_char_utilities=>cr_lf
'Client=' sy-mandt cl_abap_char_utilities=>cr_lf
'[User]' cl_abap_char_utilities=>cr_lf
'Name=' sy-uname cl_abap_char_utilities=>cr_lf
'Language=' sy-langu cl_abap_char_utilities=>cr_lf
'[Function]' cl_abap_char_utilities=>cr_lf
'Title=' cl_abap_char_utilities=>cr_lf
'Command=*SE80 S_FTORG-LOW=' iv_ftorg cl_abap_char_utilities=>cr_lf
'Type=Transaction' cl_abap_char_utilities=>cr_lf
'[Configuration]' cl_abap_char_utilities=>cr_lf
'GuiSize=Maximized' cl_abap_char_utilities=>cr_lf
INTO ev_content.

　　2. webdynpro中调用该ICF service.
　　http://hostname/sap/gts/yzr_icf_test
　　3. done.
　　References:
　　https://forums.sdn.sap.com/thread.jspa?threadID=257365&tstart=50
　　http://www.saptechnical.com/Tutorials/WebDynproABAP/SAPGUI/Index.htm