ALV FIELDCAT添加属性 – REUSE_ALV_FIELDCATALOG_MERGE函数

在 ALV 定义 Fieldcat 的时候，我们往往需要通过 slis_fieldcat_alv 的赋值给Fieldcat导入结构。

如上篇文章中给出的例子：

01 02 03 04 05 06 07 08 09 10 11 12 13

DATA : wa_fieldcat  TYPE slis_fieldcat_alv ,           i_fieldcat   TYPE slis_t_fieldcat_alv ,          i_layout     TYPE slis_layout_alv.   wa_fieldcat-tabname     =  'I_TAB' . wa_fieldcat-fieldname   =  'MATNR' .        " 需要输出的内表的字段名 wa_fieldcat-seltext_l   =  'Material NO.' . " 字段的描述-长字段标签 wa_fieldcat-seltext_m   =  'Material NO.' . " 字段描述-中字段标签 wa_fieldcat-seltext_s   =  'Material NO.' . " 字段描述-短字段标签 wa_fieldcat-fix_column  =  'X' .           " 是否是固定列   APPEND wa_fieldcat  TO i_fieldcat. CLEAR  wa_fieldcat.

 

上面的例子中，只给 fieldcat 中增加了一行记录，即 ALV 只输出一列数据；

如若我们需要输出的 ALV 字段非常多，比如50个字段（会有这种需求）；

这时候，就会重复操作同样的赋值语句，这只会增加我们的开发量，没法提高效率；

如果开发中又需要对一些字段做属性修改，又需要对相应的 Fieldcat 字段添加属性，这又是一个烦躁的过程；

 

一般这种情况下，可以通过两种方法解决上面的问题。

一种是通过定义宏，来为Fieldcat 赋值；

一种是通过REUSE_ALV_FIENDCATALOG_MERGE函数为Fieldcat赋值。

或者是两种方法结合。

1. 宏定义

宏定义的操作较为简单，不做详细说明，这里直接给出示例：

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

DATA : gw_fieldcat_print  TYPE lvc_s_fcat,        gt_fieldcat_print  TYPE lvc_t_fcat.   * 定义宏 DEFINE def_fieldcat_print.      clear gw_fieldcat_print.      gw_fieldcat_print-fieldname = &1. "字段名称    gw_fieldcat_print-ref_table = &2. "参考内表    gw_fieldcat_print-reptext   = &3. "字段名称    gw_fieldcat_print-coltext   = &3. "字段名称    gw_fieldcat_print-scrtext_l = &3. "长文本    gw_fieldcat_print-scrtext_m = &3. "中文本    gw_fieldcat_print-scrtext_s = &3. "短文本    gw_fieldcat_print-no_zero   = &4. "去零显示    gw_fieldcat_print-edit      = &5. "编辑    gw_fieldcat_print-outputlen = &6. "字段输出长度    gw_fieldcat_print-checkbox  = &7. "以复选框形式输出    gw_fieldcat_print-do_sum    = &8. "小计      append gw_fieldcat_print  to gt_fieldcat_print.   END - OF - DEFINITION .   * 定义宏 def_fieldcat_print  'CHECK' '' '选择'       ''  'X' '10' 'X' '' . def_fieldcat_print  'KDAUF' '' '订单号'     'X' ''  '10' ''  '' . def_fieldcat_print  'KDPOS' '' '行项目号'   ''  ''  '6'  ''  '' . def_fieldcat_print  'WERKS' '' '工厂'       ''  ''  '6'  ''  '' . def_fieldcat_print  'AUFNR' '' '生产工单号' 'X' ''  '10' ''  '' .

 

2. REUSE_ALV_FIENDCATALOG_MERGE函数

REUSE_ALV_FIENDCATALOG_MERGE函数可以根据现有的内表结构返回FIELDCAT字段结构信息；

其中包括数据字典中的结构、透明表、视图，自定义的Add-On表、结构、视图；

也包括程序中定义的全局、局部结构、内表。

 

REUSE_ALV_FIENDCATALOG_MERGE 函数的输入输出参数：

1) Import参数：

I_PROGRAM_NAME：程序名称

I_INTERNAL_TABNAME：内表名称，必须为输出内表的自定义STRUCTURE

I_STRUCTURE_NAME：结构名称，直接参考数据字典中的透明表、视图或STRUCTURE

I_CLIENT_NEVER_DISPLAY：显示Client字段

I_INCLNAME：Include 名称

 

2) Changing参数：

CT_FIELDCAT：导出的Fieldcat结构信息

 

