Saturday, January 5, 2013

Call SAP Tcode using Webdynpro for ABAP

If you have a requirement to Call SAP standard Transaction code from Webbrowser in your webdynpro Application than check it out this article to know how can achive this.


Problem Description
It will help to call SAP Tcode from the Webbrowser using webdynpro for ABAP.
Solution Description
SAP Internet Transaction Server (ITS) – The ITS is the interface between the Internet and R/3  and is the runtime engine that links Web server to the R/3 Application server. So to display a standard tcode in your webdynpro application you can use ITS.
Setting needs to be Done.
Go to SE80 : In the top menu choose “Utilities(M)” –> “settings”. Right-click on the tab-arrow until you come to tab “Internet Transaction Server”.
Make sure that “Publish” tabe and check mark “Integrated ITS” is selected.
Start transaction “SE80″. Choose “Internet Service” from the first drop down box  Enter “SYSTEM” in the input field.  You will see the ITS service SYSTEM and its components in a tree structure. Right click on “SYSTEM” in the tree and select “Publish” –> “Complete Service” to publish the service.  once the publishing is completed the system will issue a message “Object published successfully; site INTERNAL”.
Repeat the previous step with “SHUFFLER” and “WEBGUI” instead of “SYSTEM” to publish both, too.
How to test it::
Enter Tcode SICF.
Select the path as : /sap/bc/gui/sap/its/webgui
Right click on webgui and click on “test” to execute the servies.it will open the sap screen in web browser.
Now it’s time for some coding. create LINK to URL or LINK TO ACTION according to requirement.  the code below is develop having scinario ::
Users are displyed creating link to userid coloumn. Whenever end user click on the any of the user id.  on_click method will be called wih open the user details in SU01D  Befor that get the path of the application server. you can find it in webdynpro application. doble clcik on webdynpro application in that you can find the URL  in Administrative data.
data: lr_node type ref to if_wd_context_node,
lt_event_properties type table of IF_MAIN=>element_event_properties,
ls_event_properties type IF_MAIN=>element_event_properties.

data:  lo_window_manager type ref to if_wd_window_manager.
data:  lo_api_component  type ref to if_wd_component.
data:  lo_window         type ref to if_wd_window.
data:  ld_url type string.
DATA : FINAL_URL TYPE STRING.

field-symbols: <l_value> type any.
*fill internal table
ls_event_properties-name = ‘COLUMN_ID’.
ls_event_properties-value = r_param->column.
append ls_event_properties to lt_event_properties.

ls_event_properties-name = ‘INDEX’.
ls_event_properties-value = r_param->index.
append ls_event_properties to lt_event_properties.

ls_event_properties-name = ‘ATTRIBUTE’.
ls_event_properties-value = r_param->attribute.
append ls_event_properties to lt_event_properties.

assign r_param->value->* to <l_value>.
ls_event_properties-name = ‘VALUE’.
ls_event_properties-value = <l_value>.
append ls_event_properties to lt_event_properties.

* navigate to context node EVENT_PROPERTIES
lr_node = wd_context->get_child_node( ‘EVENT_PROPERTIES’ ).

* bind internal table to context node
lr_node->bind_table( lt_event_properties ).

FINAL_URL = ‘http://<url>:portno/sap/bc/gui/sap/its/webgui?~TRANSACTION=SU01D%20USR02-BNAME=’.
CONCATENATE  FINAL_URL ls_event_properties-value INTO FINAL_URL.
CONCATENATE  FINAL_URL ‘&~OKCODE=SHOW’ INTO FINAL_URL.

lo_api_component  = wd_comp_controller->wd_get_api( ).
lo_window_manager = lo_api_component->get_window_manager( ).

ld_url = FINAL_URL.
CALL METHOD lo_window_manager->CREATE_EXTERNAL_WINDOW
EXPORTING     URL                = ld_url
RECEIVING    WINDOW         = lo_window.
lo_window->open( ).
Post a Comment