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 ).