*"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes *"* use this source file for any type declarations (class *"* definitions, interfaces or data types) you need for method *"* implementation or private method's signature *"* use this source file for any macro definitions you need *"* in the implementation part of the class METHOD close_dialog. DATA: l_index TYPE sy-tabix, l_num TYPE numc3, ls_sdata TYPE zsy6_s_sel, ls_sel_fields TYPE zsy6_s_sel_fields, ls_ddfields TYPE dfies. * CLEAR r_mandt. * Need update and restart. REFRESH wt_sel_fields. wc_dialoggrid->check_changed_data( ) . LOOP AT wt_sdata INTO ls_sdata WHERE zzmark = abap_true. l_num = l_num + 1. READ TABLE wt_ddfields INTO ls_ddfields WITH KEY fieldname = ls_sdata-fieldname . IF ls_ddfields-datatype = 'CLNT'. r_mandt = abap_true. ENDIF. ls_sel_fields = fill_sel_fields( i_num = l_num is_ddfields = ls_ddfields ). INSERT ls_sel_fields INTO TABLE wt_sel_fields. ENDLOOP. IF wt_sel_fields IS INITIAL. recreate_screen( i_flag = 'K' ). ELSE. recreate_screen( i_flag = 'S' ). ENDIF. ENDMETHOD. METHOD constructor. super->constructor( ) . set_table( EXPORTING i_table = i_table i_mandt = i_mandt ) . " We load all we need. IF wt_sel_fields IS INITIAL. wt_sel_fields = wt_key_fields. ENDIF. ENDMETHOD. method create_report_screen. data: l_line type char255, ls_sel_fields type zsy6_s_sel_fields, l_field type char25, l_count(3) type n. refresh rt_report. clear l_line. l_line = '*----------------------------------------------------------------------*'. insert l_line into table rt_report. clear l_line. concatenate '* Author :' sy-uname into l_line separated by space. l_line+80(1) = '*'. insert l_line into table rt_report. clear l_line. concatenate '* Date :' sy-datlo into l_line separated by space. l_line+80(1) = '*'. insert l_line into table rt_report. clear l_line. l_line = '* Description : Sub screen for table maintenance '. insert l_line into table rt_report. clear l_line. l_line = '*----------------------------------------------------------------------*'. insert l_line into table rt_report. clear l_line. l_line = '* Changes : *'. insert l_line into table rt_report. clear l_line. l_line = '* Author Date Description *'. insert l_line into table rt_report. clear l_line. l_line = '*----------------------------------------------------------------------*'. insert l_line into table rt_report. clear l_line. insert l_line into table rt_report. clear l_line. concatenate 'report' i_prog '.' into l_line separated by space. insert l_line into table rt_report. clear l_line. insert l_line into table rt_report. * * clear l_line. * concatenate 'tables:' i_table '.' into l_line separated by space. * insert l_line into table rt_report. * * clear l_line. * insert l_line into table rt_report. clear l_line. clear l_count. if i_flag = 'K'. loop at it_key_fields into ls_sel_fields. l_count = l_count + 1. if l_count = '001'. concatenate 'DATA: w_name' l_count into l_line. else. concatenate l_line ',' into l_line. insert l_line into table rt_report. clear l_line. concatenate ' w_name' l_count into l_line. endif. concatenate l_line 'type default_va value ''' into l_line separated by space. concatenate l_line i_table '-' ls_sel_fields-fieldname '''' into l_line. endloop. else. loop at it_sel_fields into ls_sel_fields. l_count = l_count + 1. if l_count = '001'. concatenate 'DATA: w_name' l_count into l_line. else. concatenate l_line ',' into l_line. insert l_line into table rt_report. clear l_line. concatenate ' w_name' l_count into l_line. endif. concatenate l_line 'type char70 value ''' into l_line separated by space. concatenate l_line i_table '-' ls_sel_fields-fieldname '''' into l_line. endloop. endif. if l_count > '000'. concatenate l_line '.' into l_line. insert l_line into table rt_report. endif. clear l_line. insert l_line into table rt_report. concatenate 'SELECTION-SCREEN BEGIN OF SCREEN' c_dynnr 'AS SUBSCREEN.' into l_line separated by space. insert l_line into table rt_report. clear l_line. clear l_count. if i_flag = 'K'. loop at it_key_fields into ls_sel_fields. l_count = l_count + 1. if l_count = '001'. concatenate ' SELECT-OPTIONS: ' ls_sel_fields-selname ' FOR (w_name' into l_line separated by space. else. concatenate l_line ', "' l_field into l_line. insert l_line into table rt_report. clear l_line. l_line+18 = ls_sel_fields-selname. concatenate l_line ' FOR (w_name' into l_line separated by space. endif. concatenate l_line l_count ')' into l_line. l_field = ls_sel_fields-fieldname. endloop. else. loop at it_sel_fields into ls_sel_fields. l_count = l_count + 1. if l_count = '001'. concatenate ' SELECT-OPTIONS: ' ls_sel_fields-selname ' FOR (w_name' into l_line separated by space. else. concatenate l_line ', "' l_field into l_line. insert l_line into table rt_report. clear l_line. l_line+18 = ls_sel_fields-selname. concatenate l_line ' FOR (w_name' into l_line separated by space. endif. concatenate l_line l_count ')' into l_line. l_field = ls_sel_fields-fieldname. endloop. endif. if l_count > '000'. concatenate l_line '. "' l_field into l_line. insert l_line into table rt_report. endif. clear l_line. concatenate 'SELECTION-SCREEN END OF SCREEN' c_dynnr '.' into l_line separated by space. insert l_line into table rt_report. clear l_line. insert l_line into table rt_report. clear l_line. l_line = 'include ZSY6U001F01.'. insert l_line into table rt_report. clear l_line. insert l_line into table rt_report. endmethod. METHOD create_sel_fields. DATA: l_line TYPE char255, l_string1 TYPE string, l_string2 TYPE string, l_string3 TYPE string, l_string4 TYPE string, ls_ddfields TYPE dfies, l_dynnr(4) TYPE n, lt_screen TYPE STANDARD TABLE OF char255. DATA: l_lang TYPE tcp0c-langu, l_cntry TYPE tcp0c-country, l_mod TYPE tcp0c-modifier. DATA: ls_sel_fields TYPE zsy6_s_sel_fields, l_prog TYPE programm, l_num TYPE numc3, l_lines TYPE i. l_prog = create_name( i_table = w_table ). REFRESH wt_sel_fields. GET LOCALE LANGUAGE l_lang COUNTRY l_cntry MODIFIER l_mod. SET LOCALE LANGUAGE l_lang COUNTRY l_cntry. READ REPORT l_prog INTO lt_screen . DESCRIBE TABLE lt_screen LINES l_lines. IF l_lines < 10. recreate_screen( EXPORTING i_flag = 'K' ). READ REPORT l_prog INTO lt_screen . ENDIF. LOOP AT lt_screen INTO l_line. CLEAR ls_sel_fields. CONDENSE l_line NO-GAPS. TRANSLATE l_line TO UPPER CASE. CLEAR: l_string1, l_string2, l_string3. SPLIT l_line AT '"' INTO l_string1 l_string2 l_string3. IF l_string2 IS NOT INITIAL AND sy-subrc = 0. l_num = l_num + 1. READ TABLE wt_ddfields INTO ls_ddfields WITH KEY tabname = w_table fieldname = l_string2 . IF ls_ddfields-datatype = 'CLNT'. r_mandt = abap_true. ENDIF. ls_sel_fields = fill_sel_fields( i_num = l_num is_ddfields = ls_ddfields ). INSERT ls_sel_fields INTO TABLE wt_sel_fields. ENDIF. ENDLOOP. ENDMETHOD. METHOD recreate_screen. DATA: l_prog TYPE programm, lt_report TYPE tchar255. l_prog = create_name( i_table = w_table ). lock_prog( EXPORTING i_prog = l_prog EXCEPTIONS no_lock_possible = 1 OTHERS = 2 ). IF sy-subrc = 0. lt_report = create_report_screen( i_table = w_table it_sel_fields = wt_sel_fields it_key_fields = wt_key_fields i_prog = l_prog i_flag = i_flag ). INSERT REPORT l_prog FROM lt_report KEEPING DIRECTORY ENTRY. COMMIT WORK. IF i_flag = 'K'. reset_sel( i_table = w_table ). ENDIF. unlock_prog( i_prog = l_prog ). ELSE. * error handling missing ENDIF. ENDMETHOD. method set_data. data: ls_ddfields type dfies, ls_sdata type zsy6_s_sel. refresh wt_sdata. loop at wt_ddfields into ls_ddfields. clear ls_sdata. move-corresponding ls_ddfields to ls_sdata. read table wt_sel_fields transporting no fields with key fieldname = ls_ddfields-fieldname. if sy-subrc = 0. ls_sdata-zzmark = abap_true. endif. insert ls_sdata into table wt_sdata. endloop. endmethod. METHOD set_table. super->set_table( EXPORTING i_table = i_table i_mandt = i_mandt ). w_mandt = create_sel_fields( ). ENDMETHOD. method show_dialog. data: ls_fcat type lvc_s_fcat. data: ls_layout type lvc_s_layo, ls_sdata type zsy6_s_sel, ls_ddfields type dfies. data: l_lines type i. if wc_dialog_container is not bound. create object wc_dialog_container exporting container_name = 'CONTAINER_DIALOG' exceptions cntl_error = 1 cntl_system_error = 2 create_error = 3 lifetime_error = 4 lifetime_dynpro_dynpro_link = 5 others = 6. if sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. endif. create object wc_dialoggrid exporting * i_shellstyle = 0 * i_lifetime = i_parent = wc_dialog_container * i_appl_events = space * i_parentdbg = * i_applogparent = * i_graphicsparent = * i_name = * i_fcat_complete = space exceptions error_cntl_create = 1 error_cntl_init = 2 error_cntl_link = 3 error_dp_create = 4 others = 5 . if sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. endif. refresh wt_sfcat. * Lets get the definitions per default call function 'LVC_FIELDCATALOG_MERGE' exporting * i_buffer_active = i_structure_name = 'ZSY6_S_SEL' * I_CLIENT_NEVER_DISPLAY = 'X' i_bypassing_buffer = abap_true changing ct_fieldcat = wt_sfcat[] * EXCEPTIONS * INCONSISTENT_INTERFACE = 1 * PROGRAM_ERROR = 2 * OTHERS = 3 . if sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. endif. loop at wt_sfcat into ls_fcat. case ls_fcat-fieldname. when 'ROWCOLOR' or 'ROWMARK' or 'CELLCOLOR' or 'CELLSTYLE' . ls_fcat-tech = abap_true. when 'ZZMARK'. ls_fcat-edit = abap_true. ls_fcat-checkbox = abap_true. endcase. modify wt_sfcat from ls_fcat. endloop. clear ls_layout. * ls_layout-info_fname = 'ROWCOLOR' . * ls_layout-box_fname = 'ROWMARK' . * ls_layout-ctab_fname = 'CELLCOLOR' . * ls_layout-stylefname = 'CELLSTYLE' . ls_layout-no_toolbar = abap_true. ls_layout-cwidth_opt = abap_true. set_data( ) . wc_dialoggrid->set_table_for_first_display( exporting * i_buffer_active = i_bypassing_buffer = abap_true * i_consistency_check = * i_structure_name = '' * is_variant = * i_save = * i_default = 'X' is_layout = ls_layout * is_print = * it_special_groups = * it_toolbar_excluding = lt_toolbar * it_hyperlink = * it_alv_graphics = * it_except_qinfo = * ir_salv_adapter = changing it_outtab = wt_sdata it_fieldcatalog = wt_sfcat * it_sort = * it_filter = exceptions invalid_parameter_combination = 1 program_error = 2 too_many_lines = 3 ). if sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. endif. call method wc_dialoggrid->set_ready_for_input exporting i_ready_for_input = 1. else. set_data( ) . wc_dialoggrid->refresh_table_display( * EXPORTING * is_stable = * i_soft_refresh = * EXCEPTIONS * finished = 1 ). if sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. endif. endif. endmethod. *"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes *"* use this source file for any type declarations (class *"* definitions, interfaces or data types) you need for method *"* implementation or private method's signature TYPES: BEGIN OF ts_sdata, table TYPE tabname, as4date TYPE as4date, END OF ts_sdata, tt_sdata type STANDARD TABLE OF ts_sdata. *"* use this source file for any macro definitions you need *"* in the implementation part of the class ABAP method check_table. data: ls_sdata like line of wt_sdata. read table wt_sdata into ls_sdata with key table = i_table. w_as4date = ls_sdata-as4date. r_subrc = sy-subrc. endmethod. method class_constructor. data: l_progname type progname, ls_trdir type trdir, lt_name type standard table of string, l_name type string, ls_sdata type ts_sdata, l_count type i. concatenate c_progname_ '%' into l_progname. select * from trdir into ls_trdir where name like l_progname. split ls_trdir at '_' into table lt_name. describe table lt_name lines l_count. read table lt_name into l_name index l_count. if sy-subrc eq 0 . ls_sdata-table = l_name. select single as4date into ls_sdata-as4date from dd02l where tabname = ls_sdata-table and as4local = 'A' and as4vers = '000'. if sy-subrc eq 0 . ls_sdata-as4date = ls_trdir-udat. insert ls_sdata into table wt_sdata. endif. endif. endselect. ws_trdir-varcl = abap_true. ws_trdir-subc = '1'. ws_trdir-cnam = sy-uname. ws_trdir-unam = sy-uname. ws_trdir-rstat = 'K'. ws_trdir-rmand = sy-mandt. ws_trdir-rload = sy-langu. ws_trdir-fixpt = abap_true. ws_trdir-uccheck = abap_true. endmethod. method class_exists. data: ls_seoclass type seoclass. clear r_exists. select single * into ls_seoclass from seoclass where clsname = i_clsname. if sy-subrc = 0. r_exists = abap_true. endif. endmethod. method create_name. concatenate c_progname_ i_table into r_prog. endmethod. METHOD delete_report. DATA: l_prog TYPE programm. l_prog = create_name( i_table = i_table ). lock_prog( EXPORTING i_prog = l_prog EXCEPTIONS no_lock_possible = 1 OTHERS = 2 ). IF sy-subrc = 0. CALL FUNCTION 'RS_DELETE_PROGRAM' EXPORTING * CORRNUMBER = program = l_prog suppress_checks = 'X' * SUPPRESS_COMMIT = ' ' suppress_popup = 'X' * MASS_DELETE_CALL = ' ' * WITH_CUA = 'X' * WITH_DOCUMENTATION = 'X' * WITH_DYNPRO = 'X' * WITH_INCLUDES = ' ' * WITH_TEXTPOOL = 'X' * WITH_VARIANTS = 'X' * TADIR_DEVCLASS = * SKIP_PROGRESS_IND = ' ' * FORCE_DELETE_USED_INCLUDES = ' ' * SUPPRESS_DELETE_ENH = ' ' * IMPORTING * CORRNUMBER = * PROGRAM = * EXCEPTIONS * ENQUEUE_LOCK = 1 * OBJECT_NOT_FOUND = 2 * PERMISSION_FAILURE = 3 * REJECT_DELETION = 4 * OTHERS = 5 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDIF. unlock_prog( i_prog = l_prog ). ENDMETHOD. METHOD FILL_SEL_FIELDS. DATA: l_name TYPE fieldname. CLEAR rs_sel_fields. l_name = 'W_NAME'. CONCATENATE l_name i_num INTO l_name. CLEAR ws_sel_fields. rs_sel_fields-keyflag = is_ddfields-keyflag. rs_sel_fields-fieldname = is_ddfields-fieldname. rs_sel_fields-varname = l_name. rs_sel_fields-datatype = is_ddfields-datatype. CONCATENATE 'S_' i_num INTO rs_sel_fields-selname. ENDMETHOD. method GET_KEY_FIELDS. rt_key_fields = wt_key_fields. endmethod. METHOD get_key_fields_structure. DATA: ls_fields TYPE zsy6_s_sel_fields, ls_ddfields TYPE dfies. DATA: lo_addit TYPE REF TO cl_abap_elemdescr, lo_addit_table TYPE REF TO cl_abap_tabledescr, lt_components_tab TYPE cl_abap_structdescr=>component_table, ls_components TYPE abap_componentdescr. LOOP AT wt_key_fields INTO ls_fields. IF i_mandt IS INITIAL AND ls_fields-datatype = 'CLNT'. CONTINUE. ENDIF. READ TABLE wt_ddfields INTO ls_ddfields WITH KEY fieldname = ls_fields-fieldname. IF sy-subrc = 0. ls_components-name = ls_ddfields-fieldname. CASE ls_ddfields-comptype. WHEN 'L'. lo_addit_table ?= cl_abap_typedescr=>describe_by_name( ls_ddfields-rollname ). ls_components-type = lo_addit_table . INSERT ls_components INTO TABLE lt_components_tab. WHEN 'E'. lo_addit ?= cl_abap_typedescr=>describe_by_name( ls_ddfields-rollname ). ls_components-type = lo_addit . INSERT ls_components INTO TABLE lt_components_tab. ENDCASE. ENDIF. ENDLOOP. "create new line type TRY. ro_struc = cl_abap_structdescr=>create( p_components = lt_components_tab p_strict = abap_false ). CATCH cx_sy_struct_creation. RETURN. ENDTRY. ENDMETHOD. METHOD get_sel_fields. rt_sel_fields = wt_sel_fields. ENDMETHOD. METHOD GET_STRING. CLEAR r_string. LOOP AT wt_sel_fields INTO ws_sel_fields. IF r_string IS INITIAL. CONCATENATE ws_sel_fields-fieldname 'IN' ws_sel_fields-selname INTO r_string SEPARATED BY space. ELSE. CONCATENATE r_string 'AND' ws_sel_fields-fieldname 'IN' ws_sel_fields-selname INTO r_string SEPARATED BY space. ENDIF. ENDLOOP. ENDMETHOD. METHOD lock_prog. CONSTANTS: c_enqueue_excl VALUE 'X', "Art der Kurzzeitsperre " 'X' .. exclusiv, 'E' .. kumulativ c_enqueue_excl_u VALUE 'E'. "Art der Kurzzeitsperre für UDM " 'X' .. exclusiv, 'E' .. kumulativ CONSTANTS: c_enqueue_scope TYPE ddenqscope VALUE '2', "Sperren für Verbucher (Dtel DDENQSCOPE): "'1' .. Sperre nicht an Verbucher geben "'2' .. Sperre an Verbucher geben (default) "'3' .. Sperre zusätzlich an Verbucher geben c_dequeue_scope TYPE ddenqscope VALUE '3'. "Sperren für Verbucher (Dtel DDENQSCOPE): "'1' .. Sperre nicht an Verbucher geben "'2' .. Sperre an Verbucher geben "'3' .. Sperre zusätzlich an Verbucher (default) CALL FUNCTION 'ENQUEUE_ESRDIRE' EXPORTING mode_trdir = c_enqueue_excl name = i_prog _scope = c_enqueue_scope EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3. IF sy-subrc > 0. PERFORM exc_from_enqueue IN PROGRAM saplseuq USING sy-subrc i_prog space i_prog. RAISE no_lock_possible. ENDIF. ENDMETHOD. METHOD reset_sel. DATA: l_mandt TYPE cccliindep. IF i_table = w_table. wt_sel_fields = wt_key_fields. ELSE. set_table( EXPORTING i_table = i_table i_mandt = w_mandt ). wt_sel_fields = wt_key_fields. ENDIF. ENDMETHOD. METHOD set_sel_fields. wt_sel_fields = it_sel_fields. ENDMETHOD. METHOD set_table. DATA: ls_ddfields TYPE dfies, l_name TYPE fieldname, l_tname TYPE char80, l_num(3) TYPE n. REFRESH: wt_ddfields, wt_sel_fields, wt_key_fields. w_mandt = i_mandt. CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = i_table * FIELDNAME = ' ' langu = sy-langu * LFIELDNAME = ' ' all_types = abap_true * GROUP_NAMES = ' ' * UCLEN = * IMPORTING * X030L_WA = * DDOBJTYPE = * DFIES_WA = * LINES_DESCR = TABLES dfies_tab = wt_ddfields * FIXED_VALUES = EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3 . IF sy-subrc <> 0. MESSAGE e402(mo) WITH i_table. . ELSE. SORT wt_ddfields BY position tabname fieldname. w_table = i_table. * We always start with key fields LOOP AT wt_ddfields INTO ls_ddfields WHERE keyflag = abap_true. IF w_mandt = abap_false AND ls_ddfields-datatype = 'CLNT'. CONTINUE. ENDIF. l_num = l_num + 1. ws_sel_fields = fill_sel_fields( i_num = l_num is_ddfields = ls_ddfields ). INSERT ws_sel_fields INTO TABLE wt_key_fields. INSERT ws_sel_fields INTO TABLE wt_sel_fields. ENDLOOP. ENDIF. ENDMETHOD. METHOD unlock_prog. CONSTANTS: c_enqueue_excl VALUE 'X', "Art der Kurzzeitsperre " 'X' .. exclusiv, 'E' .. kumulativ c_enqueue_excl_u VALUE 'E'. "Art der Kurzzeitsperre für UDM " 'X' .. exclusiv, 'E' .. kumulativ CALL FUNCTION 'DEQUEUE_ESRDIRE' EXPORTING mode_trdir = c_enqueue_excl name = i_prog. ENDMETHOD. METHOD UNLOCK_TABLE. DATA: ls_rstable TYPE rstable. LOOP AT wt_rstable INTO ls_rstable. CALL FUNCTION 'DEQUEUE_E_TABLEE' EXPORTING * MODE_RSTABLE = 'E' tabname = ls_rstable-tabname varkey = ls_rstable-varkey. * X_TABNAME = ' ' * X_VARKEY = ' ' * _SCOPE = '3' * _SYNCHRON = ' ' * _COLLECT = ' ' . ENDLOOP. REFRESH wt_rstable. ENDMETHOD. *"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes *"* use this source file for any type declarations (class *"* definitions, interfaces or data types) you need for method *"* implementation or private method's signature TYPES: BEGIN OF ts_fields, sign TYPE bapisign, option TYPE bapioption, low TYPE fieldname, high TYPE fieldname, END OF ts_fields, tt_fields TYPE STANDARD TABLE OF ts_fields. *"* use this source file for any macro definitions you need *"* in the implementation part of the class ABAP ICON METHOD add_remote. DATA: lo_key_l TYPE REF TO data, lo_key_r TYPE REF TO data, lt_sort TYPE abap_sortorder_tab, ls_sort TYPE abap_sortorder, ls_key TYPE zsy6_s_sel_fields. FIELD-SYMBOLS: <fs_lt> TYPE ANY TABLE, <fcat_fs> TYPE lvc_s_fcat. * Create 2 new internal tables with only key from both datasets. * Load tables from both datasets. create_check_tables( EXPORTING io_data_r = io_data CHANGING xo_key_l = lo_key_l xo_key_r = lo_key_r ). * Loop at local and check for remote merge data. merge_data( EXPORTING i_sysid = i_sysid io_data = io_data io_key_r = lo_key_r io_key_l = lo_key_l ). * Sort grid and Show grid. CLEAR ls_sort. LOOP AT wt_key_fields INTO ls_key WHERE keyflag = abap_true. ls_sort-name = ls_key-fieldname. APPEND ls_sort TO lt_sort. ENDLOOP. ls_sort-name = '___ORIGIN'. APPEND ls_sort TO lt_sort. ASSIGN wt_data->* TO <fs_lt>. IF sy-subrc = 0. SORT <fs_lt> BY (lt_sort). ENDIF. wc_grid->get_frontend_fieldcatalog( IMPORTING et_fieldcatalog = wt_fcat ). LOOP AT wt_fcat ASSIGNING <fcat_fs> WHERE fieldname = '___SYSID' OR fieldname = '___CODES'. . <fcat_fs>-no_out = abap_false. <fcat_fs>-tech = abap_false. ENDLOOP. wc_grid->set_frontend_fieldcatalog( EXPORTING it_fieldcatalog = wt_fcat ). wc_grid->refresh_table_display( ). w_sync = abap_true. ENDMETHOD. METHOD adjust_cells. DATA: lt_cell TYPE lvc_t_cell, ls_cell TYPE lvc_s_cell, l_found TYPE abap_bool, l_index1 TYPE sytabix, l_lines TYPE i, lo_data TYPE REF TO data, lo_table TYPE REF TO data, ls_color TYPE lvc_s_scol. FIELD-SYMBOLS: <fs_ls> TYPE ANY, <fs_ls1> TYPE ANY, <fs_lt> TYPE STANDARD TABLE, <fs_lt1> TYPE STANDARD TABLE, <fs> TYPE ANY, <fs1> TYPE ANY, <fs_t> TYPE lvc_t_scol, <fs_t1> TYPE lvc_t_scol. wc_grid->get_selected_cells( IMPORTING et_cell = lt_cell ). CREATE DATA lo_data TYPE HANDLE wo_struc. ASSIGN lo_data->* TO <fs_ls>. ASSIGN wt_data->* TO <fs_lt>. ASSIGN xo_table->* TO <fs_lt1>. LOOP AT lt_cell INTO ls_cell. READ TABLE <fs_lt> ASSIGNING <fs_ls> INDEX ls_cell-row_id-index. IF sy-subrc = 0. CLEAR l_index1. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. IF <fs> = 'DR'. l_index1 = ls_cell-row_id-index - 1. READ TABLE it_fidx TRANSPORTING NO FIELDS FROM l_index1. IF sy-subrc = 0. CONTINUE. ENDIF. READ TABLE <fs_lt> ASSIGNING <fs_ls1> INDEX l_index1. ASSIGN COMPONENT '___CELLCOLOR' OF STRUCTURE <fs_ls1> TO <fs_t>. IF sy-subrc = 0. x_found = abap_true. CLEAR ls_color. READ TABLE <fs_t> INTO ls_color WITH KEY fname = ls_cell-col_id-fieldname. IF ls_color-color-col = 7 AND sy-subrc = 0. " We have a difference. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_ls1> TO <fs>. IF sy-subrc = 0. <fs> = 'U'. ENDIF. ASSIGN COMPONENT ls_color-fname OF STRUCTURE <fs_ls> TO <fs>. ASSIGN COMPONENT ls_color-fname OF STRUCTURE <fs_ls1> TO <fs1>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs1> = <fs>. ENDIF. * Update DL line and remove diff color if both lines stay. DELETE TABLE <fs_t> FROM ls_color. ENDIF. * Update DR line and remove diff color if both lines stay. ASSIGN COMPONENT '___CELLCOLOR' OF STRUCTURE <fs_ls> TO <fs_t1>. IF <fs_t1> IS ASSIGNED AND <fs_t> IS ASSIGNED. <fs_t1> = <fs_t>. ENDIF. READ TABLE <fs_t> TRANSPORTING NO FIELDS WITH KEY color-col = 7. IF sy-subrc NE 0. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_ls1> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ASSIGN COMPONENT '___ROWCOLOR' OF STRUCTURE <fs_ls1> TO <fs>. IF sy-subrc = 0. <fs> = 'C510'. " Green ENDIF. INSERT <fs_ls> INTO TABLE <fs_lt1> . ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDLOOP. ENDMETHOD. METHOD adjust_columns. DATA: lt_col TYPE lvc_t_col, ls_col TYPE lvc_s_col, l_found TYPE abap_bool, l_index TYPE sytabix, l_index1 TYPE sytabix, l_lines TYPE i, lo_data TYPE REF TO data, lo_table TYPE REF TO data, ls_color TYPE lvc_s_scol. FIELD-SYMBOLS: <fs_ls> TYPE ANY, <fs_ls1> TYPE ANY, <fs_lt> TYPE STANDARD TABLE, <fs_lt1> TYPE STANDARD TABLE, <fs> TYPE ANY, <fs1> TYPE ANY, <fs_t> TYPE lvc_t_scol, <fs_t1> TYPE lvc_t_scol. *GET_SELECTED_CELLS *GET_SELECTED_CELLS_ID *GET_SELECTED_COLUMNS wc_grid->get_selected_columns( IMPORTING et_index_columns = lt_col ). CREATE DATA lo_data TYPE HANDLE wo_struc. ASSIGN lo_data->* TO <fs_ls>. ASSIGN wt_data->* TO <fs_lt>. ASSIGN xo_table->* TO <fs_lt1>. DESCRIBE TABLE lt_col LINES l_lines. IF l_lines > 0. LOOP AT <fs_lt> ASSIGNING <fs_ls>. l_index = sy-tabix. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. IF <fs> = 'DL'. l_index1 = l_index + 1. READ TABLE it_fidx TRANSPORTING NO FIELDS FROM l_index1. IF sy-subrc = 0. CONTINUE. ENDIF. READ TABLE <fs_lt> ASSIGNING <fs_ls1> INDEX l_index1. ASSIGN COMPONENT '___CELLCOLOR' OF STRUCTURE <fs_ls> TO <fs_t>. IF sy-subrc = 0. x_found = abap_true. LOOP AT lt_col INTO ls_col. CLEAR ls_color. READ TABLE <fs_t> INTO ls_color WITH KEY fname = ls_col-fieldname. IF ls_color-color-col = 7 AND sy-subrc = 0. " We have a difference. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. <fs> = 'U'. ENDIF. ASSIGN COMPONENT ls_color-fname OF STRUCTURE <fs_ls> TO <fs>. ASSIGN COMPONENT ls_color-fname OF STRUCTURE <fs_ls1> TO <fs1>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs> = <fs1>. ENDIF. * Update DL line and remove diff color if both lines stay. DELETE TABLE <fs_t> FROM ls_color. ENDIF. ENDLOOP. * Update DR line and remove diff color if both lines stay. ASSIGN COMPONENT '___CELLCOLOR' OF STRUCTURE <fs_ls1> TO <fs_t1>. IF <fs_t1> IS ASSIGNED AND <fs_t> IS ASSIGNED. <fs_t1> = <fs_t>. ENDIF. READ TABLE <fs_t> TRANSPORTING NO FIELDS WITH KEY color-col = 7. IF sy-subrc NE 0. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ASSIGN COMPONENT '___ROWCOLOR' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. <fs> = 'C510'. " Green ENDIF. INSERT <fs_ls1> INTO TABLE <fs_lt1> . ENDIF. ENDIF. ENDIF. ENDIF. ENDLOOP. ENDIF. ENDMETHOD. METHOD adjust_local_from_remote. DATA: lo_table TYPE REF TO data, ls_style TYPE lvc_s_styl, lt_style TYPE lvc_t_styl, l_found TYPE abap_bool, lt_fidx TYPE lvc_t_fidx, ls_sel_fields TYPE zsy6_s_sel_fields. FIELD-SYMBOLS: <fs_ls> TYPE ANY, <fs_ls1> TYPE ANY, <fs_lt> TYPE STANDARD TABLE, <fs_lt1> TYPE STANDARD TABLE. LOOP AT wt_key_fields INTO ls_sel_fields. ls_style-fieldname = ls_sel_fields-fieldname. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE lt_style. ENDLOOP. CREATE DATA lo_table TYPE HANDLE wo_table. ASSIGN lo_table->* TO <fs_lt1>. ASSIGN wt_data->* TO <fs_lt>. wc_grid->get_filtered_entries( IMPORTING et_filtered_entries = lt_fidx ) . adjust_rows( EXPORTING it_style = lt_style it_fidx = lt_fidx CHANGING xo_table = lo_table x_found = l_found ) . adjust_columns( EXPORTING it_style = lt_style it_fidx = lt_fidx CHANGING xo_table = lo_table x_found = l_found ) . adjust_cells( EXPORTING it_style = lt_style it_fidx = lt_fidx CHANGING xo_table = lo_table x_found = l_found ) . IF l_found = abap_true. LOOP AT <fs_lt1> ASSIGNING <fs_ls1>. READ TABLE <fs_lt> FROM <fs_ls1> ASSIGNING <fs_ls>. DELETE TABLE <fs_lt> FROM <fs_ls>. ENDLOOP. wc_grid->refresh_table_display( ) . ELSE. MESSAGE i001. ENDIF. ENDMETHOD. METHOD adjust_rows. DATA: lt_row TYPE lvc_t_row, ls_row TYPE lvc_s_row, lt_rowid TYPE lvc_t_roid, l_found TYPE abap_bool, l_index TYPE sytabix, lo_data TYPE REF TO data, lo_table TYPE REF TO data, ls_color TYPE lvc_s_scol. FIELD-SYMBOLS: <fs_ls> TYPE ANY, <fs_ls1> TYPE ANY, <fs_lt> TYPE STANDARD TABLE, <fs_lt1> TYPE STANDARD TABLE, <fs> TYPE ANY, <fs1> TYPE ANY, <fs_t> TYPE ANY TABLE. *GET_SELECTED_CELLS *GET_SELECTED_CELLS_ID *GET_SELECTED_COLUMNS wc_grid->get_selected_rows( IMPORTING et_index_rows = lt_row et_row_no = lt_rowid ). CREATE DATA lo_data TYPE HANDLE wo_struc. ASSIGN lo_data->* TO <fs_ls>. ASSIGN wt_data->* TO <fs_lt>. ASSIGN xo_table->* TO <fs_lt1>. LOOP AT lt_row INTO ls_row. l_index = ls_row-index. READ TABLE it_fidx TRANSPORTING NO FIELDS FROM l_index. IF sy-subrc = 0. CONTINUE. ENDIF. l_found = abap_true. READ TABLE <fs_lt> ASSIGNING <fs_ls> INDEX ls_row-index. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. CASE <fs>. WHEN 'R'. x_found = abap_true. CLEAR <fs>. ASSIGN COMPONENT '___CELLSTYLE' OF STRUCTURE <fs_ls> TO <fs_t>. IF sy-subrc = 0. <fs_t> = it_style[]. ENDIF. ASSIGN COMPONENT '___SYSID' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. <fs> = sy-sysid. ENDIF. ASSIGN COMPONENT '___ORIGIN' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. <fs> = c_origin_local. ENDIF. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. <fs> = 'I'. ENDIF. ASSIGN COMPONENT '___ROWCOLOR' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. ** Populate color variable with colour properties ** Char 1 = C (This is a color property) ** Char 2 = 3 (Color codes: 1 - 7) ** Char 3 = Intensified on/off ( 1 or 0 ) ** Char 4 = Inverse display on/off ( 1 or 0 ) <fs> = 'C510'. " Green ENDIF. WHEN 'DR'. l_index = ls_row-index - 1. READ TABLE <fs_lt> ASSIGNING <fs_ls1> INDEX l_index. ASSIGN COMPONENT '___CELLCOLOR' OF STRUCTURE <fs_ls1> TO <fs_t>. IF sy-subrc = 0. LOOP AT <fs_t> INTO ls_color. IF ls_color-color-col = 7. " We have a difference. ASSIGN COMPONENT ls_color-fname OF STRUCTURE <fs_ls> TO <fs>. ASSIGN COMPONENT ls_color-fname OF STRUCTURE <fs_ls1> TO <fs1>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs1> = <fs>. ENDIF. DELETE TABLE <fs_t> FROM ls_color. ENDIF. ENDLOOP. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_ls1> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_ls1> TO <fs>. IF sy-subrc = 0. <fs> = 'U'. ENDIF. ASSIGN COMPONENT '___ROWCOLOR' OF STRUCTURE <fs_ls1> TO <fs>. IF sy-subrc = 0. <fs> = 'C510'. " Green ENDIF. INSERT <fs_ls> INTO TABLE <fs_lt1> . x_found = abap_true. ENDIF. WHEN OTHERS. MESSAGE i000 WITH 'Selection of local data get''s ignored!'(015). ENDCASE. ENDIF. ENDLOOP. ENDMETHOD. METHOD CHANGE_USER_SETTINGS. DATA: ls_fcat TYPE lvc_s_fcat. IF is_rseumod-tbmode <> ws_rseumod-tbmode. wc_grid->get_frontend_fieldcatalog( IMPORTING et_fieldcatalog = wt_fcat ). LOOP AT wt_fcat INTO ls_fcat. IF is_rseumod-tbmode IS INITIAL. ls_fcat-coltext = ls_fcat-fieldname. ELSE. ls_fcat-coltext = ls_fcat-scrtext_s. ENDIF. MODIFY wt_fcat FROM ls_fcat . ENDLOOP. wc_grid->set_frontend_fieldcatalog( it_fieldcatalog = wt_fcat ). wc_grid->refresh_table_display( ) . ENDIF. ws_rseumod = is_rseumod. ENDMETHOD. METHOD class_constructor. FIELD-SYMBOLS: <fcat_fs> TYPE lvc_s_fcat. CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' EXPORTING * I_BUFFER_ACTIVE = i_structure_name = c_grid * I_CLIENT_NEVER_DISPLAY = 'X' * I_BYPASSING_BUFFER = * I_INTERNAL_TABNAME = CHANGING ct_fieldcat = wt_fcat_style * EXCEPTIONS * INCONSISTENT_INTERFACE = 1 * PROGRAM_ERROR = 2 * OTHERS = 3 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. LOOP AT wt_fcat_style ASSIGNING <fcat_fs>. CASE <fcat_fs>-fieldname. WHEN '___SYSID'. <fcat_fs>-key = abap_true. <fcat_fs>-key_sel = abap_true. <fcat_fs>-no_out = abap_true. WHEN '___CODES'. <fcat_fs>-key = abap_true. <fcat_fs>-key_sel = abap_true. <fcat_fs>-tech = abap_true. WHEN OTHERS. <fcat_fs>-tech = abap_true. ENDCASE. ENDLOOP. ENDIF. CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = c_grid * FIELDNAME = ' ' langu = sy-langu * LFIELDNAME = ' ' all_types = abap_true * GROUP_NAMES = ' ' * UCLEN = * IMPORTING * X030L_WA = * DDOBJTYPE = * DFIES_WA = * LINES_DESCR = TABLES dfies_tab = wt_ddstyle * FIXED_VALUES = EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. SELECT SINGLE * INTO ws_rseumod FROM rseumod WHERE uname = sy-uname . IF sy-subrc NE 0 OR ws_rseumod-tbmaxsel IS INITIAL. ws_rseumod-tbmaxsel = 500. ENDIF. ENDMETHOD. METHOD constructor. DATA: l_offline(1) TYPE c, lcx_sy6 TYPE REF TO zcx_sy6_main. super->constructor( ) . " We load all we need. CALL METHOD cl_gui_alv_grid=>offline RECEIVING e_offline = l_offline. IF l_offline = '0' . CREATE OBJECT wc_container EXPORTING container_name = i_container. * * CREATE OBJECT wc_splitter * EXPORTING * parent = wc_container * orientation = cl_gui_easy_splitter_container=>orientation_vertical. * * * wc_split_cont_1 = wc_splitter->top_left_container. * wc_split_cont_2 = wc_splitter->bottom_right_container. CREATE OBJECT wc_grid EXPORTING * i_shellstyle = 0 * i_lifetime = i_parent = wc_container * i_appl_events = abap_true * i_parentdbg = * i_applogparent = * i_graphicsparent = * i_name = * i_fcat_complete = space EXCEPTIONS error_cntl_create = 1 error_cntl_init = 2 error_cntl_link = 3 error_dp_create = 4 OTHERS = 5. IF sy-subrc <> 0. CASE sy-subrc . WHEN 1. RAISE EXCEPTION TYPE zcx_sy6_main EXPORTING textid = zcx_sy6_main=>error_cntl_create. WHEN 2. RAISE EXCEPTION TYPE zcx_sy6_main EXPORTING textid = zcx_sy6_main=>error_cntl_init. WHEN 3. RAISE EXCEPTION TYPE zcx_sy6_main EXPORTING textid = zcx_sy6_main=>error_cntl_link. WHEN 4. RAISE EXCEPTION TYPE zcx_sy6_main EXPORTING textid = zcx_sy6_main=>error_dp_create. WHEN OTHERS. RAISE EXCEPTION TYPE zcx_sy6_main EXPORTING textid = zcx_sy6_main=>cx_root. ENDCASE. ENDIF. ELSE. RAISE EXCEPTION TYPE zcx_sy6_main EXPORTING textid = zcx_sy6_main=>error_grid_in_background. ENDIF . CREATE OBJECT wo_msg EXPORTING mid = 'SV' title = 'Table maintenance messages'(013). SET HANDLER on_data_changed FOR wc_grid . SET HANDLER on_button_click FOR wc_grid. SET HANDLER on_f4 FOR wc_grid. SET HANDLER on_user_command FOR wc_grid . SET HANDLER on_before_user_command FOR wc_grid . SET HANDLER on_toolbar FOR wc_grid . SET HANDLER on_context_menu_request FOR wc_grid . SET HANDLER on_data_changed_finished FOR wc_grid . * wc_grid->register_edit_event( EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ). ENDMETHOD. METHOD create_check_tables. DATA: lo_struc TYPE REF TO cl_abap_structdescr, lo_data TYPE REF TO data, lo_table TYPE REF TO cl_abap_tabledescr. FIELD-SYMBOLS: <fs_rt> TYPE ANY TABLE, <fs_lt> TYPE ANY TABLE, <fs_r> TYPE ANY TABLE, <fs_l> TYPE ANY TABLE, <fs> TYPE ANY, <fs1> TYPE ANY. lo_struc = get_key_fields_structure( ). lo_table = cl_abap_tabledescr=>create( lo_struc ). CREATE DATA xo_key_r TYPE HANDLE lo_table. CREATE DATA xo_key_l TYPE HANDLE lo_table. ASSIGN io_data_r->* TO <fs_rt>. ASSIGN xo_key_r->* TO <fs_r>. CREATE DATA lo_data TYPE HANDLE lo_struc. ASSIGN lo_data->* TO <fs1>. LOOP AT <fs_rt> ASSIGNING <fs>. MOVE-CORRESPONDING <fs> TO <fs1>. INSERT <fs1> INTO TABLE <fs_r>. ENDLOOP. ASSIGN wt_data->* TO <fs_lt>. ASSIGN xo_key_l->* TO <fs_l>. LOOP AT <fs_lt> ASSIGNING <fs>. MOVE-CORRESPONDING <fs> TO <fs1>. INSERT <fs1> INTO TABLE <fs_l>. ENDLOOP. load_style_table( ) . ENDMETHOD. METHOD display. DATA: ls_fields TYPE ts_fields. FIELD-SYMBOLS: <fs_fcat> TYPE lvc_s_fcat. IF i_flag = abap_true. w_display_only = abap_true. IF wt_fields IS NOT INITIAL. wc_grid->get_frontend_fieldcatalog( IMPORTING et_fieldcatalog = wt_fcat ). LOOP AT wt_fcat ASSIGNING <fs_fcat> WHERE fieldname IN wt_fields. <fs_fcat>-hotspot = abap_true. CLEAR <fs_fcat>-edit. ENDLOOP. wc_grid->set_frontend_fieldcatalog( EXPORTING it_fieldcatalog = wt_fcat ). CALL METHOD wc_grid->set_ready_for_input EXPORTING i_ready_for_input = 0. * We need to undo the hotspots. wc_grid->refresh_table_display( EXPORTING * IS_STABLE = i_soft_refresh = abap_true * exceptions * FINISHED = 1 ). ELSE. CALL METHOD wc_grid->set_ready_for_input EXPORTING i_ready_for_input = 0. ENDIF. ELSE. w_display_only = space. wc_grid->get_frontend_fieldcatalog( IMPORTING et_fieldcatalog = wt_fcat ). REFRESH wt_fields. LOOP AT wt_fcat ASSIGNING <fs_fcat> WHERE hotspot = abap_true. ls_fields-sign = 'I'. ls_fields-option = 'EQ'. ls_fields-low = <fs_fcat>-fieldname. INSERT ls_fields INTO TABLE wt_fields. CLEAR <fs_fcat>-hotspot. <fs_fcat>-edit = abap_true. ENDLOOP. wc_grid->set_frontend_fieldcatalog( EXPORTING it_fieldcatalog = wt_fcat ). CALL METHOD wc_grid->set_ready_for_input EXPORTING i_ready_for_input = 1. * We need to undo the hotspots. wc_grid->refresh_table_display( EXPORTING * IS_STABLE = i_soft_refresh = abap_true * exceptions * FINISHED = 1 ). ENDIF. ENDMETHOD. METHOD load_style_table. DATA: ls_dfies TYPE dfies, ls_style TYPE lvc_s_styl. REFRESH wt_style. LOOP AT wt_ddfields INTO ls_dfies. CLEAR ls_style. ls_style-fieldname = ls_dfies-fieldname. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE wt_style. ENDLOOP. ENDMETHOD. METHOD merge_data. DATA: ls_style TYPE lvc_s_styl, ls_color TYPE lvc_s_scol, lt_color TYPE lvc_t_scol, lo_rs TYPE REF TO data, lo_rs1 TYPE REF TO data, lo_l TYPE REF TO data, lo_data TYPE REF TO data, lo_data_r TYPE REF TO data, lo_data_l TYPE REF TO data, ls_key TYPE zsy6_s_sel_fields, ls_dfies TYPE dfies, l_tabix TYPE sytabix, l_tabix_r TYPE sytabix. FIELD-SYMBOLS: <fs_lt> TYPE STANDARD TABLE, <fs_lt1> TYPE STANDARD TABLE, <fs_ls> TYPE ANY, <fs_rls> TYPE ANY, <fs_rls1> TYPE ANY, <fs_rs> TYPE ANY, <fs_rs1> TYPE ANY, <fs_rt> TYPE STANDARD TABLE, <fs_rkt> TYPE STANDARD TABLE, <fs_lkt> TYPE STANDARD TABLE, <fs_lks> TYPE ANY, <fs_rks> TYPE ANY, <fs> TYPE ANY, <fs1> TYPE ANY. CLEAR ls_key. READ TABLE wt_key_fields INTO ls_key WITH KEY datatype = 'CLNT'. ASSIGN wt_data->* TO <fs_lt>. ASSIGN io_key_r->* TO <fs_rkt>. ASSIGN io_key_l->* TO <fs_lkt>. ASSIGN io_data->* TO <fs_rt>. CREATE DATA lo_data LIKE LINE OF <fs_rt>. ASSIGN lo_data->* TO <fs_rs>. CREATE DATA lo_rs1 LIKE LINE OF <fs_rt>. ASSIGN lo_rs1->* TO <fs_rs1>. CREATE DATA lo_rs LIKE LINE OF <fs_lt>. ASSIGN lo_rs->* TO <fs_rls>. CREATE DATA lo_rs1 LIKE LINE OF <fs_lt>. ASSIGN lo_rs1->* TO <fs_rls1>. CREATE DATA lo_l TYPE HANDLE wo_table. ASSIGN lo_l->* TO <fs_lt1>. <fs_lt1> = <fs_lt>. CREATE DATA lo_data_r LIKE LINE OF <fs_rkt>. ASSIGN lo_data_r->* TO <fs_rks>. CREATE DATA lo_data_l LIKE LINE OF <fs_lkt>. ASSIGN lo_data_l->* TO <fs_lks>. IF sy-subrc = 0. DESCRIBE TABLE <fs_lt1> LINES w_lines. LOOP AT <fs_lt1> ASSIGNING <fs_ls>. l_tabix = sy-tabix. READ TABLE <fs_lt> ASSIGNING <fs_rls> INDEX l_tabix. CLEAR <fs_rks>. MOVE-CORRESPONDING <fs_rls> TO <fs_rks>. READ TABLE <fs_rkt> FROM <fs_rks> TRANSPORTING NO FIELDS. IF sy-subrc = 0. l_tabix_r = sy-tabix. * We have same key in both tables need to check if equal values. MOVE-CORRESPONDING <fs_rls> TO <fs_rs1>. READ TABLE <fs_rt> ASSIGNING <fs_rs> INDEX l_tabix_r. IF ls_key IS NOT INITIAL. ASSIGN COMPONENT ls_key-fieldname OF STRUCTURE <fs_rs> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ASSIGN COMPONENT ls_key-fieldname OF STRUCTURE <fs_rs1> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ENDIF. IF <fs_rs1> = <fs_rs>. " Remote and local are equal. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ASSIGN COMPONENT '___SYSID' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = sy-sysid. ENDIF. ASSIGN COMPONENT '___ROWCOLOR' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. ** Populate color variable with colour properties ** Char 1 = C (This is a color property) ** Char 2 = 3 (Color codes: 1 - 7) ** Char 3 = Intensified on/off ( 1 or 0 ) ** Char 4 = Inverse display on/off ( 1 or 0 ) <fs> = 'C510'. " Green ENDIF. ELSE. " We have differences. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = 'DL'. ENDIF. ASSIGN COMPONENT '___SYSID' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = sy-sysid. ENDIF. <fs_rls1> = <fs_rls>. READ TABLE <fs_rt> ASSIGNING <fs_rs> INDEX l_tabix_r. MOVE-CORRESPONDING <fs_rs> TO <fs_rls1>. * Now lets do the color game. REFRESH lt_color. LOOP AT wt_ddfields INTO ls_dfies. ASSIGN COMPONENT ls_dfies-fieldname OF STRUCTURE <fs_rs> TO <fs>. IF sy-subrc = 0. ASSIGN COMPONENT ls_dfies-fieldname OF STRUCTURE <fs_rls> TO <fs1>. IF sy-subrc = 0. IF <fs> <> <fs1>. ls_color-fname = ls_dfies-fieldname. ls_color-color-col = 7. " Orange ls_color-color-int = 1. " Orange ls_color-color-inv = 0. " Orange INSERT ls_color INTO TABLE lt_color. ENDIF. ENDIF. ENDIF. ENDLOOP. ASSIGN COMPONENT '___CELLCOLOR' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = lt_color. ENDIF. ASSIGN COMPONENT '___CELLCOLOR' OF STRUCTURE <fs_rls1> TO <fs>. IF sy-subrc = 0. <fs> = lt_color. ENDIF. ASSIGN COMPONENT '___SYSID' OF STRUCTURE <fs_rls1> TO <fs>. IF sy-subrc = 0. <fs> = i_sysid. ENDIF. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_rls1> TO <fs>. IF sy-subrc = 0. <fs> = 'DR'. ENDIF. ASSIGN COMPONENT '___ORIGIN' OF STRUCTURE <fs_rls1> TO <fs>. IF sy-subrc = 0. <fs> = c_origin_remote. ENDIF. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_rls1> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ASSIGN COMPONENT '___CELLSTYLE' OF STRUCTURE <fs_rls1> TO <fs>. IF sy-subrc = 0. <fs> = wt_style. ENDIF. APPEND <fs_rls1> TO <fs_lt>. ENDIF. ELSE. * table is only in local and not in remote table L ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = 'L'. ENDIF. ASSIGN COMPONENT '___SYSID' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = sy-sysid. ENDIF. ASSIGN COMPONENT '___ORIGIN' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = c_origin_local. ENDIF. ASSIGN COMPONENT '___ROWCOLOR' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = 'C610'. " Red ENDIF. ENDIF. ENDLOOP. * Now we need to only check if we have a record remote but not local. LOOP AT <fs_rt> ASSIGNING <fs_rs>. l_tabix = sy-tabix. CLEAR <fs_lks>. MOVE-CORRESPONDING <fs_rs> TO <fs_lks>. READ TABLE <fs_lkt> FROM <fs_lks> TRANSPORTING NO FIELDS. IF sy-subrc <> 0. l_tabix_r = sy-tabix. * table is only in local and not in remote table L CLEAR <fs_rls>. MOVE-CORRESPONDING <fs_rs> TO <fs_rls>. ASSIGN COMPONENT '___CODES' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = 'R'. ENDIF. ASSIGN COMPONENT '___LINENR' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. w_lines = w_lines + 1. <fs> = w_lines. ENDIF. ASSIGN COMPONENT '___SYSID' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = i_sysid. ENDIF. ASSIGN COMPONENT '___ORIGIN' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = c_origin_remote. ENDIF. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. CLEAR <fs>. ENDIF. ASSIGN COMPONENT '___CELLSTYLE' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = wt_style. ENDIF. ASSIGN COMPONENT '___ROWCOLOR' OF STRUCTURE <fs_rls> TO <fs>. IF sy-subrc = 0. <fs> = 'C610'. " Read ENDIF. APPEND <fs_rls> TO <fs_lt>. ENDIF. ENDLOOP. ENDIF. ENDMETHOD. METHOD msg_count. IF wo_msg IS BOUND. r_count = wo_msg->get_count( ) . ENDIF. ENDMETHOD. METHOD msg_show. IF wo_msg IS BOUND. wo_msg->show( ). ENDIF. ENDMETHOD. method ON_BEFORE_USER_COMMAND. endmethod. METHOD on_button_click. ENDMETHOD. METHOD on_context_menu_request. DATA: lt_fcodes TYPE ui_funcattr, lt_functions TYPE ui_functions, l_functions TYPE ui_func, l_count TYPE int4. e_object->get_functions( IMPORTING fcodes = lt_fcodes ). READ TABLE lt_fcodes TRANSPORTING NO FIELDS WITH KEY fcode = c_ui_func_adjust. IF sy-subrc <> 0 . * .. Trennlinie e_object->add_separator( ). cl_ctmenu=>load_gui_status( EXPORTING program = 'SAPLZSY60' status = '0005' * disable = menu = e_object EXCEPTIONS read_error = 1 ). IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDIF. l_count = wo_msg->get_count( ). IF w_display_only = abap_true. l_functions = c_ui_func_adjust. INSERT l_functions INTO TABLE lt_functions. l_functions = c_ui_func_update. INSERT l_functions INTO TABLE lt_functions. e_object->disable_functions( fcodes = lt_functions ). ELSE. IF l_count > 0. l_functions = c_ui_func_msg. INSERT l_functions INTO TABLE lt_functions. l_functions = c_ui_func_adjust. INSERT l_functions INTO TABLE lt_functions. l_functions = c_ui_func_update. INSERT l_functions INTO TABLE lt_functions. e_object->disable_functions( fcodes = lt_functions ). ELSE. IF w_sync IS INITIAL. l_functions = c_ui_func_adjust. INSERT l_functions INTO TABLE lt_functions. e_object->disable_functions( fcodes = lt_functions ). ENDIF. ENDIF. ENDIF. ENDMETHOD. METHOD on_data_changed. DATA: l_flag TYPE flag, ls_ddfields TYPE dfies, ls_dd05s TYPE dd05s, ls_msg1 TYPE lvc_s_msg1, lt_msg1 TYPE lvc_t_msg1, ls_modi TYPE lvc_s_modi, ls_modi_ TYPE lvc_s_modi, lt_modi TYPE lvc_t_modi, ls_del TYPE lvc_s_moce, ls_ins TYPE lvc_s_moce, ls_style TYPE lvc_s_styl, lt_style TYPE lvc_t_styl, ls_sel_fields TYPE zsy6_s_sel_fields, l_string TYPE string. DATA: l_lang TYPE tcp0c-langu, l_cntry TYPE tcp0c-country, l_mod TYPE tcp0c-modifier, l_updateflag TYPE update_type. DATA: lo_data TYPE REF TO data, ls_data TYPE REF TO data. DATA: l_varkey TYPE vim_enqkey, l_char(500) TYPE c, l_leng TYPE i, l_kleng TYPE i, l_count TYPE i, l_key TYPE flag. DATA: ls_rstable TYPE rstable, lt_row_id TYPE zsy6_t_msg1, ls_row_id TYPE zsy6_s_msg1. FIELD-SYMBOLS: <ls_fs> TYPE ANY, <ls_fs_d> TYPE ANY, <l_fs> TYPE ANY, <fs_msg> TYPE lvc_s_msg1, <fs> TYPE STANDARD TABLE, <fs_d> TYPE STANDARD TABLE. GET LOCALE LANGUAGE l_lang COUNTRY l_cntry MODIFIER l_mod. SET LOCALE LANGUAGE l_lang COUNTRY l_cntry. ASSIGN wt_data->* TO <fs>. ASSIGN wt_data_d->* TO <fs_d>. CREATE DATA ls_data TYPE (w_table). ASSIGN ls_data->* TO <ls_fs>. CREATE DATA lo_data LIKE LINE OF <fs>. ASSIGN lo_data->* TO <ls_fs_d>. * Let's check for new rows. LOOP AT er_data_changed->mt_inserted_rows INTO ls_ins. er_data_changed->modify_cell( i_row_id = ls_ins-row_id i_fieldname = '___SYSID' i_value = sy-sysid ). er_data_changed->modify_cell( i_row_id = ls_ins-row_id i_fieldname = '___ORIGIN' i_value = c_origin_local ). er_data_changed->modify_cell( i_row_id = ls_ins-row_id i_fieldname = '___UPDATEFLAG' i_value = 'I' ). er_data_changed->modify_cell( i_row_id = ls_ins-row_id i_fieldname = '___CELLSTYLE' i_value = lt_style ). w_lines = w_lines + 1. er_data_changed->modify_cell( i_row_id = ls_ins-row_id i_fieldname = '___LINENR' i_value = w_lines ). LOOP AT wt_ddfields INTO ls_ddfields WHERE datatype = 'CLNT'. * if ls_ddfields-datatype = 'CLNT'. er_data_changed->modify_cell( i_row_id = ls_ins-row_id i_fieldname = ls_ddfields-fieldname i_value = sy-mandt ). * else. * er_data_changed->modify_cell( * i_row_id = ls_ins-row_id * i_fieldname = ls_ddfields-fieldname * i_value = space ). * endif. ENDLOOP. * remmeber line to clean error log ls_row_id-linenr = w_lines. ls_row_id-row_id = ls_ins-row_id. INSERT ls_row_id INTO TABLE lt_row_id. ENDLOOP. * Now let's look at deleted cells. LOOP AT er_data_changed->mt_deleted_rows INTO ls_del. READ TABLE <fs> INTO <ls_fs_d> INDEX ls_del-row_id. IF sy-subrc EQ 0 . * First we need the lock CLEAR: l_varkey, l_char, l_leng. LOOP AT wt_ddfields INTO ls_ddfields WHERE keyflag = abap_true. ASSIGN COMPONENT ls_ddfields-fieldname OF STRUCTURE <ls_fs_d> TO <l_fs>. IF sy-subrc = 0. l_kleng = ls_ddfields-leng. l_char+l_leng(l_kleng) = <l_fs>. l_leng = l_leng + l_kleng. ELSE. CLEAR: l_varkey, l_char. EXIT. ENDIF. ENDLOOP. l_varkey = l_char. CALL FUNCTION 'ENQUEUE_E_TABLE' EXPORTING mode_rstable = 'E' tabname = w_table varkey = l_varkey EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3. IF sy-subrc <> 0. CALL METHOD er_data_changed->add_protocol_entry EXPORTING i_msgid = sy-msgid i_msgno = sy-msgno i_msgty = sy-msgty i_msgv1 = sy-msgv1 i_msgv2 = sy-msgv2 i_msgv3 = sy-msgv3 i_msgv4 = sy-msgv4 i_fieldname = ls_modi_-fieldname i_row_id = ls_modi_-row_id. ELSE. ls_rstable-tabname = w_table. ls_rstable-varkey = l_varkey. INSERT ls_rstable INTO TABLE wt_rstable. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <ls_fs_d> TO <l_fs> . IF <l_fs> <> 'I'. INSERT <ls_fs_d> INTO TABLE <fs_d>. ENDIF. ENDIF. * remmeber line to clean error log ASSIGN COMPONENT '___LINENR' OF STRUCTURE <ls_fs_d> TO <l_fs> . ls_row_id-linenr = <l_fs>. ls_row_id-row_id = ls_del-row_id. INSERT ls_row_id INTO TABLE lt_row_id. ENDIF. ENDLOOP. * Now let's check on modified cells. lt_modi = er_data_changed->mt_mod_cells. LOOP AT lt_modi INTO ls_modi. READ TABLE er_data_changed->mt_good_cells TRANSPORTING NO FIELDS WITH KEY row_id = ls_modi-row_id tabix = ls_modi-tabix fieldname = ls_modi-fieldname. IF sy-subrc NE 0. " We always change not our call do what you want er_data_changed->modify_cell( i_row_id = ls_modi-row_id i_tabix = ls_modi-tabix i_fieldname = ls_modi-fieldname i_value = ls_modi-value ). ENDIF. ls_modi_ = ls_modi. AT NEW row_id. * First we need the lock. CLEAR: l_varkey, l_char, l_leng, l_key. er_data_changed->get_cell_value( EXPORTING i_row_id = ls_modi_-row_id i_tabix = ls_modi_-tabix i_fieldname = '___UPDATEFLAG' IMPORTING e_value = l_updateflag ). * remmeber line to clean error log er_data_changed->get_cell_value( EXPORTING i_row_id = ls_modi_-row_id i_tabix = ls_modi_-tabix i_fieldname = '___LINENR' IMPORTING e_value = ls_row_id-linenr ). ls_row_id-row_id = ls_modi_-row_id. INSERT ls_row_id INTO TABLE lt_row_id. LOOP AT wt_ddfields INTO ls_ddfields WHERE keyflag = abap_true. ASSIGN COMPONENT ls_ddfields-fieldname OF STRUCTURE <ls_fs_d> TO <l_fs>. IF sy-subrc = 0. er_data_changed->get_cell_value( EXPORTING i_row_id = ls_modi_-row_id i_tabix = ls_modi_-tabix i_fieldname = ls_ddfields-fieldname IMPORTING e_value = <l_fs> ). l_kleng = ls_ddfields-leng. l_char+l_leng(l_kleng) = <l_fs>. l_leng = l_leng + l_kleng. IF <l_fs> IS INITIAL. l_key = abap_true. ENDIF. ELSE. CLEAR: l_varkey, l_char. EXIT. ENDIF. ENDLOOP. l_varkey = l_char. IF ( l_key IS INITIAL AND l_updateflag = 'I' ) OR " We have a full key for new l_updateflag <> 'I' . "We use what we have in any other case. CALL FUNCTION 'ENQUEUE_E_TABLE' EXPORTING mode_rstable = 'E' tabname = w_table varkey = l_varkey EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3. ENDIF. IF sy-subrc <> 0. CALL METHOD er_data_changed->add_protocol_entry EXPORTING i_msgid = sy-msgid i_msgno = sy-msgno i_msgty = sy-msgty i_msgv1 = sy-msgv1 i_msgv2 = sy-msgv2 i_msgv3 = sy-msgv3 i_msgv4 = sy-msgv4 i_fieldname = ls_modi_-fieldname i_row_id = ls_modi_-row_id. ELSE. ls_rstable-tabname = w_table. ls_rstable-varkey = l_varkey. INSERT ls_rstable INTO TABLE wt_rstable. IF l_updateflag IS INITIAL. er_data_changed->modify_cell( i_row_id = ls_modi_-row_id i_tabix = ls_modi_-tabix i_fieldname = '___UPDATEFLAG' i_value = 'U' ). ENDIF. IF l_updateflag = 'I'. CLEAR l_string. * let's get cell values. LOOP AT wt_sel_fields INTO ls_sel_fields WHERE keyflag = abap_true. ASSIGN COMPONENT ls_sel_fields-fieldname OF STRUCTURE <ls_fs> TO <l_fs> . er_data_changed->get_cell_value( EXPORTING i_row_id = ls_modi_-row_id i_tabix = ls_modi_-tabix i_fieldname = ls_sel_fields-fieldname IMPORTING e_value = <l_fs> ). IF l_string IS INITIAL. CONCATENATE ls_sel_fields-fieldname '= ''' INTO l_string SEPARATED BY space. ELSE. CONCATENATE l_string 'AND' ls_sel_fields-fieldname '= ''' INTO l_string SEPARATED BY space. ENDIF. CONCATENATE l_string <l_fs> '''' INTO l_string. ENDLOOP. SELECT SINGLE * INTO <ls_fs> FROM (w_table) WHERE (l_string). IF sy-subrc EQ 0 . CALL METHOD er_data_changed->add_protocol_entry EXPORTING i_msgid = 'SV' i_msgno = '015' i_msgty = 'E' i_fieldname = ls_modi_-fieldname i_row_id = ls_modi_-row_id. ENDIF. ENDIF. ENDIF. ENDAT. ENDLOOP. * Now let's see if we need to clear an error. * We ignore all errors and show error msg box instead lt_msg1 = er_data_changed->mt_protocol. LOOP AT lt_msg1 ASSIGNING <fs_msg>. READ TABLE lt_row_id INTO ls_row_id WITH KEY row_id = <fs_msg>-row_id. IF sy-subrc = 0. <fs_msg>-row_id = ls_row_id-linenr. ENDIF. ENDLOOP. LOOP AT lt_msg1 INTO ls_msg1. DELETE wt_msg1 WHERE row_id = ls_msg1-row_id. ENDLOOP. * perhaps change and/or deleted without error. LOOP AT lt_row_id INTO ls_row_id. DELETE wt_msg1 WHERE row_id = ls_row_id-linenr. ENDLOOP. INSERT LINES OF lt_msg1 INTO TABLE wt_msg1. er_data_changed->refresh_protocol( ) . l_leng = wo_msg->get_count( ). wo_msg->reset( ) . * For message boc only next errors. lt_msg1 = wt_msg1. DELETE ADJACENT DUPLICATES FROM lt_msg1 COMPARING msgid msgno row_id. DESCRIBE TABLE lt_msg1 LINES l_count. LOOP AT lt_msg1 INTO ls_msg1. IF l_count = 1. wo_msg->set( mid = ls_msg1-msgid num = ls_msg1-msgno pa1 = ls_msg1-msgv1 pa2 = ls_msg1-msgv2 pa3 = ls_msg1-msgv3 pa4 = ls_msg1-msgv4 typ = 'I' no_duplicate = ' ' ). ELSE. wo_msg->set( mid = ls_msg1-msgid num = ls_msg1-msgno pa1 = ls_msg1-msgv1 pa2 = ls_msg1-msgv2 pa3 = ls_msg1-msgv3 pa4 = ls_msg1-msgv4 typ = ls_msg1-msgty no_duplicate = ' ' ). ENDIF. ENDLOOP. IF ( sy-subrc = 0 AND l_leng = 0 ) OR ( sy-subrc <> 0 AND l_leng > 0 ). cl_gui_cfw=>set_new_ok_code( new_code = 'ENTER' ) . ENDIF. ENDMETHOD. METHOD on_data_changed_finished. ENDMETHOD. METHOD ON_F4. ENDMETHOD. method ON_HOTSPOT_CLICK. endmethod. METHOD ON_MENU_BUTTON. DATA: lt_func TYPE ui_funcattr. e_object->get_functions( IMPORTING fcodes = lt_func ). ENDMETHOD. METHOD on_toolbar. DATA: ls_toolbar TYPE stb_button, l_count TYPE sy-tabix. * First let see if we are active or inactive. * IF wo_msg IS BOUND. * l_count = wo_msg->get_count( ). * ENDIF. * IF l_count = 0. * LOOP AT e_object->mt_toolbar INTO ls_toolbar WHERE function = c_ui_func_msg. * ls_toolbar-disabled = abap_true. * MODIFY e_object->mt_toolbar FROM ls_toolbar. * ENDLOOP. * IF sy-subrc <> 0. * CLEAR ls_toolbar. * MOVE 3 TO ls_toolbar-butn_type. * APPEND ls_toolbar TO e_object->mt_toolbar. * CLEAR ls_toolbar. * MOVE c_ui_func_msg TO ls_toolbar-function. "#EC NOTEXT * MOVE icon_error_protocol TO ls_toolbar-icon. * MOVE 'Error Log'(014) TO ls_toolbar-quickinfo. * MOVE 'Error Log'(014) TO ls_toolbar-text. * MOVE abap_true TO ls_toolbar-disabled. "#EC NOTEXT * APPEND ls_toolbar TO e_object->mt_toolbar. * ENDIF. * ELSE. * LOOP AT e_object->mt_toolbar INTO ls_toolbar WHERE function = c_ui_func_msg. * ls_toolbar-disabled = abap_false. * MODIFY e_object->mt_toolbar FROM ls_toolbar. * ENDLOOP. * IF sy-subrc <> 0. * CLEAR ls_toolbar. * MOVE 3 TO ls_toolbar-butn_type. * APPEND ls_toolbar TO e_object->mt_toolbar. * CLEAR ls_toolbar. * MOVE c_ui_func_msg TO ls_toolbar-function. "#EC NOTEXT * MOVE icon_error_protocol TO ls_toolbar-icon. * MOVE 'Error Log'(014) TO ls_toolbar-quickinfo. * MOVE 'Error Log'(014) TO ls_toolbar-text. * MOVE abap_false TO ls_toolbar-disabled. "#EC NOTEXT * APPEND ls_toolbar TO e_object->mt_toolbar. * ENDIF. * ENDIF. * * IF w_display_only = abap_true OR w_sync IS INITIAL. * LOOP AT e_object->mt_toolbar INTO ls_toolbar WHERE function = c_ui_func_adjust. * ls_toolbar-disabled = abap_true. * MODIFY e_object->mt_toolbar FROM ls_toolbar. * ENDLOOP. * IF sy-subrc <> 0. * CLEAR ls_toolbar. * MOVE c_ui_func_adjust TO ls_toolbar-function. "#EC NOTEXT * MOVE icon_relation TO ls_toolbar-icon. * MOVE 'Adjust from remote data'(017) TO ls_toolbar-quickinfo. * MOVE 'Adjust'(016) TO ls_toolbar-text. * MOVE abap_true TO ls_toolbar-disabled. "#EC NOTEXT * APPEND ls_toolbar TO e_object->mt_toolbar. * ENDIF. * ELSEIF w_sync = abap_true. * LOOP AT e_object->mt_toolbar INTO ls_toolbar WHERE function = c_ui_func_adjust. * ls_toolbar-disabled = abap_false. * MODIFY e_object->mt_toolbar FROM ls_toolbar. * ENDLOOP. * IF sy-subrc <> 0. * CLEAR ls_toolbar. * MOVE c_ui_func_adjust TO ls_toolbar-function. "#EC NOTEXT * MOVE icon_relation TO ls_toolbar-icon. * MOVE 'Adjust from remote data'(017) TO ls_toolbar-quickinfo. * MOVE 'Adjust'(016) TO ls_toolbar-text. * MOVE abap_false TO ls_toolbar-disabled. "#EC NOTEXT * APPEND ls_toolbar TO e_object->mt_toolbar. * ENDIF. * ENDIF. ENDMETHOD. METHOD on_user_command. CASE e_ucomm . WHEN c_ui_func_msg . IF wo_msg IS BOUND. wo_msg->show( ). ENDIF. WHEN c_ui_func_adjust. adjust_local_from_remote( ). WHEN c_ui_func_update. update_with( ). ENDCASE . ENDMETHOD. method REFRESH_SELECTION. data: lt_rows type lvc_t_row, lt_row_no type lvc_t_roid. wc_grid->get_selected_rows( importing et_index_rows = lt_rows et_row_no = lt_row_no ). endmethod. METHOD save. DATA: l_string TYPE string, l_value TYPE string, l_count TYPE i, lo_data TYPE REF TO data, lo_data_d TYPE REF TO data, lo_data_t TYPE REF TO data, ls_style TYPE lvc_s_styl, lt_style TYPE lvc_t_styl, ls_sel_fields TYPE zsy6_s_sel_fields, l_answer(1) TYPE c VALUE '1'. FIELD-SYMBOLS: <ls_fs> TYPE any, <ls_fs_t> TYPE any, <ls_fs_d> TYPE any, <l_fs> TYPE any, <l_fs_u> TYPE any, <fs> TYPE ANY TABLE, <fs_d> TYPE ANY TABLE. ASSIGN wt_data->* TO <fs>. ASSIGN wt_data_d->* TO <fs_d>. CREATE DATA lo_data_t TYPE (w_table). ASSIGN lo_data_t->* TO <ls_fs_t>. * lET'S THE STYLE. LOOP AT wt_sel_fields INTO ls_sel_fields WHERE keyflag = abap_true. ls_style-fieldname = ls_sel_fields-fieldname. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE lt_style. ENDLOOP. * wc_grid->check_changed_data( * IMPORTING * e_valid = * CHANGING * c_refresh = 'X' ). l_count = wo_msg->show( ) . IF l_count > 0 . clear l_answer. CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING * TITLEBAR = ' ' * DIAGNOSE_OBJECT = ' ' text_question = 'Try to save with errors?'(018) * text_button_1 = 'Yes'(019) * ICON_BUTTON_1 = ' ' * text_button_2 = 'No'(020) * ICON_BUTTON_2 = ' ' * DEFAULT_BUTTON = '1' display_cancel_button = 'X' * USERDEFINED_F1_HELP = ' ' * START_COLUMN = 25 * START_ROW = 6 * POPUP_TYPE = * IV_QUICKINFO_BUTTON_1 = ' ' * IV_QUICKINFO_BUTTON_2 = ' ' IMPORTING answer = l_answer * TABLES * PARAMETER = EXCEPTIONS text_not_found = 1 OTHERS = 2. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDIF. IF l_answer = '1'. * First update LOOP AT <fs> ASSIGNING <ls_fs>. CLEAR <ls_fs_t>. MOVE-CORRESPONDING <ls_fs> TO <ls_fs_t>. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <ls_fs> TO <l_fs_u>. CASE <l_fs_u>. WHEN 'U'. CLEAR l_string. LOOP AT wt_sel_fields INTO ls_sel_fields WHERE keyflag = abap_true. ASSIGN COMPONENT ls_sel_fields-fieldname OF STRUCTURE <ls_fs_t> TO <l_fs>. IF sy-subrc = 0. l_value = <l_fs>. IF strlen( l_string ) = 0. CONCATENATE ls_sel_fields-fieldname '= ''' INTO l_string SEPARATED BY space. ELSE. CONCATENATE l_string 'AND' ls_sel_fields-fieldname '= ''' INTO l_string SEPARATED BY space. ENDIF. CONCATENATE l_string l_value '''' INTO l_string. ELSE. * WE STOP AND DON'T DO ANYTHING THIS IS A STRANGE ERROR. CLEAR l_string. EXIT. ENDIF. ENDLOOP. IF strlen( l_string ) > 0. IF w_mandt = abap_true. DELETE FROM (w_table) CLIENT SPECIFIED WHERE (l_string). ELSE. DELETE FROM (w_table) WHERE (l_string). ENDIF. IF sy-subrc EQ 0 . IF w_mandt = abap_true. INSERT INTO (w_table) CLIENT SPECIFIED VALUES <ls_fs_t>. ELSE. INSERT INTO (w_table) VALUES <ls_fs_t>. ENDIF. IF sy-subrc EQ 0 . CLEAR <l_fs_u>. ENDIF. ENDIF. ENDIF. WHEN 'I'. IF w_mandt = abap_true. INSERT INTO (w_table) CLIENT SPECIFIED VALUES <ls_fs_t>. ELSE. INSERT INTO (w_table) VALUES <ls_fs_t>. ENDIF. IF sy-subrc EQ 0 . CLEAR <l_fs_u>. ASSIGN COMPONENT '___CELLSTYLE' OF STRUCTURE <ls_fs> TO <l_fs_u>. <l_fs_u> = lt_style. ENDIF. ENDCASE. ENDLOOP. * Now we do delete LOOP AT <fs_d> ASSIGNING <ls_fs_d>. CLEAR l_string. LOOP AT wt_sel_fields INTO ls_sel_fields WHERE keyflag = abap_true. ASSIGN COMPONENT ls_sel_fields-fieldname OF STRUCTURE <ls_fs_d> TO <l_fs>. IF sy-subrc = 0. l_value = <l_fs>. IF strlen( l_string ) = 0. CONCATENATE ls_sel_fields-fieldname '= ''' INTO l_string SEPARATED BY space. ELSE. CONCATENATE l_string 'AND' ls_sel_fields-fieldname '= ''' INTO l_string SEPARATED BY space. ENDIF. CONCATENATE l_string l_value '''' INTO l_string. ELSE. * WE STOP AND DON'T DO ANYTHING THIS IS A STRANGE ERROR. CLEAR l_string. EXIT. ENDIF. ENDLOOP. IF strlen( l_string ) > 0. IF w_mandt = abap_true. DELETE FROM (w_table) CLIENT SPECIFIED WHERE (l_string). ELSE. DELETE FROM (w_table) WHERE (l_string). ENDIF. ENDIF. ENDLOOP. REFRESH <fs_d>. wo_msg->reset( ) . REFRESH wt_msg1. display( i_flag = abap_true ) . wc_grid->refresh_table_display( ) . ENDIF. ENDMETHOD. METHOD set_for_display. DATA: ls_fcat TYPE lvc_s_fcat, lt_fcat TYPE lvc_t_fcat. DATA: ls_layout TYPE lvc_s_layo, ls_variant TYPE disvariant, "for parameter IS_VARIANT l_toolbar TYPE c. DATA: l_repid TYPE sy-repid, lt_toolbar TYPE ui_functions. DATA: l_lines TYPE i. DATA: ls_ddfields TYPE dfies, ls_sel_fields TYPE zsy6_s_sel_fields, ls_style TYPE lvc_s_styl, lt_style TYPE lvc_t_styl, ls_config TYPE zsyh_s_config, l_ucomm TYPE syucomm VALUE '___LINES___', lt_ucomm TYPE ui_functions. DATA: lo_addit TYPE REF TO cl_abap_elemdescr, lo_addit_table TYPE REF TO cl_abap_tabledescr, lo_addit_struc TYPE REF TO cl_abap_structdescr, lt_components_tab1 TYPE cl_abap_structdescr=>component_table, lt_components_tab TYPE cl_abap_structdescr=>component_table, ls_components TYPE abap_componentdescr. DATA: lo_data TYPE REF TO data. FIELD-SYMBOLS: <fs> TYPE STANDARD TABLE, <l_fs> TYPE any, <ls_fs> TYPE any, <ls_fs_g> TYPE any. set_table( EXPORTING i_table = i_table i_mandt = i_mandt ). * We start new. wo_msg->reset( ) . REFRESH: wt_msg1, wt_fields. CLEAR w_sync. CLEAR ls_layout. ls_layout-cwidth_opt = abap_true. ls_layout-zebra = abap_true. ls_layout-info_fname = '___ROWCOLOR' . ls_layout-box_fname = '___ROWMARK' . ls_layout-ctab_fname = '___CELLCOLOR' . ls_layout-stylefname = '___CELLSTYLE' . ls_layout-sel_mode = 'D'. * ls_layout-edit = abap_true. CONCATENATE c_progname_ w_table INTO l_repid. ls_variant-report = l_repid. toolbar_buttons( CHANGING xt_toolbar = lt_toolbar ). REFRESH: wt_fcat. * Lets get the definitions per default CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' EXPORTING * i_buffer_active = i_structure_name = w_table i_client_never_display = abap_false i_bypassing_buffer = abap_true CHANGING ct_fieldcat = lt_fcat[] * EXCEPTIONS * INCONSISTENT_INTERFACE = 1 * PROGRAM_ERROR = 2 * OTHERS = 3 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. LOOP AT lt_fcat INTO ls_fcat. IF ls_fcat-datatype = 'CLNT' AND i_mandt = abap_false. ls_fcat-tech = abap_true. ELSE. ls_fcat-edit = abap_true. ENDIF. IF ws_rseumod-tbmode IS INITIAL. ls_fcat-coltext = ls_fcat-fieldname. ENDIF. MODIFY lt_fcat FROM ls_fcat . ENDLOOP. DESCRIBE TABLE wt_fcat_style LINES l_lines. wt_fcat = wt_fcat_style. LOOP AT lt_fcat INTO ls_fcat. ls_fcat-col_pos = ls_fcat-col_pos + l_lines. INSERT ls_fcat INTO TABLE wt_fcat. ENDLOOP. " First get the style fields LOOP AT wt_ddstyle INTO ls_ddfields. "then get comp of addit tables/struct for grid ls_components-name = ls_ddfields-fieldname. CASE ls_ddfields-comptype. WHEN 'L'. lo_addit_table ?= cl_abap_typedescr=>describe_by_name( ls_ddfields-rollname ). ls_components-type = lo_addit_table . INSERT ls_components INTO TABLE lt_components_tab. WHEN 'E'. lo_addit ?= cl_abap_typedescr=>describe_by_name( ls_ddfields-rollname ). ls_components-type = lo_addit . INSERT ls_components INTO TABLE lt_components_tab. ENDCASE. ENDLOOP. "second get all components of user table wo_struc ?= cl_abap_typedescr=>describe_by_name( w_table ). lt_components_tab1 = wo_struc->get_components( ). APPEND LINES OF lt_components_tab1 TO lt_components_tab. "create new line type TRY. wo_struc = cl_abap_structdescr=>create( p_components = lt_components_tab p_strict = abap_false ). CATCH cx_sy_struct_creation. RETURN. ENDTRY. wo_table = cl_abap_tabledescr=>create( wo_struc ). CREATE DATA wt_data TYPE HANDLE wo_table. CREATE DATA wt_data_d TYPE HANDLE wo_table. GET REFERENCE OF it_table[] INTO wo_tabledata. ASSIGN wt_data->* TO <fs>. CREATE DATA lo_data LIKE LINE OF <fs>. ASSIGN lo_data->* TO <ls_fs_g>. LOOP AT wt_key_fields INTO ls_sel_fields. ls_style-fieldname = ls_sel_fields-fieldname. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE lt_style. ENDLOOP. CLEAR w_lines. LOOP AT it_table ASSIGNING <ls_fs>. w_lines = w_lines + 1. MOVE-CORRESPONDING <ls_fs> TO <ls_fs_g>. ASSIGN COMPONENT '___CELLSTYLE' OF STRUCTURE <ls_fs_g> TO <l_fs>. IF sy-subrc = 0. <l_fs> = lt_style. ENDIF. ASSIGN COMPONENT '___LINENR' OF STRUCTURE <ls_fs_g> TO <l_fs>. IF sy-subrc = 0. <l_fs> = w_lines. ENDIF. ASSIGN COMPONENT '___SYSID' OF STRUCTURE <ls_fs_g> TO <l_fs>. IF sy-subrc = 0. IF <l_fs> IS INITIAL. <l_fs> = sy-sysid. ENDIF. ENDIF. ASSIGN COMPONENT '___ORIGIN' OF STRUCTURE <ls_fs_g> TO <l_fs>. IF sy-subrc = 0. IF <l_fs> IS INITIAL. <l_fs> = c_origin_local. ENDIF. ENDIF. INSERT <ls_fs_g> INTO TABLE <fs>. ENDLOOP. * Lets run set display for first time wc_grid->set_table_for_first_display( EXPORTING * i_buffer_active = i_bypassing_buffer = abap_true * i_consistency_check = * i_structure_name = w_table is_variant = ls_variant * i_save = * i_default = 'X' is_layout = ls_layout * is_print = * it_special_groups = it_toolbar_excluding = lt_toolbar * it_hyperlink = * it_alv_graphics = * it_except_qinfo = * ir_salv_adapter = CHANGING it_outtab = <fs> it_fieldcatalog = wt_fcat * it_sort = * it_filter = * EXCEPTIONS * invalid_parameter_combination = 1 * program_error = 2 * too_many_lines = 3 ). IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. IF class_exists( i_clsname = c_hotspot ) = abap_true. INSERT l_ucomm INTO TABLE ls_config-exclude_ucomm. * Let's try hotspots CALL METHOD (c_hotspot)=>factory EXPORTING it_data = <fs> is_config = ls_config ic_grid = wc_grid. ENDIF. * AT THE END WE SET INPUT NO FOR START display( ) . * INSERT c_ui_func_update INTO TABLE lt_ucomm. * INSERT c_ui_func_msg INTO TABLE lt_ucomm. * INSERT c_ui_func_adjust INTO TABLE lt_ucomm. * wc_grid->process_ucomm_on_invalid_input( EXPORTING it_ucomms = lt_ucomm ). ENDMETHOD. METHOD SHOW_SELECTION. ENDMETHOD. METHOD TOOLBAR_BUTTONS. DATA: ls_toolbar TYPE ui_func. REFRESH xt_toolbar. * Drilldown Totals Level * ls_toolbar = cl_gui_alv_grid=>mc_fc_auf . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Calculate Average * ls_toolbar = cl_gui_alv_grid=>mc_fc_average . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Check Entries * ls_toolbar = cl_gui_alv_grid=>mc_fc_check . * INSERT ls_toolbar INTO TABLE xt_toolbar . * ABC Analysis * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_abc . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Call Sequence * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_chain . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Seagate Info Batch Processing * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_crbatch . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Seagate Info Web Processing * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_crweb . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Line Items * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_lineitems . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Master Data * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_master_data . * INSERT ls_toolbar INTO TABLE xt_toolbar . * More Calls * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_more . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Call Report * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_report . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Additional Functions of SAPQuery * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_xint . * INSERT ls_toolbar INTO TABLE xt_toolbar . * XXL - Excel * ls_toolbar = cl_gui_alv_grid=>mc_fc_call_xxl . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Current Variant * ls_toolbar = cl_gui_alv_grid=>mc_fc_current_variant . * INSERT ls_toolbar INTO TABLE xt_toolbar . * Save Data * ls_toolbar = cl_gui_alv_grid=>mc_fc_data_save . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_delete_filter . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_filter . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_find . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_graph . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_html . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_info . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_load_variant . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_copy . * INSERT ls_toolbar INTO TABLE xt_toolbar . ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_append_row . INSERT ls_toolbar INTO TABLE xt_toolbar . ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_copy_row . INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_cut . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_delete_row . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_insert_row . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_move_row . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_paste . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_paste_new_row . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_loc_undo . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_maintain_variant . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_maximum . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_minimum . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_pc_file . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_url_copy_to_clipboard . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_print . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_print_back . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_print_prev . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_refresh . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_save_variant . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_select_all . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_send . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_separator . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_sort . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_sort_asc . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_sort_dsc . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_subtot . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_sum . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_to_office . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_to_rep_tree . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_views . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_view_crystal . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_view_excel . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_view_grid . * INSERT ls_toolbar INTO TABLE xt_toolbar . * * ls_toolbar = cl_gui_alv_grid=>mc_fc_word_processor . * INSERT ls_toolbar INTO TABLE xt_toolbar . ENDMETHOD. METHOD update_cells. DATA: ls_cell TYPE lvc_s_cell, lt_cell TYPE lvc_t_cell, l_index TYPE sytabix, l_lines TYPE int4. FIELD-SYMBOLS: <fs> TYPE ANY, <fs1> TYPE ANY, <fs_lt> TYPE STANDARD TABLE, <fs_ls> TYPE ANY. wc_grid->get_selected_cells( IMPORTING et_cell = lt_cell ). ASSIGN io_field->* TO <fs1>. ASSIGN wt_data->* TO <fs_lt>. LOOP AT lt_cell INTO ls_cell. l_index = ls_cell-row_id-index. READ TABLE it_fidx TRANSPORTING NO FIELDS FROM l_index. IF sy-subrc = 0. CONTINUE. ENDIF. READ TABLE <fs_lt> ASSIGNING <fs_ls> INDEX l_index. IF sy-subrc = 0. ASSIGN COMPONENT '___ORIGIN' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. IF <fs> = 'L'. ASSIGN COMPONENT ls_cell-col_id-fieldname OF STRUCTURE <fs_ls> TO <fs>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs> = <fs1>. x_found = abap_true. ENDIF. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. IF <fs> IS INITIAL. <fs> = 'U'. ENDIF. ENDIF. ENDIF. ENDIF. ENDIF. ENDLOOP. ENDMETHOD. METHOD update_columns. DATA: ls_col TYPE lvc_s_col, lt_col TYPE lvc_t_col, l_index TYPE sytabix, l_lines TYPE int4. FIELD-SYMBOLS: <fs> TYPE ANY, <fs1> TYPE ANY, <fs_lt> TYPE STANDARD TABLE, <fs_ls> TYPE ANY. wc_grid->get_selected_columns( IMPORTING et_index_columns = lt_col ). ASSIGN io_field->* TO <fs1>. ASSIGN wt_data->* TO <fs_lt>. DESCRIBE TABLE lt_col LINES l_lines. IF l_lines > 0. LOOP AT <fs_lt> ASSIGNING <fs_ls>. l_index = sy-tabix. ASSIGN COMPONENT '___ORIGIN' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. IF <fs> = 'L'. READ TABLE it_fidx TRANSPORTING NO FIELDS FROM l_index. IF sy-subrc = 0. CONTINUE. ENDIF. LOOP AT lt_col INTO ls_col. ASSIGN COMPONENT ls_col-fieldname OF STRUCTURE <fs_ls> TO <fs>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs> = <fs1>. x_found = abap_true. ENDIF. ENDLOOP. ASSIGN COMPONENT '___UPDATEFLAG' OF STRUCTURE <fs_ls> TO <fs>. IF sy-subrc = 0. IF <fs> IS INITIAL. <fs> = 'U'. ENDIF. ENDIF. ENDIF. ENDIF. ENDLOOP. ENDIF. ENDMETHOD. METHOD update_with. DATA: l_found TYPE abap_bool. DATA: ls_col TYPE lvc_s_col, ls_dfies TYPE dfies, lt_fidx TYPE lvc_t_fidx, lo_field TYPE REF TO data, l_name001 TYPE char70. wc_grid->get_current_cell( IMPORTING es_col_id = ls_col ). CONCATENATE w_table '-' ls_col-fieldname INTO l_name001. CREATE DATA lo_field TYPE (l_name001). READ TABLE wt_ddfields INTO ls_dfies WITH KEY fieldname = ls_col-fieldname. CALL FUNCTION 'ZSY60_UPDATE_WITH' EXPORTING i_tabname = w_table i_fieldname = ls_col-fieldname i_text = ls_dfies-fieldtext CHANGING xo_data = lo_field EXCEPTIONS no_update = 1 OTHERS = 2. IF sy-subrc = 0. wc_grid->get_filtered_entries( IMPORTING et_filtered_entries = lt_fidx ) . update_columns( EXPORTING io_field = lo_field it_fidx = lt_fidx CHANGING x_found = l_found ) . update_cells( EXPORTING io_field = lo_field it_fidx = lt_fidx CHANGING x_found = l_found ) . ENDIF. IF l_found = abap_true. wc_grid->refresh_table_display( ) . ELSE. MESSAGE i001. ENDIF. ENDMETHOD. *"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes *"* use this source file for any type declarations (class *"* definitions, interfaces or data types) you need for method *"* implementation or private method's signature *"* use this source file for any macro definitions you need *"* in the implementation part of the class PROCESS BEFORE OUTPUT. MODULE status_0001. PROCESS AFTER INPUT. MODULE exit AT EXIT-COMMAND. MODULE user_command_0001. process before output. module status_0002. call subscreen selection including w_prog z_c_sy6_main=>c_dynnr. process after input. call subscreen selection. module user_command_0002. PROCESS BEFORE OUTPUT. MODULE STATUS_0003. * PROCESS AFTER INPUT. MODULE USER_COMMAND_0003. PROCESS BEFORE OUTPUT. MODULE STATUS_0004. * PROCESS AFTER INPUT. MODULE USER_COMMAND_0004. PROCESS BEFORE OUTPUT. MODULE status_0005. MODULE create_grid. PROCESS AFTER INPUT. MODULE user_command_0005. ******************************************************************* * System-defined Include-files. * ******************************************************************* INCLUDE LZSY60TOP. " Global Data INCLUDE LZSY60UXX. " Function Modules ******************************************************************* * User-defined Include-files (if necessary). * ******************************************************************* * INCLUDE LZSY_SE16F... " Subprograms * INCLUDE LZSY_SE16O... " PBO-Modules * INCLUDE LZSY_SE16I... " PAI-Modules INCLUDE LZSY60F01. INCLUDE LZSY60F02. INCLUDE LZSY60F03. INCLUDE LZSY60O01. INCLUDE LZSY60O02. INCLUDE LZSY60O03. INCLUDE LZSY60O04. INCLUDE LZSY60O05. INCLUDE LZSY60I01. INCLUDE LZSY60I02. INCLUDE LZSY60I03. INCLUDE LZSY60I04. INCLUDE LZSY60I05. INCLUDE LZSY60F05. *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16F01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form SET_SCREEN_OPTIONS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM set_screen_options . DATA: l_tname TYPE default_va, lt_sel_fields TYPE zsy6_t_sel_fields, ls_sel_fields TYPE zsy6_s_sel_fields. FIELD-SYMBOLS: <l_fs> TYPE default_va, <lt_fs> TYPE ANY TABLE, <ls_fs> TYPE ANY. lt_sel_fields = wo_table->get_sel_fields( ). LOOP AT lt_sel_fields INTO ls_sel_fields. IF ls_sel_fields-datatype = 'CLNT'. w_mandt = abap_true. ENDIF. PERFORM clear_select_option IN PROGRAM (w_prog) USING ls_sel_fields-selname. ASSIGN (ls_sel_fields-varname) TO <l_fs>. IF sy-subrc EQ 0. <l_fs> = w_table. CONCATENATE <l_fs> '-' ls_sel_fields-fieldname INTO <l_fs>. ENDIF. ENDLOOP. ENDFORM. " SET_SCREEN_OPTIONS *&---------------------------------------------------------------------* *& Form GET_USER_VALUE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_user_value . IF *rseumod IS INITIAL. *rseumod = z_c_sy6_grid=>ws_rseumod. ENDIF. ENDFORM. " GET_USER_VALUE *&---------------------------------------------------------------------* *& Form OPTIONS_CHANGE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_RSEUMOD text *----------------------------------------------------------------------* FORM options_change CHANGING ps_rseumod STRUCTURE rseumod. CALL FUNCTION 'RS_WORKBENCH_CUSTOMIZING' EXPORTING choice = 'DB' * SUPPRESS_DIALOG = IMPORTING setting = *rseumod EXCEPTIONS OTHERS = 1. ps_rseumod = *rseumod. ENDFORM. " OPTIONS_CHANGE *&---------------------------------------------------------------------* *& Form DISPLAY_CHANGE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM display_change . DATA: l_fieldname TYPE fieldname. w_display_only = wo_grid->w_display_only. IF w_display_only = ''. w_display_only = abap_true. IF wo_grid->w_sync = abap_true. w_sync_allowed = 'D'. ELSE. w_sync_allowed = abap_true. ENDIF. w_display = 'Display'(014). IF z_c_sy6_main=>class_exists( i_clsname = z_c_sy6_main=>c_hotspot ) = abap_true . CALL METHOD (z_c_sy6_main=>c_hotspot)=>set_code EXPORTING i_fieldname = l_fieldname i_code = '3' ic_grid = wo_grid. ENDIF. ELSE. w_display_only = space. IF wo_grid->w_sync = abap_true. w_sync_allowed = 'D'. ELSE. CLEAR w_sync_allowed. ENDIF. w_display = 'Change'(015). IF z_c_sy6_main=>class_exists( i_clsname = z_c_sy6_main=>c_hotspot ) = abap_true . CALL METHOD (z_c_sy6_main=>c_hotspot)=>set_code EXPORTING i_fieldname = l_fieldname i_code = '2' ic_grid = wo_grid. ENDIF. ENDIF. wo_grid->display( i_flag = w_display_only ) . ENDFORM. " DISPLAY_CHANGE *&---------------------------------------------------------------------* *& Form STATUS_0001 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM status_0001 . DATA: lt_fcode TYPE TABLE OF sy-ucomm, l_count TYPE int4. IF w_sync_allowed <> abap_true. APPEND 'SYNC' TO lt_fcode. IF w_display_only IS NOT INITIAL OR w_sync_allowed <> 'D'. APPEND 'ADJUST' TO lt_fcode. ENDIF. ELSE. IF w_display_only IS NOT INITIAL OR w_sync_allowed <> 'D'. APPEND 'ADJUST' TO lt_fcode. ENDIF. ENDIF. IF w_display_only IS NOT INITIAL. APPEND 'UPDATE' TO lt_fcode. ENDIF. l_count = wo_grid->msg_count( ). IF l_count = 0. APPEND 'MSG' TO lt_fcode. ENDIF. SET PF-STATUS '0001' EXCLUDING lt_fcode. SET TITLEBAR '0001' WITH w_display w_table w_tbmaxsel w_count . ENDFORM. " STATUS_0001 *&---------------------------------------------------------------------* *& Form SCREEN_0001 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM screen_0001 . LOOP AT SCREEN. ENDLOOP. ENDFORM. " SCREEN_0001 *----------------------------------------------------------------------* ***INCLUDE LZSY60F02 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form SYNC_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM sync_data . DATA: l_string TYPE string, l_dest TYPE rfcdes-rfcdest, l_match TYPE abap_bool. CALL FUNCTION 'SCT2_GET_RFC_DESTINATION_POPUP' * EXPORTING * IV_POPUP_START_X = 5 * IV_POPUP_START_Y = 5 * IV_INFO_TXT_OBJ = ' ' * IV_INFO_BUTTON = ' ' * IV_TITLE = ' ' * IMPORTING * EV_RFC_DEST_TEXT = * ES_RFC_DEST_INFO = CHANGING cv_rfc_dest = l_dest EXCEPTIONS rfc_dest_not_found = 1 cancel_button_pressed = 2 OTHERS = 3 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. * PERFORM check_transport USING l_dest * CHANGING l_match. * IF l_match = abap_true. * Now we can start getting the data and update the container for comparison PERFORM remote_table USING l_dest. * ELSE. * MESSAGE s105 WITH w_table. * ENDIF. ENDIF. ENDFORM. " SYNC_DATA *&---------------------------------------------------------------------* *& Form ONLI_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM onli_command . DATA: lo_data TYPE REF TO data. FIELD-SYMBOLS: <lt_fs> TYPE ANY TABLE. CREATE DATA lo_data TYPE STANDARD TABLE OF (wo_table->w_table). PERFORM select_data IN PROGRAM (w_prog) USING wo_table *rseumod-tbmaxsel CHANGING lo_data. ASSIGN lo_data->* TO <lt_fs>. IF sy-subrc = 0. CALL FUNCTION 'ZSY60_DISPLAY_TABLE' EXPORTING it_table = <lt_fs> io_se16 = wo_table. ELSE. * We should have error handling here. ENDIF. ENDFORM. " ONLI_COMMAND *----------------------------------------------------------------------* ***INCLUDE LZSY60F03 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form CHECK_MANDT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_IT_SEL_FIELDS text *----------------------------------------------------------------------* FORM check_mandt USING pt_sel_fields TYPE zsy6_t_sel_fields. READ TABLE pt_sel_fields TRANSPORTING NO FIELDS WITH KEY datatype = 'CLNT'. IF sy-subrc = 0. w_mandt = abap_true. ELSE. CLEAR w_mandt. ENDIF. ENDFORM. " CHECK_MANDT *&---------------------------------------------------------------------* *& Form CONVERT_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LO_DATA text * <--P_ET_DATA text *----------------------------------------------------------------------* FORM convert_data USING po_data TYPE REF TO data CHANGING pt_data TYPE soli_tab. DATA: l_string TYPE string. DATA: lo_document TYPE REF TO cl_xml_document. FIELD-SYMBOLS: <fs> TYPE STANDARD TABLE. ASSIGN po_data->* TO <fs>. CREATE OBJECT lo_document. lo_document->create_with_data( dataobject = <fs> * size = 0 ). lo_document->render_2_string( * EXPORTING * pretty_print = 'X' IMPORTING * retcode = stream = l_string * size = ). pt_data = cl_document_bcs=>string_to_soli( ip_string = l_string ). ENDFORM. " CONVERT_DATA *&---------------------------------------------------------------------* *& Form REMOTE_TABLE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_L_DEST text *----------------------------------------------------------------------* FORM remote_table USING p_dest TYPE rfcdes-rfcdest. DATA: lt_report TYPE tchar255, l_sysid TYPE sysysid, lt_sel_fields TYPE zsy6_t_sel_fields, lt_data TYPE soli_tab, ls_data TYPE soli, l_string TYPE string, lo_data TYPE REF TO data. DATA: lo_document TYPE REF TO cl_xml_document. FIELD-SYMBOLS: <lt_fs> TYPE ANY TABLE. lt_sel_fields = wo_table->get_sel_fields( ). w_prog = wo_table->create_name( i_table = wo_table->w_table ). READ REPORT w_prog INTO lt_report . l_sysid = sy-sysid. CALL FUNCTION 'ZSY60_READ_REMOTE_TABLE' DESTINATION p_dest EXPORTING i_tbmaxsel = w_tbmaxsel i_table = wo_table->w_table it_sel_fields = lt_sel_fields it_report = lt_report IMPORTING et_data = lt_data CHANGING x_sysid = l_sysid EXCEPTIONS no_lock_possible = 1 OTHERS = 2. IF sy-subrc = 0. LOOP AT lt_data INTO ls_data. CONCATENATE l_string ls_data-line INTO l_string. ENDLOOP. CREATE OBJECT lo_document. lo_document->parse_string( stream = l_string ). CREATE DATA lo_data TYPE STANDARD TABLE OF (w_table). ASSIGN lo_data->* TO <lt_fs>. IF sy-subrc = 0. lo_document->get_data( * EXPORTING * name = * IMPORTING * retcode = CHANGING dataobject = <lt_fs> ). ENDIF. wo_grid->add_remote( EXPORTING i_sysid = l_sysid io_data = lo_data ) . w_sync_allowed = 'D'. ELSE. * error handling missing ENDIF. ENDFORM. " REMOTE_TABLE *&---------------------------------------------------------------------* *& Form CHECK_TRANSPORT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_L_DEST text * <--P_L_MATCH text *----------------------------------------------------------------------* FORM check_transport USING p_dest TYPE rfcdes-rfcdest CHANGING p_match TYPE abap_bool. DATA: l_korrnum TYPE verskorrno, l_korrnum_dest TYPE verskorrno. * Get transport/version dest CALL FUNCTION 'ZSY60_GET_TABLE_VERSION' DESTINATION p_dest EXPORTING i_table = w_table IMPORTING e_korrnum = l_korrnum_dest EXCEPTIONS no_table = 1 OTHERS = 2. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. * Get transport/version local CALL FUNCTION 'ZSY60_GET_TABLE_VERSION' EXPORTING i_table = w_table IMPORTING e_korrnum = l_korrnum EXCEPTIONS no_table = 1 OTHERS = 2. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. IF l_korrnum = l_korrnum_dest. p_match = abap_true. ENDIF. ENDIF. ENDIF. ENDFORM. " CHECK_TRANSPORT *----------------------------------------------------------------------* ***INCLUDE LZSY60F05 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form CREATE_SEL_GRID *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM create_sel_grid . DATA: ls_layout TYPE lvc_s_layo, ls_variant TYPE disvariant, "for parameter IS_VARIANT l_toolbar TYPE c, ls_row TYPE lvc_s_row, ls_col TYPE lvc_s_col. IF cl_salv_table=>is_offline( ) EQ if_salv_c_bool_sap=>false. IF wo_container IS NOT BOUND. CREATE OBJECT wo_container EXPORTING container_name = 'CONTAINER_SEL_GRID'. CREATE OBJECT wo_sel_grid EXPORTING i_parent = wo_container EXCEPTIONS error_cntl_create = 1 error_cntl_init = 2 error_cntl_link = 3 error_dp_create = 4 OTHERS = 5. IF sy-subrc <> 0. ENDIF. CLEAR ls_layout. * ls_layout-cwidth_opt = abap_true. ls_layout-no_headers = abap_true. ls_layout-no_rowmark = abap_true. ls_layout-no_toolbar = abap_true. ls_layout-no_f4 = abap_true. * ls_layout-edit = abap_true. wo_sel_grid->set_table_for_first_display( EXPORTING i_bypassing_buffer = abap_true is_layout = ls_layout CHANGING it_outtab = <fs_sel_t> it_fieldcatalog = wt_sel_fcat EXCEPTIONS invalid_parameter_combination = 1 program_error = 2 too_many_lines = 3 ). IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. CALL METHOD wo_sel_grid->set_ready_for_input EXPORTING i_ready_for_input = 1. wo_sel_grid->set_focus( control = wo_sel_grid ). ls_row-index = 1. ls_col-fieldname = w_fieldname. CALL METHOD wo_sel_grid->set_current_cell_via_id EXPORTING is_row_id = ls_row is_column_id = ls_col. ENDIF. ENDIF. ENDFORM. " CREATE_SEL_GRID *&---------------------------------------------------------------------* *& Form DATA_CHANGED *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM data_changed . DATA: l_valid TYPE char01, ls_stable TYPE lvc_s_stbl. wo_sel_grid->check_changed_data( IMPORTING e_valid = l_valid ). IF l_valid = abap_false. * REFRESH <fs_sel_t>. ls_stable-row = abap_true. ls_stable-col = abap_true. wo_sel_grid->refresh_table_display( is_stable = ls_stable ) . ELSE. wo_sel_grid->free( ) . wo_container->free( ) . CLEAR wo_sel_grid. CLEAR wo_container. SET SCREEN 0. LEAVE SCREEN. ENDIF. ENDFORM. " DATA_CHANGED *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16I01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module USER_COMMAND_0001 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0001 INPUT. CASE ok_code. WHEN 'BACK' OR 'EXIT'. wo_grid->unlock_table( ). LEAVE TO SCREEN 0 . WHEN 'SAVE'. wo_grid->save( ). w_display_only = abap_true. IF wo_grid->w_sync = abap_true. w_sync_allowed = 'D'. ELSE. w_sync_allowed = abap_true. ENDIF. w_display = 'Display'(014). WHEN 'CHANGE'. PERFORM display_change. WHEN 'SYNC'. PERFORM sync_data. WHEN 'ADJUST'. wo_grid->adjust_local_from_remote( ). WHEN 'UPDATE'. wo_grid->update_with( ). WHEN 'MSG'. wo_grid->msg_show( ). WHEN 'FNAM'. PERFORM options_change CHANGING *rseumod. wo_grid->change_user_settings( is_rseumod = *rseumod ). ENDCASE. ENDMODULE. " USER_COMMAND_0001 INPUT *&---------------------------------------------------------------------* *& Module EXIT INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE exit INPUT. CASE ok_code. WHEN 'BACK' OR 'EXIT' OR 'CANCEL'. wo_grid->unlock_table( ). LEAVE TO SCREEN 0 . ENDCASE. ENDMODULE. " EXIT INPUT *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16I02 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module USER_COMMAND_0002 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0002 INPUT. CASE ok_code. WHEN 'E' OR 'ENDE' OR 'ECAN'. LEAVE TO SCREEN 0. WHEN 'ONLI'. perform onli_command. WHEN 'FNAM'. PERFORM options_change CHANGING *rseumod. WHEN 'SEOP'. IF wo_table IS BOUND. CALL SCREEN 0004 STARTING AT 15 4 ENDING AT 96 23. ENDIF. WHEN 'AEIN'. PERFORM get_count IN PROGRAM (w_prog) USING wo_table *rseumod-tbmaxsel CHANGING w_count w_tbmaxsel. CALL SCREEN 0003 STARTING AT 10 5 ENDING AT 58 9. ENDCASE. CLEAR ok_code. ENDMODULE. " USER_COMMAND_0002 INPUT *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16I03 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module USER_COMMAND_0003 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* module USER_COMMAND_0003 input. set screen 0. leave screen. endmodule. " USER_COMMAND_0003 INPUT *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16I04 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module USER_COMMAND_0004 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0004 INPUT. CASE ok_code. WHEN 'ENTER'. w_mandt = wo_table->close_dialog( ). LEAVE TO TRANSACTION z_c_sy6_main=>c_tcode AND SKIP FIRST SCREEN. WHEN 'CANCEL'. ENDCASE. SET SCREEN 0. LEAVE SCREEN. ENDMODULE. " USER_COMMAND_0004 INPUT *----------------------------------------------------------------------* ***INCLUDE LZSY60I05 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module USER_COMMAND_0005 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0005 INPUT. CASE ok_code. WHEN 'CANCEL'. REFRESH <fs_sel_t>. wo_sel_grid->free( ) . wo_container->free( ) . CLEAR wo_sel_grid. CLEAR wo_container. SET SCREEN 0. LEAVE SCREEN. WHEN OTHERS. PERFORM data_changed. ENDCASE. ENDMODULE. " USER_COMMAND_0005 INPUT *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16O01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module STATUS_0001 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0001 OUTPUT. PERFORM status_0001. ENDMODULE. " STATUS_0001 OUTPUT *&---------------------------------------------------------------------* *& Module SCREEN_UPDATE OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE screen_update OUTPUT. PERFORM screen_0001. ENDMODULE. " SCREEN_UPDATE OUTPUT *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16O02 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module STATUS_0002 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0002 OUTPUT. SET PF-STATUS '0002'. SET TITLEBAR '0002' WITH w_table. ENDMODULE. " STATUS_0002 OUTPUT *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16O03 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module STATUS_0003 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* module STATUS_0003 output. SET PF-STATUS '0003'. SET TITLEBAR '0003'. endmodule. " STATUS_0003 OUTPUT *----------------------------------------------------------------------* ***INCLUDE LZSY_SE16O04 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module STATUS_0004 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0004 OUTPUT. SET PF-STATUS '0004'. SET TITLEBAR '0004' WITH w_table. wo_table->show_dialog( ). ENDMODULE. " STATUS_0004 OUTPUT *----------------------------------------------------------------------* ***INCLUDE LZSY60O05 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module STATUS_0005 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0005 OUTPUT. SET PF-STATUS '0003'. SET TITLEBAR '0005'. ENDMODULE. " STATUS_0005 OUTPUT *&---------------------------------------------------------------------* *& Module CREATE_GRID OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE create_grid OUTPUT. PERFORM create_sel_grid. ENDMODULE. " CREATE_GRID OUTPUT FUNCTION-POOL zsy60 MESSAGE-ID es. TABLES : *rseumod. FIELD-SYMBOLS: <fs> TYPE ANY. DATA: w_table TYPE tabname, w_fieldname TYPE fieldname, w_fieldnumber(3) TYPE n, w_dynnr TYPE dynnr, w_count TYPE i, w_tbmaxsel TYPE i, w_prog TYPE programm VALUE z_c_sy6_main=>c_progname, wt_soli TYPE soli_tab, wo_field TYPE REF TO data. DATA: wo_table TYPE REF TO z_c_sy6_table, wo_grid TYPE REF TO z_c_sy6_grid, wo_data TYPE REF TO data, ok_code TYPE sy-ucomm, w_display_only TYPE flag, w_display TYPE char20 VALUE 'Display', w_sync_allowed TYPE abap_bool VALUE abap_true, w_mandt TYPE flag. DATA: w_name001 TYPE default_va, w_name002 TYPE default_va, w_name003 TYPE default_va, w_name004 TYPE default_va, w_name005 TYPE default_va, w_name006 TYPE default_va, w_name007 TYPE default_va, w_name008 TYPE default_va, w_name009 TYPE default_va, w_name010 TYPE default_va, w_name011 TYPE default_va, w_name012 TYPE default_va, w_name013 TYPE default_va, w_name014 TYPE default_va, w_name015 TYPE default_va, w_name016 TYPE default_va, w_name017 TYPE default_va, w_name018 TYPE default_va, w_name019 TYPE default_va, w_name020 TYPE default_va, w_name031 TYPE default_va, w_name032 TYPE default_va, w_name033 TYPE default_va, w_name034 TYPE default_va, w_name035 TYPE default_va, w_name036 TYPE default_va, w_name037 TYPE default_va, w_name038 TYPE default_va, w_name039 TYPE default_va, w_name040 TYPE default_va, w_name041 TYPE default_va, w_name042 TYPE default_va, w_name043 TYPE default_va, w_name044 TYPE default_va, w_name045 TYPE default_va, w_name046 TYPE default_va, w_name047 TYPE default_va, w_name048 TYPE default_va, w_name049 TYPE default_va, w_name050 TYPE default_va, w_name051 TYPE default_va, w_name052 TYPE default_va, w_name053 TYPE default_va, w_name054 TYPE default_va, w_name055 TYPE default_va, w_name056 TYPE default_va, w_name057 TYPE default_va, w_name058 TYPE default_va, w_name059 TYPE default_va, w_name060 TYPE default_va, w_name061 TYPE default_va, w_name062 TYPE default_va, w_name063 TYPE default_va, w_name064 TYPE default_va, w_name065 TYPE default_va, w_name066 TYPE default_va, w_name067 TYPE default_va, w_name068 TYPE default_va, w_name069 TYPE default_va, w_name070 TYPE default_va, w_name071 TYPE default_va, w_name072 TYPE default_va, w_name073 TYPE default_va, w_name074 TYPE default_va, w_name075 TYPE default_va, w_name076 TYPE default_va, w_name077 TYPE default_va, w_name078 TYPE default_va, w_name079 TYPE default_va, w_name080 TYPE default_va, w_name081 TYPE default_va, w_name082 TYPE default_va, w_name083 TYPE default_va, w_name084 TYPE default_va, w_name085 TYPE default_va, w_name086 TYPE default_va, w_name087 TYPE default_va, w_name088 TYPE default_va, w_name089 TYPE default_va, w_name090 TYPE default_va, w_name091 TYPE default_va, w_name092 TYPE default_va, w_name093 TYPE default_va, w_name094 TYPE default_va, w_name095 TYPE default_va, w_name096 TYPE default_va, w_name097 TYPE default_va, w_name098 TYPE default_va, w_name099 TYPE default_va, w_name100 TYPE default_va. DATA: wo_sel_grid TYPE REF TO cl_gui_alv_grid, wo_sel_data TYPE REF TO data, wo_container TYPE REF TO cl_gui_custom_container. DATA: ws_sel_fcat TYPE lvc_s_fcat, wt_sel_fcat TYPE lvc_t_fcat. FIELD-SYMBOLS: <fs_sel_t> TYPE STANDARD TABLE, <fs_sel_s> TYPE ANY. DATA: l_lines TYPE i . wo_table = io_se16. w_table = wo_table->w_table. w_prog = wo_table->create_name( i_table = w_table ). PERFORM get_user_value. IF wo_grid IS NOT BOUND. TRY. CREATE OBJECT wo_grid EXPORTING i_container = 'CONTAINER'. CATCH zcx_sy6_main . ENDTRY. w_display_only = abap_true. ELSE. w_display_only = wo_grid->w_display_only. IF w_display_only = abap_false. PERFORM display_change. ENDIF. ENDIF. w_sync_allowed = abap_true. PERFORM get_count IN PROGRAM (w_prog) USING wo_table *rseumod-tbmaxsel CHANGING w_count w_tbmaxsel. * We need for sync. Otherwise we miss the selections. wo_grid->set_for_display( i_mandt = io_se16->w_mandt i_table = w_table it_table = it_table ). DESCRIBE TABLE it_table LINES l_lines. IF l_lines = *rseumod-tbmaxsel. MESSAGE s016(es) WITH *rseumod-tbmaxsel. ENDIF. CALL SCREEN 0001. DATA: ls_trdir TYPE trdir. * w_table = i_table. CLEAR w_mandt. PERFORM get_user_value. IF wo_table IS BOUND. wo_table->set_table( EXPORTING i_table = w_table i_mandt = w_mandt ). ELSE. CREATE OBJECT wo_table EXPORTING i_mandt = w_mandt i_table = w_table. ENDIF. * let's check the selection screen prog. w_prog = wo_table->create_name( i_table = w_table ). SELECT SINGLE * INTO ls_trdir FROM trdir WHERE name = w_prog. IF sy-subrc EQ 0 . * Now we check wc_table. IF wo_table IS BOUND. wo_table->set_table( EXPORTING i_table = w_table i_mandt = w_mandt ). ELSE. CREATE OBJECT wo_table EXPORTING i_mandt = w_mandt i_table = w_table. ENDIF. PERFORM set_screen_options. CALL SCREEN 0002. ELSE. RAISE no_selection_screen. ENDIF. DATA: ls_dd02l TYPE dd02l. SELECT SINGLE * FROM dd02l INTO ls_dd02l WHERE tabname = i_table AND as4local = 'A' AND as4vers = '0000'. IF sy-subrc EQ 0 . e_as4date = ls_dd02l-as4date. ELSE. RAISE no_table. ENDIF. DATA: lt_versiod TYPE TABLE OF vrsd, lt_version TYPE TABLE OF vrsn, l_lines TYPE i, ls_vrsn TYPE vrsd. DATA: l_objname TYPE vrsd-objname, l_objtype TYPE vrsd-objtype VALUE 'TABD'. l_objname = i_table. CALL FUNCTION 'SVRS_GET_VERSION_DIRECTORY_46' EXPORTING objname = l_objname objtype = l_objtype TABLES lversno_list = lt_version version_list = lt_versiod EXCEPTIONS no_entry = 1 OTHERS = 2. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. READ TABLE lt_versiod INTO ls_vrsn WITH KEY versno = '00000'. IF sy-subrc = 0 AND ls_vrsn-korrnum IS NOT INITIAL. * We have the right KORRNUM ELSE. SORT lt_versiod BY versno DESCENDING. READ TABLE lt_versiod INTO ls_vrsn INDEX 1. ENDIF. ENDIF. IF ls_vrsn-korrnum IS NOT INITIAL. e_korrnum = ls_vrsn-korrnum . ELSE. RAISE no_table. ENDIF. * 1st Let's build the selection string. DATA: l_where TYPE string. DATA: lo_data TYPE REF TO data. FIELD-SYMBOLS: <lt_fs> TYPE ANY TABLE. PERFORM get_user_value. PERFORM check_mandt USING it_sel_fields. w_prog = z_c_sy6_main=>create_name( i_table = i_table ). z_c_sy6_main=>lock_prog( EXPORTING i_prog = w_prog EXCEPTIONS no_lock_possible = 1 OTHERS = 2 ). IF sy-subrc <> 0. RAISE no_lock_possible. ENDIF. IF x_sysid <> sy-sysid. INSERT REPORT w_prog FROM it_report DIRECTORY ENTRY z_c_sy6_main=>ws_trdir. x_sysid = sy-sysid. ENDIF. CREATE OBJECT wo_table EXPORTING i_mandt = w_mandt i_table = i_table. w_table = wo_table->w_table. PERFORM set_selection IN PROGRAM (w_prog) USING it_sel_fields. CREATE DATA lo_data TYPE STANDARD TABLE OF (wo_table->w_table). PERFORM select_data IN PROGRAM (w_prog) USING wo_table i_tbmaxsel CHANGING lo_data. PERFORM convert_data USING lo_data CHANGING et_data. z_c_sy6_main=>unlock_prog( i_prog = w_prog ). DATA: lo_addit TYPE REF TO cl_abap_elemdescr, lo_addit_table TYPE REF TO cl_abap_tabledescr, lo_addit_struc TYPE REF TO cl_abap_structdescr, lt_components_tab1 TYPE cl_abap_structdescr=>component_table, lt_components_tab TYPE cl_abap_structdescr=>component_table, ls_components TYPE abap_componentdescr. DATA: lo_data TYPE REF TO data, lo_table TYPE REF TO cl_abap_tabledescr, lo_struc TYPE REF TO cl_abap_structdescr. DATA: lt_dfies TYPE ddfields, ls_dfies TYPE dfies. FIELD-SYMBOLS: <fs> TYPE ANY, <fs1> TYPE ANY. lo_addit ?= cl_abap_typedescr=>describe_by_name( 'AS4TEXT' ). ls_components-type = lo_addit . ls_components-name = '___TEXT' . INSERT ls_components INTO TABLE lt_components_tab. ls_dfies = lo_addit->get_ddic_field( ). INSERT ls_dfies INTO TABLE lt_dfies. lo_addit ?= cl_abap_typedescr=>describe_by_data_ref( xo_data ). ls_components-type = lo_addit . ls_components-name = i_fieldname . INSERT ls_components INTO TABLE lt_components_tab. ls_dfies = lo_addit->get_ddic_field( ). INSERT ls_dfies INTO TABLE lt_dfies. "create new line type TRY. lo_struc = cl_abap_structdescr=>create( p_components = lt_components_tab p_strict = abap_false ). CATCH cx_sy_struct_creation. RETURN. ENDTRY. lo_table = cl_abap_tabledescr=>create( lo_struc ). CREATE DATA wo_sel_data TYPE HANDLE lo_table. ASSIGN wo_sel_data->* TO <fs_sel_t>. CREATE DATA lo_data LIKE LINE OF <fs_sel_t>. ASSIGN lo_data->* TO <fs_sel_s>. ASSIGN COMPONENT 1 OF STRUCTURE <fs_sel_s> TO <fs>. <fs> = i_text. INSERT <fs_sel_s> INTO TABLE <fs_sel_t>. REFRESH wt_sel_fcat. LOOP AT lt_dfies INTO ls_dfies. CLEAR ws_sel_fcat. ws_sel_fcat-col_pos = sy-tabix. MOVE-CORRESPONDING ls_dfies TO ws_sel_fcat. CASE ws_sel_fcat-col_pos. WHEN 1. ws_sel_fcat-fieldname = '___TEXT'. ws_sel_fcat-col_opt = 'A'. WHEN 2. w_fieldname = i_fieldname. ws_sel_fcat-fieldname = i_fieldname. ws_sel_fcat-tabname = '1'. * ws_sel_fcat-ref_field = i_fieldname. * ws_sel_fcat-ref_table = i_tabname. ws_sel_fcat-edit = abap_true. ENDCASE. INSERT ws_sel_fcat INTO TABLE wt_sel_fcat. ENDLOOP. CALL SCREEN 0005 STARTING AT 20 10 ENDING AT 80 11. READ TABLE <fs_sel_t> ASSIGNING <fs_sel_s> INDEX 1. IF sy-subrc = 0. ASSIGN COMPONENT 2 OF STRUCTURE <fs_sel_s> TO <fs>. ASSIGN xo_data->* TO <fs1>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs1> = <fs>. ENDIF. ELSE. RAISE no_update. ENDIF. *&---------------------------------------------------------------------* *& Include ZSY6U001F01 *&---------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form GET_COUNT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_count USING pc_se16 TYPE REF TO z_c_sy6_table p_maxsel TYPE tbmaxsel CHANGING p_count TYPE i p_max TYPE tbmaxsel. DATA: l_string TYPE string. l_string = pc_se16->get_string( ) . IF l_string IS INITIAL. SELECT COUNT( * ) INTO p_count FROM (pc_se16->w_table). ELSE. IF pc_se16->w_mandt = abap_true. SELECT COUNT( * ) INTO p_count FROM (pc_se16->w_table) CLIENT SPECIFIED WHERE (l_string). ELSE. SELECT COUNT( * ) INTO p_count FROM (pc_se16->w_table) WHERE (l_string). ENDIF. ENDIF. IF p_maxsel > p_count. p_max = p_count. ELSE. p_max = p_maxsel. ENDIF. ENDFORM. " GET_COUNT *&---------------------------------------------------------------------* *& Form SELECT_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM select_data USING pc_se16 TYPE REF TO z_c_sy6_table p_maxsel TYPE tbmaxsel CHANGING po_data TYPE REF TO data. DATA: l_string TYPE string, l_count TYPE i, lt_sel_fields TYPE zsy6_t_sel_fields, l_field TYPE fieldname. FIELD-SYMBOLS: <lt_fs> TYPE ANY TABLE. IF po_data IS NOT BOUND. CREATE DATA po_data TYPE STANDARD TABLE OF (pc_se16->w_table). ENDIF. ASSIGN po_data->* TO <lt_fs>. IF sy-subrc = 0. l_string = pc_se16->get_string( ) . IF l_string IS INITIAL. SELECT * INTO TABLE <lt_fs> UP TO p_maxsel ROWS FROM (pc_se16->w_table). ELSE. lt_sel_fields = pc_se16->get_sel_fields( ). PERFORM get_selection CHANGING lt_sel_fields. pc_se16->set_sel_fields( EXPORTING it_sel_fields = lt_sel_fields ). IF pc_se16->w_mandt = abap_true. SELECT * INTO TABLE <lt_fs> UP TO p_maxsel ROWS FROM (pc_se16->w_table) CLIENT SPECIFIED WHERE (l_string). ELSE. SELECT * INTO TABLE <lt_fs> UP TO p_maxsel ROWS FROM (pc_se16->w_table) WHERE (l_string). ENDIF. ENDIF. ELSE. * We should have error handling here. ENDIF. ENDFORM. " SELECT_DATA *&---------------------------------------------------------------------* *& Form CLEAR_SELECT_OPTION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM clear_select_option USING p_name TYPE default_va. DATA: l_tname TYPE default_va. FIELD-SYMBOLS: <lt_fs> TYPE ANY TABLE, <ls_fs> TYPE ANY. ASSIGN (p_name) TO <ls_fs>. IF sy-subrc EQ 0 . CLEAR <ls_fs>. CONCATENATE p_name '[]' INTO l_tname. ASSIGN (l_tname) TO <lt_fs>. IF sy-subrc EQ 0 . REFRESH <lt_fs>. ENDIF. ENDIF. ENDFORM. " CLEAR_SELECT_OPTION *&---------------------------------------------------------------------* *& Form SET_SELECTION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM set_selection USING pt_sel_fields TYPE zsy6_t_sel_fields. DATA: lt_sel_fields TYPE zsy6_t_sel_fields, ls_sel_fields TYPE zsy6_s_sel_fields, ls_selection TYPE zsy6_s_selection, l_count TYPE i, l_field TYPE fieldname. FIELD-SYMBOLS: <lt_fs> TYPE ANY TABLE, <st_fs> TYPE ANY TABLE, <ss_fs> TYPE ANY, <fs> TYPE ANY, <fs1> TYPE ANY. LOOP AT pt_sel_fields INTO ls_sel_fields. CONCATENATE ls_sel_fields-selname '[]' INTO l_field. ASSIGN (l_field) TO <st_fs>. ASSIGN (ls_sel_fields-selname) TO <ss_fs>. IF <ss_fs> IS ASSIGNED AND <st_fs> IS ASSIGNED. LOOP AT ls_sel_fields-selection INTO ls_selection. CLEAR: l_count. DO 4 TIMES. ADD 1 TO l_count . ASSIGN COMPONENT l_count OF STRUCTURE <ss_fs> TO <fs>. ASSIGN COMPONENT l_count OF STRUCTURE ls_selection TO <fs1>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs> = <fs1>. ENDIF. ENDDO. INSERT <ss_fs> INTO TABLE <st_fs>. ENDLOOP. ENDIF. ENDLOOP. ENDFORM. " SET_SELECTION *&---------------------------------------------------------------------* *& Form SET_SELECTION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_selection CHANGING pt_sel_fields TYPE zsy6_t_sel_fields. DATA: ls_selection TYPE zsy6_s_selection, l_count TYPE i, l_field TYPE fieldname. FIELD-SYMBOLS: <lt_fs> TYPE ANY TABLE, <st_fs> TYPE STANDARD TABLE, <ss_fs> TYPE ANY, <fs_ls> TYPE zsy6_s_sel_fields, <fs> TYPE ANY, <fs1> TYPE ANY. LOOP AT pt_sel_fields ASSIGNING <fs_ls>. CONCATENATE <fs_ls>-selname '[]' INTO l_field. ASSIGN (l_field) TO <st_fs>. IF sy-subrc = 0. REFRESH <fs_ls>-selection. LOOP AT <st_fs> ASSIGNING <ss_fs>. CLEAR: l_count. DO 4 TIMES. ADD 1 TO l_count . ASSIGN COMPONENT l_count OF STRUCTURE <ss_fs> TO <fs>. ASSIGN COMPONENT l_count OF STRUCTURE ls_selection TO <fs1>. IF <fs> IS ASSIGNED AND <fs1> IS ASSIGNED. <fs1> = <fs>. ENDIF. ENDDO. INSERT ls_selection INTO TABLE <fs_ls>-selection. ENDLOOP. ENDIF. ENDLOOP. ENDFORM. " SET_SELECTION *&---------------------------------------------------------------------* *& Include ZSY6M001TOP *&---------------------------------------------------------------------* program zsy6m001 message-id mo. type-pools: abap. data: w_tabname type c, w_table type tabname, ws_trdir type trdir, ws_rseumod type rseumod, w_error type flag. data: ok_code type sy-ucomm, wt_report type standard table of char255. data: wc_se16 type ref to z_c_sy6_table. *----------------------------------------------------------------------* ***INCLUDE ZSY6M001O01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module STATUS_0001 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0001 OUTPUT. SET PF-STATUS '0001'. SET TITLEBAR '0001'. ENDMODULE. " STATUS_0001 OUTPUT *&---------------------------------------------------------------------* *& Module CHECK_AUTHORISATION OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE check_authorisation OUTPUT. PERFORM check_authorisations. ENDMODULE. " CHECK_AUTHORISATION OUTPUT *----------------------------------------------------------------------* ***INCLUDE ZSY6M001I01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module USER_COMMAND_0001 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0001 INPUT. CASE ok_code. WHEN 'BACK' OR 'EXIT' OR 'CANCEL'. LEAVE PROGRAM. WHEN 'HILF'. PERFORM online_handbook. WHEN 'FNAM'. PERFORM options_change. WHEN 'GEN '. PERFORM check_table_entry. IF wc_se16->check_table( i_table = w_table ) EQ 0 . wc_se16->recreate_screen( i_flag = 'K' ). MESSAGE s475(mo). ENDIF. WHEN 'ANZE'. PERFORM check_table. WHEN OTHERS. ENDCASE. ENDMODULE. " USER_COMMAND_0001 INPUT *&---------------------------------------------------------------------* *& Module F4_OBJNAME INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE f4_objname INPUT. PERFORM f4_help_table. ENDMODULE. " F4_OBJNAME INPUT *&---------------------------------------------------------------------* *& Module CHECK_TABLE INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE check_table INPUT. PERFORM check_table_entry. ENDMODULE. " CHECK_TABLE INPUT *&---------------------------------------------------------------------* *& Module EXIT INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE exit INPUT. CASE ok_code. WHEN 'BACK' OR 'EXIT' OR 'CANCEL'. LEAVE TO SCREEN 0. ENDCASE. ENDMODULE. " EXIT INPUT *----------------------------------------------------------------------* ***INCLUDE ZSY6M001F01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form F4_HELP_TABLE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM f4_help_table . DATA: dnum LIKE d020s-dnum. DATA: variant LIKE rsvar-variant. dnum = sy-dynnr. CALL FUNCTION 'RS_HELP_HANDLING' EXPORTING dynpfield = 'W_TABLE' dynpname = dnum object = 'TB ' progname = 'ZSY6M001' suppress_selection_screen = 'X' variant = variant. ENDFORM. " F4_HELP_TABLE *&---------------------------------------------------------------------* *& Form CHECK_TABLE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM check_table . PERFORM check_table_entry. IF wc_se16->check_table( i_table = w_table ) EQ 0 . PERFORM get_screen. ELSE. CLEAR ws_trdir. PERFORM create_screen. ENDIF. IF w_table IS NOT INITIAL. IF wc_se16->w_create = abap_true. LEAVE TO TRANSACTION z_c_sy6_main=>c_tcode AND SKIP FIRST SCREEN. ELSE. CALL FUNCTION 'ZSY60_CALL_SELECTION' EXPORTING i_table = w_table. ENDIF. ENDIF. ENDFORM. " CHECK_TABLE *&---------------------------------------------------------------------* *& Form CREATE_SCREEN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM create_screen. DATA: l_prog TYPE programm, ls_trdir TYPE trdir, lt_sel_fields TYPE zsy6_t_sel_fields, lt_key_fields TYPE zsy6_t_sel_fields. l_prog = wc_se16->create_name( i_table = w_table ). SELECT SINGLE * INTO ls_trdir FROM trdir WHERE name = l_prog. IF sy-subrc <> 0 . lt_sel_fields = wc_se16->get_sel_fields( ). lt_key_fields = wc_se16->get_key_fields( ). wt_report = wc_se16->create_report_screen( i_table = w_table it_sel_fields = lt_sel_fields it_key_fields = lt_key_fields i_prog = l_prog i_flag = 'K' ). ls_trdir-name = l_prog. INSERT REPORT l_prog FROM wt_report DIRECTORY ENTRY wc_se16->ws_trdir. COMMIT WORK. ENDIF. ENDFORM. " CREATE_SCREEN *&---------------------------------------------------------------------* *& Form GET_SCREEN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_screen. DATA: l_as4date TYPE as4date. CALL FUNCTION 'ZSY60_GET_TABLE' EXPORTING i_table = w_table IMPORTING e_as4date = l_as4date EXCEPTIONS no_table = 1 OTHERS = 2. IF sy-subrc EQ 0 . IF wc_se16->w_as4date < l_as4date. wc_se16->recreate_screen( i_flag = 'K' ). ENDIF. ELSE. MESSAGE a001 WITH 'Table does not exist'(002). ENDIF. ENDFORM. " GET_SCREEN *&---------------------------------------------------------------------* *& Form ONLINE_HANDBOOK *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM online_handbook . CALL FUNCTION 'RS_TOOLDOCU_ACCESS' EXPORTING tool_type = 'SE16' EXCEPTIONS OTHERS. ENDFORM. " ONLINE_HANDBOOK *&---------------------------------------------------------------------* *& Form OPTIONS_CHANGE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM options_change . CALL FUNCTION 'RS_WORKBENCH_CUSTOMIZING' EXPORTING choice = 'DB' * SUPPRESS_DIALOG = IMPORTING setting = ws_rseumod EXCEPTIONS OTHERS = 1. * prseumod = rseumod. ENDFORM. " OPTIONS_CHANGE *&---------------------------------------------------------------------* *& Form CHECK_TABLE_ENTRY *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM check_table_entry . DATA: l_table TYPE tabname. DATA: l_lang TYPE tcp0c-langu, l_cntry TYPE tcp0c-country, l_mod TYPE tcp0c-modifier, l_mandt TYPE cccliindep, ls_dd02l TYPE dd02l. GET LOCALE LANGUAGE l_lang COUNTRY l_cntry MODIFIER l_mod. SET LOCALE LANGUAGE l_lang COUNTRY l_cntry. TRANSLATE w_table TO UPPER CASE. l_table = w_table. IF w_table IS INITIAL. CLEAR ok_code. MESSAGE e410(mo). ELSE. CALL FUNCTION 'RS_DATABROWSE_CHECK_GENERATION' EXPORTING table_name = l_table action = 'S' EXCEPTIONS db_not_exists = 1 no_permission = 2 no_table_name = 3 table_is_structure = 4 OTHERS = 5. CASE sy-subrc. WHEN 0 OR 2. * We are in business. WHEN 1. CLEAR w_table. MESSAGE e403(mo) WITH l_table. WHEN 3. CLEAR w_table. MESSAGE e404(mo) WITH l_table. WHEN 4. CLEAR w_table. MESSAGE e408(mo) WITH l_table. WHEN OTHERS. CLEAR w_table. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDCASE. ENDIF. IF w_table IS NOT INITIAL. IF wc_se16 IS BOUND. wc_se16->set_table( EXPORTING i_table = w_table i_mandt = l_mandt ). ELSE. CREATE OBJECT wc_se16 EXPORTING i_mandt = l_mandt i_table = w_table. ENDIF. ENDIF. ENDFORM. " CHECK_TABLE_ENTRY *&---------------------------------------------------------------------* *& Form CHECK_AUTHORISATIONS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM check_authorisations . * * AUTHORITY-CHECK OBJECT 'S_TCODE' * ID 'TCD' FIELD 'SU01'. * * IF sy-subrc <> 0. * MESSAGE E077(S#) WITH 'ZSY666'. * ENDIF. * ENDFORM. " CHECK_AUTHORISATIONS PROCESS BEFORE OUTPUT. MODULE status_0001. MODULE check_authorisation. PROCESS AFTER INPUT. MODULE exit AT EXIT-COMMAND. FIELD: w_table MODULE check_table. MODULE user_command_0001. PROCESS ON VALUE-REQUEST. "F4-Funktionalität FIELD w_table MODULE f4_objname. *-----------------------------------------------------------------------* * Author : RTURNHEIM * * Date : 01.01.2010 * * * * Description : Table maintenance test programm * * * *-----------------------------------------------------------------------* * Changes : * * Author Date Description * * RTURNHEIM__ 13.11.11 Rewrite with unlimit table logic_____________ * * RTURNHEIM__ 23.12.11 Correct table validation logic_______________ * * RTURNHEIM__ 24.01.13 Correct display/change logic _______________ * * RTURNHEIM__ 23.09.14 Add authorisations checks____________________ * * RTURNHEIM__ 21.02.15 Remove authorisations checks_________________ * * RTURNHEIM__ 03.12.15 Correct error with exit comands on first screen * *-----------------------------------------------------------------------* include zsy6m001top. include zsy6m001o01. include zsy6m001i01. include zsy6m001f01. *----------------------------------------------------------------------* * Author : RTURNHEIM * * Date : 20130722 * * Description : Sub screen for table maintenance *----------------------------------------------------------------------* * Changes : * * Author Date Description * *----------------------------------------------------------------------* report ZSY6U001_T001W . tables: T001W . DATA: w_name001 type default_va value 'T001W-WERKS'. SELECTION-SCREEN BEGIN OF SCREEN 9000 AS SUBSCREEN. SELECT-OPTIONS: S_001 FOR (w_name001). "WERKS SELECTION-SCREEN END OF SCREEN 9000 . include ZSY6U001F01.