報表自動生成程式：ZREPORT_GENERATOR
阿新 • • 發佈：2020-10-16
群裡看到的，抄別人的。。。源自哪裡就不清楚了。這裡申明一下：非本人所寫，如果侵權，你打群主好了。
這裡說明一下：這個程式不太好用，沒有SQVI友好。（以下問題可能是沒用欄位別名，不想試驗了）
1.生成程式介面，原始程式限制了表名長度。。。
2.勾選欄位做選擇條件時，如果欄位名長度超過6位，select option異常。因為select option定義的時候長度為8位。
簡單測了一下，有問題後續會補充！
*&---------------------------------------------------------------------* *& Report zreport_generator*& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zreport_generator. 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_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_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-edit = &4. gs_fieldcat-checkbox = &5. gs_fieldcat-f4availabl = &6. gs_fieldcat-outputlen = &7. gs_fieldcat-coltext = &8. append gs_fieldcat to &1. clear gs_fieldcat. if &6 = '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. 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. go_splitter_con->set_column_width( EXPORTING id = 1 width = 25 ). "左側再次拆分為上下 CREATE OBJECT go_splitter_con_left EXPORTING parent = go_splitter_con->get_container( row = 1 column = 1 ) rows = 2 columns = 1. go_splitter_con_left->set_row_height( EXPORTING id = 1 height = 40 ). "右側再次拆分為上下 CREATE OBJECT go_splitter_con_right EXPORTING parent = go_splitter_con->get_container( row = 1 column = 2 ) 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' 'X' ' ' 'X' 30 '表名', gt_fieldcat_tables gt_f4_tables 'LEFTJOIN' 'X' 'X' ' ' 6 '左連線', gt_fieldcat_tables gt_f4_tables 'ASTABLE' 'X' ' ' ' ' 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' 'X' ' ' 'X' 30 '表1', gt_fieldcat_joins gt_f4_joins 'FIELD1' 'X' ' ' 'X' 15 '欄位1', gt_fieldcat_joins gt_f4_joins 'TAB2' 'X' ' ' 'X' 30 '表2', gt_fieldcat_joins gt_f4_joins 'FIELD2' 'X' ' ' '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' 'X' ' ' 'X' 30 '表名', gt_fieldcat_fields1 gt_f4_fields1 'FIELDNAME' 'X' ' ' 'X' 15 '欄位名', gt_fieldcat_fields1 gt_f4_fields1 'ASFIELD' 'X' ' ' ' ' 8 '欄位別名', gt_fieldcat_fields1 gt_f4_fields1 'QUERY' 'X' 'X' ' ' 4 '查詢', gt_fieldcat_fields1 gt_f4_fields1 'QUERY_POS' 'X' ' ' ' ' 4 '位置', gt_fieldcat_fields1 gt_f4_fields1 'SINGLE' 'X' 'X' ' ' 4 '單值', gt_fieldcat_fields1 gt_f4_fields1 'DISPLAY' 'X' 'X' ' ' 4 '輸出', gt_fieldcat_fields1 gt_f4_fields1 'QFIELDNAME' 'X' ' ' 'X' 8 '單位欄位', gt_fieldcat_fields1 gt_f4_fields1 'CFIELDNAME' 'X' ' ' 'X' 8 '貨幣欄位', gt_fieldcat_fields1 gt_f4_fields1 'REF_TABLE' 'X' ' ' ' ' 30 '參照表', gt_fieldcat_fields1 gt_f4_fields1 'REF_FIELD' 'X' ' ' ' ' 15 '參照欄位', gt_fieldcat_fields1 gt_f4_fields1 'CONVEXIT' 'X' ' ' ' ' 7 '轉換例程', gt_fieldcat_fields1 gt_f4_fields1 'EMPHASIZE' 'X' ' ' 'X' 6 '列顏色', gt_fieldcat_fields1 gt_f4_fields1 'SCRTEXT_L' 'X' ' ' ' ' 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' 'X' ' ' ' ' 15 '欄位名', gt_fieldcat_fields2 gt_f4_fields2 'QFIELDNAME' 'X' ' ' 'X' 8 '單位欄位', gt_fieldcat_fields2 gt_f4_fields2 'CFIELDNAME' 'X' ' ' 'X' 8 '貨幣欄位', gt_fieldcat_fields2 gt_f4_fields2 'REF_TABLE' 'X' ' ' ' ' 30 '參照表', gt_fieldcat_fields2 gt_f4_fields2 'REF_FIELD' 'X' ' ' ' ' 15 '參照欄位', gt_fieldcat_fields2 gt_f4_fields2 'CONVEXIT' 'X' ' ' ' ' 7 '轉換例程', gt_fieldcat_fields2 gt_f4_fields2 'EMPHASIZE' 'X' ' ' 'X' 6 '列顏色', gt_fieldcat_fields2 gt_f4_fields2 'SCRTEXT_L' 'X' ' ' ' ' 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( ). g_indxid = p_prog && 'RG'. 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 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'. 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 fieldname, l_ref_table TYPE lvc_rtname, l_ref_field TYPE lvc_rfname. FIELD-SYMBOLS: <lt_modi> 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 OTHERS. EXIT. ENDCASE. ASSIGN er_event_data->m_data->* TO <lt_modi>. ls_modi-row_id = es_row_no-row_id." ls_modi-fieldname = e_fieldname. ls_modi-value = e_fieldvalue. APPEND ls_modi TO <lt_modi>. 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 <lt_modi>. ls_modi-row_id = es_row_no-row_id." ls_modi-fieldname = 'REF_TABLE'. ls_modi-value = l_ref_table. APPEND ls_modi TO <lt_modi>. ls_modi-row_id = es_row_no-row_id." ls_modi-fieldname = 'REF_FIELD'. ls_modi-value = l_ref_field. APPEND ls_modi TO <lt_modi>. 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'. gs_field1-sel_field = 'P_' && gs_field1-sel_field. ELSE. gs_field1-sel_field = 'S_' && gs_field1-sel_field. ENDIF. ENDIF. "確定SQL欄位的名稱 IF l_as_flag = ''. gs_field1-sql_field = l_tabname && '~' && gs_field1-fieldname. ELSE. gs_field1-sql_field = gs_field1-astable && '~' && gs_field1-fieldname. 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. "確定參照欄位的名稱 gs_field1-typ_field = l_tabname && '-' && gs_field1-fieldname. gs_field1-mark = '"' && gs_field1-scrtext_l. 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. gs_field2-typ_field = gs_field2-ref_table && '-' && gs_field2-ref_field. ENDIF. MODIFY gt_fields2 FROM gs_field2 TRANSPORTING typ_field. ENDLOOP. ENDFORM. " PROCESS_DATA *&---------------------------------------------------------------------* *& Form generate *&---------------------------------------------------------------------* * 生成程式 *----------------------------------------------------------------------* FORM generate. REFRESH gt_codes. CHECK p_prog(1) = 'Y' OR p_prog(1) = 'Z'. IF strlen( p_prog ) > 20. MESSAGE '程式名長度不能超過20' TYPE 'E' DISPLAY LIKE 'I'. ENDIF. SELECT SINGLE progname INTO p_prog FROM reposrc WHERE progname = p_prog. IF sy-subrc = 0. * MESSAGE '程式已經存在' TYPE 'E' DISPLAY LIKE 'I'. ENDIF. "程式名 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. INSERT REPORT p_prog FROM gt_codes. ENDFORM. "GENERATE *&---------------------------------------------------------------------* *& Form GEN_REPORT_NAME *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM gen_report_name . CONCATENATE 'REPORT' p_prog INTO g_code SEPARATED BY space. g_code = 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. 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 ). g_code = g_code && '.'. ELSE. g_code = 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. g_code = g_code && '.' && gs_query-mark. 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. g_code = g_code && ',' && gs_field1-mark. 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. l_mark = '"' && gs_field2-scrtext_l. SHIFT l_mark RIGHT BY 10 PLACES. g_code = g_code && ',' && l_mark. 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. g_code = ' %_' && gs_query-sel_field && '_%_APP_%-TEXT'. g_code = g_code && ' = ''' && gs_query-scrtext_l && '''.'. 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. g_code = gs_field1-sql_field && gs_field1-mark. 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. l_joinfield = gs_join-tab1 && '~' && gs_join-field1. CONCATENATE g_code l_joinfield '=' INTO g_code SEPARATED BY space. IF gs_join-tab2 IS INITIAL. l_joinfield = gs_join-field2. ELSE. l_joinfield = gs_join-tab2 && '~' && gs_join-field2. 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. g_code = gs_query-astable && '~' && gs_query-fieldname. 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 ). g_code = 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'. g_code = ' 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 && '''.'. append_code g_code. ENDLOOP. LOOP AT gt_fields2 INTO gs_field2. g_code = ' 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 && '''.'. 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 fieldname, 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 fieldname, 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 *----------------------------------------------------------------------* * -->P_COLOR text *----------------------------------------------------------------------* FORM f4_color CHANGING p_color. DATA: lt_fieldcat TYPE TABLE OF slis_fieldcat_alv, ls_fieldcat TYPE slis_fieldcat_alv, ls_layout TYPE slis_layout_alv. CLEAR: gt_color, gt_color[]. DO 7 TIMES. gt_color-color = gt_color-value = 'C' && sy-index && '00'. APPEND gt_color. gt_color-color = gt_color-value = 'C' && sy-index && '01'. APPEND gt_color. gt_color-color = gt_color-value = 'C' && sy-index && '10'. APPEND gt_color. ENDDO. ls_fieldcat-fieldname = 'VALUE'. ls_fieldcat-seltext_l = '顏色碼'. APPEND ls_fieldcat TO lt_fieldcat. ls_layout-box_fieldname = 'SEL'. ls_layout-info_fieldname = 'COLOR'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid i_callback_user_command = 'USER_COMMAND_COLOR' is_layout = ls_layout it_fieldcat = 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[]. READ TABLE gt_color WITH KEY sel = 'X'. p_color = gt_color-value. ENDFORM. "f4_color *&---------------------------------------------------------------------* *& 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========== CALL METHOD 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========== CALL METHOD 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========== CALL METHOD 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========== CALL METHOD 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========== CALL METHOD 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========== CALL METHOD 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========== CALL METHOD 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========== CALL METHOD 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. CALL METHOD 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. CALL METHOD 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. CALL METHOD 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 CHECK *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM check . DATA: l_index TYPE i VALUE 1, l_index1 TYPE i, l_index2 TYPE i, l_tabix TYPE i, l_len TYPE i, l_off TYPE i, l_msg TYPE string, l_flag TYPE c, ls_dd02l TYPE dd02l, BEGIN OF lt_astable OCCURS 0, astable TYPE tabname, tabname TYPE tabname, 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. lt_syst-fieldname = 'SY-' && 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. l_msg = '表清單：行' && l_tabix && '，表或檢視' && gs_table-tabname && '不存在或未啟用'. d_store_message. ELSEIF ls_dd02l-tabclass = 'CLUSTER'. IF lines( gt_tables ) > 1. l_msg = '表清單：行' && l_tabix && '，不能使用簇表' && gs_table-tabname. d_store_message. ENDIF. ELSEIF ls_dd02l-tabclass = 'VIEW'. IF ls_dd02l-viewclass <> 'D'. l_msg = '表清單：行' && l_tabix && '，檢視' && gs_table-tabname && '不是資料庫檢視'. d_store_message. ENDIF. ENDIF. IF gs_table-astable IS NOT INITIAL. IF 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' NA gs_table-astable(1). l_msg = '表清單：行' && l_tabix && '，別名' && gs_table-astable && '必須以字母開頭'. d_store_message. ENDIF. lt_astable-astable = gs_table-astable. lt_astable-tabname = gs_table-tabname. ADD 1 TO lt_astable-index. APPEND lt_astable. ELSE. lt_astable-astable = gs_table-tabname. lt_astable-tabname = gs_table-tabname. 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. l_msg = '表關聯：行' && l_tabix && '，表1和欄位1不能為空'. d_store_message. ELSE. READ TABLE lt_astable WITH KEY astable = gs_join-tab1 BINARY SEARCH. IF sy-subrc <> 0. l_msg = '表關聯：行' && l_tabix && '，表1-' && gs_join-tab1 && '不存在'. 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'. l_msg = '表關聯：行' && l_tabix && '，表1-' && gs_join-tab1 && '中欄位' && gs_join-field1 &&'不存在或未啟用'. d_store_message. ENDIF. ENDIF. ENDIF. IF gs_join-tab2 IS INITIAL. "校驗特定值 IF gs_join-field2 IS INITIAL. l_msg = '表關聯：行' && l_tabix && '，欄位2或特定值不存在'. 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. l_msg = '表關聯：行' && l_tabix && '，特定值' && gs_join-field2 && '填寫錯誤，只能為SYST中欄位或常數'. d_store_message. ENDIF. ELSE. l_len = strlen( gs_join-field2 ). IF l_len = 1. l_msg = '表關聯：行' && l_tabix && '，特定值' && gs_join-field2 && '填寫錯誤，只能為SYST中欄位或常數'. d_store_message. ELSE. l_off = l_len - 1. IF gs_join-field2+l_off(1) <> ''''. l_msg = '表關聯：行' && l_tabix && '，特定值' && gs_join-field2 && '填寫錯誤，只能為SYST中欄位或常數'. d_store_message. ENDIF. ENDIF. ENDIF. ELSE. READ TABLE lt_astable WITH KEY astable = gs_join-tab2 BINARY SEARCH. IF sy-subrc <> 0. l_msg = '表關聯：行' && l_tabix && '，表2-' && gs_join-tab2 && '不存在'. 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'. l_msg = '表關聯：行' && l_tabix && '，表2-' && gs_join-tab2 && '中欄位' && gs_join-field2 &&'不存在或未啟用'. d_store_message. ELSE. IF l_index1 < l_index2 AND l_index1 > 0. l_msg = '表關聯：行' && l_tabix && '，請遵循約定：表1-' && gs_join-tab1 && '在“表清單”位置需要在表2-' && gs_join-tab2 && '以下'. 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. IF lines( lt_asfield ) <> lines( gt_fields1 ) + lines( gt_fields2 ). 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. l_msg = '欄位設定：行' && l_tabix && '，表和欄位不能為空'. ELSE. READ TABLE lt_astable WITH KEY astable = gs_field1-astable BINARY SEARCH. IF sy-subrc <> 0. l_msg = '欄位設定：行' && l_tabix && '，表' && gs_field1-astable && '不存在'. d_store_message. ELSE. PERFORM check_field_exist USING lt_astable-tabname gs_field1-fieldname CHANGING l_flag. IF l_flag = 'X'. l_msg = '欄位設定：行' && l_tabix && '，表' && gs_field1-astable && '中欄位' && gs_field1-fieldname &&'不存在或未啟用'. d_store_message. ENDIF. ENDIF. ENDIF. IF gs_field1-asfield IS NOT INITIAL. IF 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' NA gs_field1-asfield(1). l_msg = '欄位設定：行' && l_tabix && '，欄位' && gs_field1-fieldname && '的別名' && gs_field1-asfield && '必須以字母開頭'. 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. l_msg = '欄位設定：行' && l_tabix && '，欄位' && gs_field1-fieldname && '的參照表' && gs_field1-ref_table && '不存在或未啟用'. 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'. l_msg = '欄位設定：行' && l_tabix && '，欄位' && gs_field1-fieldname && '的參照表' && gs_field1-ref_table && '中參照欄位' && gs_field1-ref_field &&'不存在或未啟用'. 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. l_msg = '欄位設定：行' && l_tabix && '，欄位' && gs_field1-fieldname && '的參照欄位(資料元素)' && gs_field1-ref_field &&'不存在或未啟用'. 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. l_msg = '欄位設定：行' && l_tabix && '，欄位' && gs_field1-fieldname && '的單位欄位' && gs_field1-qfieldname &&'不存在'. 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. l_msg = '欄位設定：行' && l_tabix && '，欄位' && gs_field1-fieldname && '的貨幣欄位' && gs_field1-cfieldname &&'不存在'. 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. l_msg = '附加欄位：行' && l_tabix && '，欄位' && gs_field2-fieldname && '的參照表' && gs_field2-ref_table && '不存在或未啟用'. 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'. l_msg = '附加欄位：行' && l_tabix && '，欄位' && gs_field2-fieldname && '的參照表' && gs_field2-ref_table && '中參照欄位' && gs_field2-ref_field &&'不存在或未啟用'. 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. l_msg = '附加欄位：行' && l_tabix && '，欄位' && gs_field2-fieldname && '的參照欄位(資料元素)' && gs_field2-ref_field &&'不存在或未啟用'. d_store_message. ENDIF. ELSE. l_msg = '附加欄位：行' && l_tabix && '，欄位' && gs_field2-fieldname && '的參照屬性必須指定'. 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. l_msg = '附加欄位：行' && l_tabix && '，欄位' && gs_field2-fieldname && '的單位欄位' && gs_field2-qfieldname &&'不存在'. 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. l_msg = '附加欄位：行' && l_tabix && '，欄位' && gs_field2-fieldname && '的貨幣欄位' && gs_field2-cfieldname &&'不存在'. 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