ABAP-动态程序生成

Posted ricoo

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了ABAP-动态程序生成相关的知识,希望对你有一定的参考价值。

科技越来越进步,人也就变的越来越懒,最终的演变就是大脑发达,四肢退化。。。AI的到来,准备接招吧。。。

报表若没有过多的用户交互逻辑,一般可通过SQ01配置生成,本文介绍用ABAP方式实现报表程序的动态生成(程序是很久前从其他地方拷贝的,忘记了博文地址)。

1.动态程序测试

 输入程序名,设置表清单、表关联关系、查询字段、输出字段、附加字段等信息

技术分享图片

 点击按钮‘生成程序‘,事务码SE38查询 ZRICO_TEST1205 ,程序已自动生成。

 技术分享图片

 程序 ZRICO_TEST1205 执行测试:

 技术分享图片

 技术分享图片

 

2.动态程序代码:

技术分享图片
   1 *&---------------------------------------------------------------------*
   2 *& Report  ZRICO_DY_0001
   3 *&
   4 *&---------------------------------------------------------------------*
   5 *&
   6 *&
   7 *&---------------------------------------------------------------------*
   8 
   9 REPORT  zreport_generator.
  10 
  11 TYPE-POOLS: ole2.
  12 
  13 TABLES: sscrfields.
  14 
  15 SELECTION-SCREEN BEGIN OF LINE.
  16 SELECTION-SCREEN COMMENT (6) text.
  17 SELECTION-SCREEN POSITION 7.
  18 PARAMETERS p_prog TYPE programm.
  19 SELECTION-SCREEN PUSHBUTTON 50(10) gen USER-COMMAND gen.
  20 SELECTION-SCREEN END OF LINE.
  21 
  22 SELECTION-SCREEN FUNCTION KEY 1.
  23 SELECTION-SCREEN FUNCTION KEY 2.
  24 SELECTION-SCREEN FUNCTION KEY 3.
  25 SELECTION-SCREEN FUNCTION KEY 4.
  26 
  27 *----------------------------------------------------------------------*
  28 *       CLASS lcl_alv_event_handler DEFINITION
  29 *----------------------------------------------------------------------*
  30 *
  31 *----------------------------------------------------------------------*
  32 CLASS lcl_alv_event_handler DEFINITION.
  33   PUBLIC SECTION.
  34     METHODS:
  35       handle_toolbar        FOR EVENT toolbar
  36                             OF cl_gui_alv_grid
  37                             IMPORTING e_object e_interactive,
  38 
  39       handle_f4             FOR EVENT onf4
  40                             OF cl_gui_alv_grid
  41                             IMPORTING e_fieldname e_fieldvalue es_row_no er_event_data et_bad_cells,
  42 
  43       handle_user_command   FOR EVENT user_command
  44                             OF cl_gui_alv_grid
  45                             IMPORTING e_ucomm.
  46 ENDCLASS.                    "lcl_alv_event_handler DEFINITION
  47 
  48 TYPES:
  49   BEGIN OF typ_table,
  50     tabname   TYPE tabname,
  51     leftjoin  TYPE c,
  52     astable   TYPE tabname,
  53   END OF typ_table,
  54 
  55   BEGIN OF typ_join,
  56     tab1      TYPE tabname,
  57     field1    TYPE fieldname,
  58     tab2      TYPE tabname,
  59     field2    TYPE fieldname,
  60   END OF typ_join,
  61 
  62   BEGIN OF typ_field1,
  63     astable     TYPE tabname,
  64     fieldname   TYPE fieldname,
  65     asfield     TYPE lvc_fname,
  66     query       TYPE c,
  67     query_pos   TYPE i,
  68     single      TYPE c,
  69     display     TYPE c,
  70     qfieldname  TYPE lvc_qfname,
  71     cfieldname  TYPE lvc_cfname,
  72     ref_table   TYPE lvc_rtname,
  73     ref_field   TYPE lvc_rfname,
  74     convexit    TYPE convexit,
  75     emphasize   TYPE lvc_emphsz,
  76     scrtext_l   TYPE scrtext_l,
  77     sel_field   TYPE fieldname,
  78     sql_field   TYPE c LENGTH 60,
  79     out_field   TYPE fieldname,
  80     typ_field   TYPE c LENGTH 60,
  81     mark        TYPE c LENGTH 60,
  82   END OF typ_field1,
  83 
  84   BEGIN OF typ_field2,
  85     fieldname   TYPE lvc_fname,
  86     qfieldname  TYPE lvc_qfname,
  87     cfieldname  TYPE lvc_cfname,
  88     ref_table   TYPE lvc_rtname,
  89     ref_field   TYPE lvc_rfname,
  90     convexit    TYPE convexit,
  91     emphasize   TYPE lvc_emphsz,
  92     scrtext_l   TYPE scrtext_l,
  93     typ_field   TYPE c LENGTH 60,
  94   END OF typ_field2.
  95 
  96 DATA:
  97   go_docking_con        TYPE REF TO cl_gui_docking_container,
  98   go_splitter_con       TYPE REF TO cl_gui_splitter_container,
  99   go_splitter_con_left  TYPE REF TO cl_gui_splitter_container,
 100   go_splitter_con_right TYPE REF TO cl_gui_splitter_container,
 101   go_con_tables         TYPE REF TO cl_gui_container,
 102   go_con_joins          TYPE REF TO cl_gui_container,
 103   go_con_fields1        TYPE REF TO cl_gui_container,
 104   go_con_fields2        TYPE REF TO cl_gui_container,
 105   go_alv_tables         TYPE REF TO cl_gui_alv_grid,
 106   go_alv_joins          TYPE REF TO cl_gui_alv_grid,
 107   go_alv_fields1        TYPE REF TO cl_gui_alv_grid,
 108   go_alv_fields2        TYPE REF TO cl_gui_alv_grid,
 109   go_event_tables       TYPE REF TO lcl_alv_event_handler,
 110   go_event_joins        TYPE REF TO lcl_alv_event_handler,
 111   go_event_fields1      TYPE REF TO lcl_alv_event_handler,
 112   go_event_fields2      TYPE REF TO lcl_alv_event_handler.
 113 
 114 DATA:
 115   gt_tables             TYPE TABLE OF typ_table,
 116   gs_table              TYPE typ_table,
 117   gt_joins              TYPE TABLE OF typ_join,
 118   gs_join               TYPE typ_join,
 119   gt_fields1            TYPE TABLE OF typ_field1,
 120   gs_field1             TYPE typ_field1,
 121   gt_fields2            TYPE TABLE OF typ_field2,
 122   gs_field2             TYPE typ_field2,
 123   gt_query              TYPE TABLE OF typ_field1,
 124   gs_query              TYPE typ_field1.
 125 
 126 DATA:
 127   gt_fieldcat_tables    TYPE lvc_t_fcat,
 128   gt_fieldcat_joins     TYPE lvc_t_fcat,
 129   gt_fieldcat_fields1   TYPE lvc_t_fcat,
 130   gt_fieldcat_fields2   TYPE lvc_t_fcat,
 131   gs_fieldcat           TYPE lvc_s_fcat,
 132   gt_f4_tables          TYPE lvc_t_f4,
 133   gt_f4_joins           TYPE lvc_t_f4,
 134   gt_f4_fields1         TYPE lvc_t_f4,
 135   gt_f4_fields2         TYPE lvc_t_f4,
 136   gs_f4                 TYPE lvc_s_f4,
 137   gt_exclude            TYPE ui_functions,
 138   gs_layout             TYPE lvc_s_layo.
 139 
 140 DATA:
 141   BEGIN OF gt_color OCCURS 0,
 142     sel TYPE c,
 143     color TYPE c LENGTH 4,
 144     value TYPE c LENGTH 4,
 145   END OF gt_color.
 146 
 147 DATA:
 148   ok_code TYPE sy-ucomm,
 149   g_flag_error TYPE c,
 150   g_indxid TYPE indx_srtfd,
 151   gt_codes TYPE TABLE OF string,
 152   g_code TYPE string,
 153   go_excel TYPE ole2_object,
 154   go_books TYPE ole2_object,
 155   go_book TYPE ole2_object,
 156   go_sheet TYPE ole2_object,
 157   go_cell TYPE ole2_object,
 158   g_row TYPE i,
 159   g_col TYPE i,
 160   g_value TYPE string.
 161 
 162 DEFINE d_build_fieldcat.
 163   gs_fieldcat-fieldname  = &3.
 164   gs_fieldcat-edit       = &4.
 165   gs_fieldcat-checkbox   = &5.
 166   gs_fieldcat-f4availabl = &6.
 167   gs_fieldcat-outputlen  = &7.
 168   gs_fieldcat-coltext    = &8.
 169   append gs_fieldcat to &1.
 170   clear gs_fieldcat.
 171 
 172   if &6 = X.
 173     gs_f4-fieldname = &3.
 174     gs_f4-register = X.
 175     insert gs_f4 into table &2.
 176     clear gs_f4.
 177   endif.
 178 END-OF-DEFINITION.
 179 
 180 DEFINE append_code.
 181   append &1 to gt_codes.
 182 END-OF-DEFINITION.
 183 *----------------------------------------------------------------------*
 184 *       CLASS lcl_alv_event_handler IMPLEMENTATION
 185 *----------------------------------------------------------------------*
 186 *
 187 *----------------------------------------------------------------------*
 188 CLASS lcl_alv_event_handler IMPLEMENTATION .
 189   METHOD handle_toolbar.
 190     PERFORM handle_toolbar USING  e_object e_interactive.
 191   ENDMETHOD.                    "HANDLE_TOOLBAR
 192 
 193   METHOD handle_f4.
 194     PERFORM handle_f4 USING e_fieldname e_fieldvalue es_row_no er_event_data et_bad_cells.
 195   ENDMETHOD.                                                "HANDLE_F4
 196 
 197   METHOD handle_user_command.
 198     PERFORM handle_user_command USING e_ucomm.
 199   ENDMETHOD.                    "HANDLE_USER_COMMAND
 200 ENDCLASS.                    "lcl_alv_event_handler IMPLEMENTATION
 201 
 202 INITIALIZATION.
 203   text = 程序.
 204   gen = 生成程序.
 205   sscrfields-functxt_01 = 保存设置.
 206   sscrfields-functxt_02 = 加载设置.
 207   sscrfields-functxt_03 = 下载到Excel.
 208   sscrfields-functxt_04 = 从Excel上载.
 209 
 210 AT SELECTION-SCREEN OUTPUT.
 211   CHECK go_docking_con IS INITIAL.
 212   "创建容器
 213   CREATE OBJECT go_docking_con
 214     EXPORTING
 215       ratio = 95
 216       side  = cl_gui_docking_container=>dock_at_bottom.
 217 
 218   "拆分为左、右
 219   CREATE OBJECT go_splitter_con
 220     EXPORTING
 221       parent  = go_docking_con
 222       rows    = 1
 223       columns = 2.
 224   go_splitter_con->set_column_width( EXPORTING id = 1 width = 25 ).
 225 
 226   "左侧再次拆分为上下
 227   CREATE OBJECT go_splitter_con_left
 228     EXPORTING
 229       parent  = go_splitter_con->get_container( row = 1 column = 1 )
 230       rows    = 2
 231       columns = 1.
 232   go_splitter_con_left->set_row_height( EXPORTING id = 1 height = 40 ).
 233 
 234   "右侧再次拆分为上下
 235   CREATE OBJECT go_splitter_con_right
 236     EXPORTING
 237       parent  = go_splitter_con->get_container( row = 1 column = 2 )
 238       rows    = 2
 239       columns = 1.
 240   go_splitter_con_right->set_row_height( EXPORTING id = 2 height = 40 ).
 241 
 242   "创建TABLES的ALV
 243   go_con_tables = go_splitter_con_left->get_container( row = 1 column = 1 ).
 244   CREATE OBJECT go_alv_tables
 245     EXPORTING
 246       i_parent = go_con_tables.
 247 
 248   "创建JOINS的ALV
 249   go_con_joins = go_splitter_con_left->get_container( row = 2 column = 1 ).
 250   CREATE OBJECT go_alv_joins
 251     EXPORTING
 252       i_parent = go_con_joins.
 253 
 254   "创建FIELDS1的ALV
 255   go_con_fields1 = go_splitter_con_right->get_container( row = 1 column = 1 ).
 256   CREATE OBJECT go_alv_fields1
 257     EXPORTING
 258       i_parent = go_con_fields1.
 259 
 260   "创建FIELDS2的ALV
 261   go_con_fields2 = go_splitter_con_right->get_container( row = 2 column = 1 ).
 262   CREATE OBJECT go_alv_fields2
 263     EXPORTING
 264       i_parent = go_con_fields2.
 265 
 266   "事件响应
 267   CREATE OBJECT: go_event_tables, go_event_joins, go_event_fields1, go_event_fields2.
 268   SET HANDLER:
 269     go_event_tables->handle_f4  FOR go_alv_tables,
 270     go_event_joins->handle_f4   FOR go_alv_joins,
 271     go_event_fields1->handle_f4 FOR go_alv_fields1,
 272     go_event_fields1->handle_toolbar FOR go_alv_fields1,
 273     go_event_fields1->handle_user_command FOR go_alv_fields1,
 274     go_event_fields2->handle_f4 FOR go_alv_fields2.
 275 
 276   "显示ALV
 277   PERFORM alv_prepare_toolbar   TABLES    gt_exclude.
 278   PERFORM alv_prepare_layout    CHANGING  gs_layout.
 279 
 280   d_build_fieldcat:
 281     gt_fieldcat_tables  gt_f4_tables  TABNAME    X       X  12  表名,
 282     gt_fieldcat_tables  gt_f4_tables  LEFTJOIN   X   X       6  左连接,
 283     gt_fieldcat_tables  gt_f4_tables  ASTABLE    X           4  别名.
 284   gs_layout-grid_title = 表清单【表顺序可以上下拖动】.
 285   CALL METHOD go_alv_tables->set_table_for_first_display
 286     EXPORTING
 287       it_toolbar_excluding = gt_exclude
 288       is_layout            = gs_layout
 289     CHANGING
 290       it_outtab            = gt_tables
 291       it_fieldcatalog      = gt_fieldcat_tables.
 292 
 293   d_build_fieldcat:
 294     gt_fieldcat_joins  gt_f4_joins  TAB1       X       X  12  表1,
 295     gt_fieldcat_joins  gt_f4_joins  FIELD1     X       X  15  字段1,
 296     gt_fieldcat_joins  gt_f4_joins  TAB2       X       X  12  表2,
 297     gt_fieldcat_joins  gt_f4_joins  FIELD2     X       X  15  字段2(或特定值).
 298   gs_layout-grid_title = 表关联【请遵循本程序约定:表1在“表清单”中的位置需要在表2以下】.
 299   CALL METHOD go_alv_joins->set_table_for_first_display
 300     EXPORTING
 301       it_toolbar_excluding = gt_exclude
 302       is_layout            = gs_layout
 303     CHANGING
 304       it_outtab            = gt_joins
 305       it_fieldcatalog      = gt_fieldcat_joins.
 306 
 307   d_build_fieldcat:
 308     gt_fieldcat_fields1  gt_f4_fields1  ASTABLE      X      X  12  表名,
 309     gt_fieldcat_fields1  gt_f4_fields1  FIELDNAME    X      X  15  字段名,
 310     gt_fieldcat_fields1  gt_f4_fields1  ASFIELD      X          8  字段别名,
 311     gt_fieldcat_fields1  gt_f4_fields1  QUERY        X   X      4  查询,
 312     gt_fieldcat_fields1  gt_f4_fields1  QUERY_POS    X          4  位置,
 313     gt_fieldcat_fields1  gt_f4_fields1  SINGLE       X   X      4  单值,
 314     gt_fieldcat_fields1  gt_f4_fields1  DISPLAY      X   X      4  输出,
 315     gt_fieldcat_fields1  gt_f4_fields1  QFIELDNAME   X      X   8  单位字段,
 316     gt_fieldcat_fields1  gt_f4_fields1  CFIELDNAME   X      X   8  货币字段,
 317     gt_fieldcat_fields1  gt_f4_fields1  REF_TABLE    X         12  参照表,
 318     gt_fieldcat_fields1  gt_f4_fields1  REF_FIELD    X         15  参照字段,
 319     gt_fieldcat_fields1  gt_f4_fields1  CONVEXIT     X          7  转换例程,
 320     gt_fieldcat_fields1  gt_f4_fields1  EMPHASIZE    X      X   6  列颜色,
 321     gt_fieldcat_fields1  gt_f4_fields1  SCRTEXT_L    X         20  字段描述.
 322   gs_layout-grid_title = 字段设置【该表格中的所有字段都会出现在SELECT中,查询字段出现在选择屏幕中,输出字段出现在ALV中】.
 323   CALL METHOD go_alv_fields1->set_table_for_first_display
 324     EXPORTING
 325       it_toolbar_excluding = gt_exclude
 326       is_layout            = gs_layout
 327     CHANGING
 328       it_outtab            = gt_fields1
 329       it_fieldcatalog      = gt_fieldcat_fields1.
 330 
 331   d_build_fieldcat:
 332     gt_fieldcat_fields2  gt_f4_fields2  FIELDNAME    X         15  字段名,
 333     gt_fieldcat_fields2  gt_f4_fields2  QFIELDNAME   X      X   8  单位字段,
 334     gt_fieldcat_fields2  gt_f4_fields2  CFIELDNAME   X      X   8  货币字段,
 335     gt_fieldcat_fields2  gt_f4_fields2  REF_TABLE    X         12  参照表,
 336     gt_fieldcat_fields2  gt_f4_fields2  REF_FIELD    X         15  参照字段,
 337     gt_fieldcat_fields2  gt_f4_fields2  CONVEXIT     X          7  转换例程,
 338     gt_fieldcat_fields2  gt_f4_fields2  EMPHASIZE    X      X   6  列颜色,
 339     gt_fieldcat_fields2  gt_f4_fields2  SCRTEXT_L    X         20  字段描述.
 340   gs_layout-grid_title = 附加字段【如:汇总字段、合并字段等】.
 341   CALL METHOD go_alv_fields2->set_table_for_first_display
 342     EXPORTING
 343       it_toolbar_excluding = gt_exclude
 344       is_layout            = gs_layout
 345     CHANGING
 346       it_outtab            = gt_fields2
 347       it_fieldcatalog      = gt_fieldcat_fields2.
 348 
 349   "注册事件
 350   go_alv_tables->register_f4_for_fields(  EXPORTING it_f4 = gt_f4_tables  ).
 351   go_alv_joins->register_f4_for_fields(   EXPORTING it_f4 = gt_f4_joins   ).
 352   go_alv_fields1->register_f4_for_fields( EXPORTING it_f4 = gt_f4_fields1 ).
 353   go_alv_fields2->register_f4_for_fields( EXPORTING it_f4 = gt_f4_fields2 ).
 354   go_alv_tables->register_edit_event(  EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ).
 355   go_alv_joins->register_edit_event(   EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ).
 356   go_alv_fields1->register_edit_event( EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ).
 357   go_alv_fields2->register_edit_event( EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified ).
 358 
 359 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_prog.
 360   PERFORM f4_prog.
 361 
 362 AT SELECTION-SCREEN.
 363   go_alv_tables->check_changed_data( ).
 364   go_alv_joins->check_changed_data( ).
 365   go_alv_fields1->check_changed_data( ).
 366   go_alv_fields2->check_changed_data( ).
 367 
 368   g_indxid = p_prog && RG.
 369   ok_code = sy-ucomm.
 370   CLEAR sy-ucomm.
 371   CASE ok_code.
 372     WHEN FC01.
 373       EXPORT tables = gt_tables joins = gt_joins fields1 = gt_fields1 fields2 = gt_fields2 TO DATABASE indx(st) ID g_indxid.
 374     WHEN FC02.
 375       IMPORT tables = gt_tables joins = gt_joins fields1 = gt_fields1 fields2 = gt_fields2 FROM DATABASE indx(st) ID g_indxid.
 376       PERFORM alv_refresh_display.
 377     WHEN FC03.
 378       PERFORM download.
 379     WHEN FC04.
 380       PERFORM upload.
 381       PERFORM alv_refresh_display.
 382     WHEN GEN.
 383       PERFORM check.
 384       CHECK g_flag_error IS INITIAL.
 385       PERFORM process_data.
 386       PERFORM generate.
 387   ENDCASE.
 388 
 389 *&---------------------------------------------------------------------*
 390 *&      Form  alv_prepare_toolbar
 391 *&---------------------------------------------------------------------*
 392 *       text
 393 *----------------------------------------------------------------------*
 394 FORM alv_prepare_toolbar  TABLES  pt_exclude TYPE ui_functions.
 395   REFRESH: pt_exclude.
 396 
 397   APPEND cl_gui_alv_grid=>mc_fc_maximum TO pt_exclude.
 398   APPEND cl_gui_alv_grid=>mc_fc_minimum TO pt_exclude.
 399   APPEND cl_gui_alv_grid=>mc_fc_subtot TO pt_exclude.
 400   APPEND cl_gui_alv_grid=>mc_fc_sum TO pt_exclude.
 401   APPEND cl_gui_alv_grid=>mc_fc_average TO pt_exclude.
 402   APPEND cl_gui_alv_grid=>mc_mb_sum TO pt_exclude.
 403   APPEND cl_gui_alv_grid=>mc_mb_subtot TO pt_exclude.
 404   APPEND cl_gui_alv_grid=>mc_fc_sort_asc TO pt_exclude.
 405   APPEND cl_gui_alv_grid=>mc_fc_sort_dsc TO pt_exclude.
 406   APPEND cl_gui_alv_grid=>mc_fc_find TO pt_exclude.
 407   APPEND cl_gui_alv_grid=>mc_fc_filter TO pt_exclude.
 408   APPEND cl_gui_alv_grid=>mc_fc_print TO pt_exclude.
 409   APPEND cl_gui_alv_grid=>mc_fc_print_prev TO pt_exclude.
 410   APPEND cl_gui_alv_grid=>mc_mb_export TO pt_exclude.
 411   APPEND cl_gui_alv_grid=>mc_fc_graph TO pt_exclude.
 412   APPEND cl_gui_alv_grid=>mc_mb_export TO pt_exclude.
 413   APPEND cl_gui_alv_grid=>mc_mb_view TO pt_exclude.
 414   APPEND cl_gui_alv_grid=>mc_fc_detail TO pt_exclude.
 415   APPEND cl_gui_alv_grid=>mc_fc_help TO pt_exclude.
 416   APPEND cl_gui_alv_grid=>mc_fc_info TO pt_exclude.
 417   APPEND cl_gui_alv_grid=>mc_mb_variant TO pt_exclude.
 418   APPEND cl_gui_alv_grid=>mc_fc_refresh TO pt_exclude.
 419   APPEND cl_gui_alv_grid=>mc_fc_check TO pt_exclude.
 420   APPEND cl_gui_alv_grid=>mc_fc_loc_copy TO pt_exclude.
 421 *  APPEND cl_gui_alv_grid=>mc_fc_loc_insert_row TO pt_exclude.
 422 *  APPEND cl_gui_alv_grid=>mc_fc_loc_delete_row TO pt_exclude.
 423   APPEND cl_gui_alv_grid=>mc_fc_loc_copy_row TO pt_exclude.
 424 *  APPEND cl_gui_alv_grid=>mc_fc_loc_append_row TO pt_exclude.
 425   APPEND cl_gui_alv_grid=>mc_fc_loc_undo TO pt_exclude.
 426   APPEND cl_gui_alv_grid=>mc_fc_loc_cut TO pt_exclude.
 427   APPEND cl_gui_alv_grid=>mc_mb_paste TO pt_exclude.
 428 ENDFORM.                    "alv_prepare_toolbar
 429 *&---------------------------------------------------------------------*
 430 *&      Form  alv_prepare_layout
 431 *&---------------------------------------------------------------------*
 432 *       text
 433 *----------------------------------------------------------------------*
 434 *      -->PS_LAYOUT  text
 435 *----------------------------------------------------------------------*
 436 FORM alv_prepare_layout  CHANGING ps_layout TYPE lvc_s_layo.
 437   ps_layout-zebra = X.
 438   ps_layout-sel_mode = A.
 439   ps_layout-smalltitle = X.
 440 ENDFORM.                    "alv_prepare_layout
 441 *&---------------------------------------------------------------------*
 442 *&      Form  handle_toolbar
 443 *&---------------------------------------------------------------------*
 444 *       text
 445 *----------------------------------------------------------------------*
 446 FORM handle_toolbar USING  e_object TYPE REF TO cl_alv_event_toolbar_set
 447                             e_interactive TYPE char1.
 448   DATA: ls_toolbar TYPE stb_button.
 449 
 450   ls_toolbar-function = IMPORT.
 451   ls_toolbar-icon = icon_import.
 452   ls_toolbar-text = 导入表格字段.
 453   ls_toolbar-quickinfo = 导入表格字段.
 454   APPEND ls_toolbar TO e_object->mt_toolbar.
 455   CLEAR: ls_toolbar.
 456 
 457   ls_toolbar-function = ALL.
 458   ls_toolbar-text = 输出:全选.
 459   ls_toolbar-quickinfo = 全部输出.
 460   APPEND ls_toolbar TO e_object->mt_toolbar.
 461   CLEAR: ls_toolbar.
 462 
 463   ls_toolbar-function = NONE.
 464   ls_toolbar-text = 输出:取消全选.
 465   ls_toolbar-quickinfo = 全部不输出.
 466   APPEND ls_toolbar TO e_object->mt_toolbar.
 467   CLEAR: ls_toolbar.
 468 ENDFORM.                    "handle_toolbar
 469 *&---------------------------------------------------------------------*
 470 *&      Form  handle_user_command
 471 *&---------------------------------------------------------------------*
 472 *       text
 473 *----------------------------------------------------------------------*
 474 FORM handle_user_command  USING    e_ucomm.
 475   DATA: l_astable TYPE tabname,
 476         l_tabname TYPE tabname,
 477         lt_dfies_tab TYPE TABLE OF dfies WITH HEADER LINE.
 478 
 479   ok_code = e_ucomm.
 480   CLEAR e_ucomm.
 481 
 482   CASE ok_code.
 483     WHEN IMPORT.
 484       "选择表
 485       PERFORM f4_table CHANGING l_astable.
 486       CHECK l_astable IS NOT INITIAL.
 487 
 488       "获取真实表名
 489       READ TABLE gt_tables WITH KEY astable = l_astable INTO gs_table.
 490       IF sy-subrc = 0.
 491         l_tabname = gs_table-tabname.
 492       ELSE.
 493         l_tabname = l_astable.
 494       ENDIF.
 495 
 496       "获取字段
 497       CALL FUNCTION DDIF_FIELDINFO_GET
 498         EXPORTING
 499           tabname        = l_tabname
 500           langu          = sy-langu
 501         TABLES
 502           dfies_tab      = lt_dfies_tab[]
 503         EXCEPTIONS
 504           not_found      = 1
 505           internal_error = 2
 506           OTHERS         = 3.
 507       CHECK sy-subrc = 0.
 508 
 509       "添加到ALV
 510       LOOP AT lt_dfies_tab.
 511         CHECK lt_dfies_tab-fieldname <> MANDT.
 512         CLEAR: gs_field1.
 513         gs_field1-astable = l_astable.
 514         gs_field1-fieldname = lt_dfies_tab-fieldname.
 515         gs_field1-scrtext_l = lt_dfies_tab-fieldtext.
 516         gs_field1-ref_table = l_tabname.
 517         gs_field1-ref_field = lt_dfies_tab-fieldname.
 518         APPEND gs_field1 TO gt_fields1.
 519       ENDLOOP.
 520 
 521       go_alv_fields1->refresh_table_display( ).
 522 
 523     WHEN ALL.
 524       gs_field1-display = X.
 525       MODIFY gt_fields1 FROM gs_field1 TRANSPORTING display WHERE display = ‘‘.
 526       go_alv_fields1->refresh_table_display( ).
 527     WHEN NONE.
 528       gs_field1-display = ‘‘.
 529       MODIFY gt_fields1 FROM gs_field1 TRANSPORTING display WHERE display = X.
 530       go_alv_fields1->refresh_table_display( ).
 531   ENDCASE.
 532 ENDFORM.                    "handle_user_command
 533 *&---------------------------------------------------------------------*
 534 *&      Form  handle_f4
 535 *&---------------------------------------------------------------------*
 536 *       text
 537 *----------------------------------------------------------------------*
 538 FORM handle_f4  USING           e_fieldname TYPE lvc_fname
 539                                 e_fieldvalue TYPE lvc_value
 540                                 es_row_no TYPE lvc_s_roid
 541                                 er_event_data TYPE REF TO cl_alv_event_data
 542                                 et_bad_cells TYPE lvc_t_modi.
 543   DATA: ls_row TYPE lvc_s_row,
 544         ls_col TYPE lvc_s_col,
 545         ls_modi TYPE lvc_s_modi,
 546         l_tabname TYPE tabname,
 547         l_fieldtext TYPE fieldtext,
 548         l_ref_table TYPE lvc_rtname,
 549         l_ref_field TYPE lvc_rfname.
 550   FIELD-SYMBOLS: <lt_modi> TYPE lvc_t_modi.
 551 
 552   er_event_data->m_event_handled = X.
 553 
 554   CASE e_fieldname.
 555     WHEN TABNAME.
 556       PERFORM f4_dd_table(rsaqddic) USING SAPLAQJD_CNTRL
 557                                           0300
 558                                           G_DYN_0300-TNAME
 559                                     CHANGING e_fieldvalue.  "搜索帮助代码,来于SQVI中“插入表”的搜索帮助
 560 
 561     WHEN TAB1 OR TAB2 OR ASTABLE.
 562       PERFORM f4_table CHANGING e_fieldvalue.
 563 
 564     WHEN FIELD1 OR FIELD2 OR FIELDNAME.
 565       go_alv_tables->check_changed_data( ).
 566 
 567       IF e_fieldname = FIELD1.
 568         READ TABLE gt_joins INDEX es_row_no-row_id INTO gs_join.
 569         CHECK gs_join-tab1 IS NOT INITIAL.
 570         l_tabname = gs_join-tab1.
 571       ELSEIF e_fieldname = FIELD2.
 572         READ TABLE gt_joins INDEX es_row_no-row_id INTO gs_join.
 573         CHECK gs_join-tab2 IS NOT INITIAL.
 574         l_tabname = gs_join-tab2.
 575       ELSEIF e_fieldname = FIELDNAME.
 576         READ TABLE gt_fields1 INDEX es_row_no-row_id INTO gs_field1.
 577         CHECK gs_field1-astable IS NOT INITIAL.
 578         l_tabname = gs_field1-astable.
 579         l_fieldtext = gs_field1-scrtext_l.
 580         l_ref_table = gs_field1-ref_table.
 581         l_ref_field = gs_field1-ref_field.
 582       ENDIF.
 583 
 584       READ TABLE gt_tables WITH KEY astable = l_tabname INTO gs_table.
 585       IF sy-subrc = 0.
 586         l_tabname = gs_table-tabname.
 587       ENDIF.
 588 
 589       PERFORM f4_field USING l_tabname CHANGING e_fieldvalue l_fieldtext l_ref_table l_ref_field.
 590 
 591     WHEN QFIELDNAME OR CFIELDNAME.
 592       PERFORM f4_field_in_itab CHANGING e_fieldvalue.
 593 
 594     WHEN EMPHASIZE.
 595       PERFORM f4_color CHANGING e_fieldvalue.
 596 
 597     WHEN OTHERS.
 598       EXIT.
 599   ENDCASE.
 600 
 601   ASSIGN er_event_data->m_data->* TO <lt_modi>.
 602   ls_modi-row_id    = es_row_no-row_id."
 603   ls_modi-fieldname = e_fieldname.
 604   ls_modi-value     = e_fieldvalue.
 605   APPEND ls_modi TO <lt_modi>.
 606   IF e_fieldname = FIELDNAME.
 607     ls_modi-row_id    = es_row_no-row_id."
 608     ls_modi-fieldname = SCRTEXT_L.
 609     ls_modi-value     = l_fieldtext.
 610     APPEND ls_modi TO <lt_modi>.
 611 
 612     ls_modi-row_id    = es_row_no-row_id."
 613     ls_modi-fieldname = REF_TABLE.
 614     ls_modi-value     = l_ref_table.
 615     APPEND ls_modi TO <lt_modi>.
 616 
 617     ls_modi-row_id    = es_row_no-row_id."
 618     ls_modi-fieldname = REF_FIELD.
 619     ls_modi-value     = l_ref_field.
 620     APPEND ls_modi TO <lt_modi>.
 621   ENDIF.
 622 
 623 ENDFORM.                                                    "handle_f4
 624 *&---------------------------------------------------------------------*
 625 *&      Form  F4_PROG
 626 *&---------------------------------------------------------------------*
 627 *       程序名称的搜索帮助(同SE38)
 628 *----------------------------------------------------------------------*
 629 FORM f4_prog .
 630   DATA: lt_dynpfields TYPE TABLE OF dynpread WITH HEADER LINE.
 631 
 632   lt_dynpfields-fieldname  = P_PROG.
 633   APPEND lt_dynpfields.
 634 
 635   CALL FUNCTION DYNP_VALUES_READ
 636     EXPORTING
 637       dyname     = sy-repid
 638       dynumb     = sy-dynnr
 639     TABLES
 640       dynpfields = lt_dynpfields[].
 641 
 642   READ TABLE lt_dynpfields INDEX 1.
 643   p_prog = lt_dynpfields-fieldvalue.
 644 
 645   CALL FUNCTION REPOSITORY_INFO_SYSTEM_F4
 646     EXPORTING
 647       object_type          = PROG
 648       object_name          = p_prog
 649       suppress_selection   = X
 650     IMPORTING
 651       object_name_selected = p_prog
 652     EXCEPTIONS
 653       cancel               = 01.
 654 ENDFORM.                                                    " F4_PROG
 655 *&---------------------------------------------------------------------*
 656 *&      Form  PROCESS_DATA
 657 *&---------------------------------------------------------------------*
 658 *       处理数据
 659 *----------------------------------------------------------------------*
 660 FORM process_data .
 661   DATA: l_tabname TYPE tabname,
 662         l_as_flag TYPE c.
 663 
 664   LOOP AT gt_fields1 INTO gs_field1.
 665     "取真实表名
 666     READ TABLE gt_tables WITH KEY astable = gs_field1-astable INTO gs_table.
 667     IF sy-subrc = 0.
 668       l_tabname = gs_table-tabname.
 669       l_as_flag = X.
 670     ELSE.
 671       l_tabname = gs_field1-astable.
 672       l_as_flag = ‘‘.
 673     ENDIF.
 674 
 675     "根据单选和多选情况,确定选择条件的参数
 676     IF gs_field1-query = X.
 677       IF gs_field1-asfield IS INITIAL.
 678         gs_field1-sel_field = gs_field1-fieldname.
 679       ELSE.
 680         gs_field1-sel_field = gs_field1-asfield.
 681       ENDIF.
 682 
 683       IF gs_field1-single = X.
 684         gs_field1-sel_field = P_ && gs_field1-sel_field.
 685       ELSE.
 686         gs_field1-sel_field = S_ && gs_field1-sel_field.
 687       ENDIF.
 688     ENDIF.
 689 
 690     "确定SQL字段的名称
 691     IF l_as_flag = ‘‘.
 692       gs_field1-sql_field = l_tabname && ~ && gs_field1-fieldname.
 693     ELSE.
 694       gs_field1-sql_field = gs_field1-astable && ~ && gs_field1-fieldname.
 695     ENDIF.
 696 
 697     "确定显示字段的名称
 698     IF gs_field1-asfield IS INITIAL.
 699       gs_field1-out_field = gs_field1-fieldname.
 700     ELSE.
 701       gs_field1-out_field = gs_field1-asfield.
 702       "SQL字段别名处理
 703       CONCATENATE gs_field1-sql_field AS gs_field1-asfield INTO gs_field1-sql_field SEPARATED BY space.
 704     ENDIF.
 705 
 706     "确定参照字段的名称
 707     gs_field1-typ_field = l_tabname && - && gs_field1-fieldname.
 708 
 709     gs_field1-mark = " && gs_field1-scrtext_l.
 710     SHIFT gs_field1-mark RIGHT BY 10 PLACES.
 711     MODIFY gt_fields1 FROM gs_field1 TRANSPORTING sel_field sql_field out_field typ_field mark.
 712   ENDLOOP.
 713 
 714   gt_query = gt_fields1.
 715   DELETE gt_query WHERE query  = ‘‘.
 716   SORT gt_query STABLE BY query_pos.
 717 
 718   LOOP AT gt_fields2 INTO gs_field2.
 719     IF gs_field2-ref_table IS INITIAL.
 720       gs_field2-typ_field = gs_field2-ref_field.
 721     ELSE.
 722       gs_field2-typ_field = gs_field2-ref_table && - && gs_field2-ref_field.
 723     ENDIF.
 724     MODIFY gt_fields2 FROM gs_field2 TRANSPORTING typ_field.
 725   ENDLOOP.
 726 ENDFORM.                    " PROCESS_DATA
 727 
 728 *&---------------------------------------------------------------------*
 729 *&      Form  generate
 730 *&---------------------------------------------------------------------*
 731 *       生成程序
 732 *----------------------------------------------------------------------*
 733 FORM generate.
 734   REFRESH gt_codes.
 735 
 736   CHECK p_prog(1) = Y OR p_prog(1) = Z.
 737 
 738   IF strlen( p_prog ) > 20.
 739     MESSAGE 程序名长度不能超过20 TYPE E DISPLAY LIKE I.
 740   ENDIF.
 741 
 742   SELECT SINGLE progname INTO p_prog FROM reposrc WHERE progname = p_prog.
 743   IF sy-subrc = 0.
 744 *    MESSAGE ‘程序已经存在‘ TYPE ‘E‘ DISPLAY LIKE ‘I‘.
 745   ENDIF.
 746 
 747   "程序名
 748   PERFORM gen_report_name.
 749   "TABLES
 750   PERFORM gen_tables_clause.
 751   "SELECTION-SCREEN
 752   PERFORM gen_selection_screen.
 753   "类型定义
 754   PERFORM gen_types.
 755   "数据定义
 756   PERFORM gen_data_defination.
 757   "初始化
 758   PERFORM gen_initialization.
 759   "START-OF-SELECTION
 760   PERFORM gen_start_of_selection.
 761   "FORM GET_DATA
 762   PERFORM gen_form_get_data.
 763   "FORM PROCESS_DATA
 764   PERFORM gen_form_process_data.
 765   "FORM BUILD_FIELDCAT
 766   PERFORM gen_form_build_fieldcat.
 767   "FORM DISPLAY_DATA
 768   PERFORM gen_form_display_data.
 769   "FORM PF_STATUS_ALV
 770   PERFORM gen_form_pf_status_alv.
 771   "FORM USER_COMMAND_ALV
 772   PERFORM gen_form_user_command_alv.
 773 
 774   INSERT REPORT p_prog FROM gt_codes.
 775 ENDFORM.                    "GENERATE
 776 *&---------------------------------------------------------------------*
 777 *&      Form  GEN_REPORT_NAME
 778 *&---------------------------------------------------------------------*
 779 *       text
 780 *----------------------------------------------------------------------*
 781 FORM gen_report_name .
 782   CONCATENATE REPORT p_prog INTO g_code SEPARATED BY space.
 783   g_code = g_code && ..
 784   append_code: g_code, ‘‘.
 785 ENDFORM.                    " GEN_REPORT_NAME
 786 *&---------------------------------------------------------------------*
 787 *&      Form  GEN_TABLES_CLAUSE
 788 *&---------------------------------------------------------------------*
 789 *       text
 790 *----------------------------------------------------------------------*
 791 FORM gen_tables_clause .
 792   DATA: lt_tables TYPE TABLE OF typ_table.
 793 
 794   lt_tables = gt_tables.
 795   SORT lt_tables BY tabname.
 796   DELETE ADJACENT DUPLICATES FROM lt_tables COMPARING tabname.
 797 
 798   g_code = TABLES:.
 799   LOOP AT lt_tables INTO gs_table.
 800     CONCATENATE g_code gs_table-tabname INTO g_code SEPARATED BY space.
 801     IF sy-tabix = lines( lt_tables ).
 802       g_code = g_code && ..
 803     ELSE.
 804       g_code = g_code && ,.
 805     ENDIF.
 806   ENDLOOP.
 807   append_code: g_code, ‘‘.
 808 ENDFORM.                    " GEN_TABLES_CLAUSE
 809 *&---------------------------------------------------------------------*
 810 *&      Form  GEN_SELECTION_SCREEN
 811 *&---------------------------------------------------------------------*
 812 *       text
 813 *----------------------------------------------------------------------*
 814 FORM gen_selection_screen .
 815   append_code SELECTION-SCREEN BEGIN OF BLOCK 001 WITH FRAME TITLE TEXT-001..
 816 
 817   LOOP AT gt_query INTO gs_query.
 818     IF gs_query-single = X.
 819       CONCATENATE PARAMETERS gs_query-sel_field TYPE gs_query-typ_field INTO g_code SEPARATED BY space.
 820     ELSE.
 821       CONCATENATE SELECT-OPTIONS gs_query-sel_field FOR gs_query-typ_field INTO g_code SEPARATED BY space.
 822     ENDIF.
 823     g_code = g_code && . && gs_query-mark.
 824     append_code g_code.
 825   ENDLOOP.
 826 
 827   append_code SELECTION-SCREEN END OF BLOCK 001..
 828   append_code ‘‘.
 829 ENDFORM.                    " GEN_SELECTION_SCREEN
 830 *&---------------------------------------------------------------------*
 831 *&      Form  GEN_TYPES
 832 *&---------------------------------------------------------------------*
 833 *       text
 834 *----------------------------------------------------------------------*
 835 FORM gen_types .
 836   DATA: l_mark TYPE c LENGTH 60.
 837 
 838   append_code:
 839     TYPES:,
 840       BEGIN OF TYP_DATA,.
 841   LOOP AT gt_fields1 INTO gs_field1.
 842     CONCATENATE gs_field1-out_field TYPE gs_field1-typ_field INTO g_code SEPARATED BY space.
 843     g_code = g_code && , && gs_field1-mark.
 844     SHIFT g_code RIGHT BY 4 PLACES.
 845     append_code g_code.
 846   ENDLOOP.
 847 
 848   LOOP AT gt_fields2 INTO gs_field2.
 849     CONCATENATE gs_field2-fieldname TYPE gs_field2-typ_field INTO g_code SEPARATED BY space.
 850     l_mark = " && gs_field2-scrtext_l.
 851     SHIFT l_mark RIGHT BY 10 PLACES.
 852     g_code = g_code && , && l_mark.
 853     SHIFT g_code RIGHT BY 4 PLACES.
 854     append_code g_code.
 855   ENDLOOP.
 856 
 857   append_code:   END OF TYP_DATA., ‘‘.
 858 ENDFORM.                    " GEN_TYPES
 859 *&---------------------------------------------------------------------*
 860 *&      Form  GEN_DATA_DEFINATION
 861 *&---------------------------------------------------------------------*
 862 *       text
 863 *----------------------------------------------------------------------*
 864 FORM gen_data_defination .
 865   append_code:
 866       DATA:,
 867         GT_DATA     TYPE TABLE OF TYP_DATA,,
 868         GS_DATA     TYPE TYP_DATA,,
 869         GT_FIELDCAT TYPE LVC_T_FCAT,,
 870         GS_FIELDCAT TYPE LVC_S_FCAT,,
 871         GS_LAYOUT   TYPE LVC_S_LAYO.,
 872     ‘‘.
 873 ENDFORM.                    " GEN_DATA_DEFINATION
 874 *&---------------------------------------------------------------------*
 875 *&      Form  GEN_INITIALIZATION
 876 *&---------------------------------------------------------------------*
 877 *       text
 878 *----------------------------------------------------------------------*
 879 FORM gen_initialization .
 880   append_code INITIALIZATION..
 881   LOOP AT gt_query INTO gs_query.
 882     g_code =   %_ && gs_query-sel_field && _%_APP_%-TEXT.
 883     g_code = g_code &&  = ‘‘‘ && gs_query-scrtext_l && ‘‘‘..
 884     append_code g_code.
 885   ENDLOOP.
 886   append_code ‘‘.
 887 ENDFORM.                    " GEN_INITIALIZATION
 888 *&---------------------------------------------------------------------*
 889 *&      Form  GEN_START_OF_SELECTION
 890 *&---------------------------------------------------------------------*
 891 *       text
 892 *----------------------------------------------------------------------*
 893 FORM gen_start_of_selection .
 894   append_code:
 895     START-OF-SELECTION.,
 896       PERFORM GET_DATA.,
 897       PERFORM PROCESS_DATA.,
 898       PERFORM DISPLAY_DATA.,
 899     ‘‘.
 900 ENDFORM.                    " GEN_START_OF_SELECTION
 901 *&---------------------------------------------------------------------*
 902 *&      Form  GEN_FORM_GET_DATA
 903 *&---------------------------------------------------------------------*
 904 *       text
 905 *----------------------------------------------------------------------*
 906 FORM gen_form_get_data .
 907   DATA: l_joinfield TYPE string,
 908         l_tabname TYPE tabname,
 909         l_join_counts TYPE i,
 910         l_index TYPE i.
 911 
 912   append_code:
 913     *&---------------------------------------------------------------------*,
 914     *&      FORM  GET_DATA                                                  ,
 915     *&---------------------------------------------------------------------*,
 916     *       获取数据                                                        ,
 917     *----------------------------------------------------------------------*,
 918     FORM GET_DATA.                                                          .
 919 
 920   "SELECT字段
 921   append_code   SELECT.
 922   LOOP AT gt_fields1 INTO gs_field1.
 923     g_code = gs_field1-sql_field && gs_field1-mark.
 924     SHIFT g_code RIGHT BY 4 PLACES.
 925     append_code g_code.
 926   ENDLOOP.
 927   IF gt_fields2 IS INITIAL.
 928     append_code     INTO TABLE GT_DATA.
 929   ELSE.
 930     append_code     INTO CORRESPONDING FIELDS OF TABLE GT_DATA.
 931   ENDIF.
 932 
 933   "FROM语句
 934   READ TABLE gt_tables INDEX 1 INTO gs_table.
 935   CONCATENATE FROM gs_table-tabname INTO g_code SEPARATED BY space.
 936   IF gs_table-astable IS NOT INITIAL.
 937     CONCATENATE g_code AS gs_table-astable INTO g_code SEPARATED BY space.
 938   ENDIF.
 939   SHIFT g_code RIGHT BY 4 PLACES.
 940   append_code g_code.
 941 
 942   "JOIN语句
 943   LOOP AT gt_tables INTO gs_table FROM 2.
 944     IF gs_table-leftjoin = X.
 945       CONCATENATE     LEFT JOIN gs_table-tabname INTO g_code SEPARATED BY space.
 946     ELSE.
 947       CONCATENATE     INNER JOIN gs_table-tabname INTO g_code SEPARATED BY space.
 948     ENDIF.
 949 
 950     IF gs_table-astable IS INITIAL.
 951       l_tabname = gs_table-tabname.
 952     ELSE.
 953       l_tabname = gs_table-astable.
 954       CONCATENATE g_code AS l_tabname INTO g_code SEPARATED BY space.
 955     ENDIF.
 956 
 957     CONCATENATE g_code ON INTO g_code SEPARATED BY space.
 958 
 959     CLEAR: l_join_counts.
 960     LOOP AT gt_joins INTO gs_join WHERE tab1 = l_tabname.
 961       ADD 1 TO l_join_counts.
 962       IF l_join_counts > 1.
 963         CONCATENATE g_code AND INTO g_code SEPARATED BY space.
 964       ENDIF.
 965 
 966       l_joinfield = gs_join-tab1 && ~ && gs_join-field1.
 967       CONCATENATE g_code l_joinfield = INTO g_code SEPARATED BY space.
 968 
 969       IF gs_join-tab2 IS INITIAL.
 970         l_joinfield = gs_join-field2.
 971       ELSE.
 972         l_joinfield = gs_join-tab2 && ~ && gs_join-field2.
 973       ENDIF.
 974       CONCATENATE g_code l_joinfield INTO g_code SEPARATED BY space.
 975     ENDLOOP.
 976     append_code g_code.
 977   ENDLOOP.
 978 
 979   "WHERE语句
 980   LOOP AT gt_query INTO gs_query.
 981     l_index = sy-tabix.
 982 
 983     g_code = gs_query-astable && ~ && gs_query-fieldname.
 984     IF l_index = 1.
 985       CONCATENATE     WHERE g_code INTO g_code SEPARATED BY space.
 986     ELSE.
 987       CONCATENATE       AND g_code INTO g_code SEPARATED BY space.
 988     ENDIF.
 989     IF gs_query-single = X.
 990       CONCATENATE g_code = gs_query-sel_field INTO g_code SEPARATED BY space.
 991     ELSE.
 992       CONCATENATE g_code IN gs_query-sel_field INTO g_code SEPARATED BY space.
 993     ENDIF.
 994 
 995     IF l_index = lines( gt_query ).
 996       g_code = g_code && ..
 997     ENDIF.
 998 
 999     append_code g_code.
