ABAP SALV-隐藏列、修改列标题、添加图标列、调整列位置

于 2024-04-06 22:06:23 发布
阅读量728 收藏 3
点赞数 9
分类专栏： SAP ABAP 文章标签： 后端
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_33518131/article/details/137439604
版权

01 功能说明

上篇：ABAP SALV-选择模式、触发事件

本系列将通过模拟用户与开发者之间的对话场景，来逐步演示SALV的使用。在本篇中，我们将延续前文内容，解决用户最新提出的需求。

如果你已经 完成了前13步 ，那么你对整个SALV模型的功能应该有了全面的了解，这将为后续的学习和操作带来便利。细心的小伙伴可能已经注意到，我在每一步代码下都留下了省略号，这意味着除了已实现的功能外，我们还可以通过ALV控制对象来实现更多功能。

接下来，我们将探讨如何隐藏列、修改列标题、添加图标列以及调整列位置。
赶紧动手试一试，以便更好地掌握这些新的知识点。

02 功能效果

第14天 用户说：隐藏列、修改列标题

不显示集团列，起飞国家、到达国家列标题调整。

    IF p_day14 = 'X'.
      "列不可见、不可用
      lo_column ?= lo_columns->get_column( columnname = 'MANDT' ).
      lo_column->set_visible( 'X' ).    "不可见
      lo_column->set_technical( 'X' ).  "技术列（布局也不可见）

      "列标题修改
      lo_column ?= lo_columns->get_column( columnname = 'COUNTRYFR' ).
      lo_column->set_short_text( '起飞国家' ).
      lo_column->set_medium_text( '起飞国家' ).
      lo_column->set_long_text( '起飞国家' ).

      lo_column ?= lo_columns->get_column( columnname = 'COUNTRYTO' ).
      lo_column->set_short_text( '到达国家' ).
      lo_column->set_medium_text( '到达国家' ).
      lo_column->set_long_text( '到达国家' ).
    ENDIF.

在这里插入图片描述

第15天 用户说：图标列、调整列位置

新增序号列、图标列，要求：居中显示，并调整到第头2列进行显示。

    IF p_day15 = 'X'.
    "调整列位置
    lo_columns->set_column_position( columnname = 'SNUM' position = 1 ).
    lo_columns->set_column_position( columnname = 'ICON' position = 2 ).

    "取消关键列
    lo_column ?= lo_columns->get_column( columnname = 'CARRID' ).
    lo_column->set_key( '' ).
    lo_column ?= lo_columns->get_column( columnname = 'CONNID' ).
    lo_column->set_key( '' ).

    lo_column ?= lo_columns->get_column( columnname = 'SNUM' ).
    lo_column->set_short_text( '序号' ).
    lo_column->set_medium_text( '序号' ).
    lo_column->set_long_text( '序号' ).
    lo_column->set_alignment( if_salv_c_alignment=>centered ).

    lo_column ?= lo_columns->get_column( columnname = 'ICON' ).
    lo_column->set_short_text( '图标' ).
    lo_column->set_medium_text( '图标' ).
    lo_column->set_long_text( '图标' ).
    lo_column->set_icon( 'X' ).
    lo_column->set_alignment( if_salv_c_alignment=>centered ).

    LOOP AT gt_spfli INTO gs_spfli.
      gs_spfli-snum = sy-tabix.
      CASE sy-tabix.
        WHEN 1.
          gs_spfli-icon = '@5B@'.
        WHEN 2.
          gs_spfli-icon = '@5C@'.
        WHEN 3.
          gs_spfli-icon = '@5D@'.
        WHEN OTHERS.
      ENDCASE.
      MODIFY gt_spfli FROM gs_spfli.
    ENDLOOP.
  ENDIF.

在这里插入图片描述

03 源码分享

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(54) day01 .
SELECTION-SCREEN COMMENT 59(54) day14 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(54) day02 .
SELECTION-SCREEN COMMENT 59(54) day15 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(54) day03 .
SELECTION-SCREEN END OF LINE.
...
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t2.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_day01 AS CHECKBOX DEFAULT 'X' .             "01、基本展示
SELECTION-SCREEN COMMENT 03(54) c01 FOR FIELD p_day01.
PARAMETERS p_day14 AS CHECKBOX DEFAULT 'X' .             "14、功能：隐藏列、修改列标题
SELECTION-SCREEN COMMENT 59(54) c14 FOR FIELD p_day14 .
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_day02 AS CHECKBOX DEFAULT 'X' .             "02、外观设置
SELECTION-SCREEN COMMENT 03(54) c02 FOR FIELD p_day02.
PARAMETERS p_day15 AS CHECKBOX DEFAULT 'X' .             "15、功能：调整列位置、图标列
SELECTION-SCREEN COMMENT 59(54) c15 FOR FIELD p_day15 .
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_day03 AS CHECKBOX DEFAULT 'X' .             "03、列设置
SELECTION-SCREEN COMMENT 03(54) c03 FOR FIELD p_day03.
SELECTION-SCREEN END OF LINE.
...
SELECTION-SCREEN END OF BLOCK b2.

