Moderator note: this blog uses classes in the /USE/ namespace. If this namespace does not exist on your implementation, you cannot follow the examples in this blog.
Hi guys,
This is my first blog and I found an interesting subject one week ago about RoadMap but in GUI environment, normally Roadmap is used with Web Dynpros.
This is the code of my program
*---------------------------------------------------------------------* * Description * *--------------------------------------------------------------------* * Program : YTEST_ROADMAP * * Author : David Carballido Córdova * * Date : 22/08/2013 * * Comentarios : Build and show Roadmap * *--------------------------------------------------------------------* REPORT ytest_roadmap. PARAMETERS: p_steps TYPE i OBLIGATORY. *----------------------------------------------------------------------* * CLASS DEFINITION DEFERRED *----------------------------------------------------------------------* CLASS: lcl_main DEFINITION DEFERRED, lcl_event DEFINITION DEFERRED. *----------------------------------------------------------------------* * Global Variables *----------------------------------------------------------------------* DATA: go_main TYPE REF TO lcl_main, g_state TYPE /use/ugu1_state, g_text TYPE char40. *----------------------------------------------------------------------* * CLASS lcl_main DEFINITION *----------------------------------------------------------------------* CLASS lcl_main DEFINITION FINAL. PUBLIC SECTION. METHODS: start_road, state_click IMPORTING i_state_id TYPE /use/ugu1_state, next_step. PRIVATE SECTION. METHODS: init_roadmap. DATA: go_roadmap TYPE REF TO /use/cl_ugu1_html_roadmap, go_custom TYPE REF TO cl_gui_custom_container, go_event TYPE REF TO lcl_event. ENDCLASS. "lcl_main DEFINITION *----------------------------------------------------------------------* * CLASS lcl_event DEFINITION *----------------------------------------------------------------------* CLASS lcl_event DEFINITION FINAL. PUBLIC SECTION. METHODS: state_click FOR EVENT evt_state_click OF /use/cl_ugu1_html_roadmap IMPORTING i_state_id. ENDCLASS. "lcl_event DEFINITION *----------------------------------------------------------------------* * CLASS lcl_main IMPLEMENTATION *----------------------------------------------------------------------* CLASS lcl_main IMPLEMENTATION. METHOD start_road. IF go_custom IS INITIAL. * Instance Container CREATE OBJECT go_custom EXPORTING container_name = 'ROADMAP' EXCEPTIONS cntl_error = 1 cntl_system_error = 2 create_error = 3 lifetime_error = 4 lifetime_dynpro_dynpro_link = 5. IF sy-subrc = 0. * Instance Roadmap CREATE OBJECT go_roadmap EXPORTING i_parent = go_custom i_application_event = abap_true EXCEPTIONS cntl_error = 1. IF sy-subrc <> 0. EXIT. ENDIF. * Instance Event Class CREATE OBJECT go_event. SET HANDLER go_event->state_click FOR go_roadmap. * Initializing Roadmap me->init_roadmap( ). * Set Width of Roadmap go_roadmap->set_state_width( i_width = '40' ). * Generate HTML of Roadmap go_roadmap->render( EXCEPTIONS render_error = 1 ). ELSE. EXIT. ENDIF. ENDIF. ENDMETHOD. "start_road METHOD init_roadmap. * Local Variables DATA: l_step TYPE numc2, l_text TYPE char30. * Initializing States go_roadmap->remove_all_states( EXCEPTIONS remove_failure = 1 ). DO p_steps TIMES. l_step = sy-index. CONCATENATE 'Step' l_step INTO l_text SEPARATED BY space. go_roadmap->add_state( EXPORTING i_state_text = l_text i_state_type = /use/cl_ugu1_html_roadmap=>c_state_normal i_is_clickable = abap_true i_is_optional = abap_false EXCEPTIONS add_failure = 1 ). ENDDO. * Activate first state IF g_state IS INITIAL. go_roadmap->set_state_type( EXPORTING i_state_id = '1' i_state_type = /use/cl_ugu1_html_roadmap=>c_state_active EXCEPTIONS invalid_state = 1 update_failure = 2 ). * Send initial text g_text = go_roadmap->get_state_text( '1' ). ELSE. go_roadmap->set_state_type( EXPORTING i_state_id = g_state i_state_type = /use/cl_ugu1_html_roadmap=>c_state_active EXCEPTIONS invalid_state = 1 update_failure = 2 ). ENDIF. ENDMETHOD. "init_roadmap METHOD state_click. g_state = i_state_id. * Get text of state g_text = go_roadmap->get_state_text( i_state_id ). * Free Objects go_roadmap->free( ). go_custom->free( ). * Clean Objects CLEAR: go_roadmap, go_custom. * Simulate ENTER to refresh screen cl_gui_cfw=>set_new_ok_code( '/00' ). ENDMETHOD. "state_click METHOD next_step. * Local Variables DATA: lt_states TYPE /use/ugu1_t_roadmap_state, l_state TYPE /use/ugu1_state. FIELD-SYMBOLS: <fs_states> TYPE /use/ugu1_s_roadmap_state. * Get active state go_roadmap->get_states_by_type( EXPORTING i_state_type = /use/cl_ugu1_html_roadmap=>c_state_active IMPORTING et_states = lt_states ). READ TABLE lt_states ASSIGNING <fs_states> INDEX 1. IF sy-subrc = 0. l_state = <fs_states>-state_id + 1. * Get residue on parameter selected l_state = l_state MOD ( p_steps + 1 ). IF l_state = 0. l_state = 1. ENDIF. * Set state click me->state_click( l_state ). ELSE. MESSAGE s888(sabapdocu) WITH 'No existe paso activo'. ENDIF. ENDMETHOD. "next_step ENDCLASS. "lcl_main IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_event IMPLEMENTATION *----------------------------------------------------------------------* CLASS lcl_event IMPLEMENTATION. METHOD state_click. go_main->state_click( i_state_id ). ENDMETHOD. "state_click ENDCLASS. "lcl_event IMPLEMENTATION *----------------------------------------------------------------------* * S T A R T - O F - S E L E C T I O N *----------------------------------------------------------------------* START-OF-SELECTION. * Instance Main Class CREATE OBJECT go_main. * Show Roadmap CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module STATUS OUTPUT *&---------------------------------------------------------------------* MODULE status OUTPUT. SET PF-STATUS 'ST_100'. SET TITLEBAR 'TIT_100'. * Show Roadmap go_main->start_road( ). ENDMODULE. " status OUTPUT *&---------------------------------------------------------------------* *& Module user_command INPUT *&---------------------------------------------------------------------* MODULE user_command INPUT. CASE sy-ucomm. WHEN 'BACK'. LEAVE TO SCREEN 0. WHEN 'NEXT'. go_main->next_step( ). ENDCASE. ENDMODULE. " user_command INPUT
Here I attach screen 100 to upload and generate
Then when you execute the program you can select how many steps are going to build, for example I'll select 10
And this is the result
You can click on any step or press "Next Step" button to select the next step, I hope this help you in any development and I welcome your comments
PD: Sry for my bad english
Regards
David Carballido