前言
业务场景
- 报表程序在不做任何修改的情况下,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.
- 因此该函数在「当前开发场景下」不做考虑