SAP ALV & 导出 Excel 负号前置「实例」

前言

业务场景

• 报表程序在不做任何修改的情况下，ALV 中金额字段的数据 - 负号将会显示在右侧

• 对于用户而言，他们希望实现 ALV 中金额字段的负号在左侧，提升可读性

• 并且还要让导出到 EXCEL 的数据也要做到这一点

---

概览

• 开发 负责处理「负号前置」的转换例程函数
• 调用例程实现 ALV 中的金额数据 负号前置
• 参照指定字段实现导出到 EXCEL 后的金额数据 负号前置

---

例程函数

函数名称

SE37 或者「SE80 在当前模块 Package 下」创建 函数组 & 函数模块

函数组名称 按照公司开发规范来即可：

e.g. 函数组：ZFI01

关于自开发的 转换例程函数 名称，SAP 系统规范格式按照：CONVERSION_EXIT_XXXX_OUTPUT 命名

e.g. 函数模块：CONVERSION_EXIT_ZSIGN_OUTPUT

---

参数

如下为 导入导出 参数：INPUT & OUTPUT

---

源代码

FUNCTION conversion_exit_zsign_output.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(INPUT)
*"  EXPORTING
*"     REFERENCE(OUTPUT)
*"----------------------------------------------------------------------

*&--- 金额 负号前置 转换例程
  DATA: output1(20) TYPE c,
        output2(20),
        outsign TYPE p DECIMALS 2.

  IF input IS NOT INITIAL.
    outsign = input.

    IF input > 0.
      WRITE outsign TO output1 .
    ELSE.
      outsign = outsign * ( -1 ).
      WRITE outsign TO output1 .
      CONCATENATE '-' output1 INTO output1.
    ENDIF.
  ELSE.
    CLEAR output1.
  ENDIF.

  CONDENSE output1 NO-GAPS .
  WRITE output1 TO output2 RIGHT-JUSTIFIED .
  
  output = output2.

ENDFUNCTION.

---

程序调用

Macro 宏定义 区域 添加参数：

gs_fieldcat-edit_mask = &7.

然后在 调用 宏的位置，对于「需要负号前置的字段」，配置参数：'==ZSIGN'

至此 ALV 金额字段数据 负号前置 功能已经实现，如下图所示：

---

EXCEL 前置

Macro 宏定义中将「需要 负号前置 的字段」参照其 对应单位字段

gs_fieldcat-qfieldname  = &6.  " 参照计量单位的字段名称

e.g. 已记一般折旧 ANLC-NAFAG 需要参照 WAERS 字段

Macro 宏定义 区域 添加参数：

Macro 调用位置配置如图所示：

测试 ALV 导出到 Excel 结果，如下图所示：

---

至此，还需要将 WAERS 字段 添加到「内表参照的结构」中，否则当我们对 ALV 中参照了 WAERS 的字段进行「SUM / 合计」操作时，程序会由于 ITAB_ILLEGAL_COMPONENT 而发生 DUMP

• 记得我刚开始学习 ALV 时，想要实现获取选中行功能，那么就需要 box / sel 一个 CHAR 类型字段辅助存储，但由于 sel 没有在结构中引入，继而引发程序异常~
• 所以关于这一点要格外注意，形成习惯！

代码示例如下：

*&--- 主表数据 / Master Table Data
TYPES:BEGIN OF ty_data,
		...,
		waers TYPE t093b-waers, " 单位字段
      END OF ty_data.

---

补充

关于为什么不使用 SAP 提供的标准函数：CLOI_PUT_SIGN_IN_FRONT ？

• 若处理字段多的情况下，还需额外的 LOOP 循环处理
• 函数 IV_VALUE 只接收 C 类型，换言之排序 / 合计等标准数据处理功能都将无效（如果想解决，那么还需要自己手工封装函数完成转换逻辑）
• etc.
• 因此该函数在「当前开发场景下」不做考虑

---

参考文章

• SAP ALV 负号前置