1000   ENDLOOP.
1001 
1002   append_code ENDFORM.                    "GET_DATA.
1003 ENDFORM.                    " GEN_FORM_GET_DATA
1004 *&---------------------------------------------------------------------*
1005 *&      Form  GEN_FORM_PROCESS_DATA
1006 *&---------------------------------------------------------------------*
1007 *       text
1008 *----------------------------------------------------------------------*
1009 FORM gen_form_process_data .
1010   append_code:
1011     *&---------------------------------------------------------------------*,
1012     *&      FORM  PROCESS_DATA                                              ,
1013     *&---------------------------------------------------------------------*,
1014     *       处理数据                                                        ,
1015     *----------------------------------------------------------------------*,
1016     FORM PROCESS_DATA.                                                       ,
1017                                                                              ,
1018     ENDFORM.                    "PROCESS_DATA                                .
1019 ENDFORM.                    "GEN_FORM_PROCESS_DATA
1020 *&---------------------------------------------------------------------*
1021 *&      Form  GEN_FORM_BUILD_FIELDCAT
1022 *&---------------------------------------------------------------------*
1023 *       text
1024 *----------------------------------------------------------------------*
1025 FORM gen_form_build_fieldcat .
1026   append_code:
1027     *&---------------------------------------------------------------------*,
1028     *&      Form  BUILD_FIELDCAT                                            ,
1029     *&---------------------------------------------------------------------*,
1030     *       TEXT                                                            ,
1031     *----------------------------------------------------------------------*,
1032     FORM BUILD_FIELDCAT USING P_FIELDNAME   TYPE FIELDNAME                  ,
1033                               P_QFIELDNAME  TYPE LVC_QFNAME                 ,
1034                               P_CFIELDNAME  TYPE LVC_CFNAME                 ,
1035                               P_REF_TABLE   TYPE LVC_RTNAME                 ,
1036                               P_REF_FIELD   TYPE LVC_RFNAME                 ,
1037                               P_CONVEXIT    TYPE CONVEXIT                   ,
1038                               P_EMPHASIZE   TYPE LVC_EMPHSZ                 ,
1039                               P_SCRTEXT_L   TYPE SCRTEXT_L.                 ,
1040       GS_FIELDCAT-FIELDNAME     = P_FIELDNAME.                              ,
1041       GS_FIELDCAT-QFIELDNAME    = P_QFIELDNAME.                             ,
1042       GS_FIELDCAT-CFIELDNAME    = P_CFIELDNAME.                             ,
1043       GS_FIELDCAT-REF_TABLE     = P_REF_TABLE.                              ,
1044       GS_FIELDCAT-REF_FIELD     = P_REF_FIELD.                              ,
1045       GS_FIELDCAT-CONVEXIT      = P_CONVEXIT.                               ,
1046       GS_FIELDCAT-EMPHASIZE     = P_EMPHASIZE.                              ,
1047       GS_FIELDCAT-SCRTEXT_L     = P_SCRTEXT_L.                              ,
1048       GS_FIELDCAT-COLDDICTXT    = ‘‘L‘‘.                                    ,
1049       APPEND GS_FIELDCAT TO GT_FIELDCAT.                                    ,
1050       CLEAR: GS_FIELDCAT.                                                   ,
1051     ENDFORM.                    "BUILD_FIELDCAT                             .
1052 ENDFORM.                    " GEN_FORM_BUILD_FIELDCAT
1053 *&---------------------------------------------------------------------*
1054 *&      Form  GEN_FORM_DISPLAY_DATA
1055 *&---------------------------------------------------------------------*
1056 *       text
1057 *----------------------------------------------------------------------*
1058 FORM gen_form_display_data .
1059   append_code:
1060    *&---------------------------------------------------------------------*,
1061    *&      FORM  DISPLAY_DATA                                              ,
1062    *&---------------------------------------------------------------------*,
1063    *       显示数据                                                        ,
1064    *----------------------------------------------------------------------*,
1065    FORM DISPLAY_DATA.                                                      .
1066 
1067   "FIELDCAT
1068   LOOP AT gt_fields1 INTO gs_field1 WHERE display = X.
1069     g_code =   PERFORM BUILD_FIELDCAT USING ‘‘‘ &&
1070               gs_field1-out_field && ‘‘‘ ‘‘‘ &&
1071               gs_field1-qfieldname && ‘‘‘ ‘‘‘ &&
1072               gs_field1-cfieldname && ‘‘‘ ‘‘‘ &&
1073               gs_field1-ref_table && ‘‘‘ ‘‘‘ &&
1074               gs_field1-ref_field && ‘‘‘ ‘‘‘ &&
1075               gs_field1-convexit && ‘‘‘ ‘‘‘ &&
1076               gs_field1-emphasize && ‘‘‘ ‘‘‘ &&
1077               gs_field1-scrtext_l && ‘‘‘..
1078     append_code g_code.
1079   ENDLOOP.
1080   LOOP AT gt_fields2 INTO gs_field2.
1081     g_code =   PERFORM BUILD_FIELDCAT USING ‘‘‘ &&
1082               gs_field2-fieldname && ‘‘‘ ‘‘‘ &&
1083               gs_field2-qfieldname && ‘‘‘ ‘‘‘ &&
1084               gs_field2-cfieldname && ‘‘‘ ‘‘‘ &&
1085               gs_field2-ref_table && ‘‘‘ ‘‘‘ &&
1086               gs_field2-ref_field && ‘‘‘ ‘‘‘ &&
1087               gs_field2-convexit && ‘‘‘ ‘‘‘ &&
1088               gs_field2-emphasize && ‘‘‘ ‘‘‘ &&
1089               gs_field2-scrtext_l && ‘‘‘..
1090     append_code g_code.
1091   ENDLOOP.
1092   append_code ‘‘.
1093 
1094   "LAYOUT
1095   append_code:
1096       gs_layout-cwidth_opt = ‘‘X‘‘.,
1097       gs_layout-zebra = ‘‘X‘‘.,
1098     ‘‘.
1099 
1100   append_code:
1101       CALL FUNCTION ‘‘REUSE_ALV_GRID_DISPLAY_LVC‘‘        ,
1102         EXPORTING                                         ,
1103           I_CALLBACK_PROGRAM       = SY-REPID             ,
1104     "      I_CALLBACK_PF_STATUS_SET = ‘‘PF_STATUS_ALV‘‘   ,
1105           I_CALLBACK_USER_COMMAND  = ‘‘USER_COMMAND_ALV‘‘ ,
1106           IT_FIELDCAT_LVC          = GT_FIELDCAT          ,
1107           IS_LAYOUT_LVC            = GS_LAYOUT            ,
1108           I_DEFAULT                = ‘‘X‘‘                ,
1109           I_SAVE                   = ‘‘A‘‘                ,
1110         TABLES                                            ,
1111           T_OUTTAB                 = GT_DATA              ,
1112         EXCEPTIONS                                        ,
1113           OTHERS                   = 1.                   .
1114   "ALV展示
1115   append_code ENDFORM.                    "DISPLAY_DATA.
1116 ENDFORM.                    " GEN_FORM_DISPLAY_DATA
1117 *&---------------------------------------------------------------------*
1118 *&      Form  GEN_FORM_PF_STATUS_ALV
1119 *&---------------------------------------------------------------------*
1120 *       text
1121 *----------------------------------------------------------------------*
1122 FORM gen_form_pf_status_alv .
1123   append_code:
1124     **&---------------------------------------------------------------------*,
1125     **&      FORM  PF_STATUS_ALV                                             ,
1126     **&---------------------------------------------------------------------*,
1127     **       TEXT                                                            ,
1128     **----------------------------------------------------------------------*,
1129     *FORM PF_STATUS_ALV USING RT_EXTAB TYPE SLIS_T_EXTAB .                   ,
1130     *  SET PF-STATUS ‘‘STATUS_ALV‘‘ EXCLUDING RT_EXTAB.                      ,
1131     *ENDFORM.                    "PF_STATUS_ALV                              .
1132 ENDFORM.                    " GEN_FORM_PF_STATUS_ALV
1133 *&---------------------------------------------------------------------*
1134 *&      Form  GEN_FORM_USER_COMMAND_ALV
1135 *&---------------------------------------------------------------------*
1136 *       text
1137 *----------------------------------------------------------------------*
1138 FORM gen_form_user_command_alv .
1139   append_code:
1140     *&---------------------------------------------------------------------*,
1141     *&      FORM  USER_COMMAND_ALV                                          ,
1142     *&---------------------------------------------------------------------*,
1143     *       TEXT                                                            ,
1144     *----------------------------------------------------------------------*,
1145     FORM USER_COMMAND_ALV USING R_UCOMM     LIKE SY-UCOMM                   ,
1146                                 RS_SELFIELD TYPE SLIS_SELFIELD.             ,
1147       CASE R_UCOMM.                                                         ,
1148         WHEN ‘‘&IC1‘‘.                                                      ,
1149           CASE RS_SELFIELD-FIELDNAME.                                       ,
1150             WHEN ‘‘‘‘.                                                      ,
1151     *          CHECK RS_SELFIELD-VALUE IS NOT INITIAL.                      ,
1152     *          SET PARAMETER ID ‘‘MBN‘‘ FIELD RS_SELFIELD-VALUE.            ,
1153     *          CALL TRANSACTION ‘‘MB03‘‘ AND SKIP FIRST SCREEN.             ,
1154           ENDCASE.                                                          ,
1155       ENDCASE.                                                              ,
1156     ENDFORM.                    "USER_COMMAND_ALV                           .
1157 ENDFORM.                    " GEN_FORM_USER_COMMAND_ALV
1158 *&---------------------------------------------------------------------*
1159 *&      Form  f4_table
1160 *&---------------------------------------------------------------------*
1161 *       text
1162 *----------------------------------------------------------------------*
1163 FORM f4_table CHANGING p_tabname.
1164   DATA: lt_return TYPE TABLE OF ddshretval WITH HEADER LINE.
1165   DATA: BEGIN OF lt_tables OCCURS 0,
1166           astable TYPE tabname,
1167           tabname TYPE tabname,
1168         END OF lt_tables.
1169 
1170   go_alv_tables->check_changed_data( ).
1171 
1172   LOOP AT gt_tables INTO gs_table.
1173     IF gs_table-astable IS INITIAL.
1174       lt_tables-astable = gs_table-tabname.
1175     ELSE.
1176       lt_tables-astable = gs_table-astable.
1177     ENDIF.
1178 
1179     lt_tables-tabname = gs_table-tabname.
1180     APPEND lt_tables.
1181   ENDLOOP.
1182 
1183   CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST
1184     EXPORTING
1185       retfield     = ASTABLE
1186       window_title = 选择
1187       value_org    = S
1188     TABLES
1189       value_tab    = lt_tables[]
1190       return_tab   = lt_return[].
1191 
1192   IF lt_return[] IS NOT INITIAL.
1193     READ TABLE lt_return INDEX 1.
1194     p_tabname = lt_return-fieldval.
1195   ENDIF.
1196 ENDFORM.                                                    "f4_table
1197 *&---------------------------------------------------------------------*
1198 *&      Form  f4_field
1199 *&---------------------------------------------------------------------*
1200 *       text
1201 *----------------------------------------------------------------------*
1202 FORM f4_field USING p_tabname TYPE tabname
1203               CHANGING p_fieldname p_fieldtext p_ref_table p_ref_field.
1204   DATA: lt_return TYPE TABLE OF ddshretval WITH HEADER LINE,
1205         lt_dfies_tab TYPE TABLE OF dfies WITH HEADER LINE,
1206         BEGIN OF lt_fields OCCURS 0,
1207           fieldname TYPE fieldname,
1208           fieldtext TYPE fieldtext,
1209           keyflag   TYPE keyflag,
1210           datatype  TYPE dynptype,
1211           leng      TYPE ddleng,
1212           decimals  TYPE decimals,
1213         END OF lt_fields.
1214 
1215   CALL FUNCTION DDIF_FIELDINFO_GET
1216     EXPORTING
1217       tabname        = p_tabname
1218       langu          = sy-langu
1219     TABLES
1220       dfies_tab      = lt_dfies_tab[]
1221     EXCEPTIONS
1222       not_found      = 1
1223       internal_error = 2
1224       OTHERS         = 3.
1225 
1226   CHECK sy-subrc = 0.
1227 
1228   DELETE lt_dfies_tab WHERE fieldname = MANDT.
1229   LOOP AT lt_dfies_tab.
1230     lt_fields-fieldname = lt_dfies_tab-fieldname.
1231     lt_fields-fieldtext = lt_dfies_tab-fieldtext.
1232     lt_fields-keyflag   = lt_dfies_tab-keyflag  .
1233     lt_fields-datatype  = lt_dfies_tab-datatype .
1234     lt_fields-leng      = lt_dfies_tab-leng     .
1235     lt_fields-decimals  = lt_dfies_tab-decimals .
1236     APPEND lt_fields.
1237   ENDLOOP.
1238                                                             "调用F4
1239   CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST
1240     EXPORTING
1241       retfield     = FIELDNAME
1242       window_title = 选择
1243       value_org    = S
1244     TABLES
1245       value_tab    = lt_fields[]
1246       return_tab   = lt_return[].
1247 
1248   IF lt_return[] IS NOT INITIAL.
1249     READ TABLE lt_return INDEX 1.
1250     p_fieldname = lt_return-fieldval.
1251     READ TABLE lt_fields WITH KEY fieldname = p_fieldname.
1252     p_fieldtext = lt_fields-fieldtext.
1253     p_ref_table = p_tabname.
1254     p_ref_field = p_fieldname.
1255   ENDIF.
1256 ENDFORM.                                                    "f4_field
1257 *&---------------------------------------------------------------------*
1258 *&      Form  F4_FIELD_IN_ITAB
1259 *&---------------------------------------------------------------------*
1260 *       GT_FIELDS的字段
1261 *----------------------------------------------------------------------*
1262 FORM f4_field_in_itab CHANGING p_fieldname.
1263   DATA: lt_return TYPE TABLE OF ddshretval WITH HEADER LINE,
1264         BEGIN OF lt_fields OCCURS 0,
1265           fieldname TYPE fieldname,
1266           fieldtext TYPE fieldtext,
1267         END OF lt_fields.
1268 
1269   LOOP AT gt_fields1 INTO gs_field1.
1270     IF gs_field1-asfield IS INITIAL.
1271       lt_fields-fieldname = gs_field1-fieldname.
1272     ELSE.
1273       lt_fields-fieldname = gs_field1-asfield.
1274     ENDIF.
1275     lt_fields-fieldtext = gs_field1-scrtext_l.
1276     APPEND lt_fields.
1277   ENDLOOP.
1278 
1279   LOOP AT gt_fields2 INTO gs_field2.
1280     lt_fields-fieldname = gs_field2-fieldname.
1281     lt_fields-fieldtext = gs_field2-scrtext_l.
1282     APPEND lt_fields.
1283   ENDLOOP.
1284                                                             "调用F4
1285   CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST
1286     EXPORTING
1287       retfield     = FIELDNAME
1288       window_title = 选择
1289       value_org    = S
1290     TABLES
1291       value_tab    = lt_fields[]
1292       return_tab   = lt_return[].
1293 
1294   IF lt_return[] IS NOT INITIAL.
1295     READ TABLE lt_return INDEX 1.
1296     p_fieldname = lt_return-fieldval.
1297   ENDIF.
1298 ENDFORM.                    " F4_FIELD_IN_ITAB
1299 *&---------------------------------------------------------------------*
1300 *&      Form  f4_color
1301 *&---------------------------------------------------------------------*
1302 *       text
1303 *----------------------------------------------------------------------*
1304 *      -->P_COLOR    text
1305 *----------------------------------------------------------------------*
1306 FORM f4_color CHANGING p_color.
1307   DATA:
1308     lt_fieldcat TYPE TABLE OF slis_fieldcat_alv,
1309     ls_fieldcat TYPE slis_fieldcat_alv,
1310     ls_layout TYPE slis_layout_alv.
1311 
1312   CLEAR: gt_color, gt_color[].
1313   DO 7 TIMES.
1314     gt_color-color = gt_color-value = C && sy-index && 00. APPEND gt_color.
1315     gt_color-color = gt_color-value = C && sy-index && 01. APPEND gt_color.
1316     gt_color-color = gt_color-value = C && sy-index && 10. APPEND gt_color.
1317   ENDDO.
1318 
1319   ls_fieldcat-fieldname = VALUE.
1320   ls_fieldcat-seltext_l = 颜色码.
1321   APPEND ls_fieldcat TO lt_fieldcat.
1322 
1323   ls_layout-box_fieldname = SEL.
1324   ls_layout-info_fieldname = COLOR.
1325 
1326   CALL FUNCTION REUSE_ALV_GRID_DISPLAY
1327     EXPORTING
1328       i_callback_program      = sy-repid
1329       i_callback_user_command = USER_COMMAND_COLOR
1330       is_layout               = ls_layout
1331       it_fieldcat             = lt_fieldcat
1332       i_screen_start_column   = 130
1333       i_screen_start_line     = 5
1334       i_screen_end_column     = 150
1335       i_screen_end_line       = 25
1336     TABLES
1337       t_outtab                = gt_color[].
1338 
1339   READ TABLE gt_color WITH KEY sel = X.
1340   p_color = gt_color-value.
1341 ENDFORM.                                                    "f4_color
1342 *&---------------------------------------------------------------------*
1343 *&      Form  USER_COMMAND_COLOR
1344 *&---------------------------------------------------------------------*
1345 *       text
1346 *----------------------------------------------------------------------*
1347 FORM user_command_color USING r_ucomm     LIKE sy-ucomm
1348                               rs_selfield TYPE slis_selfield.
1349   DATA: lt_color LIKE TABLE OF gt_color.
1350   CASE r_ucomm.
1351     WHEN &ONT.
1352       lt_color[] = gt_color[].
1353       DELETE lt_color WHERE sel = ‘‘.
1354       IF lines( lt_color ) <> 1.
1355         MESSAGE 请选择一个行项目 TYPE E.
1356       ENDIF.
1357     WHEN &IC1.
1358       gt_color-sel = X.
1359       MODIFY gt_color INDEX rs_selfield-tabindex TRANSPORTING sel.
1360       LEAVE TO SCREEN 0.
1361   ENDCASE.
1362 ENDFORM.                    "USER_COMMAND_COLOR
1363 *&---------------------------------------------------------------------*
1364 *&      Form  download
1365 *&---------------------------------------------------------------------*
1366 *       下载到Excel
1367 *----------------------------------------------------------------------*
1368 FORM download.
1369   DATA: l_file TYPE string,
1370         l_path TYPE string,
1371         l_fullpath TYPE string,
1372         l_action TYPE i.
1373 
1374   CALL METHOD cl_gui_frontend_services=>file_save_dialog
1375     EXPORTING
1376       default_file_name = l_file
1377     CHANGING
1378       filename          = l_file
1379       path              = l_path
1380       fullpath          = l_fullpath
1381       user_action       = l_action.
1382 
1383   CHECK l_action = 0.
1384 
1385   PERFORM create_excel_app.
1386   PERFORM open_workbook USING l_fullpath.
1387 
1388 * =========TABLES==========
1389   CALL METHOD OF
1390       go_book
1391       Sheets = go_sheet
1392     EXPORTING
1393       #1       = TABLES.
1394   IF sy-subrc <> 0.
1395     MESSAGE 打开TABLES工作表失败 TYPE E.
1396   ENDIF.
1397 
1398   LOOP AT gt_tables INTO gs_table.
1399     g_row = sy-tabix + 1.
1400     PERFORM set_cell_value USING g_row 1 gs_table-tabname.
1401     IF gs_table-leftjoin = X.
1402       PERFORM set_cell_value USING g_row 2 1.
1403     ENDIF.
1404     PERFORM set_cell_value USING g_row 3 gs_table-astable.
1405   ENDLOOP.
1406   CALL METHOD cl_gui_cfw=>flush.
1407 
1408 * =========JOINS==========
1409   CALL METHOD OF
1410       go_book
1411       Sheets = go_sheet
1412     EXPORTING
1413       #1       = JOINS.
1414   IF sy-subrc <> 0.
1415     MESSAGE 打开JOINS工作表失败 TYPE E.
1416   ENDIF.
1417 
1418   LOOP AT gt_joins INTO gs_join.
1419     g_row = sy-tabix + 1.
1420     PERFORM set_cell_value USING g_row 1 gs_join-tab1.
1421     PERFORM set_cell_value USING g_row 2 gs_join-field1.
1422     PERFORM set_cell_value USING g_row 3 gs_join-tab2.
1423     PERFORM set_cell_value USING g_row 4 gs_join-field2.
1424   ENDLOOP.
1425   CALL METHOD cl_gui_cfw=>flush.
1426 
1427 * =========FIELDS1==========
1428   CALL METHOD OF
1429       go_book
1430       Sheets = go_sheet
1431     EXPORTING
1432       #1       = FIELDS1.
1433   IF sy-subrc <> 0.
1434     MESSAGE 打开FIELDS1工作表失败 TYPE E.
1435   ENDIF.
1436 
1437   LOOP AT gt_fields1 INTO gs_field1.
1438     g_row = sy-tabix + 1.
1439     PERFORM set_cell_value USING g_row 1 gs_field1-astable.
1440     PERFORM set_cell_value USING g_row 2 gs_field1-fieldname.
1441     PERFORM set_cell_value USING g_row 3 gs_field1-asfield.
1442     IF gs_field1-query = X.
1443       PERFORM set_cell_value USING g_row 4 1.
1444     ENDIF.
1445     PERFORM set_cell_value USING g_row 5 gs_field1-query_pos.
1446     IF gs_field1-single = X.
1447       PERFORM set_cell_value USING g_row 6 1.
1448     ENDIF.
1449     IF gs_field1-display = X.
1450       PERFORM set_cell_value USING g_row 7 1.
1451     ENDIF.
1452     PERFORM set_cell_value USING g_row 8 gs_field1-qfieldname.
1453     PERFORM set_cell_value USING g_row 9 gs_field1-cfieldname.
1454     PERFORM set_cell_value USING g_row 10 gs_field1-ref_table.
1455     PERFORM set_cell_value USING g_row 11 gs_field1-ref_field.
1456     PERFORM set_cell_value USING g_row 12 gs_field1-convexit.
1457     PERFORM set_cell_value USING g_row 13 gs_field1-emphasize.
1458     PERFORM set_cell_value USING g_row 14 gs_field1-scrtext_l.
1459   ENDLOOP.
1460   CALL METHOD cl_gui_cfw=>flush.
1461 
1462 * =========FIELDS2==========
1463   CALL METHOD OF
1464       go_book
1465       Sheets = go_sheet
1466     EXPORTING
1467       #1       = FIELDS2.
1468   IF sy-subrc <> 0.
1469     MESSAGE 打开FIELDS2工作表失败 TYPE E.
1470   ENDIF.
1471 
1472   LOOP AT gt_fields2 INTO gs_field2.
1473     g_row = sy-tabix + 1.
1474     PERFORM set_cell_value USING g_row 1 gs_field2-fieldname.
1475     PERFORM set_cell_value USING g_row 2 gs_field2-qfieldname.
1476     PERFORM set_cell_value USING g_row 3 gs_field2-cfieldname.
1477     PERFORM set_cell_value USING g_row 4 gs_field2-ref_table.
1478     PERFORM set_cell_value USING g_row 5 gs_field2-ref_field.
1479     PERFORM set_cell_value USING g_row 6 gs_field2-convexit.
1480     PERFORM set_cell_value USING g_row 7 gs_field2-emphasize.
1481     PERFORM set_cell_value USING g_row 8 gs_field2-scrtext_l.
1482   ENDLOOP.
1483   CALL METHOD cl_gui_cfw=>flush.
1484 
1485   CALL METHOD OF
1486       go_book
1487       SAVE.
1488   SET PROPERTY OF go_excel Visible = 1.
1489 
1490   MESSAGE 已下载到Excel文件中,请查看 TYPE S.
1491 ENDFORM.                    "download
1492 *&---------------------------------------------------------------------*
1493 *&      Form  upload
1494 *&---------------------------------------------------------------------*
1495 *       从Excel上载
1496 *----------------------------------------------------------------------*
1497 FORM upload.
1498   DATA: lt_list TYPE TABLE OF spopli WITH HEADER LINE,
1499         l_answer TYPE c,
1500         lt_filetable TYPE filetable WITH HEADER LINE,
1501         l_rc TYPE i,
1502         l_action TYPE i,
1503         l_flag_close TYPE c.
1504 
1505   IF go_excel IS NOT INITIAL.
1506     lt_list-varoption = 从刚下载的Excel文件上载. APPEND lt_list.
1507     lt_list-varoption = 选择新的Excel文件进行上载. APPEND lt_list.
1508 
1509     CALL FUNCTION POPUP_TO_DECIDE_LIST
1510       EXPORTING
1511         textline1 = 如果还未关闭已经下载的Excel,可以选择从该Excel文件上载
1512         titel     = 选择
1513       IMPORTING
1514         answer    = l_answer
1515       TABLES
1516         t_spopli  = lt_list[].
1517 
1518     CHECK l_answer <> A.
1519   ENDIF.
1520 
1521   IF go_excel IS INITIAL OR l_answer = 2.
1522     CALL METHOD cl_gui_frontend_services=>file_open_dialog
1523       EXPORTING
1524         default_extension       = XLS
1525         default_filename        = *.xls;*.xlsx
1526         file_filter             = Excel File (*.xls;*.xlsx)
1527         multiselection          = ‘‘
1528       CHANGING
1529         file_table              = lt_filetable[]
1530         rc                      = l_rc
1531         user_action             = l_action
1532       EXCEPTIONS
1533         file_open_dialog_failed = 1
1534         cntl_error              = 2
1535         error_no_gui            = 3
1536         not_supported_by_gui    = 4
1537         OTHERS                  = 5.
1538 
1539     CHECK l_action = 0.
1540 
1541     PERFORM create_excel_app.
1542 
1543     READ TABLE lt_filetable INDEX 1.
1544     PERFORM open_workbook USING lt_filetable-filename.
1545 
1546     l_flag_close = X.
1547   ENDIF.
1548 
1549   CLEAR: gt_tables, gt_joins, gt_fields1, gt_fields2.
1550 
1551 * =========TABLES==========
1552   CALL METHOD OF
1553       go_book
1554       Sheets = go_sheet
1555     EXPORTING
1556       #1       = TABLES.
1557   IF sy-subrc <> 0.
1558     MESSAGE 打开TABLES工作表失败 TYPE E.
1559   ENDIF.
1560 
1561   WHILE 1 = 1.
1562     CLEAR: gs_table.
1563     g_row = sy-index + 1.
1564     PERFORM get_cell_value USING g_row 1 CHANGING gs_table-tabname.
1565     IF gs_table-tabname IS INITIAL.
1566       EXIT.
1567     ENDIF.
1568     PERFORM get_cell_value USING g_row 2 CHANGING gs_table-leftjoin.
1569     IF gs_table-leftjoin = 1.
1570       gs_table-leftjoin = X.
1571     ELSE.
1572       gs_table-leftjoin = ‘‘.
1573     ENDIF.
1574     PERFORM get_cell_value USING g_row 3 CHANGING gs_table-astable.
1575     APPEND gs_table TO gt_tables.
1576   ENDWHILE.
1577 
1578 * =========JOINS==========
1579   CALL METHOD OF
1580       go_book
1581       Sheets = go_sheet
1582     EXPORTING
1583       #1       = JOINS.
1584   IF sy-subrc <> 0.
1585     MESSAGE 打开JOINS工作表失败 TYPE E.
1586   ENDIF.
1587 
1588   WHILE 1 = 1.
1589     CLEAR: gs_join.
1590     g_row = sy-index + 1.
1591     PERFORM get_cell_value USING g_row 1 CHANGING gs_join-tab1.
1592     IF gs_join-tab1 IS INITIAL.
1593       EXIT.
1594     ENDIF.
1595     PERFORM get_cell_value USING g_row 2 CHANGING gs_join-field1.
1596     PERFORM get_cell_value USING g_row 3 CHANGING gs_join-tab2.
1597     PERFORM get_cell_value USING g_row 4 CHANGING gs_join-field2.
1598     APPEND gs_join TO gt_joins.
1599   ENDWHILE.
1600 
1601 * =========FIELDS1==========
1602   CALL METHOD OF
1603       go_book
1604       Sheets = go_sheet
1605     EXPORTING
1606       #1       = FIELDS1.
1607   IF sy-subrc <> 0.
1608     MESSAGE 打开FIELDS1工作表失败 TYPE E.
1609   ENDIF.
1610 
1611   WHILE 1 = 1.
1612     CLEAR: gs_field1.
1613     g_row = sy-index + 1.
1614     PERFORM get_cell_value USING g_row 1 CHANGING gs_field1-astable.
1615     IF gs_field1-astable IS INITIAL.
1616       EXIT.
1617     ENDIF.
1618     PERFORM get_cell_value USING g_row 2 CHANGING gs_field1-fieldname.
1619     PERFORM get_cell_value USING g_row 3 CHANGING gs_field1-asfield.
1620     PERFORM get_cell_value USING g_row 4 CHANGING gs_field1-query.
1621     IF gs_field1-query = 1.
1622       gs_field1-query = X.
1623     ELSE.
1624       gs_field1-query = ‘‘.
1625     ENDIF.
1626     PERFORM get_cell_value USING g_row 5 CHANGING gs_field1-query_pos.
1627     PERFORM get_cell_value USING g_row 6 CHANGING gs_field1-single.
1628     IF gs_field1-single = 1.
1629       gs_field1-single = X.
1630     ELSE.
1631       gs_field1-single = ‘‘.
1632     ENDIF.
1633     PERFORM get_cell_value USING g_row 7 CHANGING gs_field1-display.
1634     IF gs_field1-display = 1.
1635       gs_field1-display = X.
1636     ELSE.
1637       gs_field1-display = ‘‘.
1638     ENDIF.
1639     PERFORM get_cell_value USING g_row 8 CHANGING gs_field1-qfieldname.
1640     PERFORM get_cell_value USING g_row 9 CHANGING gs_field1-cfieldname.
1641     PERFORM get_cell_value USING g_row 10 CHANGING gs_field1-ref_table.
1642     PERFORM get_cell_value USING g_row 11 CHANGING gs_field1-ref_field.
1643     PERFORM get_cell_value USING g_row 12 CHANGING gs_field1-convexit.
1644     PERFORM get_cell_value USING g_row 13 CHANGING gs_field1-emphasize.
1645     PERFORM get_cell_value USING g_row 14 CHANGING gs_field1-scrtext_l.
1646     APPEND gs_field1 TO gt_fields1.
1647   ENDWHILE.
1648 
1649 * =========FIELDS2==========
1650   CALL METHOD OF
1651       go_book
1652       Sheets = go_sheet
1653     EXPORTING
1654       #1       = FIELDS2.
1655   IF sy-subrc <> 0.
1656     MESSAGE 打开FIELDS2工作表失败 TYPE E.
1657   ENDIF.
1658 
1659   WHILE 1 = 1.
1660     CLEAR: gs_field2.
1661     g_row = sy-index + 1.
1662     PERFORM get_cell_value USING g_row 1 CHANGING gs_field2-fieldname.
1663     IF gs_field2-fieldname IS INITIAL.
1664       EXIT.
1665     ENDIF.
1666     PERFORM get_cell_value USING g_row 2 CHANGING gs_field2-qfieldname.
1667     PERFORM get_cell_value USING g_row 3 CHANGING gs_field2-cfieldname.
1668     PERFORM get_cell_value USING g_row 4 CHANGING gs_field2-ref_table.
1669     PERFORM get_cell_value USING g_row 5 CHANGING gs_field2-ref_field.
1670     PERFORM get_cell_value USING g_row 6 CHANGING gs_field2-convexit.
1671     PERFORM get_cell_value USING g_row 7 CHANGING gs_field2-emphasize.
1672     PERFORM get_cell_value USING g_row 8 CHANGING gs_field2-scrtext_l.
1673     APPEND gs_field2 TO gt_fields2.
1674   ENDWHILE.
1675 
1676   IF l_flag_close = X.
1677     CALL METHOD OF
1678         go_book
1679         Close.
1680     CALL METHOD OF
1681         go_excel
1682         QUIT.
1683     FREE OBJECT: go_sheet, go_book, go_books, go_excel.
1684   ENDIF.
1685 
1686   MESSAGE 上载完成 TYPE S.
1687 ENDFORM.                    "upload
1688 *&---------------------------------------------------------------------*
1689 *&      Form  create_excel_app
1690 *&---------------------------------------------------------------------*
1691 *       text
1692 *----------------------------------------------------------------------*
1693 FORM create_excel_app.
1694   IF go_excel IS INITIAL.
1695     CREATE OBJECT go_excel Excel.Application.
1696     IF sy-subrc <> 0.
1697       MESSAGE 创建Excel程序失败 TYPE E.
1698     ENDIF.
1699   ENDIF.
1700 ENDFORM.                    "create_excel_app
1701 *&---------------------------------------------------------------------*
1702 *&      Form  open_workbook
1703 *&---------------------------------------------------------------------*
1704 *       text
1705 *----------------------------------------------------------------------*
1706 FORM open_workbook USING p_path.
1707   CALL METHOD OF
1708       go_excel
1709       Workbooks = go_books.
1710   CALL METHOD OF
1711       go_books
1712       Open   = go_book
1713     EXPORTING
1714       #1       = p_path.
1715   IF sy-subrc <> 0.
1716     MESSAGE 打开Excel文件失败 TYPE E.
1717   ENDIF.
1718 ENDFORM.                    "open_workbook
1719 *&---------------------------------------------------------------------*
1720 *&      Form  set_cell_value
1721 *&---------------------------------------------------------------------*
1722 *       text
1723 *----------------------------------------------------------------------*
1724 FORM set_cell_value USING p_row TYPE i
1725                           p_col TYPE i
1726                           p_value.
1727   g_row = p_row.
1728   g_col = p_col.
1729   g_value = p_value.
1730 
1731   CALL METHOD OF
1732       go_sheet
1733       CELLS  = go_cell
1734       NO
1735       FLUSH
1736 
1737     EXPORTING
1738       #1       = g_row
1739       #2       = g_col.
1740   SET PROPERTY OF go_cell Value = g_value NO FLUSH.
1741 ENDFORM.                    "set_cell_value
1742 *&---------------------------------------------------------------------*
1743 *&      Form  get_cell_value
1744 *&---------------------------------------------------------------------*
1745 *       text
1746 *----------------------------------------------------------------------*
1747 FORM get_cell_value USING p_row TYPE i
1748                           p_col TYPE i
1749                     CHANGING p_value.
1750   CALL METHOD OF
1751       go_sheet
1752       CELLS  = go_cell
1753     EXPORTING
1754       #1       = p_row
1755       #2       = p_col.
1756   GET PROPERTY OF go_cell Value = p_value.
1757 ENDFORM.                    "get_cell_value
1758 *&---------------------------------------------------------------------*
1759 *&      Form  CHECK
1760 *&---------------------------------------------------------------------*
1761 *       text
1762 *----------------------------------------------------------------------*
1763 FORM check .
1764   DATA: l_index TYPE i VALUE 1,
1765         l_index1 TYPE i,
1766         l_index2 TYPE i,
1767         l_tabix TYPE i,
1768         l_len TYPE i,
1769         l_off TYPE i,
1770         l_msg TYPE string,
1771         l_flag TYPE c,
1772         ls_dd02l TYPE dd02l,
1773         BEGIN OF lt_astable OCCURS 0,
1774           astable TYPE tabname,
1775           tabname TYPE tabname,
1776           index TYPE i,
1777         END OF lt_astable,
1778         BEGIN OF lt_asfield OCCURS 0,
1779           fieldname TYPE fieldname,
1780         END OF lt_asfield,
1781         BEGIN OF lt_syst OCCURS 0,
1782           fieldname TYPE fieldname,
1783         END OF lt_syst.
1784 
1785   DEFINE d_store_message.
1786     g_flag_error = X.
1787     call function MESSAGE_STORE
1788       exporting
1789         arbgb = 00
1790         msgty = E
1791         txtnr = 001
1792         msgv1 = l_msg
1793         msgv2 = ‘‘
1794         msgv3 = ‘‘
1795         msgv4 = ‘‘
1796         zeile = l_index.
1797     l_index = l_index + 1.
1798   END-OF-DEFINITION.
1799 
1800   SELECT fieldname INTO TABLE lt_syst FROM dd03l WHERE tabname = SYST ORDER BY fieldname.
1801   LOOP AT lt_syst.
1802     lt_syst-fieldname = SY- && lt_syst-fieldname.
1803     MODIFY lt_syst.
1804   ENDLOOP.
1805 
1806   CALL FUNCTION MESSAGES_INITIALIZE.
1807   CLEAR g_flag_error.
1808 
1809   "表清单校验
1810   LOOP AT gt_tables INTO gs_table.
1811     l_tabix = sy-tabix.
1812     SELECT SINGLE * INTO ls_dd02l FROM dd02l WHERE tabname = gs_table-tabname AND as4vers = A.
1813     IF sy-subrc <> 0.
1814       l_msg = 表清单:行 && l_tabix && ,表或视图 && gs_table-tabname && 不存在或未激活.
1815       d_store_message.
1816     ELSEIF ls_dd02l-tabclass = CLUSTER.
1817       IF lines( gt_tables ) > 1.
1818         l_msg = 表清单:行 && l_tabix && ,不能使用簇表 && gs_table-tabname.
1819         d_store_message.
1820       ENDIF.
1821     ELSEIF ls_dd02l-tabclass = VIEW.
1822       IF ls_dd02l-viewclass <> D.
1823         l_msg = 表清单:行 && l_tabix && ,视图 && gs_table-tabname && 不是数据库视图.
1824         d_store_message.
1825       ENDIF.
1826     ENDIF.
1827 
1828     IF gs_table-astable IS NOT INITIAL.
1829       IF ABCDEFGHIJKLMNOPQRSTUVWXYZ NA gs_table-astable(1).
1830         l_msg = 表清单:行 && l_tabix && ,别名 && gs_table-astable && 必须以字母开头.
1831         d_store_message.
1832       ENDIF.
1833       lt_astable-astable = gs_table-astable.
1834       lt_astable-tabname = gs_table-tabname.
1835       ADD 1 TO lt_astable-index.
1836       APPEND lt_astable.
1837     ELSE.
1838       lt_astable-astable = gs_table-tabname.
1839       lt_astable-tabname = gs_table-tabname.
1840       ADD 1 TO lt_astable-index.
1841       APPEND lt_astable.
1842     ENDIF.
1843   ENDLOOP.
1844 
1845   SORT lt_astable BY astable.
1846   DELETE ADJACENT DUPLICATES FROM lt_astable COMPARING astable.
1847   IF lines( lt_astable ) <> lines( gt_tables ).
1848     l_msg = 表清单:存在重复的表名或表别名.
1849     d_store_message.
1850   ENDIF.
1851 
1852   "表关联校验
1853   LOOP AT gt_joins INTO gs_join.
1854     l_tabix = sy-tabix.
1855     CLEAR: l_index1, l_index2.
1856 
1857     IF gs_join-tab1 IS INITIAL OR gs_join-field1 IS INITIAL.
1858       l_msg = 表关联:行 && l_tabix && ,表1和字段1不能为空.
1859       d_store_message.
1860     ELSE.
1861       READ TABLE lt_astable WITH KEY astable = gs_join-tab1 BINARY SEARCH.
1862       IF sy-subrc <> 0.
1863         l_msg = 表关联:行 && l_tabix && ,表1- && gs_join-tab1 && 不存在.
1864         d_store_message.
1865       ELSE.
1866         l_index1 = lt_astable-index.
1867         PERFORM check_field_exist USING lt_astable-tabname gs_join-field1 CHANGING l_flag.
1868         IF l_flag = X.
1869           l_msg = 表关联:行 && l_tabix && ,表1- && gs_join-tab1 && 中字段 && gs_join-field1 &&不存在或未激活.
1870           d_store_message.
1871         ENDIF.
1872       ENDIF.
1873     ENDIF.
1874 
1875     IF gs_join-tab2 IS INITIAL. "校验特定值
1876       IF gs_join-field2 IS INITIAL.
1877         l_msg = 表关联:行 && l_tabix && ,字段2或特定值不存在.
1878         d_store_message.
1879       ELSEIF gs_join-field2(1) <> ‘‘‘‘.
1880         READ TABLE lt_syst WITH KEY fieldname = gs_join-field2 BINARY SEARCH TRANSPORTING NO FIELDS.
1881         IF sy-subrc <> 0.
1882           l_msg = 表关联:行 && l_tabix && ,特定值 && gs_join-field2 && 填写错误,只能为SYST中字段或常数.
1883           d_store_message.
1884         ENDIF.
1885       ELSE.
1886         l_len = strlen( gs_join-field2 ).
1887         IF l_len = 1.
1888           l_msg = 表关联:行 && l_tabix && ,特定值 && gs_join-field2 && 填写错误,只能为SYST中字段或常数.
1889           d_store_message.
1890         ELSE.
1891           l_off = l_len - 1.
1892           IF gs_join-field2+l_off(1) <> ‘‘‘‘.
1893             l_msg = 表关联:行 && l_tabix && ,特定值 && gs_join-field2 && 填写错误,只能为SYST中字段或常数.
1894             d_store_message.
1895           ENDIF.
1896         ENDIF.
1897       ENDIF.
1898     ELSE.
1899       READ TABLE lt_astable WITH KEY astable = gs_join-tab2 BINARY SEARCH.
1900       IF sy-subrc <> 0.
1901         l_msg = 表关联:行 && l_tabix && ,表2- && gs_join-tab2 && 不存在.
1902         d_store_message.
1903       ELSE.
1904         l_index2 = lt_astable-index.
1905         PERFORM check_field_exist USING lt_astable-tabname gs_join-field2 CHANGING l_flag.
1906         IF l_flag = X.
1907           l_msg = 表关联:行 && l_tabix && ,表2- && gs_join-tab2 && 中字段 && gs_join-field2 &&不存在或未激活.
1908           d_store_message.
1909         ELSE.
1910           IF l_index1 < l_index2 AND l_index1 > 0.
1911             l_msg = 表关联:行 && l_tabix && ,请遵循约定:表1- && gs_join-tab1 && 在“表清单”位置需要在表2- && gs_join-tab2 && 以下.
1912             d_store_message.
1913           ENDIF.
1914         ENDIF.
1915       ENDIF.
1916     ENDIF.
1917   ENDLOOP.
1918 
1919   "字段重复性校验
1920   LOOP AT gt_fields1 INTO gs_field1.
1921     IF gs_field1-asfield IS INITIAL.
1922       lt_asfield-fieldname = gs_field1-fieldname.
1923     ELSE.
1924       lt_asfield-fieldname = gs_field1-asfield.
1925     ENDIF.
1926     APPEND lt_asfield.
1927     CLEAR lt_asfield.
1928   ENDLOOP.
1929 
1930   LOOP AT gt_fields2 INTO gs_field2.
1931     lt_asfield-fieldname = gs_field2-fieldname.
1932     APPEND lt_asfield.
1933     CLEAR lt_asfield.
1934   ENDLOOP.
1935 
1936   SORT lt_asfield BY fieldname.
1937   DELETE ADJACENT DUPLICATES FROM lt_asfield COMPARING fieldname.
1938   IF lines( lt_asfield ) <> lines( gt_fields1 ) + lines( gt_fields2 ).
1939     l_msg = 字段设置、附加字段:存在重复的字段名或字段别名.
1940     d_store_message.
1941   ENDIF.
1942 
1943   "字段设置
1944   READ TABLE gt_fields1 WITH KEY query = X TRANSPORTING NO FIELDS.
1945   IF sy-subrc <> 0.
1946     l_msg = 字段设置:请至少设置一个查询条件.
1947     d_store_message.
1948   ENDIF.
1949   READ TABLE gt_fields1 WITH KEY display = X TRANSPORTING NO FIELDS.
1950   IF sy-subrc <> 0.
1951     l_msg = 字段设置:请至少设置一个输出字段.
1952     d_store_message.
1953   ENDIF.
1954   LOOP AT gt_fields1 INTO gs_field1.
1955     l_tabix = sy-tabix.
1956     IF gs_field1-astable IS INITIAL OR gs_field1-fieldname IS INITIAL.
1957       l_msg = 字段设置:行 && l_tabix && ,表和字段不能为空.
1958     ELSE.
1959       READ TABLE lt_astable WITH KEY astable = gs_field1-astable BINARY SEARCH.
1960       IF sy-subrc <> 0.
1961         l_msg = 字段设置:行 && l_tabix && ,表 && gs_field1-astable && 不存在.
1962         d_store_message.
1963       ELSE.
1964         PERFORM check_field_exist USING lt_astable-tabname gs_field1-fieldname CHANGING l_flag.
1965         IF l_flag = X.
1966           l_msg = 字段设置:行 && l_tabix && ,表 && gs_field1-astable && 中字段 && gs_field1-fieldname &&不存在或未激活.
1967           d_store_message.
1968         ENDIF.
1969       ENDIF.
1970     ENDIF.
1971     IF gs_field1-asfield IS NOT INITIAL.
1972       IF ABCDEFGHIJKLMNOPQRSTUVWXYZ NA gs_field1-asfield(1).
1973         l_msg = 字段设置:行 && l_tabix && ,字段 && gs_field1-fieldname && 的别名 && gs_field1-asfield && 必须以字母开头.
1974         d_store_message.
1975       ENDIF.
1976     ENDIF.
1977     IF gs_field1-ref_table IS NOT INITIAL.
1978       SELECT SINGLE tabname INTO gs_field1-ref_table FROM dd02l WHERE tabname = gs_field1-ref_table AND as4vers = A.
1979       IF sy-subrc <> 0.
1980         l_msg = 字段设置:行 && l_tabix && ,字段 && gs_field1-fieldname && 的参照表 && gs_field1-ref_table && 不存在或未激活.
1981         d_store_message.
1982       ELSEIF gs_field1-ref_field IS NOT INITIAL.
1983         PERFORM check_field_exist USING gs_field1-ref_table gs_field1-ref_field CHANGING l_flag.
1984         IF l_flag = X.
1985           l_msg = 字段设置:行 && l_tabix && ,字段 && gs_field1-fieldname && 的参照表 && gs_field1-ref_table && 中参照字段 && gs_field1-ref_field &&不存在或未激活.
1986           d_store_message.
1987         ENDIF.
1988       ENDIF.
1989     ELSE.
1990       IF gs_field1-ref_field IS NOT INITIAL.
1991         SELECT SINGLE rollname INTO gs_field1-ref_field FROM dd04l WHERE rollname = gs_field1-ref_field AND as4vers = A.
1992         IF sy-subrc <> 0.
1993           l_msg = 字段设置:行 && l_tabix && ,字段 && gs_field1-fieldname && 的参照字段(数据元素) && gs_field1-ref_field &&不存在或未激活.
1994           d_store_message.
1995         ENDIF.
1996       ENDIF.
1997     ENDIF.
1998     IF gs_field1-qfieldname IS NOT INITIAL.
1999       READ TABLE lt_asfield WITH KEY fieldname = gs_field1-qfieldname BINARY SEARCH TRANSPORTING NO FIELDS.
2000       IF sy-subrc <> 0.
2001         l_msg = 字段设置:行 && l_tabix && ,字段 && gs_field1-fieldname && 的单位字段 && gs_field1-qfieldname &&不存在.
2002         d_store_message.
2003       ENDIF.
2004     ENDIF.
2005     IF gs_field1-cfieldname IS NOT INITIAL.
2006       READ TABLE lt_asfield WITH KEY fieldname = gs_field1-cfieldname BINARY SEARCH TRANSPORTING NO FIELDS.
2007       IF sy-subrc <> 0.
2008         l_msg = 字段设置:行 && l_tabix && ,字段 && gs_field1-fieldname && 的货币字段 && gs_field1-cfieldname &&不存在.
2009         d_store_message.
2010       ENDIF.
2011     ENDIF.
2012   ENDLOOP.
2013 
2014   "附加字段
2015   LOOP AT gt_fields2 INTO gs_field2.
2016     l_tabix = sy-tabix.
2017     IF gs_field2-ref_table IS NOT INITIAL.
2018       SELECT SINGLE tabname INTO gs_field2-ref_table FROM dd02l WHERE tabname = gs_field2-ref_table AND as4vers = A.
2019       IF sy-subrc <> 0.
2020         l_msg = 附加字段:行 && l_tabix && ,字段 && gs_field2-fieldname && 的参照表 && gs_field2-ref_table && 不存在或未激活.
2021         d_store_message.
2022       ELSEIF gs_field2-ref_field IS NOT INITIAL.
2023         PERFORM check_field_exist USING gs_field2-ref_table gs_field2-ref_field CHANGING l_flag.
2024         IF l_flag = X.
2025           l_msg = 附加字段:行 && l_tabix && ,字段 && gs_field2-fieldname && 的参照表 && gs_field2-ref_table && 中参照字段 && gs_field2-ref_field &&不存在或未激活.
2026           d_store_message.
2027         ENDIF.
2028       ENDIF.
2029     ELSE.
2030       IF gs_field2-ref_field IS NOT INITIAL.
2031         SELECT SINGLE rollname INTO gs_field2-ref_field FROM dd04l WHERE rollname = gs_field2-ref_field AND as4vers = A.
2032         IF sy-subrc <> 0.
2033           l_msg = 附加字段:行 && l_tabix && ,字段 && gs_field2-fieldname && 的参照字段(数据元素) && gs_field2-ref_field &&不存在或未激活.
2034           d_store_message.
2035         ENDIF.
2036       ELSE.
2037         l_msg = 附加字段:行 && l_tabix && ,字段 && gs_field2-fieldname && 的参照属性必须指定.
2038         d_store_message.
2039       ENDIF.
2040     ENDIF.
2041     IF gs_field2-qfieldname IS NOT INITIAL.
2042       READ TABLE lt_asfield WITH KEY fieldname = gs_field2-qfieldname BINARY SEARCH TRANSPORTING NO FIELDS.
2043       IF sy-subrc <> 0.
2044         l_msg = 附加字段:行 && l_tabix && ,字段 && gs_field2-fieldname && 的单位字段 && gs_field2-qfieldname &&不存在.
2045         d_store_message.
2046       ENDIF.
2047     ENDIF.
2048     IF gs_field2-cfieldname IS NOT INITIAL.
2049       READ TABLE lt_asfield WITH KEY fieldname = gs_field2-cfieldname BINARY SEARCH TRANSPORTING NO FIELDS.
2050       IF sy-subrc <> 0.
2051         l_msg = 附加字段:行 && l_tabix && ,字段 && gs_field2-fieldname && 的货币字段 && gs_field2-cfieldname &&不存在.
2052         d_store_message.
2053       ENDIF.
2054     ENDIF.
2055   ENDLOOP.
2056 
2057   IF g_flag_error = X.
2058     CALL FUNCTION MESSAGES_SHOW.
2059   ENDIF.
2060 ENDFORM.                    " CHECK
2061 *&---------------------------------------------------------------------*
2062 *&      Form  ALV_REFRESH_DISPLAY
2063 *&---------------------------------------------------------------------*
2064 *       text
2065 *----------------------------------------------------------------------*
2066 FORM alv_refresh_display .
2067   go_alv_tables->refresh_table_display( ).
2068   go_alv_joins->refresh_table_display( ).
2069   go_alv_fields1->refresh_table_display( ).
2070   go_alv_fields2->refresh_table_display( ).
2071 ENDFORM.                    " ALV_REFRESH_DISPLAY
2072 *&---------------------------------------------------------------------*
2073 *&      Form  check_field_exist
2074 *&---------------------------------------------------------------------*
2075 *       text
2076 *----------------------------------------------------------------------*
2077 FORM check_field_exist USING p_tabname TYPE tabname
2078                              p_fieldname TYPE fieldname
2079                        CHANGING p_flag TYPE c.
2080   DATA: l_fieldname TYPE fieldname.
2081 
2082   CLEAR p_flag.
2083   SELECT SINGLE fieldname INTO l_fieldname
2084     FROM dd03l
2085     WHERE tabname = p_tabname
2086       AND fieldname = p_fieldname
2087       AND as4local = A.
2088   CHECK sy-subrc <> 0.
2089   p_flag = X.
2090 ENDFORM.                    "check_field_exist
View Code

 

 

 

 

 

以上是关于ABAP-动态程序生成的主要内容,如果未能解决你的问题,请参考以下文章

为什麽要用ABAP动态内表

ABAP Memory Inspector 里对动态内存对象的内存消耗度量方式

ABAP-基于MEMORY动态传参

为啥我在写ABAP程序的时候不会自动生成关键字。 像我打DATA,只要打了D后面的就都会显示出来要怎么设置

abap 开发之创建表维护生成器

ABAP自动生成程序