REPORT zcode_generator_report. TYPE-POOLS: ole2. TABLES: sscrfields. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT (6) text. SELECTION-SCREEN POSITION 7. PARAMETERS p_prog TYPE programm. SELECTION-SCREEN PUSHBUTTON 50(10) gen USER-COMMAND gen. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN FUNCTION KEY 1. SELECTION-SCREEN FUNCTION KEY 2. SELECTION-SCREEN FUNCTION KEY 3. SELECTION-SCREEN FUNCTION KEY 4. *----------------------------------------------------------------------* * CLASS lcl_alv_event_handler DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_alv_event_handler DEFINITION. PUBLIC SECTION. METHODS: handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object e_interactive, handle_f4 FOR EVENT onf4 OF cl_gui_alv_grid IMPORTING e_fieldname e_fieldvalue es_row_no er_event_data et_bad_cells, handle_user_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING e_ucomm. ENDCLASS. "lcl_alv_event_handler DEFINITION TYPES: BEGIN OF typ_table, tabname TYPE tabname, leftjoin TYPE c, astable TYPE tabname, END OF typ_table, BEGIN OF typ_join, tab1 TYPE tabname, field1 TYPE fieldname, tab2 TYPE tabname, field2 TYPE fieldname, END OF typ_join, BEGIN OF typ_field1, astable TYPE tabname, fieldname TYPE fieldname, asfield TYPE lvc_fname, query TYPE c, query_pos TYPE i, single TYPE c, display TYPE c, qfieldname TYPE lvc_qfname, cfieldname TYPE lvc_cfname, ref_table TYPE lvc_rtname, ref_field TYPE lvc_rfname, convexit TYPE convexit, emphasize TYPE lvc_emphsz, scrtext_l TYPE scrtext_l, sel_field TYPE fieldname, sql_field TYPE c LENGTH 60, out_field TYPE fieldname, typ_field TYPE c LENGTH 60, mark TYPE c LENGTH 60, END OF typ_field1, BEGIN OF typ_field2, fieldname TYPE lvc_fname, qfieldname TYPE lvc_qfname, cfieldname TYPE lvc_cfname, ref_table TYPE lvc_rtname, ref_field TYPE lvc_rfname, convexit TYPE convexit, emphasize TYPE lvc_emphsz, scrtext_l TYPE scrtext_l, typ_field TYPE c LENGTH 60, END OF typ_field2. DATA: go_docking_con TYPE REF TO cl_gui_docking_container, go_parent_con TYPE REF TO cl_gui_container, go_splitter_con TYPE REF TO cl_gui_splitter_container, go_splitter_con_left TYPE REF TO cl_gui_splitter_container, go_splitter_con_right TYPE REF TO cl_gui_splitter_container, go_con_tables TYPE REF TO cl_gui_container, go_con_joins TYPE REF TO cl_gui_container, go_con_fields1 TYPE REF TO cl_gui_container, go_con_fields2 TYPE REF TO cl_gui_container, go_alv_tables TYPE REF TO cl_gui_alv_grid, go_alv_joins TYPE REF TO cl_gui_alv_grid, go_alv_fields1 TYPE REF TO cl_gui_alv_grid, go_alv_fields2 TYPE REF TO cl_gui_alv_grid, go_event_tables TYPE REF TO lcl_alv_event_handler, go_event_joins TYPE REF TO lcl_alv_event_handler, go_event_fields1 TYPE REF TO lcl_alv_event_handler, go_event_fields2 TYPE REF TO lcl_alv_event_handler. DATA: gt_tables TYPE TABLE OF typ_table, gs_table TYPE typ_table, gt_joins TYPE TABLE OF typ_join, gs_join TYPE typ_join, gt_fields1 TYPE TABLE OF typ_field1, gs_field1 TYPE typ_field1, gt_fields2 TYPE TABLE OF typ_field2, gs_field2 TYPE typ_field2, gt_query TYPE TABLE OF typ_field1, gs_query TYPE typ_field1. DATA: gt_fieldcat_tables TYPE lvc_t_fcat, gt_fieldcat_joins TYPE lvc_t_fcat, gt_fieldcat_fields1 TYPE lvc_t_fcat, gt_fieldcat_fields2 TYPE lvc_t_fcat, gs_fieldcat TYPE lvc_s_fcat, gt_f4_tables TYPE lvc_t_f4, gt_f4_joins TYPE lvc_t_f4, gt_f4_fields1 TYPE lvc_t_f4, gt_f4_fields2 TYPE lvc_t_f4, gs_f4 TYPE lvc_s_f4, gt_exclude TYPE ui_functions, gs_layout TYPE lvc_s_layo. DATA: BEGIN OF gt_color OCCURS 0, sel TYPE c, color TYPE c LENGTH 4, value TYPE c LENGTH 4, END OF gt_color. DATA: ok_code TYPE sy-ucomm, g_flag_error TYPE c, g_state TYPE r3state, g_indxid TYPE indx_srtfd, gt_codes TYPE TABLE OF string, g_code TYPE string, go_excel TYPE ole2_object, go_books TYPE ole2_object, go_book TYPE ole2_object, go_sheet TYPE ole2_object, go_cell TYPE ole2_object, g_row TYPE i, g_col TYPE i, g_value TYPE string. DEFINE d_build_fieldcat. gs_fieldcat-fieldname = &3. gs_fieldcat-ref_table = &4. gs_fieldcat-ref_field = &5. gs_fieldcat-checkbox = &6. gs_fieldcat-f4availabl = &7. gs_fieldcat-outputlen = &8. gs_fieldcat-coltext = &9. append gs_fieldcat to &1. clear gs_fieldcat. if &7 = 'X'. gs_f4-fieldname = &3. gs_f4-register = 'X'. insert gs_f4 into table &2. clear gs_f4. endif. END-OF-DEFINITION. DEFINE append_code. append &1 to gt_codes. END-OF-DEFINITION. *----------------------------------------------------------------------* * CLASS lcl_alv_event_handler IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_alv_event_handler IMPLEMENTATION . METHOD handle_toolbar. PERFORM handle_toolbar USING e_object e_interactive. ENDMETHOD. "HANDLE_TOOLBAR METHOD handle_f4. PERFORM handle_f4 USING e_fieldname e_fieldvalue es_row_no er_event_data et_bad_cells. ENDMETHOD. "HANDLE_F4 METHOD handle_user_command. PERFORM handle_user_command USING e_ucomm. ENDMETHOD. "HANDLE_USER_COMMAND ENDCLASS. "lcl_alv_event_handler IMPLEMENTATION INITIALIZATION. sy-title = '自动生成报表(微信公众号:SAP亮亮)'. text = '程序'. gen = '生成程序'. sscrfields-functxt_01 = '保存设置'. sscrfields-functxt_02 = '加载设置'. sscrfields-functxt_03 = '下载到Excel'. sscrfields-functxt_04 = '从Excel上载'. AT SELECTION-SCREEN OUTPUT. CHECK go_docking_con IS INITIAL. "创建容器 CREATE OBJECT go_docking_con EXPORTING ratio = 95 side = cl_gui_docking_container=>dock_at_bottom. "拆分为左、右 CREATE OBJECT go_splitter_con EXPORTING parent = go_docking_con rows = 1 columns = 2. CALL METHOD go_splitter_con->set_column_width EXPORTING id = 1 width = 25. "左侧再次拆分为上下 go_parent_con = go_splitter_con->get_container( row = 1 column = 1 ). CREATE OBJECT go_splitter_con_left EXPORTING parent = go_parent_con rows = 2 columns = 1. go_splitter_con_left->set_row_height( EXPORTING id = 1 height = 40 ). "右侧再次拆分为上下 go_parent_con = go_splitter_con->get_container( row = 1 column = 2 ). CREATE OBJECT go_splitter_con_right EXPORTING parent = go_parent_con rows = 2 columns = 1. go_splitter_con_right->set_row_height( EXPORTING id = 2 height = 40 ). "创建TABLES的ALV go_con_tables = go_splitter_con_left->get_container( row = 1 column = 1 ). CREATE OBJECT go_alv_tables EXPORTING i_parent = go_con_tables. "创建JOINS的ALV go_con_joins = go_splitter_con_left->get_container( row = 2 column = 1 ). CREATE OBJECT go_alv_joins EXPORTING i_parent = go_con_joins. "创建FIELDS1的ALV go_con_fields1 = go_splitter_con_right->get_container( row = 1 column = 1 ). CREATE OBJECT go_alv_fields1 EXPORTING i_parent = go_con_fields1. "创建FIELDS2的ALV go_con_fields2 = go_splitter_con_right->get_container( row = 2 column = 1 ). CREATE OBJECT go_alv_fields2 EXPORTING i_parent = go_con_fields2. "事件响应 CREATE OBJECT: go_event_tables, go_event_joins, go_event_fields1, go_event_fields2. SET HANDLER: go_event_tables->handle_f4 FOR go_alv_tables, go_event_joins->handle_f4 FOR go_alv_joins, go_event_fields1->handle_f4 FOR go_alv_fields1, go_event_fields1->handle_toolbar FOR go_alv_fields1, go_event_fields1->handle_user_command FOR go_alv_fields1, go_event_fields2->handle_f4 FOR go_alv_fields2. "显示ALV PERFORM alv_prepare_toolbar TABLES gt_exclude. PERFORM alv_prepare_layout CHANGING gs_layout. d_build_fieldcat: gt_fieldcat_tables gt_f4_tables 'TABNAME' 'RSRD1' 'TBMA_VAL' ' ' 'X' 12 '表名', gt_fieldcat_tables gt_f4_tables 'LEFTJOIN' ' ' ' ' 'X' ' ' 6 '左连接', gt_fieldcat_tables gt_f4_tables 'ASTABLE' ' ' ' ' ' ' ' ' 4 '别名'. gs_layout-grid_title = '表清单【表顺序可以上下拖动】'. CALL METHOD go_alv_tables->set_table_for_first_display EXPORTING it_toolbar_excluding = gt_exclude is_layout = gs_layout CHANGING it_outtab = gt_tables it_fieldcatalog = gt_fieldcat_tables. d_build_fieldcat: gt_fieldcat_joins gt_f4_joins 'TAB1' 'RSRD1' 'TBMA_VAL' ' ' 'X' 12 '表1', gt_fieldcat_joins gt_f4_joins 'FIELD1' 'DD03D' 'FIELDNAME' ' ' 'X' 15 '字段1', gt_fieldcat_joins gt_f4_joins 'TAB2' 'RSRD1' 'TBMA_VAL' ' ' 'X' 12 '表2', gt_fieldcat_joins gt_f4_joins 'FIELD2' 'DD03D' 'FIELDNAME' ' ' 'X' 15 '字段2(或特定值)'. gs_layout-grid_title = '表关联【请遵循本程序约定：表1在“表清单”中的位置需要在表2以下】'. CALL METHOD go_alv_joins->set_table_for_first_display EXPORTING it_toolbar_excluding = gt_exclude is_layout = gs_layout CHANGING it_outtab = gt_joins it_fieldcatalog = gt_fieldcat_joins. d_build_fieldcat: gt_fieldcat_fields1 gt_f4_fields1 'ASTABLE' 'RSRD1' 'TBMA_VAL' ' ' 'X' 12 '表名', gt_fieldcat_fields1 gt_f4_fields1 'FIELDNAME' 'DD03D' 'FIELDNAME' ' ' 'X' 15 '字段名', gt_fieldcat_fields1 gt_f4_fields1 'ASFIELD' 'DD03D' 'FIELDNAME' ' ' ' ' 8 '字段别名', gt_fieldcat_fields1 gt_f4_fields1 'QUERY' ' ' ' ' 'X' ' ' 4 '查询', gt_fieldcat_fields1 gt_f4_fields1 'QUERY_POS' ' ' ' ' ' ' ' ' 4 '位置', gt_fieldcat_fields1 gt_f4_fields1 'SINGLE' ' ' ' ' 'X' ' ' 4 '单值', gt_fieldcat_fields1 gt_f4_fields1 'DISPLAY' ' ' ' ' 'X' ' ' 4 '输出', gt_fieldcat_fields1 gt_f4_fields1 'QFIELDNAME' 'DD03D' 'FIELDNAME' ' ' 'X' 8 '单位字段', gt_fieldcat_fields1 gt_f4_fields1 'CFIELDNAME' 'DD03D' 'FIELDNAME' ' ' 'X' 8 '货币字段', gt_fieldcat_fields1 gt_f4_fields1 'REF_TABLE' 'RSRD1' 'TBMA_VAL' ' ' ' ' 12 '参照表', gt_fieldcat_fields1 gt_f4_fields1 'REF_FIELD' 'DD03D' 'FIELDNAME' ' ' ' ' 15 '参照字段', gt_fieldcat_fields1 gt_f4_fields1 'CONVEXIT' 'DD01D' 'CONVEXIT' ' ' 'X' 7 '转换例程', gt_fieldcat_fields1 gt_f4_fields1 'EMPHASIZE' 'LVC_S_FCAT' 'EMPHASIZE' ' ' 'X' 6 '列颜色', gt_fieldcat_fields1 gt_f4_fields1 'SCRTEXT_L' 'DD04D' 'SCRTEXT_L' ' ' ' ' 20 '字段描述'. gs_layout-grid_title = '字段设置【该表格中的所有字段都会出现在SELECT中，查询字段出现在选择屏幕中，输出字段出现在ALV中】'. CALL METHOD go_alv_fields1->set_table_for_first_display EXPORTING it_toolbar_excluding = gt_exclude is_layout = gs_layout CHANGING it_outtab = gt_fields1 it_fieldcatalog = gt_fieldcat_fields1. d_build_fieldcat: gt_fieldcat_fields2 gt_f4_fields2 'FIELDNAME' 'DD03D' 'FIELDNAME' ' ' ' ' 15 '字段名', gt_fieldcat_fields2 gt_f4_fields2 'QFIELDNAME' 'DD03D' 'FIELDNAME' ' ' 'X' 8 '单位字段', gt_fieldcat_fields2 gt_f4_fields2 'CFIELDNAME' 'DD03D' 'FIELDNAME' ' ' 'X' 8 '货币字段', gt_fieldcat_fields2 gt_f4_fields2 'REF_TABLE' 'RSRD1' 'TBMA_VAL' ' ' ' ' 12 '参照表', gt_fieldcat_fields2 gt_f4_fields2 'REF_FIELD' 'DD03D' 'FIELDNAME' ' ' ' ' 15 '参照字段', gt_fieldcat_fields2 gt_f4_fields2 'CONVEXIT' 'DD01D' 'CONVEXIT' ' ' 'X' 7 '转换例程', gt_fieldcat_fields2 gt_f4_fields2 'EMPHASIZE' 'LVC_S_FCAT' 'EMPHASIZE' ' ' 'X' 6 '列颜色', gt_fieldcat_fields2 gt_f4_fields2 'SCRTEXT_L' 'DD04D' 'SCRTEXT_L' ' ' ' ' 20 '字段描述'. gs_layout-grid_title = '附加字段【如：汇总字段、合并字段等】'. CALL METHOD go_alv_fields2->set_table_for_first_display EXPORTING it_toolbar_excluding = gt_exclude is_layout = gs_layout CHANGING it_outtab = gt_fields2 it_fieldcatalog = gt_fieldcat_fields2. "注册事件 go_alv_tables->register_f4_for_fields( EXPORTING it_f4 = gt_f4_tables ). go_alv_joins->register_f4_for_fields( EXPORTING it_f4 = gt_f4_joins ). go_alv_fields1->register_f4_for_fields( EXPORTING it_f4 = gt_f4_fields1 ). go_alv_fields2->register_f4_for_fields( EXPORTING it_f4 = gt_f4_fields2 ). go_alv_tables->register_edit_event( EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ). go_alv_joins->register_edit_event( EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ). go_alv_fields1->register_edit_event( EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ). go_alv_fields2->register_edit_event( EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ). AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_prog. PERFORM f4_prog. AT SELECTION-SCREEN. go_alv_tables->check_changed_data( ). go_alv_joins->check_changed_data( ). go_alv_fields1->check_changed_data( ). go_alv_fields2->check_changed_data( ). CONCATENATE p_prog 'RG' INTO g_indxid. ok_code = sy-ucomm. CLEAR sy-ucomm. CASE ok_code. WHEN 'FC01'. EXPORT tables = gt_tables joins = gt_joins fields1 = gt_fields1 fields2 = gt_fields2 TO DATABASE indx(st) ID g_indxid. WHEN 'FC02'. IMPORT tables = gt_tables joins = gt_joins fields1 = gt_fields1 fields2 = gt_fields2 FROM DATABASE indx(st) ID g_indxid. PERFORM alv_refresh_display. WHEN 'FC03'. PERFORM download. WHEN 'FC04'. PERFORM upload. PERFORM alv_refresh_display. WHEN 'GEN'. PERFORM confirm. PERFORM check. CHECK g_flag_error IS INITIAL. PERFORM process_data. PERFORM generate. ENDCASE. *&---------------------------------------------------------------------* *& Form alv_prepare_toolbar *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM alv_prepare_toolbar TABLES pt_exclude TYPE ui_functions. REFRESH: pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_maximum TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_minimum TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_subtot TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_sum TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_average TO pt_exclude. APPEND cl_gui_alv_grid=>mc_mb_sum TO pt_exclude. APPEND cl_gui_alv_grid=>mc_mb_subtot TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_sort_asc TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_sort_dsc TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_find TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_filter TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_print TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_print_prev TO pt_exclude. APPEND cl_gui_alv_grid=>mc_mb_export TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_graph TO pt_exclude. APPEND cl_gui_alv_grid=>mc_mb_export TO pt_exclude. APPEND cl_gui_alv_grid=>mc_mb_view TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_detail TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_help TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_info TO pt_exclude. APPEND cl_gui_alv_grid=>mc_mb_variant TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_refresh TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_check TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_loc_copy TO pt_exclude. * APPEND cl_gui_alv_grid=>mc_fc_loc_insert_row TO pt_exclude. * APPEND cl_gui_alv_grid=>mc_fc_loc_delete_row TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_loc_copy_row TO pt_exclude. * APPEND cl_gui_alv_grid=>mc_fc_loc_append_row TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_loc_undo TO pt_exclude. APPEND cl_gui_alv_grid=>mc_fc_loc_cut TO pt_exclude. APPEND cl_gui_alv_grid=>mc_mb_paste TO pt_exclude. ENDFORM. "alv_prepare_toolbar *&---------------------------------------------------------------------* *& Form alv_prepare_layout *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->PS_LAYOUT text *----------------------------------------------------------------------* FORM alv_prepare_layout CHANGING ps_layout TYPE lvc_s_layo. ps_layout-zebra = 'X'. ps_layout-sel_mode = 'A'. ps_layout-smalltitle = 'X'. ps_layout-edit = 'X'. ENDFORM. "alv_prepare_layout *&---------------------------------------------------------------------* *& Form handle_toolbar *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM handle_toolbar USING e_object TYPE REF TO cl_alv_event_toolbar_set e_interactive TYPE char1. DATA: ls_toolbar TYPE stb_button. ls_toolbar-function = 'IMPORT'. ls_toolbar-icon = icon_import. ls_toolbar-text = '导入表格字段'. ls_toolbar-quickinfo = '导入表格字段'. APPEND ls_toolbar TO e_object->mt_toolbar. CLEAR: ls_toolbar. ls_toolbar-function = 'ALL'. ls_toolbar-text = '输出：全选'. ls_toolbar-quickinfo = '全部输出'. APPEND ls_toolbar TO e_object->mt_toolbar. CLEAR: ls_toolbar. ls_toolbar-function = 'NONE'. ls_toolbar-text = '输出：取消全选'. ls_toolbar-quickinfo = '全部不输出'. APPEND ls_toolbar TO e_object->mt_toolbar. CLEAR: ls_toolbar. ENDFORM. "handle_toolbar *&---------------------------------------------------------------------* *& Form handle_user_command *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM handle_user_command USING e_ucomm. DATA: l_astable TYPE tabname, l_tabname TYPE tabname, lt_dfies_tab TYPE TABLE OF dfies WITH HEADER LINE. ok_code = e_ucomm. CLEAR e_ucomm. CASE ok_code. WHEN 'IMPORT'. "选择表 PERFORM f4_table CHANGING l_astable. CHECK l_astable IS NOT INITIAL. "获取真实表名 READ TABLE gt_tables WITH KEY astable = l_astable INTO gs_table. IF sy-subrc = 0. l_tabname = gs_table-tabname. ELSE. l_tabname = l_astable. ENDIF. "获取字段 CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = l_tabname langu = sy-langu TABLES dfies_tab = lt_dfies_tab[] EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3. CHECK sy-subrc = 0. "添加到ALV LOOP AT lt_dfies_tab. CHECK lt_dfies_tab-fieldname <> 'MANDT'. CLEAR: gs_field1. gs_field1-astable = l_astable. gs_field1-fieldname = lt_dfies_tab-fieldname. gs_field1-scrtext_l = lt_dfies_tab-fieldtext. gs_field1-ref_table = l_tabname. gs_field1-ref_field = lt_dfies_tab-fieldname. APPEND gs_field1 TO gt_fields1. ENDLOOP. go_alv_fields1->refresh_table_display( ). WHEN 'ALL'. gs_field1-display = 'X'. MODIFY gt_fields1 FROM gs_field1 TRANSPORTING display WHERE display = ''. go_alv_fields1->refresh_table_display( ). WHEN 'NONE'. gs_field1-display = ''. MODIFY gt_fields1 FROM gs_field1 TRANSPORTING display WHERE display = 'X'. go_alv_fields1->refresh_table_display( ). ENDCASE. ENDFORM. "handle_user_command *&---------------------------------------------------------------------* *& Form handle_f4 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM handle_f4 USING e_fieldname TYPE lvc_fname e_fieldvalue TYPE lvc_value es_row_no TYPE lvc_s_roid er_event_data TYPE REF TO cl_alv_event_data et_bad_cells TYPE lvc_t_modi. DATA: ls_row TYPE lvc_s_row, ls_col TYPE lvc_s_col, ls_modi TYPE lvc_s_modi, l_tabname TYPE tabname, l_fieldtext TYPE fieldtext, l_ref_table TYPE lvc_rtname, l_ref_field TYPE lvc_rfname, l_convexit TYPE convexit. FIELD-SYMBOLS:TYPE lvc_t_modi. er_event_data->m_event_handled = 'X'. CASE e_fieldname. WHEN 'TABNAME'. PERFORM f4_dd_table(rsaqddic) USING 'SAPLAQJD_CNTRL' '0300' 'G_DYN_0300-TNAME' CHANGING e_fieldvalue. "搜索帮助代码，来于SQVI中“插入表”的搜索帮助 WHEN 'TAB1' OR 'TAB2' OR 'ASTABLE'. PERFORM f4_table CHANGING e_fieldvalue. WHEN 'FIELD1' OR 'FIELD2' OR 'FIELDNAME'. go_alv_tables->check_changed_data( ). IF e_fieldname = 'FIELD1'. READ TABLE gt_joins INDEX es_row_no-row_id INTO gs_join. CHECK gs_join-tab1 IS NOT INITIAL. l_tabname = gs_join-tab1. ELSEIF e_fieldname = 'FIELD2'. READ TABLE gt_joins INDEX es_row_no-row_id INTO gs_join. CHECK gs_join-tab2 IS NOT INITIAL. l_tabname = gs_join-tab2. ELSEIF e_fieldname = 'FIELDNAME'. READ TABLE gt_fields1 INDEX es_row_no-row_id INTO gs_field1. CHECK gs_field1-astable IS NOT INITIAL. l_tabname = gs_field1-astable. l_fieldtext = gs_field1-scrtext_l. l_ref_table = gs_field1-ref_table. l_ref_field = gs_field1-ref_field. ENDIF. READ TABLE gt_tables WITH KEY astable = l_tabname INTO gs_table. IF sy-subrc = 0. l_tabname = gs_table-tabname. ENDIF. PERFORM f4_field USING l_tabname CHANGING e_fieldvalue l_fieldtext l_ref_table l_ref_field. WHEN 'QFIELDNAME' OR 'CFIELDNAME'. PERFORM f4_field_in_itab CHANGING e_fieldvalue. WHEN 'EMPHASIZE'. PERFORM f4_color CHANGING e_fieldvalue. WHEN 'CONVEXIT'. PERFORM f4_convexit CHANGING e_fieldvalue. WHEN OTHERS. EXIT. ENDCASE. ASSIGN er_event_data->m_data->* TO . ls_modi-row_id = es_row_no-row_id." ls_modi-fieldname = e_fieldname. ls_modi-value = e_fieldvalue. APPEND ls_modi TO . IF e_fieldname = 'FIELDNAME'. ls_modi-row_id = es_row_no-row_id. ls_modi-fieldname = 'SCRTEXT_L'. ls_modi-value = l_fieldtext. APPEND ls_modi TO . ls_modi-row_id = es_row_no-row_id. ls_modi-fieldname = 'REF_TABLE'. ls_modi-value = l_ref_table. APPEND ls_modi TO . ls_modi-row_id = es_row_no-row_id. ls_modi-fieldname = 'REF_FIELD'. ls_modi-value = l_ref_field. APPEND ls_modi TO . ls_modi-row_id = es_row_no-row_id. ls_modi-fieldname = 'CONVEXIT'. ls_modi-value = l_convexit. APPEND ls_modi TO . ENDIF. ENDFORM. "handle_f4 *&---------------------------------------------------------------------* *& Form F4_PROG *&---------------------------------------------------------------------* * 程序名称的搜索帮助（同SE38） *----------------------------------------------------------------------* FORM f4_prog . DATA: lt_dynpfields TYPE TABLE OF dynpread WITH HEADER LINE. lt_dynpfields-fieldname = 'P_PROG'. APPEND lt_dynpfields. CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = sy-repid dynumb = sy-dynnr TABLES dynpfields = lt_dynpfields[]. READ TABLE lt_dynpfields INDEX 1. p_prog = lt_dynpfields-fieldvalue. CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4' EXPORTING object_type = 'PROG' object_name = p_prog suppress_selection = 'X' IMPORTING object_name_selected = p_prog EXCEPTIONS cancel = 01. ENDFORM. " F4_PROG *&---------------------------------------------------------------------* *& Form PROCESS_DATA *&---------------------------------------------------------------------* * 处理数据 *----------------------------------------------------------------------* FORM process_data . DATA: l_tabname TYPE tabname, l_as_flag TYPE c. LOOP AT gt_fields1 INTO gs_field1. "取真实表名 READ TABLE gt_tables WITH KEY astable = gs_field1-astable INTO gs_table. IF sy-subrc = 0. l_tabname = gs_table-tabname. l_as_flag = 'X'. ELSE. l_tabname = gs_field1-astable. l_as_flag = ''. ENDIF. "根据单选和多选情况，确定选择条件的参数 IF gs_field1-query = 'X'. IF gs_field1-asfield IS INITIAL. gs_field1-sel_field = gs_field1-fieldname. ELSE. gs_field1-sel_field = gs_field1-asfield. ENDIF. IF gs_field1-single = 'X'. CONCATENATE 'P_' gs_field1-sel_field INTO gs_field1-sel_field. ELSE. CONCATENATE 'S_' gs_field1-sel_field INTO gs_field1-sel_field. ENDIF. ENDIF. "确定SQL字段的名称 IF l_as_flag = ''. CONCATENATE l_tabname '~' gs_field1-fieldname INTO gs_field1-sql_field. ELSE. CONCATENATE gs_field1-astable '~' gs_field1-fieldname INTO gs_field1-sql_field. ENDIF. "确定显示字段的名称 IF gs_field1-asfield IS INITIAL. gs_field1-out_field = gs_field1-fieldname. ELSE. gs_field1-out_field = gs_field1-asfield. "SQL字段别名处理 CONCATENATE gs_field1-sql_field 'AS' gs_field1-asfield INTO gs_field1-sql_field SEPARATED BY space. ENDIF. "确定参照字段的名称 CONCATENATE l_tabname '-' gs_field1-fieldname INTO gs_field1-typ_field. CONCATENATE '"' gs_field1-scrtext_l INTO gs_field1-mark. SHIFT gs_field1-mark RIGHT BY 10 PLACES. MODIFY gt_fields1 FROM gs_field1 TRANSPORTING sel_field sql_field out_field typ_field mark. ENDLOOP. gt_query = gt_fields1. DELETE gt_query WHERE query = ''. SORT gt_query STABLE BY query_pos. LOOP AT gt_fields2 INTO gs_field2. IF gs_field2-ref_table IS INITIAL. gs_field2-typ_field = gs_field2-ref_field. ELSE. CONCATENATE gs_field2-ref_field '-' gs_field2-ref_field INTO gs_field2-typ_field. ENDIF. MODIFY gt_fields2 FROM gs_field2 TRANSPORTING typ_field. ENDLOOP. ENDFORM. " PROCESS_DATA *&---------------------------------------------------------------------* *& Form generate *&---------------------------------------------------------------------* * 生成程序 *----------------------------------------------------------------------* FORM generate. REFRESH gt_codes. "程序名 PERFORM gen_report_name. "TABLES PERFORM gen_tables_clause. "SELECTION-SCREEN PERFORM gen_selection_screen. "类型定义 PERFORM gen_types. "数据定义 PERFORM gen_data_defination. "初始化 PERFORM gen_initialization. "START-OF-SELECTION PERFORM gen_start_of_selection. "FORM GET_DATA PERFORM gen_form_get_data. "FORM PROCESS_DATA PERFORM gen_form_process_data. "FORM BUILD_FIELDCAT PERFORM gen_form_build_fieldcat. "FORM DISPLAY_DATA PERFORM gen_form_display_data. "FORM PF_STATUS_ALV PERFORM gen_form_pf_status_alv. "FORM USER_COMMAND_ALV PERFORM gen_form_user_command_alv. IF g_state = 'A'. INSERT REPORT p_prog FROM gt_codes. MESSAGE '程序已成功生成' TYPE 'S'. ELSE. INSERT REPORT p_prog FROM gt_codes STATE 'I'. MESSAGE '程序已成功生成，请手动激活' TYPE 'S'. ENDIF. ENDFORM. "GENERATE *&---------------------------------------------------------------------* *& Form GEN_REPORT_NAME *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_report_name . CONCATENATE 'REPORT' p_prog INTO g_code SEPARATED BY space. CONCATENATE g_code '.' INTO g_code. append_code: g_code, ''. ENDFORM. " GEN_REPORT_NAME *&---------------------------------------------------------------------* *& Form GEN_TABLES_CLAUSE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_tables_clause . DATA: lt_tables TYPE TABLE OF typ_table. lt_tables = gt_tables. SORT lt_tables BY tabname. DELETE ADJACENT DUPLICATES FROM lt_tables COMPARING tabname. append_code: 'TYPE-POOLS: slis.'. g_code = 'TABLES:'. LOOP AT lt_tables INTO gs_table. CONCATENATE g_code gs_table-tabname INTO g_code SEPARATED BY space. IF sy-tabix = lines( lt_tables ). CONCATENATE g_code '.' INTO g_code. ELSE. CONCATENATE g_code ',' INTO g_code. ENDIF. ENDLOOP. append_code: g_code, ''. ENDFORM. " GEN_TABLES_CLAUSE *&---------------------------------------------------------------------* *& Form GEN_SELECTION_SCREEN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_selection_screen . append_code 'SELECTION-SCREEN BEGIN OF BLOCK 001 WITH FRAME TITLE TEXT-001.'. LOOP AT gt_query INTO gs_query. IF gs_query-single = 'X'. CONCATENATE 'PARAMETERS' gs_query-sel_field 'TYPE' gs_query-typ_field INTO g_code SEPARATED BY space. ELSE. CONCATENATE 'SELECT-OPTIONS' gs_query-sel_field 'FOR' gs_query-typ_field INTO g_code SEPARATED BY space. ENDIF. CONCATENATE g_code '.' gs_query-mark INTO g_code. append_code g_code. ENDLOOP. append_code 'SELECTION-SCREEN END OF BLOCK 001.'. append_code ''. ENDFORM. " GEN_SELECTION_SCREEN *&---------------------------------------------------------------------* *& Form GEN_TYPES *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_types . DATA: l_mark TYPE c LENGTH 60. append_code: 'TYPES:', ' BEGIN OF TYP_DATA,'. LOOP AT gt_fields1 INTO gs_field1. CONCATENATE gs_field1-out_field 'TYPE' gs_field1-typ_field INTO g_code SEPARATED BY space. CONCATENATE g_code ',' gs_field1-mark INTO g_code. SHIFT g_code RIGHT BY 4 PLACES. append_code g_code. ENDLOOP. LOOP AT gt_fields2 INTO gs_field2. CONCATENATE gs_field2-fieldname 'TYPE' gs_field2-typ_field INTO g_code SEPARATED BY space. CONCATENATE '"' gs_field2-scrtext_l INTO l_mark. SHIFT l_mark RIGHT BY 10 PLACES. CONCATENATE g_code ',' l_mark INTO g_code. SHIFT g_code RIGHT BY 4 PLACES. append_code g_code. ENDLOOP. append_code: ' END OF TYP_DATA.', ''. ENDFORM. " GEN_TYPES *&---------------------------------------------------------------------* *& Form GEN_DATA_DEFINATION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_data_defination . append_code: ' DATA:', ' GT_DATA TYPE TABLE OF TYP_DATA,', ' GS_DATA TYPE TYP_DATA,', ' GT_FIELDCAT TYPE LVC_T_FCAT,', ' GS_FIELDCAT TYPE LVC_S_FCAT,', ' GS_LAYOUT TYPE LVC_S_LAYO.', ''. ENDFORM. " GEN_DATA_DEFINATION *&---------------------------------------------------------------------* *& Form GEN_INITIALIZATION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_initialization . append_code 'INITIALIZATION.'. LOOP AT gt_query INTO gs_query. CONCATENATE ' %_' gs_query-sel_field '_%_APP_%-TEXT' INTO g_code. CONCATENATE g_code ' = ''' gs_query-scrtext_l '''.' INTO g_code. append_code g_code. ENDLOOP. append_code ''. ENDFORM. " GEN_INITIALIZATION *&---------------------------------------------------------------------* *& Form GEN_START_OF_SELECTION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_start_of_selection . append_code: 'START-OF-SELECTION.', ' PERFORM GET_DATA.', ' PERFORM PROCESS_DATA.', ' PERFORM DISPLAY_DATA.', ''. ENDFORM. " GEN_START_OF_SELECTION *&---------------------------------------------------------------------* *& Form GEN_FORM_GET_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_form_get_data . DATA: l_joinfield TYPE string, l_tabname TYPE tabname, l_join_counts TYPE i, l_index TYPE i. append_code: '*&---------------------------------------------------------------------*', '*& FORM GET_DATA ', '*&---------------------------------------------------------------------*', '* 获取数据 ', '*----------------------------------------------------------------------*', 'FORM GET_DATA. '. "SELECT字段 append_code ' SELECT'. LOOP AT gt_fields1 INTO gs_field1. CONCATENATE gs_field1-sql_field gs_field1-mark INTO g_code. SHIFT g_code RIGHT BY 4 PLACES. append_code g_code. ENDLOOP. IF gt_fields2 IS INITIAL. append_code ' INTO TABLE GT_DATA'. ELSE. append_code ' INTO CORRESPONDING FIELDS OF TABLE GT_DATA'. ENDIF. "FROM语句 READ TABLE gt_tables INDEX 1 INTO gs_table. CONCATENATE 'FROM' gs_table-tabname INTO g_code SEPARATED BY space. IF gs_table-astable IS NOT INITIAL. CONCATENATE g_code 'AS' gs_table-astable INTO g_code SEPARATED BY space. ENDIF. SHIFT g_code RIGHT BY 4 PLACES. append_code g_code. "JOIN语句 LOOP AT gt_tables INTO gs_table FROM 2. IF gs_table-leftjoin = 'X'. CONCATENATE ' LEFT JOIN' gs_table-tabname INTO g_code SEPARATED BY space. ELSE. CONCATENATE ' INNER JOIN' gs_table-tabname INTO g_code SEPARATED BY space. ENDIF. IF gs_table-astable IS INITIAL. l_tabname = gs_table-tabname. ELSE. l_tabname = gs_table-astable. CONCATENATE g_code 'AS' l_tabname INTO g_code SEPARATED BY space. ENDIF. CONCATENATE g_code 'ON' INTO g_code SEPARATED BY space. CLEAR: l_join_counts. LOOP AT gt_joins INTO gs_join WHERE tab1 = l_tabname. ADD 1 TO l_join_counts. IF l_join_counts > 1. CONCATENATE g_code 'AND' INTO g_code SEPARATED BY space. ENDIF. CONCATENATE gs_join-tab1 '~' gs_join-field1 INTO l_joinfield. CONCATENATE g_code l_joinfield '=' INTO g_code SEPARATED BY space. IF gs_join-tab2 IS INITIAL. l_joinfield = gs_join-field2. ELSE. CONCATENATE gs_join-tab2 '~' gs_join-field2 INTO l_joinfield. ENDIF. CONCATENATE g_code l_joinfield INTO g_code SEPARATED BY space. ENDLOOP. append_code g_code. ENDLOOP. "WHERE语句 LOOP AT gt_query INTO gs_query. l_index = sy-tabix. CONCATENATE gs_query-astable '~' gs_query-fieldname INTO g_code. IF l_index = 1. CONCATENATE ' WHERE' g_code INTO g_code SEPARATED BY space. ELSE. CONCATENATE ' AND' g_code INTO g_code SEPARATED BY space. ENDIF. IF gs_query-single = 'X'. CONCATENATE g_code '=' gs_query-sel_field INTO g_code SEPARATED BY space. ELSE. CONCATENATE g_code 'IN' gs_query-sel_field INTO g_code SEPARATED BY space. ENDIF. IF l_index = lines( gt_query ). CONCATENATE g_code '.' INTO g_code. ENDIF. append_code g_code. ENDLOOP. append_code 'ENDFORM. "GET_DATA'. ENDFORM. " GEN_FORM_GET_DATA *&---------------------------------------------------------------------* *& Form GEN_FORM_PROCESS_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_form_process_data . append_code: '*&---------------------------------------------------------------------*', '*& FORM PROCESS_DATA ', '*&---------------------------------------------------------------------*', '* 处理数据 ', '*----------------------------------------------------------------------*', 'FORM PROCESS_DATA. ', ' ', 'ENDFORM. "PROCESS_DATA '. ENDFORM. "GEN_FORM_PROCESS_DATA *&---------------------------------------------------------------------* *& Form GEN_FORM_BUILD_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_form_build_fieldcat . append_code: '*&---------------------------------------------------------------------*', '*& Form BUILD_FIELDCAT ', '*&---------------------------------------------------------------------*', '* TEXT ', '*----------------------------------------------------------------------*', 'FORM BUILD_FIELDCAT USING P_FIELDNAME TYPE FIELDNAME ', ' P_QFIELDNAME TYPE LVC_QFNAME ', ' P_CFIELDNAME TYPE LVC_CFNAME ', ' P_REF_TABLE TYPE LVC_RTNAME ', ' P_REF_FIELD TYPE LVC_RFNAME ', ' P_CONVEXIT TYPE CONVEXIT ', ' P_EMPHASIZE TYPE LVC_EMPHSZ ', ' P_SCRTEXT_L TYPE SCRTEXT_L. ', ' GS_FIELDCAT-FIELDNAME = P_FIELDNAME. ', ' GS_FIELDCAT-QFIELDNAME = P_QFIELDNAME. ', ' GS_FIELDCAT-CFIELDNAME = P_CFIELDNAME. ', ' GS_FIELDCAT-REF_TABLE = P_REF_TABLE. ', ' GS_FIELDCAT-REF_FIELD = P_REF_FIELD. ', ' GS_FIELDCAT-CONVEXIT = P_CONVEXIT. ', ' GS_FIELDCAT-EMPHASIZE = P_EMPHASIZE. ', ' GS_FIELDCAT-SCRTEXT_L = P_SCRTEXT_L. ', ' GS_FIELDCAT-COLDDICTXT = ''L''. ', ' APPEND GS_FIELDCAT TO GT_FIELDCAT. ', ' CLEAR: GS_FIELDCAT. ', 'ENDFORM. "BUILD_FIELDCAT '. ENDFORM. " GEN_FORM_BUILD_FIELDCAT *&---------------------------------------------------------------------* *& Form GEN_FORM_DISPLAY_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_form_display_data . append_code: '*&---------------------------------------------------------------------*', '*& FORM DISPLAY_DATA ', '*&---------------------------------------------------------------------*', '* 显示数据 ', '*----------------------------------------------------------------------*', 'FORM DISPLAY_DATA. '. "FIELDCAT LOOP AT gt_fields1 INTO gs_field1 WHERE display = 'X'. CONCATENATE ' PERFORM BUILD_FIELDCAT USING ''' gs_field1-out_field ''' ''' gs_field1-qfieldname ''' ''' gs_field1-cfieldname ''' ''' gs_field1-ref_table ''' ''' gs_field1-ref_field ''' ''' gs_field1-convexit ''' ''' gs_field1-emphasize ''' ''' gs_field1-scrtext_l '''.' INTO g_code. append_code g_code. ENDLOOP. LOOP AT gt_fields2 INTO gs_field2. CONCATENATE ' PERFORM BUILD_FIELDCAT USING ''' gs_field2-fieldname ''' ''' gs_field2-qfieldname ''' ''' gs_field2-cfieldname ''' ''' gs_field2-ref_table ''' ''' gs_field2-ref_field ''' ''' gs_field2-convexit ''' ''' gs_field2-emphasize ''' ''' gs_field2-scrtext_l '''.' INTO g_code. append_code g_code. ENDLOOP. append_code ''. "LAYOUT append_code: ' gs_layout-cwidth_opt = ''X''.', ' gs_layout-zebra = ''X''.', ''. append_code: ' CALL FUNCTION ''REUSE_ALV_GRID_DISPLAY_LVC'' ', ' EXPORTING ', ' I_CALLBACK_PROGRAM = SY-REPID ', '" I_CALLBACK_PF_STATUS_SET = ''PF_STATUS_ALV'' ', ' I_CALLBACK_USER_COMMAND = ''USER_COMMAND_ALV'' ', ' IT_FIELDCAT_LVC = GT_FIELDCAT ', ' IS_LAYOUT_LVC = GS_LAYOUT ', ' I_DEFAULT = ''X'' ', ' I_SAVE = ''A'' ', ' TABLES ', ' T_OUTTAB = GT_DATA ', ' EXCEPTIONS ', ' OTHERS = 1. '. "ALV展示 append_code 'ENDFORM. "DISPLAY_DATA'. ENDFORM. " GEN_FORM_DISPLAY_DATA *&---------------------------------------------------------------------* *& Form GEN_FORM_PF_STATUS_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_form_pf_status_alv . append_code: '**&---------------------------------------------------------------------*', '**& FORM PF_STATUS_ALV ', '**&---------------------------------------------------------------------*', '** TEXT ', '**----------------------------------------------------------------------*', '*FORM PF_STATUS_ALV USING RT_EXTAB TYPE SLIS_T_EXTAB . ', '* SET PF-STATUS ''STATUS_ALV'' EXCLUDING RT_EXTAB. ', '*ENDFORM. "PF_STATUS_ALV '. ENDFORM. " GEN_FORM_PF_STATUS_ALV *&---------------------------------------------------------------------* *& Form GEN_FORM_USER_COMMAND_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_form_user_command_alv . append_code: '*&---------------------------------------------------------------------*', '*& FORM USER_COMMAND_ALV ', '*&---------------------------------------------------------------------*', '* TEXT ', '*----------------------------------------------------------------------*', 'FORM USER_COMMAND_ALV USING R_UCOMM LIKE SY-UCOMM ', ' RS_SELFIELD TYPE SLIS_SELFIELD. ', ' CASE R_UCOMM. ', ' WHEN ''&IC1''. ', ' CASE RS_SELFIELD-FIELDNAME. ', ' WHEN ''''. ', '* CHECK RS_SELFIELD-VALUE IS NOT INITIAL. ', '* SET PARAMETER ID ''MBN'' FIELD RS_SELFIELD-VALUE. ', '* CALL TRANSACTION ''MB03'' AND SKIP FIRST SCREEN. ', ' ENDCASE. ', ' ENDCASE. ', 'ENDFORM. "USER_COMMAND_ALV '. ENDFORM. " GEN_FORM_USER_COMMAND_ALV *&---------------------------------------------------------------------* *& Form f4_table *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM f4_table CHANGING p_tabname. DATA: lt_return TYPE TABLE OF ddshretval WITH HEADER LINE. DATA: BEGIN OF lt_tables OCCURS 0, astable TYPE tabname, tabname TYPE tabname, END OF lt_tables. go_alv_tables->check_changed_data( ). LOOP AT gt_tables INTO gs_table. IF gs_table-astable IS INITIAL. lt_tables-astable = gs_table-tabname. ELSE. lt_tables-astable = gs_table-astable. ENDIF. lt_tables-tabname = gs_table-tabname. APPEND lt_tables. ENDLOOP. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'ASTABLE' window_title = '选择' value_org = 'S' TABLES value_tab = lt_tables[] return_tab = lt_return[]. IF lt_return[] IS NOT INITIAL. READ TABLE lt_return INDEX 1. p_tabname = lt_return-fieldval. ENDIF. ENDFORM. "f4_table *&---------------------------------------------------------------------* *& Form f4_field *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM f4_field USING p_tabname TYPE tabname CHANGING p_fieldname p_fieldtext p_ref_table p_ref_field. DATA: lt_return TYPE TABLE OF ddshretval WITH HEADER LINE, lt_dfies_tab TYPE TABLE OF dfies WITH HEADER LINE, BEGIN OF lt_fields OCCURS 0, fieldname TYPE fieldname, fieldtext TYPE fieldtext, keyflag TYPE keyflag, datatype TYPE dynptype, leng TYPE ddleng, decimals TYPE decimals, END OF lt_fields. CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = p_tabname langu = sy-langu TABLES dfies_tab = lt_dfies_tab[] EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3. CHECK sy-subrc = 0. DELETE lt_dfies_tab WHERE fieldname = 'MANDT'. LOOP AT lt_dfies_tab. lt_fields-fieldname = lt_dfies_tab-fieldname. lt_fields-fieldtext = lt_dfies_tab-fieldtext. lt_fields-keyflag = lt_dfies_tab-keyflag . lt_fields-datatype = lt_dfies_tab-datatype . lt_fields-leng = lt_dfies_tab-leng . lt_fields-decimals = lt_dfies_tab-decimals . APPEND lt_fields. ENDLOOP. "调用F4 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'FIELDNAME' window_title = '选择' value_org = 'S' TABLES value_tab = lt_fields[] return_tab = lt_return[]. IF lt_return[] IS NOT INITIAL. READ TABLE lt_return INDEX 1. p_fieldname = lt_return-fieldval. READ TABLE lt_fields WITH KEY fieldname = p_fieldname. p_fieldtext = lt_fields-fieldtext. p_ref_table = p_tabname. p_ref_field = p_fieldname. ENDIF. ENDFORM. "f4_field *&---------------------------------------------------------------------* *& Form F4_FIELD_IN_ITAB *&---------------------------------------------------------------------* * GT_FIELDS的字段 *----------------------------------------------------------------------* FORM f4_field_in_itab CHANGING p_fieldname. DATA: lt_return TYPE TABLE OF ddshretval WITH HEADER LINE, BEGIN OF lt_fields OCCURS 0, fieldname TYPE fieldname, fieldtext TYPE fieldtext, END OF lt_fields. LOOP AT gt_fields1 INTO gs_field1. IF gs_field1-asfield IS INITIAL. lt_fields-fieldname = gs_field1-fieldname. ELSE. lt_fields-fieldname = gs_field1-asfield. ENDIF. lt_fields-fieldtext = gs_field1-scrtext_l. APPEND lt_fields. ENDLOOP. LOOP AT gt_fields2 INTO gs_field2. lt_fields-fieldname = gs_field2-fieldname. lt_fields-fieldtext = gs_field2-scrtext_l. APPEND lt_fields. ENDLOOP. "调用F4 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'FIELDNAME' window_title = '选择' value_org = 'S' TABLES value_tab = lt_fields[] return_tab = lt_return[]. IF lt_return[] IS NOT INITIAL. READ TABLE lt_return INDEX 1. p_fieldname = lt_return-fieldval. ENDIF. ENDFORM. " F4_FIELD_IN_ITAB *&---------------------------------------------------------------------* *& Form f4_color *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM f4_color CHANGING p_color. DATA: lt_fieldcat TYPE lvc_t_fcat, ls_fieldcat TYPE lvc_s_fcat, ls_layout TYPE lvc_s_layo, l_index TYPE n. CLEAR: gt_color, gt_color[]. DO 7 TIMES. l_index = sy-index. CONCATENATE 'C' l_index '00' INTO gt_color-color. gt_color-value = gt_color-color. APPEND gt_color. CONCATENATE 'C' l_index '01' INTO gt_color-color. gt_color-value = gt_color-color. APPEND gt_color. CONCATENATE 'C' l_index '10' INTO gt_color-color. gt_color-value = gt_color-color. APPEND gt_color. ENDDO. ls_fieldcat-fieldname = 'VALUE'. ls_fieldcat-scrtext_l = '颜色码'. APPEND ls_fieldcat TO lt_fieldcat. ls_layout-box_fname = 'SEL'. ls_layout-info_fname = 'COLOR'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_callback_user_command = 'USER_COMMAND_COLOR' is_layout_lvc = ls_layout it_fieldcat_lvc = lt_fieldcat i_screen_start_column = 130 i_screen_start_line = 5 i_screen_end_column = 150 i_screen_end_line = 25 TABLES t_outtab = gt_color[]. CHECK sy-ucomm NE '&AC1'. "没有点击关闭 READ TABLE gt_color WITH KEY sel = 'X'. CHECK sy-subrc = 0. p_color = gt_color-value. ENDFORM. "f4_color *&---------------------------------------------------------------------* *& Form f4_convexit *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM f4_convexit CHANGING p_convexit. STATICS call_times TYPE i. DATA: lt_return TYPE TABLE OF ddshretval WITH HEADER LINE, BEGIN OF lt_convexits OCCURS 0, convexit TYPE convexit, text TYPE fieldtext, END OF lt_convexits. "从表TFDIR中取CONVERSION_EXIT*的函数，太多了，此处只列出常用的几个 IF call_times IS INITIAL. MESSAGE '系统中的转换例程太多，此处只列出常用的一些' TYPE 'I'. ADD 1 TO call_times. ENDIF. lt_convexits-convexit = 'ALPHA'. lt_convexits-text = '前导零'. APPEND lt_convexits. lt_convexits-convexit = 'MATN1'. lt_convexits-text = '物料号'. APPEND lt_convexits. lt_convexits-convexit = 'CUNIT'. lt_convexits-text = '计量单位'. APPEND lt_convexits. lt_convexits-convexit = 'KONPD'. lt_convexits-text = '项目编码'. APPEND lt_convexits. lt_convexits-convexit = 'ABPSP'. lt_convexits-text = 'WBS编码'. APPEND lt_convexits. lt_convexits-convexit = 'PARVW'. lt_convexits-text = '合作伙伴'. APPEND lt_convexits. "调用F4 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'CONVEXIT' window_title = '选择' value_org = 'S' TABLES value_tab = lt_convexits[] return_tab = lt_return[]. IF lt_return[] IS NOT INITIAL. READ TABLE lt_return INDEX 1. p_convexit = lt_return-fieldval. ENDIF. ENDFORM. "f4_convexit *&---------------------------------------------------------------------* *& Form USER_COMMAND_COLOR *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM user_command_color USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. DATA: lt_color LIKE TABLE OF gt_color. CASE r_ucomm. WHEN '&ONT'. lt_color[] = gt_color[]. DELETE lt_color WHERE sel = ''. IF lines( lt_color ) <> 1. MESSAGE '请选择一个行项目' TYPE 'E'. ENDIF. WHEN '&IC1'. gt_color-sel = 'X'. MODIFY gt_color INDEX rs_selfield-tabindex TRANSPORTING sel. LEAVE TO SCREEN 0. ENDCASE. ENDFORM. "USER_COMMAND_COLOR *&---------------------------------------------------------------------* *& Form download *&---------------------------------------------------------------------* * 下载到Excel *----------------------------------------------------------------------* FORM download. DATA: l_file TYPE string, l_path TYPE string, l_fullpath TYPE string, l_action TYPE i. CALL METHOD cl_gui_frontend_services=>file_save_dialog EXPORTING default_file_name = l_file CHANGING filename = l_file path = l_path fullpath = l_fullpath user_action = l_action. CHECK l_action = 0. PERFORM create_excel_app. PERFORM open_workbook USING l_fullpath. * =========TABLES========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'TABLES'. IF sy-subrc <> 0. MESSAGE '打开TABLES工作表失败' TYPE 'E'. ENDIF. LOOP AT gt_tables INTO gs_table. g_row = sy-tabix + 1. PERFORM set_cell_value USING g_row 1 gs_table-tabname. IF gs_table-leftjoin = 'X'. PERFORM set_cell_value USING g_row 2 1. ENDIF. PERFORM set_cell_value USING g_row 3 gs_table-astable. ENDLOOP. CALL METHOD cl_gui_cfw=>flush. * =========JOINS========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'JOINS'. IF sy-subrc <> 0. MESSAGE '打开JOINS工作表失败' TYPE 'E'. ENDIF. LOOP AT gt_joins INTO gs_join. g_row = sy-tabix + 1. PERFORM set_cell_value USING g_row 1 gs_join-tab1. PERFORM set_cell_value USING g_row 2 gs_join-field1. PERFORM set_cell_value USING g_row 3 gs_join-tab2. PERFORM set_cell_value USING g_row 4 gs_join-field2. ENDLOOP. CALL METHOD cl_gui_cfw=>flush. * =========FIELDS1========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'FIELDS1'. IF sy-subrc <> 0. MESSAGE '打开FIELDS1工作表失败' TYPE 'E'. ENDIF. LOOP AT gt_fields1 INTO gs_field1. g_row = sy-tabix + 1. PERFORM set_cell_value USING g_row 1 gs_field1-astable. PERFORM set_cell_value USING g_row 2 gs_field1-fieldname. PERFORM set_cell_value USING g_row 3 gs_field1-asfield. IF gs_field1-query = 'X'. PERFORM set_cell_value USING g_row 4 1. ENDIF. PERFORM set_cell_value USING g_row 5 gs_field1-query_pos. IF gs_field1-single = 'X'. PERFORM set_cell_value USING g_row 6 1. ENDIF. IF gs_field1-display = 'X'. PERFORM set_cell_value USING g_row 7 1. ENDIF. PERFORM set_cell_value USING g_row 8 gs_field1-qfieldname. PERFORM set_cell_value USING g_row 9 gs_field1-cfieldname. PERFORM set_cell_value USING g_row 10 gs_field1-ref_table. PERFORM set_cell_value USING g_row 11 gs_field1-ref_field. PERFORM set_cell_value USING g_row 12 gs_field1-convexit. PERFORM set_cell_value USING g_row 13 gs_field1-emphasize. PERFORM set_cell_value USING g_row 14 gs_field1-scrtext_l. ENDLOOP. CALL METHOD cl_gui_cfw=>flush. * =========FIELDS2========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'FIELDS2'. IF sy-subrc <> 0. MESSAGE '打开FIELDS2工作表失败' TYPE 'E'. ENDIF. LOOP AT gt_fields2 INTO gs_field2. g_row = sy-tabix + 1. PERFORM set_cell_value USING g_row 1 gs_field2-fieldname. PERFORM set_cell_value USING g_row 2 gs_field2-qfieldname. PERFORM set_cell_value USING g_row 3 gs_field2-cfieldname. PERFORM set_cell_value USING g_row 4 gs_field2-ref_table. PERFORM set_cell_value USING g_row 5 gs_field2-ref_field. PERFORM set_cell_value USING g_row 6 gs_field2-convexit. PERFORM set_cell_value USING g_row 7 gs_field2-emphasize. PERFORM set_cell_value USING g_row 8 gs_field2-scrtext_l. ENDLOOP. CALL METHOD cl_gui_cfw=>flush. CALL METHOD OF go_book 'SAVE'. SET PROPERTY OF go_excel 'Visible' = 1. MESSAGE '已下载到Excel文件中，请查看' TYPE 'S'. ENDFORM. "download *&---------------------------------------------------------------------* *& Form upload *&---------------------------------------------------------------------* * 从Excel上载 *----------------------------------------------------------------------* FORM upload. DATA: lt_list TYPE TABLE OF spopli WITH HEADER LINE, l_answer TYPE c, lt_filetable TYPE filetable WITH HEADER LINE, l_rc TYPE i, l_action TYPE i, l_flag_close TYPE c. IF go_excel IS NOT INITIAL. lt_list-varoption = '从刚下载的Excel文件上载'. APPEND lt_list. lt_list-varoption = '选择新的Excel文件进行上载'. APPEND lt_list. CALL FUNCTION 'POPUP_TO_DECIDE_LIST' EXPORTING textline1 = '如果还未关闭已经下载的Excel，可以选择从该Excel文件上载' titel = '选择' IMPORTING answer = l_answer TABLES t_spopli = lt_list[]. CHECK l_answer <> 'A'. ENDIF. IF go_excel IS INITIAL OR l_answer = 2. CALL METHOD cl_gui_frontend_services=>file_open_dialog EXPORTING default_extension = 'XLS' default_filename = '*.xls;*.xlsx' file_filter = 'Excel File (*.xls;*.xlsx)' multiselection = '' CHANGING file_table = lt_filetable[] rc = l_rc user_action = l_action EXCEPTIONS file_open_dialog_failed = 1 cntl_error = 2 error_no_gui = 3 not_supported_by_gui = 4 OTHERS = 5. CHECK l_action = 0. PERFORM create_excel_app. READ TABLE lt_filetable INDEX 1. PERFORM open_workbook USING lt_filetable-filename. l_flag_close = 'X'. ENDIF. CLEAR: gt_tables, gt_joins, gt_fields1, gt_fields2. * =========TABLES========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'TABLES'. IF sy-subrc <> 0. MESSAGE '打开TABLES工作表失败' TYPE 'E'. ENDIF. WHILE 1 = 1. CLEAR: gs_table. g_row = sy-index + 1. PERFORM get_cell_value USING g_row 1 CHANGING gs_table-tabname. IF gs_table-tabname IS INITIAL. EXIT. ENDIF. PERFORM get_cell_value USING g_row 2 CHANGING gs_table-leftjoin. IF gs_table-leftjoin = '1'. gs_table-leftjoin = 'X'. ELSE. gs_table-leftjoin = ''. ENDIF. PERFORM get_cell_value USING g_row 3 CHANGING gs_table-astable. APPEND gs_table TO gt_tables. ENDWHILE. * =========JOINS========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'JOINS'. IF sy-subrc <> 0. MESSAGE '打开JOINS工作表失败' TYPE 'E'. ENDIF. WHILE 1 = 1. CLEAR: gs_join. g_row = sy-index + 1. PERFORM get_cell_value USING g_row 1 CHANGING gs_join-tab1. IF gs_join-tab1 IS INITIAL. EXIT. ENDIF. PERFORM get_cell_value USING g_row 2 CHANGING gs_join-field1. PERFORM get_cell_value USING g_row 3 CHANGING gs_join-tab2. PERFORM get_cell_value USING g_row 4 CHANGING gs_join-field2. APPEND gs_join TO gt_joins. ENDWHILE. * =========FIELDS1========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'FIELDS1'. IF sy-subrc <> 0. MESSAGE '打开FIELDS1工作表失败' TYPE 'E'. ENDIF. WHILE 1 = 1. CLEAR: gs_field1. g_row = sy-index + 1. PERFORM get_cell_value USING g_row 1 CHANGING gs_field1-astable. IF gs_field1-astable IS INITIAL. EXIT. ENDIF. PERFORM get_cell_value USING g_row 2 CHANGING gs_field1-fieldname. PERFORM get_cell_value USING g_row 3 CHANGING gs_field1-asfield. PERFORM get_cell_value USING g_row 4 CHANGING gs_field1-query. IF gs_field1-query = '1'. gs_field1-query = 'X'. ELSE. gs_field1-query = ''. ENDIF. PERFORM get_cell_value USING g_row 5 CHANGING gs_field1-query_pos. PERFORM get_cell_value USING g_row 6 CHANGING gs_field1-single. IF gs_field1-single = '1'. gs_field1-single = 'X'. ELSE. gs_field1-single = ''. ENDIF. PERFORM get_cell_value USING g_row 7 CHANGING gs_field1-display. IF gs_field1-display = '1'. gs_field1-display = 'X'. ELSE. gs_field1-display = ''. ENDIF. PERFORM get_cell_value USING g_row 8 CHANGING gs_field1-qfieldname. PERFORM get_cell_value USING g_row 9 CHANGING gs_field1-cfieldname. PERFORM get_cell_value USING g_row 10 CHANGING gs_field1-ref_table. PERFORM get_cell_value USING g_row 11 CHANGING gs_field1-ref_field. PERFORM get_cell_value USING g_row 12 CHANGING gs_field1-convexit. PERFORM get_cell_value USING g_row 13 CHANGING gs_field1-emphasize. PERFORM get_cell_value USING g_row 14 CHANGING gs_field1-scrtext_l. APPEND gs_field1 TO gt_fields1. ENDWHILE. * =========FIELDS2========== GET PROPERTY OF go_book 'Sheets' = go_sheet EXPORTING #1 = 'FIELDS2'. IF sy-subrc <> 0. MESSAGE '打开FIELDS2工作表失败' TYPE 'E'. ENDIF. WHILE 1 = 1. CLEAR: gs_field2. g_row = sy-index + 1. PERFORM get_cell_value USING g_row 1 CHANGING gs_field2-fieldname. IF gs_field2-fieldname IS INITIAL. EXIT. ENDIF. PERFORM get_cell_value USING g_row 2 CHANGING gs_field2-qfieldname. PERFORM get_cell_value USING g_row 3 CHANGING gs_field2-cfieldname. PERFORM get_cell_value USING g_row 4 CHANGING gs_field2-ref_table. PERFORM get_cell_value USING g_row 5 CHANGING gs_field2-ref_field. PERFORM get_cell_value USING g_row 6 CHANGING gs_field2-convexit. PERFORM get_cell_value USING g_row 7 CHANGING gs_field2-emphasize. PERFORM get_cell_value USING g_row 8 CHANGING gs_field2-scrtext_l. APPEND gs_field2 TO gt_fields2. ENDWHILE. IF l_flag_close = 'X'. CALL METHOD OF go_book 'Close'. CALL METHOD OF go_excel 'QUIT'. FREE OBJECT: go_sheet, go_book, go_books, go_excel. ENDIF. MESSAGE '上载完成' TYPE 'S'. ENDFORM. "upload *&---------------------------------------------------------------------* *& Form create_excel_app *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM create_excel_app. IF go_excel IS INITIAL. CREATE OBJECT go_excel 'Excel.Application'. IF sy-subrc <> 0. MESSAGE '创建Excel程序失败' TYPE 'E'. ENDIF. ENDIF. ENDFORM. "create_excel_app *&---------------------------------------------------------------------* *& Form open_workbook *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM open_workbook USING p_path. GET PROPERTY OF go_excel 'Workbooks' = go_books. CALL METHOD OF go_books 'Open' = go_book EXPORTING #1 = p_path. IF sy-subrc <> 0. MESSAGE '打开Excel文件失败' TYPE 'E'. ENDIF. ENDFORM. "open_workbook *&---------------------------------------------------------------------* *& Form set_cell_value *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM set_cell_value USING p_row TYPE i p_col TYPE i p_value. g_row = p_row. g_col = p_col. g_value = p_value. GET PROPERTY OF go_sheet 'CELLS' = go_cell NO FLUSH EXPORTING #1 = g_row #2 = g_col. SET PROPERTY OF go_cell 'Value' = g_value NO FLUSH. ENDFORM. "set_cell_value *&---------------------------------------------------------------------* *& Form get_cell_value *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM get_cell_value USING p_row TYPE i p_col TYPE i CHANGING p_value. GET PROPERTY OF go_sheet 'CELLS' = go_cell EXPORTING #1 = p_row #2 = p_col. GET PROPERTY OF go_cell 'Value' = p_value. ENDFORM. "get_cell_value *&---------------------------------------------------------------------* *& Form confirm *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM confirm. DATA: l_answer TYPE c, l_text1 TYPE string, l_text2 TYPE string. IF p_prog(1) <> 'Y' AND p_prog(1) <> 'Z'. MESSAGE '程序名必须以Y或Z开头' TYPE 'E' DISPLAY LIKE 'I'. ENDIF. IF strlen( p_prog ) > 20. MESSAGE '程序名长度不能超过20' TYPE 'E' DISPLAY LIKE 'I'. ENDIF. SELECT SINGLE r3state INTO g_state FROM reposrc WHERE progname = p_prog. IF sy-subrc = 0. "程序已经存在 SELECT SINGLE r3state INTO g_state FROM reposrc WHERE progname = p_prog AND r3state = 'I'. IF sy-subrc <> 0. g_state = 'A'. CONCATENATE '系统将自动生成程序' p_prog INTO l_text1. ELSE. CONCATENATE '程序' p_prog '尚未激活，系统将自动生成未激活版本的程序，稍后请手动激活！' INTO l_text1. ENDIF. ELSE. g_state = 'A'. "程序不存在，则生成激活的程序 CONCATENATE '程序' p_prog '不存在，系统将自动创建激活版本的程序，稍后请手动分配开发包！' INTO l_text1. ENDIF. CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = l_text1 textline1 = '自动生成程序操作无法逆转，请谨慎使用！' textline2 = '确定要生成程序吗？' titel = '执行确认' cancel_display = '' IMPORTING answer = l_answer. IF l_answer <> 'J'. MESSAGE '操作取消' TYPE 'S'. STOP. ENDIF. ENDFORM. "confirm *&---------------------------------------------------------------------* *& Form CHECK *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM check . DATA: l_index TYPE i VALUE 1, l_index1 TYPE i, l_index2 TYPE i, l_tabix TYPE n LENGTH 4, l_len TYPE i, l_off TYPE i, l_msg TYPE string, l_flag TYPE c, ls_dd02l TYPE dd02l, l_lines TYPE i, BEGIN OF lt_astable OCCURS 0, astable TYPE tabname, tabname TYPE tabname, leftjoin TYPE c, index TYPE i, END OF lt_astable, BEGIN OF lt_asfield OCCURS 0, fieldname TYPE fieldname, END OF lt_asfield, BEGIN OF lt_syst OCCURS 0, fieldname TYPE fieldname, END OF lt_syst. DEFINE d_store_message. g_flag_error = 'X'. call function 'MESSAGE_STORE' exporting arbgb = '00' msgty = 'E' txtnr = '001' msgv1 = l_msg msgv2 = '' msgv3 = '' msgv4 = '' zeile = l_index. l_index = l_index + 1. END-OF-DEFINITION. SELECT fieldname INTO TABLE lt_syst FROM dd03l WHERE tabname = 'SYST' ORDER BY fieldname. LOOP AT lt_syst. CONCATENATE 'SY-' lt_syst-fieldname INTO lt_syst-fieldname. MODIFY lt_syst. ENDLOOP. CALL FUNCTION 'MESSAGES_INITIALIZE'. CLEAR g_flag_error. "表清单校验 LOOP AT gt_tables INTO gs_table. l_tabix = sy-tabix. SELECT SINGLE * INTO ls_dd02l FROM dd02l WHERE tabname = gs_table-tabname AND as4vers = 'A'. IF sy-subrc <> 0. CONCATENATE '表清单：行' l_tabix '，表或视图' gs_table-tabname '不存在或未激活' INTO l_msg. d_store_message. ELSEIF ls_dd02l-tabclass = 'CLUSTER'. IF lines( gt_tables ) > 1. CONCATENATE '表清单：行' l_tabix '，不能使用簇表' gs_table-tabname INTO l_msg. d_store_message. ENDIF. ELSEIF ls_dd02l-tabclass = 'VIEW'. IF ls_dd02l-viewclass <> 'D'. CONCATENATE '表清单：行' l_tabix '，视图' gs_table-tabname '不是数据库视图' INTO l_msg. d_store_message. ENDIF. ENDIF. IF gs_table-astable IS NOT INITIAL. IF 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' NA gs_table-astable(1). CONCATENATE '表清单：行' l_tabix '，别名' gs_table-astable '必须以字母开头' INTO l_msg. d_store_message. ENDIF. lt_astable-astable = gs_table-astable. lt_astable-tabname = gs_table-tabname. lt_astable-leftjoin = gs_table-leftjoin. ADD 1 TO lt_astable-index. APPEND lt_astable. ELSE. lt_astable-astable = gs_table-tabname. lt_astable-tabname = gs_table-tabname. lt_astable-leftjoin = gs_table-leftjoin. ADD 1 TO lt_astable-index. APPEND lt_astable. ENDIF. ENDLOOP. SORT lt_astable BY astable. DELETE ADJACENT DUPLICATES FROM lt_astable COMPARING astable. IF lines( lt_astable ) <> lines( gt_tables ). l_msg = '表清单：存在重复的表名或表别名'. d_store_message. ENDIF. "表关联校验 LOOP AT gt_joins INTO gs_join. l_tabix = sy-tabix. CLEAR: l_index1, l_index2. IF gs_join-tab1 IS INITIAL OR gs_join-field1 IS INITIAL. CONCATENATE '表关联：行' l_tabix '，表1和字段1不能为空' INTO l_msg. d_store_message. ELSE. READ TABLE lt_astable WITH KEY astable = gs_join-tab1 BINARY SEARCH. IF sy-subrc <> 0. CONCATENATE '表关联：行' l_tabix '，表1-' gs_join-tab1 '不存在' INTO l_msg. d_store_message. ELSE. l_index1 = lt_astable-index. PERFORM check_field_exist USING lt_astable-tabname gs_join-field1 CHANGING l_flag. IF l_flag = 'X'. CONCATENATE '表关联：行' l_tabix '，表1-' gs_join-tab1 '中字段' gs_join-field1 '不存在或未激活' INTO l_msg. d_store_message. ENDIF. ENDIF. ENDIF. IF gs_join-tab2 IS INITIAL. "校验特定值 IF gs_join-field2 IS INITIAL. CONCATENATE '表关联：行' l_tabix '，字段2或特定值不存在' INTO l_msg. d_store_message. ELSEIF gs_join-field2(1) <> ''''. READ TABLE lt_syst WITH KEY fieldname = gs_join-field2 BINARY SEARCH TRANSPORTING NO FIELDS. IF sy-subrc <> 0. CONCATENATE '表关联：行' l_tabix '，特定值' gs_join-field2 '填写错误，只能为SYST中字段或常数' INTO l_msg. d_store_message. ENDIF. ELSE. l_len = strlen( gs_join-field2 ). IF l_len = 1. CONCATENATE '表关联：行' l_tabix '，特定值' gs_join-field2 '填写错误，只能为SYST中字段或常数' INTO l_msg. d_store_message. ELSE. l_off = l_len - 1. IF gs_join-field2+l_off(1) <> ''''. CONCATENATE '表关联：行' l_tabix '，特定值' gs_join-field2 '填写错误，只能为SYST中字段或常数' INTO l_msg. d_store_message. ENDIF. ENDIF. ENDIF. ELSE. READ TABLE lt_astable WITH KEY astable = gs_join-tab2 BINARY SEARCH. IF sy-subrc <> 0. CONCATENATE '表关联：行' l_tabix '，表2-' gs_join-tab2 '不存在' INTO l_msg. d_store_message. ELSE. l_index2 = lt_astable-index. PERFORM check_field_exist USING lt_astable-tabname gs_join-field2 CHANGING l_flag. IF l_flag = 'X'. CONCATENATE '表关联：行' l_tabix '，表2-' gs_join-tab2 '中字段' gs_join-field2 '不存在或未激活' INTO l_msg. d_store_message. ELSE. IF l_index1 < l_index2 AND l_index1 > 0. CONCATENATE '表关联：行' l_tabix '，请遵循约定：表1-' gs_join-tab1 '在“表清单”位置需要在表2-' gs_join-tab2 '以下' INTO l_msg. d_store_message. ENDIF. ENDIF. ENDIF. ENDIF. ENDLOOP. "字段重复性校验 LOOP AT gt_fields1 INTO gs_field1. IF gs_field1-asfield IS INITIAL. lt_asfield-fieldname = gs_field1-fieldname. ELSE. lt_asfield-fieldname = gs_field1-asfield. ENDIF. APPEND lt_asfield. CLEAR lt_asfield. ENDLOOP. LOOP AT gt_fields2 INTO gs_field2. lt_asfield-fieldname = gs_field2-fieldname. APPEND lt_asfield. CLEAR lt_asfield. ENDLOOP. SORT lt_asfield BY fieldname. DELETE ADJACENT DUPLICATES FROM lt_asfield COMPARING fieldname. l_lines = lines( gt_fields1 ) + lines( gt_fields2 ). IF lines( lt_asfield ) <> l_lines. l_msg = '字段设置、附加字段：存在重复的字段名或字段别名'. d_store_message. ENDIF. "字段设置 READ TABLE gt_fields1 WITH KEY query = 'X' TRANSPORTING NO FIELDS. IF sy-subrc <> 0. l_msg = '字段设置：请至少设置一个查询条件'. d_store_message. ENDIF. READ TABLE gt_fields1 WITH KEY display = 'X' TRANSPORTING NO FIELDS. IF sy-subrc <> 0. l_msg = '字段设置：请至少设置一个输出字段'. d_store_message. ENDIF. LOOP AT gt_fields1 INTO gs_field1. l_tabix = sy-tabix. IF gs_field1-astable IS INITIAL OR gs_field1-fieldname IS INITIAL. CONCATENATE '字段设置：行' l_tabix '，表和字段不能为空' INTO l_msg. ELSE. READ TABLE lt_astable WITH KEY astable = gs_field1-astable BINARY SEARCH. IF sy-subrc <> 0. CONCATENATE '字段设置：行' l_tabix '，表' gs_field1-astable '不存在' INTO l_msg. d_store_message. ELSE. PERFORM check_field_exist USING lt_astable-tabname gs_field1-fieldname CHANGING l_flag. IF l_flag = 'X'. CONCATENATE '字段设置：行' l_tabix '，表' gs_field1-astable '中字段' gs_field1-fieldname '不存在或未激活' INTO l_msg. d_store_message. ENDIF. ENDIF. ENDIF. IF gs_field1-asfield IS NOT INITIAL. IF 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' NA gs_field1-asfield(1). CONCATENATE '字段设置：行' l_tabix '，字段' gs_field1-fieldname '的别名' gs_field1-asfield '必须以字母开头' INTO l_msg. d_store_message. ENDIF. ENDIF. IF gs_field1-query = 'X'. READ TABLE lt_astable WITH KEY astable = gs_field1-astable BINARY SEARCH. IF sy-subrc = 0 AND lt_astable-leftjoin = 'X'. CONCATENATE '字段设置：行' l_tabix '，左关联表' lt_astable-tabname '的字段' gs_field1-fieldname '不能作为选择字段' INTO l_msg. d_store_message. ENDIF. ENDIF. IF gs_field1-ref_table IS NOT INITIAL. SELECT SINGLE tabname INTO gs_field1-ref_table FROM dd02l WHERE tabname = gs_field1-ref_table AND as4vers = 'A'. IF sy-subrc <> 0. CONCATENATE '字段设置：行' l_tabix '，字段' gs_field1-fieldname '的参照表' gs_field1-ref_table '不存在或未激活' INTO l_msg. d_store_message. ELSEIF gs_field1-ref_field IS NOT INITIAL. PERFORM check_field_exist USING gs_field1-ref_table gs_field1-ref_field CHANGING l_flag. IF l_flag = 'X'. CONCATENATE '字段设置：行' l_tabix '，字段' gs_field1-fieldname '的参照表' gs_field1-ref_table '中参照字段' gs_field1-ref_field '不存在或未激活' INTO l_msg. d_store_message. ENDIF. ENDIF. ELSE. IF gs_field1-ref_field IS NOT INITIAL. SELECT SINGLE rollname INTO gs_field1-ref_field FROM dd04l WHERE rollname = gs_field1-ref_field AND as4vers = 'A'. IF sy-subrc <> 0. CONCATENATE '字段设置：行' l_tabix '，字段' gs_field1-fieldname '的参照字段(数据元素)' gs_field1-ref_field '不存在或未激活' INTO l_msg. d_store_message. ENDIF. ENDIF. ENDIF. IF gs_field1-qfieldname IS NOT INITIAL. READ TABLE lt_asfield WITH KEY fieldname = gs_field1-qfieldname BINARY SEARCH TRANSPORTING NO FIELDS. IF sy-subrc <> 0. CONCATENATE '字段设置：行' l_tabix '，字段' gs_field1-fieldname '的单位字段' gs_field1-qfieldname '不存在' INTO l_msg. d_store_message. ENDIF. ENDIF. IF gs_field1-cfieldname IS NOT INITIAL. READ TABLE lt_asfield WITH KEY fieldname = gs_field1-cfieldname BINARY SEARCH TRANSPORTING NO FIELDS. IF sy-subrc <> 0. CONCATENATE '字段设置：行' l_tabix '，字段' gs_field1-fieldname '的货币字段' gs_field1-cfieldname '不存在' INTO l_msg. d_store_message. ENDIF. ENDIF. ENDLOOP. "附加字段 LOOP AT gt_fields2 INTO gs_field2. l_tabix = sy-tabix. IF gs_field2-ref_table IS NOT INITIAL. SELECT SINGLE tabname INTO gs_field2-ref_table FROM dd02l WHERE tabname = gs_field2-ref_table AND as4vers = 'A'. IF sy-subrc <> 0. CONCATENATE '附加字段：行' l_tabix '，字段' gs_field2-fieldname '的参照表' gs_field2-ref_table '不存在或未激活' INTO l_msg. d_store_message. ELSEIF gs_field2-ref_field IS NOT INITIAL. PERFORM check_field_exist USING gs_field2-ref_table gs_field2-ref_field CHANGING l_flag. IF l_flag = 'X'. CONCATENATE '附加字段：行' l_tabix '，字段' gs_field2-fieldname '的参照表' gs_field2-ref_table '中参照字段' gs_field2-ref_field '不存在或未激活' INTO l_msg. d_store_message. ENDIF. ENDIF. ELSE. IF gs_field2-ref_field IS NOT INITIAL. SELECT SINGLE rollname INTO gs_field2-ref_field FROM dd04l WHERE rollname = gs_field2-ref_field AND as4vers = 'A'. IF sy-subrc <> 0. CONCATENATE '附加字段：行' l_tabix '，字段' gs_field2-fieldname '的参照字段(数据元素)' gs_field2-ref_field '不存在或未激活' INTO l_msg. d_store_message. ENDIF. ELSE. CONCATENATE '附加字段：行' l_tabix '，字段' gs_field2-fieldname '的参照属性必须指定' INTO l_msg. d_store_message. ENDIF. ENDIF. IF gs_field2-qfieldname IS NOT INITIAL. READ TABLE lt_asfield WITH KEY fieldname = gs_field2-qfieldname BINARY SEARCH TRANSPORTING NO FIELDS. IF sy-subrc <> 0. CONCATENATE '附加字段：行' l_tabix '，字段' gs_field2-fieldname '的单位字段' gs_field2-qfieldname '不存在' INTO l_msg. d_store_message. ENDIF. ENDIF. IF gs_field2-cfieldname IS NOT INITIAL. READ TABLE lt_asfield WITH KEY fieldname = gs_field2-cfieldname BINARY SEARCH TRANSPORTING NO FIELDS. IF sy-subrc <> 0. CONCATENATE '附加字段：行' l_tabix '，字段' gs_field2-fieldname '的货币字段' gs_field2-cfieldname '不存在' INTO l_msg. d_store_message. ENDIF. ENDIF. ENDLOOP. IF g_flag_error = 'X'. CALL FUNCTION 'MESSAGES_SHOW'. ENDIF. ENDFORM. " CHECK *&---------------------------------------------------------------------* *& Form ALV_REFRESH_DISPLAY *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM alv_refresh_display . go_alv_tables->refresh_table_display( ). go_alv_joins->refresh_table_display( ). go_alv_fields1->refresh_table_display( ). go_alv_fields2->refresh_table_display( ). ENDFORM. " ALV_REFRESH_DISPLAY *&---------------------------------------------------------------------* *& Form check_field_exist *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM check_field_exist USING p_tabname TYPE tabname p_fieldname TYPE fieldname CHANGING p_flag TYPE c. DATA: l_fieldname TYPE fieldname. CLEAR p_flag. SELECT SINGLE fieldname INTO l_fieldname FROM dd03l WHERE tabname = p_tabname AND fieldname = p_fieldname AND as4local = 'A'. CHECK sy-subrc <> 0. p_flag = 'X'. ENDFORM. "check_field_exist