Component Usage – Part 2 (Call Method of another ABAP WebDynpro with Popup)

In this example, I will detail all the steps required to call a method of one ABAP WebDynpro application from within another ABAP WebDynpro application.  This demonstration differs from my last similar example in that it displays a popup window which is defined in the shared component. However, you have the ability to create your own local events for handling the buttons pressed. 

Part 1:

Step 1:  Create an ABAP WebDynpro component with a method to share with other WD apps.

ABAP DynPro Name: ZWD_CMP_SHARED_POPUPS

Step 2:  Create an attribute of the COMPONENTCONTROLLER called POPUP_WINDOW of type IF_WD_WINDOW.

Step 3:  Create a new view called V_POPUP_OK and a new window called W_POPUP_OK.

Set Width (400px) and Height (300px) properties on the ROOTUIELEMENTCONTAINER of the View

Then embed the View onto the Window:

Step 4:  Create a method called POPUP_OK (check as Interface) on the Component Controller.

method popup_ok .

  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 current_action    type wdapi_action.

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

  call method lo_window_manager->create_window
    exporting
      window_name          = ‘W_POPUP_OK’
      title                = ‘Confirmation’
      message_display_mode = if_wd_window=>co_msg_display_mode_selected
      close_in_any_case    = abap_true
      button_kind          = if_wd_window=>co_buttons_yesno
      message_type         = if_wd_window=>co_msg_type_none
      default_button       = if_wd_window=>co_button_no
      close_button         = abap_false
      modal                = abap_true
    receiving
      window               = wd_this->popup_window.

  wd_this->popup_window->set_window_position( position = if_wd_window=>co_center ).
  wd_this->popup_window->open( ).
  wd_this->popup_window->subscribe_to_button_event(
                                     button = if_wd_window=>co_button_yes
                                     action_name = ‘YES’
                                     action_view = lo_api ).
  wd_this->popup_window->subscribe_to_button_event(
                                     button = if_wd_window=>co_button_no
                                     action_name = ‘NO’
                                     action_view = lo_api ).

  free lo_window_manager.
  if sy–subrc ne 0.
  endif.
  free lo_api_component.
  if sy–subrc ne 0.
  endif.

endmethod.

Step 5:  Create another ABAP WebDynpro application to call this shared popup.

On the Used Components tab, add an entry for your ZWD_CMP_SHARED_POPUPS component

Step 6:  In the main view, create a Component Usage for both the Shared Component and the Shared Component’s Interface Controller.

Step 7:  In the same main view, create two event handlers for the popup responses

*you can choose your own code to add in these events (if any at all).

Step 8:  Add the following code to the hook method: WDDOINIT.

method wddoinit .

* Use the Wizard to Instantiate the Used Component
  data lo_cmp_usage type ref to if_wd_component_usage.
  lo_cmp_usage = wd_this->wd_cpuse_zwd_cmp_shared_popups( ).
  if lo_cmp_usage->has_active_component( ) is initial.
    lo_cmp_usage->create_component( ).
  endif.

* Use the Wizard to call the method of the Used Component
  data lo_api type ref to if_wd_view_controller.
  data lo_interfacecontroller type ref to ziwci_wd_cmp_shared_popups .
  lo_api = wd_this->wd_get_api( ).
  lo_interfacecontroller = wd_this->wd_cpifc_zwd_cmp_shared_popups( ).
  lo_interfacecontroller->popup_ok( lo_api = lo_api ).

endmethod.

That’s it…  Test your application to see if it correctly calls the shared component and displays the popup.