How to display Popup message in ABAP Web Dynpro

Question

Hi All,
Is it possible to display popup messages like SAP to collect information from the user? is it possible to display information messages like SAP? If possible, Please let me know how to handle in Web Dynpro.
Thanks & Regards,
IA Kumar.

Answer 1

Agree with the two firend on my head :).
you can find a demo from:   SWDP_TEST（package）-->   WDR_TEST_POPUPS also.
I have a lazy idea, two step:
1. create a popup function module;
2.call the function module;
function module:--Begin--
FUNCTION ZFUNM_CONFIRM .
""Local interface:
*"  IMPORTING
*"     REFERENCE(P_API) TYPE REF TO  IF_WD_VIEW_CONTROLLER
*"     REFERENCE(P_CMP_API) TYPE REF TO  IF_WD_COMPONENT
  DATA:
    L_WINDOW_MANAGER      TYPE REF TO IF_WD_WINDOW_MANAGER,
    L_CMP_API             TYPE REF TO IF_WD_COMPONENT,
    L_API_MAIN            TYPE REF TO IF_WD_VIEW_CONTROLLER,
    L_POPUP               TYPE REF TO IF_WD_WINDOW,
    L_TEXT                TYPE STRING_TABLE.
   wd_this               type ref to IF_MAIN,
   wd_comp_controller    TYPE REF TO IG_COMPONENTCONTROLLER.
   l_api_main = wd_this->wd_get_api( ).
l_cmp_api = wd_comp_controller->wd_get_api( ).
  L_WINDOW_MANAGER = P_CMP_API->GET_WINDOW_MANAGER( ).
  APPEND 'POPUP text' TO L_TEXT.
  L_POPUP = L_WINDOW_MANAGER->CREATE_POPUP_TO_CONFIRM(
              TEXT                   =  L_TEXT
              BUTTON_KIND            = 4
              MESSAGE_TYPE           = 1
              CLOSE_BUTTON           = ''
              WINDOW_TITLE           = 'messagebox Title'
             WINDOW_LEFT_POSITION   = L_CONF_CONTEXT-WINDOW_LEFT_POSITION
             WINDOW_TOP_POSITION    = L_CONF_CONTEXT-WINDOW_TOP_POSITION
             WINDOW_POSITION        = L_CONF_CONTEXT-WINDOW_POSITION
             WINDOW_WIDTH           = L_CONF_CONTEXT-WINDOW_WIDTH
             WINDOW_HEIGHT          = L_CONF_CONTEXT-WINDOW_HEIGHT
  L_POPUP->SUBSCRIBE_TO_BUTTON_EVENT(
          BUTTON             = IF_WD_WINDOW=>CO_BUTTON_YES
          ACTION_NAME        = 'YES'
          ACTION_VIEW        = P_API
          IS_DEFAULT_BUTTON  = ABAP_TRUE ).
  L_POPUP->SUBSCRIBE_TO_BUTTON_EVENT(
          BUTTON             = IF_WD_WINDOW=>CO_BUTTON_NO
          ACTION_NAME        = 'NO'
          ACTION_VIEW        = P_API
          IS_DEFAULT_BUTTON  = ABAP_FALSE ).
  L_POPUP->OPEN( ).
ENDFUNCTION.
function module:--End--
call the function module  Begin----
METHOD ONACTIONDELETE .
  DATA:
    L_API                               TYPE REF TO IF_WD_VIEW_CONTROLLER,
    L_CMP_API                           TYPE REF TO IF_WD_COMPONENT,
    NODE_ZTAB_PROJ                      TYPE REF TO IF_WD_CONTEXT_NODE,
    ELEM_ZTAB_PROJ                      TYPE REF TO IF_WD_CONTEXT_ELEMENT,
    STRU_ZTAB_PROJ                      TYPE IF_ZV_PROJ_DISPLAY=>ELEMENT_ZTAB_PROJ,
    SELECTED_ELEM                       TYPE  WDR_CONTEXT_ELEMENT_SET .
  navigate from <CONTEXT> to <ZTAB_PROJ> via lead selection
  L_API = WD_THIS->WD_GET_API( ).
  L_CMP_API = WD_COMP_CONTROLLER->WD_GET_API( ).
  CALL FUNCTION 'ZFUNM_CONFIRM'
    EXPORTING
      P_API     = L_API
      P_CMP_API = L_CMP_API.
  IF WD_THIS->A_DEL = ''.
    EXIT.
  ENDIF.
  NODE_ZTAB_PROJ = WD_CONTEXT->GET_CHILD_NODE( NAME = IF_ZV_PROJ_DISPLAY=>WDCTX_ZTAB_PROJ ).
  IF ( NODE_ZTAB_PROJ IS INITIAL ).
    EXIT.
  ENDIF.
  ELEM_ZTAB_PROJ = NODE_ZTAB_PROJ->GET_LEAD_SELECTION( ).
  ELEM_ZTAB_PROJ->GET_STATIC_ATTRIBUTES(
    IMPORTING
      STATIC_ATTRIBUTES = STRU_ZTAB_PROJ ).
  DELETE FROM ZTAB_PROJ
  WHERE COMCODE = STRU_ZTAB_PROJ-COMCODE
    AND PROJID  = STRU_ZTAB_PROJ-PROJID.
  WD_THIS->ONACTIONSELECT(
    WDEVENT = WDEVENT                        " Ref to cl_Wd_Custom_Event
LOOP AT selected_elem .
ENDLOOP.
  ELEM_ZTAB_PROJ
  @TODO handle not set lead selection
  alternative access  via index
  Elem_Ztab_Proj = Node_Ztab_Proj->get_Element( Index = 1 ).
  @TODO handle non existant child
  if ( Elem_Ztab_Proj is initial ).
  endif.
  get all declared attributes
ELEM_ZTAB_PROJ->GET_STATIC_ATTRIBUTES(
   IMPORTING
     STATIC_ATTRIBUTES = STRU_ZTAB_PROJ ).
ENDMETHOD.
call the function module  End----