按数据类型动态隐藏 ALV 列

Question

背景：我正在使用 cl_salv_table class 生成和修改 ALV。此 ALV 显示类型 zpm_et_qual_notif_s 的 table，其中每个偶数行都是类型 CHAR 长度 1 的分隔符字段，名称为 DELIM1、DELIM2...等等由于没有理由在 ALV 中显示定界符列，因此我想删除它们。

注意：我在标题中留下了 "ABAP Dictionary/Internal Structure" 泛型，因为无论我是从 ABAP 字典结构还是从中定义的内部 table 确定列数对我来说都无关紧要。

对我来说最简单的解决方案是拥有这 15 个语句，因为目前有 15 个分隔符字段：

lv_alv->get_columns( )->get_column( 'DELIM1' )->set_visible( if_salv_c_bool_sap=>false ).
lv_alv->get_columns( )->get_column( 'DELIM2' )->set_visible( if_salv_c_bool_sap=>false ).
lv_alv->get_columns( )->get_column( 'DELIM3' )->set_visible( if_salv_c_bool_sap=>false ).
lv_alv->get_columns( )->get_column( 'DELIM4' )->set_visible( if_salv_c_bool_sap=>false ).
lv_alv->get_columns( )->get_column( 'DELIM5' )->set_visible( if_salv_c_bool_sap=>false ).
...

问题在于，如果将新字段添加到 table，我的程序也必须更新。出于这个原因，并且这种方法需要很多几乎重复的行，我发现这是一个草率的解决方案。

我认为更简洁的解决方案是以如下方式动态设置所有分隔符列的可见性：

" Dynamically hide delimiter columns
DATA lv_idx TYPE syst_index VALUE 1.
WHILE lv_idx < 16. " Number of delimiters
    lv_alv->get_columns( )->get_column( |DELIM{ lv_idx }| )->set_visible( if_salv_c_bool_sap=>false ).
    lv_idx = lv_idx + 1.
ENDWHILE.

这很好，因为它是一个简单的解决方案并且引入了最少的开销。但是，我仍然有必须硬编码定界符列数的问题。一个理想的解决方案会让我这样做：

" Dynamically hide delimiter columns
DATA lv_idx TYPE syst_index VALUE 1.
WHILE lv_idx < ( columns( 'ZPM_ET_QUAL_NOTIF_S' ) / 2 ). " Number of delimiters
    lv_alv->get_columns( )->get_column( |DELIM{ lv_idx }| )->set_visible( if_salv_c_bool_sap=>false ).
    lv_idx = lv_idx + 1.
ENDWHILE.

...当然，这不是问题。

如何动态获取内部 table 或它所基于的 ABAP 字典结构的列数？当然有一些动态解决方案。为了自己解决这个问题，我开始尝试使用 cl_abap_structdescr 和 cl_abap_tabledescr，但没有得到任何实质性的结果。如果我的整个方法都不好，我很乐意table改变它以遵循好的做法。

Answer 1

以下代码片段确定数据字典结构或 table 的活动版本中的列数。

  SELECT COUNT( * ) INTO @DATA(num_cols)
                    FROM dd03l
                   WHERE tabname EQ @p_struct
                     AND as4local EQ 'A'. " Active

其他解决方案可以使用 RTTS framework 或使用 ASSIGN COMPONENT。

Answer 2

首先，我会用 set_technical 标记这些列，以防止它们被完全显示。 set_visible( abap_false ) 仅在 current/initial 显示中隐藏它们，但用户可以 select 显示这些可能会造成混淆的列。

然后，我可能会尝试通过它们的数据元素而不是它们的位置来区分这些列。（伪）代码，未经测试：

DATA(columns) = my_alv->get_columns( ).
DATA(column_list) = columns->get( ).
LOOP AT column_list ASSIGNING FIELD-SYMBOL(<column>).
  IF <column>-r_column->get_ddic_rollname( ) = 'Z_IRRELEVANT_DELIMITER'.
    <column>-r_column->set_technical( ).
  ENDIF.
ENDLOOP.

按数据类型动态隐藏 ALV 列

Dynamically hide ALV columns by data type

abap

alv