INITIALIZATION.
  sy-title = 'ABAP SALV演示程序-公众号（ABAP猿）'.
  t1 = '用户说'.
  t2 = '你来做'.

  day01 = '01、从表SPFLI获取数据，并进行基本展示。'.
  day02 = '02、能否修改下抬头标题文本，并斑马纹展示?'.
  day03 = '03、能否优化下列宽?'.
  ...
  day14 = '14、不显示集团列，起飞国家、到达国家列标题调整。'.
  day15 = '15、新增序号列、图标列，要求：居中显示，并调整到第头2列进行显示。'.

  c01 = '01、基本展示'.
  c02 = '02、外观设置'.
  c03 = '03、列设置'.
  ...
  c14 = '14、功能：隐藏列、修改列标题'.
  c15 = '15、功能：调整列位置、图标列'.

START-OF-SELECTION.
*------------------------------------*
  CHECK p_day01 EQ 'X'.

  TYPES:
   BEGIN OF gty_spfli_incl,
        snum TYPE i, 
        icon TYPE icon_d,
   END OF gty_spfli_incl.

  DATA:
   BEGIN OF gs_spfli.
          INCLUDE TYPE spfli.
          INCLUDE TYPE gty_spfli_incl.
  DATA:
   END OF gs_spfli,
    gt_spfli LIKE TABLE OF gs_spfli.
*  DATA gt_spfli TYPE TABLE OF spfli.
  SELECT * FROM spfli INTO TABLE gt_spfli UP TO 30 ROWS.

  DATA go_salv TYPE REF TO cl_salv_table.
  cl_salv_table=>factory(
   IMPORTING
     r_salv_table = go_salv
   CHANGING
     t_table      = gt_spfli ).
  ...
*------------------------------------*
  IF p_day02 EQ 'X'.
    DATA lo_display TYPE REF TO cl_salv_display_settings.

    lo_display = go_salv->get_display_settings( ).
    lo_display->set_list_header( 'ABAP SALV演示程序-公众号（ABAP猿）' ).
    lo_display->set_striped_pattern( 'X' ).
    ...
  ENDIF.
*------------------------------------*
  IF p_day03 EQ 'X'.
    DATA lo_columns TYPE REF TO cl_salv_columns_table .
    DATA lo_column TYPE REF TO cl_salv_column_table .

    lo_columns = go_salv->get_columns( ).
    lo_columns->set_optimize( 'X' ).
    ...
    IF p_day14 = 'X'.
      "列不可见、不可用
      lo_column ?= lo_columns->get_column( columnname = 'MANDT' ).
      lo_column->set_visible( 'X' ).    "不可见
      lo_column->set_technical( 'X' ).  "技术列（布局也不可见）

      "列标题修改
      lo_column ?= lo_columns->get_column( columnname = 'COUNTRYFR' ).
      lo_column->set_short_text( '起飞国家' ).
      lo_column->set_medium_text( '起飞国家' ).
      lo_column->set_long_text( '起飞国家' ).

      lo_column ?= lo_columns->get_column( columnname = 'COUNTRYTO' ).
      lo_column->set_short_text( '到达国家' ).
      lo_column->set_medium_text( '到达国家' ).
      lo_column->set_long_text( '到达国家' ).
    ENDIF.

    IF p_day15 = 'X'.
      "调整列位置
      lo_columns->set_column_position( columnname = 'SNUM' position = 1 ).
      lo_columns->set_column_position( columnname = 'ICON' position = 2 ).

      "取消关键列
      lo_column ?= lo_columns->get_column( columnname = 'CARRID' ).
      lo_column->set_key( '' ).
      lo_column ?= lo_columns->get_column( columnname = 'CONNID' ).
      lo_column->set_key( '' ).

      lo_column ?= lo_columns->get_column( columnname = 'SNUM' ).
      lo_column->set_short_text( '序号' ).
      lo_column->set_medium_text( '序号' ).
      lo_column->set_long_text( '序号' ).
      lo_column->set_alignment( if_salv_c_alignment=>centered ).

      lo_column ?= lo_columns->get_column( columnname = 'ICON' ).
      lo_column->set_short_text( '图标' ).
      lo_column->set_medium_text( '图标' ).
      lo_column->set_long_text( '图标' ).
      lo_column->set_icon( 'X' ).
      lo_column->set_alignment( if_salv_c_alignment=>centered ).

      LOOP AT gt_spfli INTO gs_spfli.
        gs_spfli-snum = sy-tabix.
        CASE sy-tabix.
          WHEN 1.
            gs_spfli-icon = '@5B@'.
          WHEN 2.
            gs_spfli-icon = '@5C@'.
          WHEN 3.
            gs_spfli-icon = '@5D@'.
          WHEN OTHERS.
        ENDCASE.
        MODIFY gt_spfli FROM gs_spfli.
      ENDLOOP.
    ENDIF.
  ENDIF.
