Sunday, December 19, 2010

Dynamic Modification UI Hierarchy

Create a Web Dynpro Component called Z_DYNAMIC

Create a View called MAIN_VIEW , on the Method tab double-click the WDDOMODIFYVIEW and write the following coding.

method WDDOMODIFYVIEW .
data : lr_textview type ref to cl_wd_text_view.
Data:lr_container type ref to cl_wd_uielement_container,
lr_row_head type ref to cl_wd_row_head_data,
lr_button type ref to cl_wd_button,
lr_input type ref to cl_wd_input_field,
lr_flow_data type ref to cl_wd_flow_data,
lv_child_id type string.
if first_time = 'X'.
lr_button = cl_wd_button=>new_button( view = view
text = 'Create Button'
on_action = 'CLICK' ).
lr_row_head = cl_wd_row_head_data=>new_row_head_data( element = lr_button ).
lr_button->set_layout_data( lr_row_head ).
lr_button->set_tooltip( value = 'Tooltip' ).
lr_flow_data = cl_wd_flow_data=>new_flow_data( element = lr_button ).
lr_container ?= view->get_element( 'ROOTUIELEMENTCONTAINER' ).
lr_container->add_child( lr_button ).
lr_textview = cl_wd_text_view=>new_text_view( view = view
text = 'Welcome to Dynamic Layout Design' ).
lr_row_head = cl_wd_row_head_data=>new_row_head_data( element = lr_textview ).
lr_textview->set_layout_data( lr_row_head ).
lr_flow_data = cl_wd_flow_data=>new_flow_data( element = lr_textview ).
lr_container ?= view->get_element( 'ROOTUIELEMENTCONTAINER' ).
lr_container->add_child( lr_textview ).
endif.
endmethod.

Now create an Action called CLICK in the MAIN_VIEW…. Action Tab.

In the MAIN_VIEW, on the Method tab double-click the ONACTIONCLICK and write the following coding.

method ONACTIONCLICK .
* get message manager
DATA: L_CURRENT_CONTROLLER TYPE REF TO IF_WD_CONTROLLER,
L_MESSAGE_MANAGER TYPE REF TO IF_WD_MESSAGE_MANAGER.
L_CURRENT_CONTROLLER ?= WD_THIS->WD_GET_API( ).
CALL METHOD L_CURRENT_CONTROLLER->GET_MESSAGE_MANAGER
RECEIVING
MESSAGE_MANAGER = L_MESSAGE_MANAGER .
* report message
CALL METHOD L_MESSAGE_MANAGER->REPORT_SUCCESS
EXPORTING
MESSAGE_TEXT = 'Dynamic Event Triggered Successfully' .
endmethod.

Navigate to the window and embed view MAIN_VIEW into the window.

Create a Web Dynpro application for your Web Dynpro component:

Activate your Web Dynpro component and execute.

Output

No comments:

Tutorials on SAP-ABAP

Adobe Interactive Forms Tutorials

Business Server Pages (BSP)

Userexits/BADIs

Web Dynpro for ABAP (Step by step procedure for web dynpro,Tutorials on Web Dynpro,)

ALV Tutorials

Blog Archive

goodsites