了解 ALV 中的 field catalog (ABAP List Viewer)

在 ABAP 中,字段目录是使用 ALV (ABAP List Viewer) 定义内部表中的数据显示方式的关键元素。它提供对 ALV 中显示的字段的各种属性的控制,例如列标题、对齐方式、可见性、可编辑性等。关键概念:

Field Catelog 字段目录:这是一个表(对于现代 ALV 网格,通常为 lvc_t_fcat 类型,对于旧 ALV 网格,通常为 slis_t_fieldcat_alv),其中包含有关 ALV 中显示的内部表的每个字段的元数据。

它定义了每列的显示方式(例如,列标题、字段对齐方式、输出长度)。

创建字段目录:您可以手动定义字段目录,也可以使用 LVC_FIELDCATALOG_MERGE 等功能模块根据数据字典结构 (DDIC) 自动创建一个字段目录。生成目录后,您可以对其进行修改以调整字段属性。

Field catalog

全局结构类型的所有字段都以相同的名称出现在数据表中。现在需要对字典结构进行更改或显示额外的列。

在这种情况下,我们可以调用函数模块 ( LVC_FIELDCATALOG_MERGE ),该模块将字典结构的字段目录返回到 lvc_t_fcat 类型的表。

现在我们可以循环它并可以进行我们想要的任何更改。

  1. 不支持 REUSE_*ALV* 功能模块。我建议切换到 CL_SALV_* 类。文档更好,有更多的示例程序 (DEMO_SALV_*),您可以获得支持。
  2. 如果你想获得基于字典的字段描述 (duh),你需要一个字典结构。如果您使用 在 ABAP 级别组装结构类型 TYPE ... BEGIN OF ... END OF ... ,据我所知,各个字段的字典类型首先转换为 ABAP 类型,然后才组装成结构类型。无论如何,原始字段的字典引用会丢失。不要在代码中定义输出表的结构,而是使用字典结构。

结构 slis_fieldcat_alv 提供了几种不同的文本组件,这些组件用作列标签。选择的文本取决于当前列宽(这通常取决于显示的数据的长度)。确保你相应地更改它们!

通常的技术是:通过传递 I_STRUCTURE_NAME,您可以获得与此 DDIC 结构(更改参数 ct_fieldcat)对应的字段目录。然后,您可以根据需要修改此内部表,并将修改后的表传递给 REUSE_ALV_GRID_DISPLAY

在我不区分不同大小的文本版本的情况下,我使用以下宏将所有文本字段设置为相同的值。

  • define set_field
ABAP 复制代码
data:
  lt_fcat type lvc_t_fcat.
data:
  tabname type ref to data,
  tabline type ref to data.

field-symbols:
  <gt> type standard table,
  <gs> type any.

call function 'LVC_FIELDCATALOG_MERGE'
  exporting
    i_structure_name = 'DDIC_STRUCTURE'
  changing
    ct_fieldcat = lt_fcat
  exceptions
    inconsistent_interface = 1
    program_error = 2
    others = 3.

    " Creating table
    call method cl_alv_table_create=>create_dynamic_table
      exporting
        it_fieldcatalog = lt_fcat
      importing
        ep_table = tabname.

assign tabname->* to <gt>.
create data tabline like line of <gt>.
assign tabline->* to <gs>.

示例代码:

ABAP 复制代码
Report zalv. 
DATA: t_fcat TYPE lvc_t_fcat. " INTERNAL TABLE
FIELD-SYMBOLS:  TYPE lvc_s_fcat.


  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'SFLIGHT'
    CHANGING
      ct_fieldcat            = t_fcat
    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.

  LOOP AT t_fcat ASSIGNING .
    CASE -fieldname .
      WHEN 'PLANETYPE'.
        -coltext = 'PLANE'.
      WHEN 'SEATSMAX'.
        -no_out = 'X'.
    ENDCASE.
  ENDLOOP.
ABAP 复制代码
REPORT zalv.
TYPES:
  BEGIN OF stu,
    carrid TYPE sflight-carrid,
    connid TYPE sflight-connid,
    fldate TYPE sflight-fldate,
    w_check,
  END OF stu.
DATA:
  fs_itab TYPE stu,                 " INTERNAL TABLE
  t_itab LIKE TABLE OF fs_itab.     " WORK AREA
DATA:
  r_grid TYPE REF TO cl_gui_alv_grid,
  r_container TYPE REF TO cl_gui_custom_container.
DATA:
  t_fcat TYPE lvc_t_fcat,
  wa_fcat TYPE lvc_s_fcat.
SELECT carrid connid fldate FROM
sflight INTO CORRESPONDING FIELDS OF TABLE t_itab.
CALL SCREEN 100.
*&---------------------------------------------------------------------
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SCREEN'.
  SET TITLEBAR 'TITLE'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------
*text
*--------------------------------------------------------------------
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------
*& Module SET_HANDLER OUTPUT
*&-------------------------------------------------------------------
*text
*----------------------------------------------------------------------
MODULE set_handler OUTPUT.
  CREATE OBJECT r_container
    EXPORTING
      container_name = 'CONTAINER'.
  CREATE OBJECT r_grid
    EXPORTING
      i_parent = r_container.