*------------------------------------*
  ...
*------------------------------------*
  go_salv->display( ).

小贴士：

  • 可使用BC_DATA_GEN生成数据，以便查看演示效果；
  • 以上纯属个人总结，如有纰漏请联系我；

以上是今日分享，希望对你有所帮助~~

04 关注我

更多干货请扫码关注微信公众号：ABAP猿
在这里插入图片描述

ABAP（猿）
关注
  • 9
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
abap_alv去掉标准按钮
02-22
abap_alv去掉标准按钮。。
SAP-ABAP-OO-实现-CL-SALV-TABLE
09-06
SAP-ABAP-OO-实现-CL-SALV-TABLE
ABAP - SALV教程10 添加可编辑checkbox列
最新发布
HeathlX的博客
03-03 1000
【代码】ABAP - SALV教程10 添加可编辑checkbox列。
ALV 动态显示和隐藏列
Joker's blog
11-07 4031
最近有个需求，需要在ALV上点个按钮隐藏和显示隐藏列(初始化的时候是隐藏的，点个按钮显示，再点一下隐藏在点显示) GRID ALV 1、首先是初始化隐藏列，这个很简单，FIELDCAT-NO_OUT = ‘X’. 2、在刷新的时候，需要使用oo的刷新和fieldcat从新刷一遍就OK了 ` &-------------------------------------------------...
动态隐藏ALV的行和列
少年休闲海
05-04 5533
本例和行列例程转换不同，内表结构是固定的，仅仅是通过ALV的fieldcat和Filter来隐藏/显示ALV的行和列   列： FORM changefield .   LOOP AT gt_fieldcat INTO gs_fieldcat .     gs_fieldcat-no_out = ''.     IF gs_fieldcat-fieldname = 'KOSTL' .
表控制Table Control设置某列隐藏
Buffalo_soldier的博客
11-25 816
表控制是ABAP开发中经常用到的技术，它的字段控制相比ALV更加灵活，适用于一些复杂的应用场景，例如ME23N采购订单的信息显示。 如果对表控制中的某一列字段进行隐藏，我们首先想到的肯定是LOOP SCREEN, 然后设置字段属性ACTIVE=0，可惜这个方法对表控制不奏效。 正确的做法是：修改表控制中COLS的字段可见长度属性。我写了一点简单的代码来测试。 未修改字段属性前，共有3个字段 通过修改表控制中COLS的字段属性隐藏列EBELN，在PBO增加处理MODULE 具体代码如下： MODULE
【abap】屏幕dynpro隐藏列、隐藏单元格的方法
weixin_45426739的博客
10-19 1195
在POB上的上述位置加module，隐藏单元格加在Loop循环里，隐藏列放在循环后面。 具体代码如下，通过修改sceen控制显示隐藏单元格，修改table control控制显示隐藏列。 MODULE check_expand OUTPUT. * 只有展开上层不隐藏按钮 IF wa_out-rsnum NE '' AND wa_out-rspos = ''. LOOP AT SCREEN. IF screen-name = 'WA_OUT-EXPAND'.
html表头隐藏对应列隐藏显示_ALV GRID多行表头合并列合并行
weixin_35725389的博客
12-24 367
作者：TiezhuLi(网名)声明：本文章仅代表原作者观点，仅用于SAP软件的应用与学习，不代表SAP公司和本微信公众号。注：文中所示截图来源SAP软件，相应著作权归SAP所有。在项目中，客户经常有这样的EXCEL表格给到我们，如下：可以看到，EXCEL的表头行，有几列属于同一组，会合并产生了两行表头，这样其他不需要分组的需要两行表头合并。但是SAP系统的ALV GRID，却是这样的：A...
abap-advent-2020:abap-advent-2020
04-19
abap-advent-2020-template 2020的-ABAP模板让我们用困难的方式做吧！ 通过在运行的ABAP先决条件已安装NodeJS 12 无需ABAP系统但是，要使ABAP在Node中运行需要大量的耐心，这将涉及对javascript和打字稿代码的调试！...
ABAP-Swagger:使用Swaggeropenapi规范公开ABAP REST服务
05-18
昂首阔步公开ABAP REST服务的方法用法1：使用公共方法在ABAP中开发课程2：实现接口ZIF_SWAG_HANDLER，并注册公共方法（示例 ） 3：现在可以通过rest访问这些方法（） 4：可以通过REST服务的基本目录中的swagger.html...
ALV LIST列头合并实例
06-22
ALV LIST列头合并实例
ABAP-Library:有用的ABAP代码段
05-29
ABAP库 该存储库代表我的个人可重用ABAP代码库。 随意使用或贡献！ 为了组织起见，文件位于干净的子文件夹中。 这里的许多类还表示示例实现。 这些文件都不包含任何公司特定的功能逻辑-因此没有“机密”被泄露。 ...
ALV动态隐藏显示列
qq_40223617的博客
08-18 460
ALV动态显示列
【实用】ALV 清单右击隐藏列失效的处理
少年休闲海
09-24 862
ALV OO中右击显示列进行隐藏列处理，但是右击后发现无效，该如何处理？ 其实问题出在创建“ALVgridcontainer”这里。 问题代码： "Create ALV grid container PERFORM CREATE_GRID_CONTAINER USING GV_CONT_BODY GV_GRID ABAP_TRUE. *&--------------------------------------------------------------------...
ABAP学习笔记之——第十二章：SALV
yishangbing的博客
12-09 2524
SALV 可以像利用函数生成 ALV 的不用创建屏幕就可以调用的全屏式ALV，还可以利用控制器在屏幕的控制器中显示 ALV。SALV 与现有的方法 (Function ALV) 相比，为了方便以接口的方式提供更整合及细微的功能，但是 SALV 不提供编辑功能。可以在弹出窗口下显示 SALV，可以通过 set_screen _popup 方法实现，但利用控制器的方法中是无法使用的。利用 GR_TABLE 的GET_SORT 方法与负责排序的 ALV 对象链接通过 ADD_SORT 方法追加要排序的字段。
ABAP - SALV教程06 - 列的设置(隐藏、修改、优化列宽)
HeathlX的博客
03-03 1048
【代码】ABAP - SALV教程06 - 列的设置(隐藏、修改、优化列宽)
ABAP--如何将REUSE_ALV_GRID_DISPLAY的题头自适应居中显示
少年休闲海
08-13 2177
最近有个网友的用户需要将REUSE_ALV_GRID_DISPLAY的题头居中显示，我看看了SAP的代码，发现时可以实现的。 REUSE_ALV_GRID_DISPLAY的题头原理和机制 SAP的REUSE_ALV_GRID_DISPLAY的题头实际上一个简易的HTML浏
SAP FUNCTION ALV、SALV开发总结
魏晋俗人的博客
03-10 2014
主要介绍了SAP 报表的几种实现方式以及思路，后续还会有补充
abap enhancement-section 修改
10-21
ABAP Enhancement-Section是一种ABAP语言中的扩展机制，它允许我们在SAP标准程序中进行修改和增强。通过使用ABAP Enhancement-Section，我们可以在标准程序的不同部分插入自定义代码，以满足特定的业务需求。 ABAP Enhancement-Section的使用步骤如下： 1. 找到要修改或增强的SAP标准程序。 2. 使用ABAP Developer Tools或ABAP Workbench打开该程序。 3. 在程序中找到适合插入自定义代码的位置。 4. 在找到的位置上创建一个新的ABAP Enhancement-Section。 5. 给这个新的ABAP Enhancement-Section起一个合适的名字。 6. 在ABAP Enhancement-Section中编写自定义的代码，实现对标准程序的修改或增强。 7. 保存所有的修改并激活程序。 ABAP Enhancement-Section的优点在于它能够实现定制化的扩展，而无需对SAP标准程序进行修改。这样一来，在升级或修补SAP系统时，我们的修改不会丢失或被覆盖。同时，ABAP Enhancement-Section还能提高代码的可读性和可维护性，因为我们的自定义代码与标准代码分离，易于理解和调试。 ABAP Enhancement-Section支持多种类型的扩展，如隐式增强（Implicit Enhancement）和显示增强（Explicit Enhancement）。隐式增强是指在标准程序中创建一个新的ABAP Enhancement-Section并插入自定义代码。显示增强是指通过在标准程序中用特定的注释标记出扩展点，然后在自定义代码中引用这些扩展点。 总而言之，ABAP Enhancement-Section是一种非常有用的扩展机制，可以帮助我们在SAP标准程序中实现修改和增强，同时保持程序的稳定性和可升级性。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值