Passing Data to Webdynpro from normal module pool screen

Question

Hi,
I am working on a requireent, where I have a normal screen with some fields and a button. When I click on the button I want to navigate to the webdynpro screen and also pass the data from the screen to web dynpro.
Any suggestion is really appriciated.
Thanks
Sanjaya

Answer 1

Hi Sanjaya,
  DATA lv_app TYPE swfvtv-vval.
  DATA lv_url TYPE string.
  DATA lv_url_pre TYPE string.
  DATA lv_url_suff TYPE string.
  DATA lv_task TYPE swfvtv-task.
  DATA lv_memid TYPE string.
  DATA lt_param TYPE tihttpnvp.
  DATA ls_param TYPE LINE OF tihttpnvp.
  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.
Get Application Name.
  lv_task = sworklist-external_type.
  DATA lt_swfvtv TYPE TABLE OF swfvtv.
  DATA ls_swfvtv TYPE swfvtv.
Get WD parameters
  SELECT *
  FROM   swfvtv
  INTO   CORRESPONDING FIELDS OF TABLE lt_swfvtv
  WHERE  task EQ lv_task
  AND    vtyp EQ 'WD_ABAP'.
  IF sy-subrc NE 0.
    RAISE not_found.
  ENDIF.
Create application name in PAPPL
Get namespace
  READ TABLE lt_swfvtv INTO ls_swfvtv WITH KEY vpar = 'NAMESPACE' .
  IF sy-subrc EQ 0.
    CONCATENATE pappl ls_swfvtv-vval INTO pappl SEPARATED BY '/'.
  ENDIF.
Get application name
  READ TABLE lt_swfvtv INTO ls_swfvtv WITH KEY vpar = 'APPLICATION' .
  IF sy-subrc EQ 0.
    CONCATENATE pappl ls_swfvtv-vval INTO pappl SEPARATED BY '/'.
  ENDIF.
Construct URL for application name.
  lv_url = pappl.
  CALL METHOD cl_wd_utilities=>construct_wd_url
    EXPORTING
      application_name = lv_url
      in_parameters    = lt_param
    IMPORTING
      out_absolute_url = lv_url.
  SPLIT lv_url AT '?' INTO lv_url_pre lv_url_suff.
  IF lv_url_suff IS NOT INITIAL.
    CONCATENATE '&' lv_url_suff INTO lv_url_suff.
  ENDIF.
  CONCATENATE lv_url_pre '?sap-client=' sy-mandt '&sap-language=' sy-langu lv_url_suff '&WI_ID=' sworklist-external_id
INTO   lv_url.
Create window for application.
  lo_api_component  = wd_this->wd_get_api( ).
  lo_window_manager = lo_api_component->get_window_manager( ).
  lo_window         = lo_window_manager->create_external_window(
                        url = lv_url
                        has_menubar = abap_false
                        has_toolbar = abap_false
                        has_location = abap_false ).
  lo_window->set_window_size( width = '700' height = '500' ).
  lo_window->open( ).
This is the code to generate the URL for a Web Dynpro Application.
modify the code according to need.
Hope this will help you.
Thanks &Regards,
Arvind
Hey i dont know why is this coming like this when posted.
Copy-paste this in modify in editor.
Edited by: Arvind Patel on Jun 16, 2010 2:35 PM