*POPULATING THE FIELD CATALOG.
  wa_fcat-fieldname = 'W_CHECK'.
  wa_fcat-coltext = 'CHECK'.
  wa_fcat-checkbox = 'X'.
  wa_fcat-edit = 'X'.
  wa_fcat-col_pos = 1.
  APPEND wa_fcat TO t_fcat.
  CLEAR wa_fcat.
  wa_fcat-fieldname = 'CARRID'.
  wa_fcat-ref_table = 'SFLIGHT'.
  wa_fcat-ref_field = 'CARRID'.
  wa_fcat-col_pos = 2.
  APPEND wa_fcat TO t_fcat.
  CLEAR wa_fcat.
  wa_fcat-fieldname = 'CONNID'.
  wa_fcat-ref_table = 'SFLIGHT'.
  wa_fcat-ref_field = 'CONNID'.
  wa_fcat-col_pos = 3.
  APPEND wa_fcat TO t_fcat.
  CLEAR wa_fcat.
  CALL METHOD r_grid->set_table_for_first_display
    CHANGING
      it_fieldcatalog = t_fcat
      it_outtab       = t_itab.
ENDMODULE. " SET_HANDLER OUTPUT
复制代码
REPORT zalv.
TYPES:
  BEGIN OF stu,
    carrid TYPE sflight-carrid,
    connid TYPE sflight-connid,
    fldate TYPE sflight-fldate,
    w_check,
  END OF stu.
DATA:
fs_itab TYPE stu,                 " INTERNAL TABLE
t_itab LIKE TABLE OF fs_itab.     " WORK AREA
DATA:
r_grid TYPE REF TO cl_gui_alv_grid,
r_container TYPE REF TO cl_gui_custom_container.
DATA:
t_fcat TYPE lvc_t_fcat,
wa_fcat TYPE lvc_s_fcat.
SELECT carrid connid fldate FROM
sflight INTO CORRESPONDING FIELDS OF TABLE t_itab.
CALL SCREEN 100.
*&---------------------------------------------------------------------
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SCREEN'.
  SET TITLEBAR 'TITLE'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------
*text
*--------------------------------------------------------------------
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------
*& Module SET_HANDLER OUTPUT
*&-------------------------------------------------------------------
*text
*----------------------------------------------------------------------
MODULE set_handler OUTPUT.
  CREATE OBJECT r_container
    EXPORTING
      container_name = 'CONTAINER'.
  CREATE OBJECT r_grid
    EXPORTING
      i_parent = r_container.
*POPULATING THE FIELD CATALOG.
  wa_fcat-fieldname = 'W_CHECK'.
  wa_fcat-coltext = 'CHECK'.
  wa_fcat-checkbox = 'X'.
  wa_fcat-edit = 'X'.
  wa_fcat-col_pos = 1.
  APPEND wa_fcat TO t_fcat.
  CLEAR wa_fcat.
  wa_fcat-fieldname = 'CARRID'.
  wa_fcat-ref_table = 'SFLIGHT'.
  wa_fcat-ref_field = 'CARRID'.
  wa_fcat-col_pos = 2.
  APPEND wa_fcat TO t_fcat.
  CLEAR wa_fcat.
  wa_fcat-fieldname = 'CONNID'.
  wa_fcat-ref_table = 'SFLIGHT'.
  wa_fcat-ref_field = 'CONNID'.
  wa_fcat-col_pos = 3.
  APPEND wa_fcat TO t_fcat.
  CLEAR wa_fcat.
  CALL METHOD r_grid->set_table_for_first_display
    CHANGING
      it_fieldcatalog = t_fcat
      it_outtab       = t_itab.
ENDMODULE. " SET_HANDLER OUTPUT

参考链接

相关推荐
不二狗几秒前
每日算法 -【Swift 算法】实现回文数判断!
开发语言·算法·swift
csdn_aspnet1 小时前
Java 程序求圆弧段的面积(Program to find area of a Circular Segment)
java·开发语言
进击的_鹏3 小时前
【C++】红黑树的实现
开发语言·c++
无心水3 小时前
【后端高阶面经:MongoDB篇】41、MongoDB 是怎么做到高可用的?
java·开发语言·mongodb·java面试·高可用·后端高阶面经·后端工程师的高阶面经
无心水3 小时前
【后端高阶面经:MongoDB篇】40、怎么优化MongoDB的查询性能?
java·开发语言·mongodb·java面试·后端高阶面经·后端工程师的高阶面经·java高阶面经
信息化未来3 小时前
python 生成复杂表格,自动分页等功能
开发语言·数据结构·python
程序猿阿伟3 小时前
《深入Python:新手易踩的语法雷区与进阶启示》
开发语言·python
gb42152873 小时前
更新时间相差8个小时
java·开发语言
橙子199110163 小时前
说说 Kotlin 中的 Any 与 Java 中的 Object 有何异同?
java·开发语言·kotlin
码农捻旧4 小时前
JavaScript 性能优化按层次逐步分析
开发语言·前端·javascript·性能优化