这里需要注意的是，I_INTERNAL_TABNAME 与 I_STRUCTURE_NAME 参数只需一项。

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

DATA : BEGIN OF gt_out,  "输出表       machine(5)  TYPE n,       ton(5)  TYPE n,    END OF gt_out.   DATA ：i_fieldcat   TYPE slis_t_fieldcat_alv.   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'    EXPORTING      i_program_name         = sy-repid      i_internal_tabname     =  'GT_OUT' *    i_structure_name       = 'GT_OUT'      i_inclname             = sy-repid    CHANGING      ct_fieldcat            = i_fieldcat[]    EXCEPTIONS      inconsistent_interface = 1      program_error          = 2      OTHERS                 = 3.   IF sy-subrc <> 0.    MESSAGE ID sy-msgid  TYPE sy-msgty  NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF .

 

从上面的程序可以看出，在定义内表结构时，使用了 Data 关键字来定义内表结构；

有时候，也会习惯于用TYPES关键字定义内表结构；但在这里，如若用Types定义结构时，该函数则会取不到任何相关的信息：

reuse_alv_fieldcatalog_merge

 

然后，还要注意的一点是，由于REUSE_ALV_FIELDCATALOG_MERGE 函数中导出的Fieldcat结构为slis_t_fieldcat_alv；

故该函数只能和 REUSE_ALV_GRID_DISPLAY 函数一起使用，不能用于 REUSE_ALV_GRID_DISPLAY_LVC 函数。

必须需要使用REUSE_ALV_GRID_DISPLAY_LVC 函数的，则可以通过前面讲到的定义宏来为Fieldcat提交相关信息。

 

下面给出一个示例：

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94

DATA : BEGIN OF gt_out  OCCURS 0,  "输出表       machine(5)  TYPE n,         "机台       ton(5)  TYPE n,             "吨位       extwg  LIKE mara-extwg,     "客户       zeinr  LIKE mara-zeinr,     "机种       matnr  LIKE mara-matnr,     "内部品番       maktx  LIKE makt-maktx,     "外部品番       vgw04  LIKE afvv-vgw04,     "周期       bmsch(16)  TYPE n,          "取数       ngrad  LIKE kako-ngrad,     "收率       abili(7)   TYPE p,         "日生产能力       kpcs01(7)  TYPE p   DECIMALS 3,         "产量       days01(5)  TYPE p   DECIMALS 2,         "生产天数       work01(2)  TYPE n,                     "工作天数       acti01  LIKE konv-kbetr,               "稼动率 END OF gt_out.   * ALV 定义 TYPE - POOLS :slis.   DATA : g_repid  LIKE sy-repid,        gt_fieldcat  TYPE slis_t_fieldcat_alv  WITH HEADER LINE ,        gt_layout    TYPE slis_layout_alv.   DEFINE modify_fieldcat1.      READ TABLE gt_fieldcat  INDEX &1.    gt_fieldcat-seltext_m  = &2.    gt_fieldcat-ddictxt    =  'M' .    MODIFY gt_fieldcat  INDEX &1.   END - OF - DEFINITION .     DATA :lv_index  LIKE sy-tabix,       lv_text  TYPE scrtext_m.   g_repid = sy-repid.   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'    EXPORTING      i_program_name         = g_repid      i_internal_tabname     =  'GT_OUT'      i_inclname             = g_repid    CHANGING      ct_fieldcat            = gt_fieldcat[]    EXCEPTIONS      inconsistent_interface = 1      program_error          = 2      OTHERS                 = 3.   IF sy-subrc <> 0.    MESSAGE ID sy-msgid  TYPE sy-msgty  NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF .       modify_fieldcat1: 1   '机台' ,                    2   '吨位' ,                    3   '客户' ,                    4   '机种' ,                    5   '内部品番' ,                    6   '外部品番' ,                    7   '周期' ,                    8   '取数' ,                    9   '收率' ,                    10  '日生产能力' .     READ TABLE gt_fieldcat  INDEX 8. gt_fieldcat-no_zero  =  'X' . MODIFY gt_fieldcat  INDEX 8.     gt_layout-colwidth_optimize =  'X' .   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'    EXPORTING      i_callback_program = g_repid      is_layout          = gt_layout      it_fieldcat        = gt_fieldcat[]      i_save             =  'X'    TABLES      t_outtab           = gt_out    EXCEPTIONS      program_error      = 1      OTHERS             = 2.   IF sy-subrc <> 0.    MESSAGE ID sy-msgid  TYPE sy-msgty  NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF .