在 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.
|