How to create ALV as a POPUP in abap web dynpro?

Question

I have a requirement to display an ALV report as a popup for ESS application in HR module. Data fetching and binding is done in component controller
WDINIT method and it is displaying ALV in ESS. Now my requirement is to show this alv as a popup in ESS, I have used the method "Generate_Popup" using wizard however it is showing error that "Instance is already used for window".
Please let me know how to create POPUP alv where data fetching is done in "Component controller" hence I have only 1 view and 1 window in my web dynpro program.
Below is the logic for data fetching and data binding in WDINIT method of "Component controller":
method WDDOINIT .
  DATA: lv_pernr type p0105-PERNR,
        lv_user  TYPE P0105-USRID.
  lv_user = sy-uname.
   CALL FUNCTION 'RP_GET_PERNR_FROM_USERID'
     EXPORTING
       begda           = sy-datum
       endda           = sy-datum
       usrid           = lv_user
       usrty           = '0001'
    IMPORTING
      USR_PERNR        = lv_pernr
    EXCEPTIONS
      RETCD            = 1
      OTHERS           = 2.
IF sy-subrc = 0.
TYPES: BEGIN OF ty_pa2001,
             PERNR TYPE PERSNO,
             SUBTY TYPE SUBTY,
             ENDDA TYPE ENDDA,
             BEGDA TYPE BEGDA,
             END OF   ty_pa2001.
      DATA: lt_pa2001 TYPE TABLE OF ty_pa2001.
"Changes by shiromani
      DATA lo_nd_node_pernr TYPE REF TO if_wd_context_node.
      DATA lo_el_node_pernr TYPE REF TO if_wd_context_element.
      DATA ls_node_pernr TYPE wd_this->element_node_pernr.
*    navigate from <CONTEXT> to <NODE_PERNR> via lead selection
      lo_nd_node_pernr = wd_context->get_child_node( name = wd_this->wdctx_node_pernr ).
*    get element via lead selection
      lo_el_node_pernr = lo_nd_node_pernr->get_element( ).
*    @TODO handle not set lead selection
      IF lo_el_node_pernr IS INITIAL.
      ENDIF.
*    get all declared attributes
      lo_el_node_pernr->get_static_attributes(
        IMPORTING
          static_attributes = ls_node_pernr ).
SELECT PERNR
        SUBTY
        ENDDA
        BEGDA FROM pa2001
INTO CORRESPONDING FIELDS OF TABLE lt_pa2001
WHERE pernr = lv_pernr AND subty = 'ITEL'.
if sy-subrc = 0.
   DATA lo_nd_node_details TYPE REF TO if_wd_context_node.
   DATA lo_el_node_details TYPE REF TO if_wd_context_element.
   DATA ls_node_details TYPE wd_this->element_node_details.
* navigate from <CONTEXT> to <NODE_DETAILS> via lead selection
   lo_nd_node_details = wd_context->get_child_node( name = wd_this->wdctx_node_details ).
* get element via lead selection
   lo_el_node_details = lo_nd_node_details->get_element( ).
   lo_nd_node_details->bind_table( lt_pa2001 ).
* alternative access  via index
ENDIF.
ENDIF.
endmethod.

Answer 1

Hi
You ca use this function to Create a new window..
  CALL METHOD wd_window->create_window
      EXPORTING
        modal             = abap_true
        window_name       = 'MMPUR_CPPR_RFQ_WDW'
        title             = lv_otr_text
        close_button      = abap_true
        button_kind       = 3
        close_in_any_case = abap_true
      RECEIVING
        window            = wd_comp_controller->window.
    wd_comp_controller->window->open( ).
here you acn impliment buttons, if you want to subcribe window button please use this window subcribe method.
    CALL METHOD wd_comp_controller->window->subscribe_to_button_event
      EXPORTING
        button            = if_wd_window=>co_button_ok
        action_name       = 'RFQ_WT_VENDOR'
        action_view       = l_api
        is_default_button = abap_false
        button_text       = lv_otr_text
        tooltip           = lv_otr_text.
    wd_comp_controller->window->open( ).
Please let me know if you have any issue. Please reword if its solve your problem.
Regards
Satrajit