Digging into SAP data

*&---------------------------------------------------------------------* *& Report Z_GREAT_ALV_TMP *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT z_great_alv_tmp. DATA: gv_ok LIKE sy-ucomm, gv_container TYPE REF TO cl_gui_custom_container, gv_container_name TYPE scrfname VALUE 'CONTAINER_ALV', gv_grid TYPE REF TO cl_gui_alv_grid, gt_fieldcat TYPE lvc_t_fcat, gs_layout TYPE lvc_s_layo. *&---------------------------------------------------------------------* *& Include Z_GREAT_ALV_F01 *&---------------------------------------------------------------------* FORM create_alv USING container_name TYPE scrfname CHANGING container TYPE REF TO cl_gui_custom_container grid TYPE REF TO cl_gui_alv_grid. "    IF container IS NOT BOUND. "  CREATE OBJECT container EXPORTING container_name = container_name EXCEPTIONS OTHERS = 1. IF sy-subrc NE 0. ENDIF. ENDIF. IF container IS BOUND. "  * if grid is bound. * free grid. * endif. IF grid IS NOT BOUND. CREATE OBJECT grid EXPORTING i_parent = container EXCEPTIONS OTHERS = 1. PERFORM set_great_handler. ENDIF. IF sy-subrc NE 0. ENDIF. ENDIF. ENDFORM. "create_alv *&---------------------------------------------------------------------* *& Form set_great_handlers *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form display_alv *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->GRID text * -->TAB text *----------------------------------------------------------------------* FORM display_alv CHANGING grid TYPE REF TO cl_gui_alv_grid tab TYPE ANY TABLE. IF grid IS BOUND. "   * PERFORM prepare_field_catalog CHANGING gt_fieldcat. * "     CALL METHOD grid->set_table_for_first_display EXPORTING" i_structure_name = gv_tablename is_layout = gs_layout CHANGING it_outtab = tab it_fieldcatalog = gt_fieldcat EXCEPTIONS invalid_parameter_combination = 1 program_error = 2 too_many_lines = 3 OTHERS = 4. IF sy-subrc NE 0. ENDIF. * "  * CALL METHOD grid->refresh_table_display * EXCEPTIONS * finished = 1 * OTHERS = 2. * * IF sy-subrc NE 0. * ENDIF. ENDIF. ENDFORM. "display_alv *&---------------------------------------------------------------------* *& Form prepare_field_catalog *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->PT_FIELDCAT text *----------------------------------------------------------------------* FORM prepare_field_catalog USING tabname TYPE dd02l-tabname itab TYPE rs_bool CHANGING fieldcat TYPE lvc_t_fcat . REFRESH fieldcat. IF itab IS INITIAL. CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' EXPORTING i_structure_name = tabname CHANGING ct_fieldcat = fieldcat EXCEPTIONS OTHERS = 1. FIELD-SYMBOLS: <fs_fcat> TYPE lvc_s_fcat. LOOP AT fieldcat ASSIGNING <fs_fcat>. <fs_fcat>-edit = 'X'. ENDLOOP. ELSE. DATA: lv_field TYPE lvc_s_fcat. lv_field-fieldname = 'FK_TABNAME'. lv_field-scrtext_s = 'TABNAME'. lv_field-inttype = 'C'. lv_field-outputlen = 50. APPEND lv_field TO fieldcat. lv_field-fieldname = 'FIELDNAME'. lv_field-scrtext_s = 'FIELDNAME'. lv_field-outputlen = 30. APPEND lv_field TO fieldcat. ENDIF. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. "prepare_field_catalog *&---------------------------------------------------------------------* *& Form great_alv *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Include Z_GREAT_ALV_CL_DICTSERVICES *&---------------------------------------------------------------------* CLASS z_cl_great_alv_dictservices DEFINITION. PUBLIC SECTION. TYPES: BEGIN OF z_fk_pair, pk_name TYPE dd03l-fieldname, fk_name TYPE dd03l-fieldname, END OF z_fk_pair, z_fk_pair_list TYPE STANDARD TABLE OF z_fk_pair, BEGIN OF z_dependent_rec, pk_tabname TYPE dd02l-tabname, fk_tabname TYPE dd02l-tabname, fieldname TYPE dd03l-fieldname, frkart TYPE dd08l-frkart, fieldlist TYPE REF TO data,"z_fk_pair_list, END OF z_dependent_rec, z_dependent_rec_list TYPE STANDARD TABLE OF z_dependent_rec. CLASS-METHODS: get_fk_list IMPORTING tabname TYPE dd02l-tabname fieldname TYPE dd03l-fieldname EXPORTING dependent_rec TYPE z_dependent_rec, get_check_fk_list IMPORTING tabname TYPE dd02l-tabname fieldname TYPE dd03l-fieldname EXPORTING dependent_rec TYPE z_dependent_rec, get_dependent_list IMPORTING tabname TYPE dd02l-tabname EXPORTING tablist TYPE z_dependent_rec_list. ENDCLASS. "z_cl_great_alv_dictservices DEFINITION *----------------------------------------------------------------------* * CLASS z_cl_great_alv_dictservices IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS z_cl_great_alv_dictservices IMPLEMENTATION. METHOD get_fk_list. dependent_rec-fk_tabname = tabname. dependent_rec-fieldname = fieldname. SELECT SINGLE checktable frkart FROM dd08l INTO (dependent_rec-pk_tabname, dependent_rec-frkart) WHERE tabname = tabname AND fieldname = fieldname. IF sy-subrc = 0 AND dependent_rec-pk_tabname <> '*'. DATA: ls_fk_pair TYPE z_fk_pair, lv_primpos TYPE dd05s-primpos. FIELD-SYMBOLS: <fs_pair_list> TYPE z_fk_pair_list. CREATE DATA dependent_rec-fieldlist TYPE z_fk_pair_list. ASSIGN dependent_rec-fieldlist->* TO <fs_pair_list>. SELECT primpos forkey FROM dd05s INTO (lv_primpos, ls_fk_pair-fk_name) WHERE tabname = tabname AND fieldname = fieldname. SELECT SINGLE fieldname FROM dd03l INTO ls_fk_pair-pk_name WHERE tabname = dependent_rec-pk_tabname AND position = lv_primpos. IF sy-subrc = 0. APPEND ls_fk_pair TO <fs_pair_list>. ENDIF. ENDSELECT. ENDIF. ENDMETHOD. "get_fk_list METHOD get_check_fk_list. dependent_rec-fk_tabname = tabname. dependent_rec-fieldname = fieldname. DATA: lv_domname TYPE dd03l-domname. SELECT SINGLE domname FROM dd03l INTO lv_domname WHERE tabname = tabname AND fieldname = fieldname. IF sy-subrc = 0 AND lv_domname IS NOT INITIAL. SELECT SINGLE entitytab FROM dd01l INTO dependent_rec-pk_tabname WHERE domname = lv_domname. IF sy-subrc = 0 AND dependent_rec-pk_tabname IS NOT INITIAL. DATA: ls_fk_pair TYPE z_fk_pair. FIELD-SYMBOLS: <fs_pair_list> TYPE z_fk_pair_list. CREATE DATA dependent_rec-fieldlist TYPE z_fk_pair_list. ASSIGN dependent_rec-fieldlist->* TO <fs_pair_list>. SELECT SINGLE fieldname FROM dd03l INTO ls_fk_pair-pk_name WHERE tabname = dependent_rec-pk_tabname AND domname = lv_domname AND keyflag = 'X'. IF sy-subrc = 0. ls_fk_pair-fk_name = fieldname. APPEND ls_fk_pair TO <fs_pair_list>. ENDIF. ENDIF. ENDIF. ENDMETHOD. "get_check_fk_list METHOD get_dependent_list. DATA: ls_rec TYPE z_dependent_rec. REFRESH tablist. SELECT tabname fieldname frkart FROM dd08l INTO (ls_rec-fk_tabname, ls_rec-fieldname, ls_rec-frkart) WHERE checktable = tabname. get_fk_list( EXPORTING tabname = ls_rec-fk_tabname fieldname = ls_rec-fieldname IMPORTING dependent_rec = ls_rec ). IF ls_rec-fieldlist IS BOUND. APPEND ls_rec TO tablist. CLEAR ls_rec. ENDIF. ENDSELECT. ENDMETHOD. "get_dependent_list ENDCLASS. "z_cl_great_alv_dictservices IMPLEMENTATION ** METHOD forward_zalx. ** DATA: ** lv_rowtype TYPE zalx_clnt_genfld-rowtype, ** lv_fkrowtype TYPE zalx_clnt_genfld-fkrowtype, ** lv_fkrowpos TYPE zalx_clnt_genfld-fkrowpos, ** lv_structname TYPE zalx_clnt_genrel-structname, ** lv_tablename TYPE dd02l-tabname, ** lv_condition TYPE string, ** ls_nav_point TYPE z_nav_point. ** READ TABLE nav_stack INTO ls_nav_point INDEX nav_position. ** ls_nav_point-row_id = row_id. ** ls_nav_point-key_field = fieldname. ** MODIFY nav_stack INDEX nav_position FROM ls_nav_point. ** ** IF sy-subrc = 0. ** SELECT SINGLE rowtype FROM zalx_clnt_genrel INTO lv_rowtype WHERE structname = ls_nav_point-tab_name. ** IF sy-subrc = 0. ** SELECT SINGLE fkrowtype fkrowpos FROM zalx_clnt_genfld INTO (lv_fkrowtype, lv_fkrowpos) WHERE rowtype = lv_rowtype AND fieldname = fieldname. ** IF sy-subrc = 0. ** SELECT SINGLE structname FROM zalx_clnt_genrel INTO lv_structname WHERE rowtype = lv_fkrowtype. ** IF sy-subrc = 0. ** ** table_name = lv_structname. ** SELECT SINGLE fieldname FROM zalx_clnt_genfld INTO lv_condition WHERE rowtype = lv_fkrowtype AND rowpos = lv_fkrowpos. ** IF sy-subrc = 0. ** WRITE lv_structname. ** FIELD-SYMBOLS: <ff> TYPE ANY, ** <fs> TYPE ANY, ** <lfs_table> TYPE STANDARD TABLE. ** ** ASSIGN ls_nav_point-tab_table->* TO <lfs_table>. ** READ TABLE <lfs_table> ASSIGNING <fs> INDEX row_id-row_id. ** ASSIGN COMPONENT fieldname OF STRUCTURE <fs> TO <ff>. ** CONCATENATE lv_condition ' = ''' <ff> '''' INTO lv_condition. ** ** CLEAR ls_nav_point. ** ** lv_tablename = lv_structname. ** doselect( EXPORTING tablename = lv_tablename condition = lv_condition ** IMPORTING data_table = ls_nav_point-tab_table ). ** ** data_table = ls_nav_point-tab_table. ** ls_nav_point-tab_name = lv_structname. ** ** APPEND ls_nav_point TO nav_stack. ** ADD 1 TO nav_position. ** ** ENDIF. ** ** ENDIF. ** ** ENDIF. ** ENDIF. ** ENDIF. ** ** ENDMETHOD. "forward *&---------------------------------------------------------------------* *& Include Z_GREAT_ALV_CL *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Include Z_GREAT_ALV_CL_NAVSTACK *&---------------------------------------------------------------------* CLASS z_cl_great_alv_navstack DEFINITION. PUBLIC SECTION. TYPES: BEGIN OF z_nav_point, tab_name TYPE dd02l-tabname, key_field TYPE lvc_s_col, row_id TYPE lvc_s_roid, tab_table TYPE REF TO data, dependent TYPE rs_bool, END OF z_nav_point. CLASS-METHODS: init IMPORTING tablename TYPE dd02l-tabname reccount TYPE i condition TYPE string RETURNING value(ok) TYPE rs_bool, follow_fk IMPORTING fieldname TYPE lvc_s_col row_id TYPE lvc_s_roid RETURNING value(ok) TYPE rs_bool, choose_dependent IMPORTING fieldname TYPE lvc_s_col row_id TYPE lvc_s_roid table_name TYPE dd02l-tabname OPTIONAL RETURNING value(ok) TYPE rs_bool, follow_pk IMPORTING deprec TYPE z_cl_great_alv_dictservices=>z_dependent_rec row_id TYPE lvc_s_roid RETURNING value(ok) TYPE rs_bool, follow_text IMPORTING row_id TYPE lvc_s_roid RETURNING value(ok) TYPE rs_bool, back, current_nav_point RETURNING value(point) TYPE z_nav_point, follow_zalx IMPORTING fieldname TYPE lvc_s_col row_id TYPE lvc_s_roid RETURNING value(ok) TYPE rs_bool, get_condition_string IMPORTING row_id TYPE i deprec TYPE z_cl_great_alv_dictservices=>z_dependent_rec data_table TYPE REF TO data OPTIONAL dependent TYPE rs_bool OPTIONAL RETURNING value(condition) TYPE string. PRIVATE SECTION. CLASS-DATA: nav_stack TYPE TABLE OF z_nav_point, nav_position TYPE i, rec_count TYPE i. CLASS-METHODS: doselect IMPORTING tablename TYPE dd02l-tabname condition TYPE string OPTIONAL EXPORTING data_table TYPE REF TO data. ENDCLASS. "Z_CL_GREAT_ALV_NAVSTACK DEFINITION *----------------------------------------------------------------------* * CLASS Z_CL_GREAT_ALV_NAVSTACK IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS z_cl_great_alv_navstack IMPLEMENTATION. METHOD init. REFRESH: nav_stack. DATA: ls_nav_point TYPE z_nav_point. rec_count = reccount. doselect( EXPORTING tablename = tablename condition = condition IMPORTING data_table = ls_nav_point-tab_table ). IF ls_nav_point-tab_table IS BOUND. ls_nav_point-tab_name = tablename. APPEND ls_nav_point TO nav_stack. nav_position = 1. ok = 'X'. ENDIF. ENDMETHOD. "init METHOD doselect. CREATE DATA data_table TYPE TABLE OF (tablename). FIELD-SYMBOLS: <fsv_table> TYPE STANDARD TABLE. ASSIGN data_table->* TO <fsv_table>. IF condition IS SUPPLIED. SELECT * UP TO rec_count ROWS FROM (tablename) INTO TABLE <fsv_table> WHERE (condition). ELSE. SELECT * UP TO rec_count ROWS FROM (tablename) INTO TABLE <fsv_table>. ENDIF. ENDMETHOD. "doselect METHOD follow_fk. DATA: ls_dep TYPE z_cl_great_alv_dictservices=>z_dependent_rec, ls_nav_point TYPE z_nav_point, lv_colname TYPE lvc_s_col, lv_condition TYPE string. ls_nav_point = current_nav_point( ). ls_nav_point-row_id = row_id. ls_nav_point-key_field = fieldname. MODIFY nav_stack INDEX nav_position FROM ls_nav_point. IF ls_nav_point-dependent IS INITIAL. z_cl_great_alv_dictservices=>get_fk_list( EXPORTING tabname = ls_nav_point-tab_name fieldname = fieldname-fieldname IMPORTING dependent_rec = ls_dep ). IF ls_dep-fieldlist IS NOT BOUND. z_cl_great_alv_dictservices=>get_check_fk_list( EXPORTING tabname = ls_nav_point-tab_name fieldname = fieldname-fieldname IMPORTING dependent_rec = ls_dep ). ENDIF. IF ls_dep-fieldlist IS BOUND. lv_condition = get_condition_string( row_id = row_id-row_id deprec = ls_dep ). CLEAR ls_nav_point. doselect( EXPORTING tablename = ls_dep-pk_tabname condition = lv_condition IMPORTING data_table = ls_nav_point-tab_table ). IF ls_nav_point-tab_table IS BOUND. ls_nav_point-tab_name = ls_dep-pk_tabname. APPEND ls_nav_point TO nav_stack. ADD 1 TO nav_position. ok = 'X'. ENDIF. ENDIF. ELSE. FIELD-SYMBOLS: <fs_dep> TYPE z_cl_great_alv_dictservices=>z_dependent_rec_list. ASSIGN ls_nav_point-tab_table->* TO <fs_dep>. IF <fs_dep> IS ASSIGNED. READ TABLE <fs_dep> INTO ls_dep INDEX row_id-row_id. IF sy-subrc = 0. back( ). ls_nav_point = current_nav_point( ). lv_colname-fieldname = ls_dep-fieldname. ok = follow_pk( deprec = ls_dep row_id = ls_nav_point-row_id ). ENDIF. ENDIF. ENDIF. ENDMETHOD. "follow_fk METHOD choose_dependent. DATA: ls_nav_point TYPE z_nav_point, lv_dep_list TYPE REF TO data. FIELD-SYMBOLS <fs_deplist> TYPE z_cl_great_alv_dictservices=>z_dependent_rec_list. ls_nav_point = current_nav_point( ). ls_nav_point-row_id = row_id. ls_nav_point-key_field = fieldname. MODIFY nav_stack INDEX nav_position FROM ls_nav_point. CREATE DATA lv_dep_list TYPE z_cl_great_alv_dictservices=>z_dependent_rec_list. ASSIGN lv_dep_list->* TO <fs_deplist>. z_cl_great_alv_dictservices=>get_dependent_list( EXPORTING tabname = ls_nav_point-tab_name IMPORTING tablist = <fs_deplist> ). IF lv_dep_list IS NOT INITIAL. SORT <fs_deplist> BY fk_tabname ASCENDING. CLEAR ls_nav_point. ls_nav_point-tab_table = lv_dep_list. ls_nav_point-dependent = 'X'. APPEND ls_nav_point TO nav_stack. ADD 1 TO nav_position. ok = 'X'. ENDIF. ENDMETHOD. "choose_dependent METHOD follow_pk. DATA: lv_condition TYPE string, ls_nav_point TYPE z_nav_point. ls_nav_point = current_nav_point( ). ls_nav_point-row_id = row_id. MODIFY nav_stack INDEX nav_position FROM ls_nav_point. lv_condition = get_condition_string( row_id = row_id-row_id deprec = deprec dependent = 'X' ). CLEAR ls_nav_point. doselect( EXPORTING tablename = deprec-fk_tabname condition = lv_condition IMPORTING data_table = ls_nav_point-tab_table ). IF ls_nav_point-tab_table IS BOUND. ls_nav_point-tab_name = deprec-fk_tabname. APPEND ls_nav_point TO nav_stack. ADD 1 TO nav_position. ok = 'X'. ENDIF. ENDMETHOD. "follow_pk METHOD follow_text. DATA: ls_nav_point TYPE z_nav_point, lv_colname TYPE lvc_s_col, lt_dep_list TYPE z_cl_great_alv_dictservices=>z_dependent_rec_list, ls_dep_list TYPE LINE OF z_cl_great_alv_dictservices=>z_dependent_rec_list. ls_nav_point = current_nav_point( ). z_cl_great_alv_dictservices=>get_dependent_list( EXPORTING tabname = ls_nav_point-tab_name IMPORTING tablist = lt_dep_list ). LOOP AT lt_dep_list INTO ls_dep_list WHERE frkart = 'TEXT'. lv_colname-fieldname = ls_dep_list-fieldname. ok = follow_pk( deprec = ls_dep_list row_id = row_id ). EXIT. "only one text table, if any ENDLOOP. ENDMETHOD. "follow_text METHOD back. IF nav_position > 1. DELETE nav_stack INDEX nav_position. SUBTRACT 1 FROM nav_position. ENDIF. ENDMETHOD. "back METHOD current_nav_point. READ TABLE nav_stack INTO point INDEX nav_position. ENDMETHOD. "current_table_name METHOD get_condition_string. FIELD-SYMBOLS: <ff> TYPE ANY, <fs> TYPE ANY, <lfs_table> TYPE STANDARD TABLE, <lfs_fkrec> TYPE z_cl_great_alv_dictservices=>z_fk_pair_list. DATA: ls_navpoint TYPE z_nav_point, ls_fkpair TYPE z_cl_great_alv_dictservices=>z_fk_pair, lv_condition TYPE string, lt_condition TYPE TABLE OF string. ls_navpoint = current_nav_point( ). ASSIGN ls_navpoint-tab_table->* TO <lfs_table>. READ TABLE <lfs_table> ASSIGNING <fs> INDEX row_id. ASSIGN deprec-fieldlist->* TO <lfs_fkrec>. LOOP AT <lfs_fkrec> INTO ls_fkpair. IF dependent IS INITIAL. ASSIGN COMPONENT ls_fkpair-fk_name OF STRUCTURE <fs> TO <ff>. CONCATENATE ls_fkpair-pk_name ' = ''' <ff> '''' INTO lv_condition. ELSE. ASSIGN COMPONENT ls_fkpair-pk_name OF STRUCTURE <fs> TO <ff>. CONCATENATE ls_fkpair-fk_name ' = ''' <ff> '''' INTO lv_condition. ENDIF. APPEND lv_condition TO lt_condition. ENDLOOP. CONCATENATE LINES OF lt_condition INTO condition SEPARATED BY ' AND '. ENDMETHOD. "get_condition_string METHOD follow_zalx. DATA: lv_rowtype TYPE zalx_clnt_genfld-rowtype, lv_fkrowtype TYPE zalx_clnt_genfld-fkrowtype, lv_fkrowpos TYPE zalx_clnt_genfld-fkrowpos, lv_structname TYPE zalx_clnt_genrel-structname, lv_tablename TYPE dd02l-tabname, lv_condition TYPE string, ls_nav_point TYPE z_nav_point. READ TABLE nav_stack INTO ls_nav_point INDEX nav_position. ls_nav_point-row_id = row_id. ls_nav_point-key_field = fieldname. MODIFY nav_stack INDEX nav_position FROM ls_nav_point. IF sy-subrc = 0. SELECT SINGLE rowtype FROM zalx_clnt_genrel INTO lv_rowtype WHERE structname = ls_nav_point-tab_name. IF sy-subrc = 0. SELECT SINGLE fkrowtype fkrowpos FROM zalx_clnt_genfld INTO (lv_fkrowtype, lv_fkrowpos) WHERE rowtype = lv_rowtype AND fieldname = fieldname. IF sy-subrc = 0. SELECT SINGLE structname FROM zalx_clnt_genrel INTO lv_structname WHERE rowtype = lv_fkrowtype. IF sy-subrc = 0. "table_name = lv_structname. SELECT SINGLE fieldname FROM zalx_clnt_genfld INTO lv_condition WHERE rowtype = lv_fkrowtype AND rowpos = lv_fkrowpos. IF sy-subrc = 0. WRITE lv_structname. FIELD-SYMBOLS: <ff> TYPE ANY, <fs> TYPE ANY, <lfs_table> TYPE STANDARD TABLE. ASSIGN ls_nav_point-tab_table->* TO <lfs_table>. READ TABLE <lfs_table> ASSIGNING <fs> INDEX row_id-row_id. ASSIGN COMPONENT fieldname OF STRUCTURE <fs> TO <ff>. CONCATENATE lv_condition ' = ''' <ff> '''' INTO lv_condition. CLEAR ls_nav_point. lv_tablename = lv_structname. doselect( EXPORTING tablename = lv_tablename condition = lv_condition IMPORTING data_table = ls_nav_point-tab_table ). IF ls_nav_point-tab_table IS BOUND. ls_nav_point-tab_name = lv_structname. APPEND ls_nav_point TO nav_stack. ADD 1 TO nav_position. ok = 'X'. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDMETHOD. "forward ENDCLASS. "Z_CL_GREAT_ALV_NAVSTACK IMPLEMENTATION *----------------------------------------------------------------------* * CLASS z_great_alv_handler DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS z_great_alv_handler DEFINITION. PUBLIC SECTION. CLASS-DATA: zf_texting TYPE stb_button-function VALUE 'TEXTING', zf_zalx TYPE stb_button-function VALUE 'ZALX', zf_depend TYPE stb_button-function VALUE 'DEPEND', zf_follow TYPE stb_button-function VALUE 'FOLLOW'. METHODS: double_click FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row e_column es_row_no, toolbar_modify FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object e_interactive, user_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING e_ucomm, data_changed FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after e_ucomm. ENDCLASS. "Z_GREAT_ALV_HANDLER DEFINITION *----------------------------------------------------------------------* * CLASS Z_GREAT_ALV_HANDLER IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS z_great_alv_handler IMPLEMENTATION. METHOD double_click. DATA: lv_ok TYPE rs_bool. lv_ok = z_cl_great_alv_navstack=>follow_fk( fieldname = e_column row_id = es_row_no ). IF lv_ok = 'X'. CALL SCREEN 100. ENDIF. ENDMETHOD. "DOUBLE_CLICK METHOD toolbar_modify. DATA: lv_tbutton TYPE stb_button. LOOP AT e_object->mt_toolbar INTO lv_tbutton WHERE function = zf_texting. ENDLOOP. IF sy-subrc <> 0. CLEAR lv_tbutton. MOVE 0 TO lv_tbutton-butn_type. MOVE zf_follow TO lv_tbutton-function. MOVE 'Follow foreign key/check table' TO lv_tbutton-text. MOVE 'Follow foreign key/check table' TO lv_tbutton-quickinfo. MOVE space TO lv_tbutton-disabled. APPEND lv_tbutton TO e_object->mt_toolbar. CLEAR lv_tbutton. MOVE 0 TO lv_tbutton-butn_type. MOVE zf_texting TO lv_tbutton-function. MOVE 'Text table record' TO lv_tbutton-text. MOVE 'Text table record' TO lv_tbutton-quickinfo. MOVE space TO lv_tbutton-disabled. APPEND lv_tbutton TO e_object->mt_toolbar. CLEAR lv_tbutton. MOVE 0 TO lv_tbutton-butn_type. MOVE zf_depend TO lv_tbutton-function. MOVE 'Dependent tables' TO lv_tbutton-text. MOVE 'Dependent tables' TO lv_tbutton-quickinfo. MOVE space TO lv_tbutton-disabled. APPEND lv_tbutton TO e_object->mt_toolbar. CLEAR lv_tbutton. MOVE 0 TO lv_tbutton-butn_type. MOVE zf_zalx TO lv_tbutton-function. MOVE 'ZALX' TO lv_tbutton-text. MOVE 'ZALX' TO lv_tbutton-quickinfo. MOVE space TO lv_tbutton-disabled. APPEND lv_tbutton TO e_object->mt_toolbar. ENDIF. ENDMETHOD. "toolbar_modify METHOD user_command. DATA: lv_table TYPE REF TO data, lv_column TYPE lvc_s_col, lv_rowno TYPE lvc_s_roid, lv_ok TYPE rs_bool. gv_grid->get_current_cell( IMPORTING es_col_id = lv_column es_row_no = lv_rowno ). CASE e_ucomm. WHEN zf_texting. lv_ok = z_cl_great_alv_navstack=>follow_text( row_id = lv_rowno ). WHEN zf_zalx. lv_ok = z_cl_great_alv_navstack=>follow_zalx( fieldname = lv_column row_id = lv_rowno ). WHEN zf_depend. lv_ok = z_cl_great_alv_navstack=>choose_dependent( fieldname = lv_column row_id = lv_rowno ). WHEN zf_follow. lv_ok = z_cl_great_alv_navstack=>follow_fk( fieldname = lv_column row_id = lv_rowno ). WHEN OTHERS. EXIT. ENDCASE. IF lv_ok = 'X'. CALL SCREEN 100. ENDIF. ENDMETHOD. "user_command METHOD data_changed. DATA: ls_nav_point TYPE z_cl_great_alv_navstack=>z_nav_point, ls_deleted_row TYPE lvc_s_moce. FIELD-SYMBOLS: <fst> TYPE STANDARD TABLE, <fs> TYPE ANY. "modify ls_nav_point = z_cl_great_alv_navstack=>current_nav_point( ). ASSIGN er_data_changed->mp_mod_rows->* TO <fst>. MODIFY (ls_nav_point-tab_name) FROM TABLE <fst>. "delete ASSIGN ls_nav_point-tab_table->* TO <fst>. LOOP AT er_data_changed->mt_deleted_rows INTO ls_deleted_row. READ TABLE <fst> ASSIGNING <fs> INDEX ls_deleted_row-row_id. IF sy-subrc = 0. DELETE (ls_nav_point-tab_name) FROM <fs>. ENDIF. ENDLOOP. ENDMETHOD. "data_changed ENDCLASS. "Z_GREAT_ALV_HANDLER IMPLEMENTATION *----------------------------------------------------------------------* * MODULE PAI_01 INPUT *----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE pai_01 INPUT. CASE gv_ok. WHEN 'BACK'. z_cl_great_alv_navstack=>back( ). PERFORM great_alv. WHEN '%EX'. LEAVE PROGRAM. ENDCASE. ENDMODULE. " PAI_01 INPUT *----------------------------------------------------------------------* * MODULE PBO_01 OUTPUT *----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE pbo_01 OUTPUT. CLEAR gv_ok. SET PF-STATUS ''. PERFORM great_alv. ENDMODULE. " PBO_01 OUTPUT *&---------------------------------------------------------------------* *& Form set_great_handler *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM set_great_handler. DATA lv_handler TYPE REF TO z_great_alv_handler. CREATE OBJECT lv_handler. IF gv_grid IS BOUND AND lv_handler IS BOUND. SET HANDLER lv_handler->double_click FOR gv_grid. SET HANDLER lv_handler->toolbar_modify FOR gv_grid. SET HANDLER lv_handler->user_command FOR gv_grid. SET HANDLER lv_handler->data_changed FOR gv_grid. "grid->set_toolbar_interactive( ). ENDIF. ENDFORM. "set_great_handlers *&---------------------------------------------------------------------* *& Form great_alv *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM great_alv. DATA: lv_nav_point TYPE z_cl_great_alv_navstack=>z_nav_point. lv_nav_point = z_cl_great_alv_navstack=>current_nav_point( ). PERFORM create_alv USING gv_container_name CHANGING gv_container gv_grid. . PERFORM prepare_field_catalog USING lv_nav_point-tab_name lv_nav_point-dependent CHANGING gt_fieldcat. FIELD-SYMBOLS: <lfs_table> TYPE ANY TABLE. ASSIGN lv_nav_point-tab_table->* TO <lfs_table>. PERFORM display_alv USING gv_grid <lfs_table>. gv_grid->set_current_cell_via_id( EXPORTING "is_row_no = lv_nav_point-row_id is_column_id = lv_nav_point-key_field is_row_no = lv_nav_point-row_id ). ENDFORM. "great_alv PARAMETERS: tabname LIKE dd02l-tabname DEFAULT 'but050', rccount TYPE i DEFAULT 100, condit TYPE string DEFAULT ''. START-OF-SELECTION. DATA: lv_ok TYPE rs_bool. lv_ok = z_cl_great_alv_navstack=>init( tablename = tabname reccount = rccount condition = condit ). IF lv_ok = 'X'. CALL SCREEN 100. ENDIF.