ABAP使用FOR搭配REDUCE求和时如何避免金额自动舍入

问题根因 #

自动舍入问题由两个类型推导相关的原因导致：

• REDUCE初始化语句init x = 0默认将变量x推导为整数类型I，运算过程中会自动舍入小数部分
• 若返回类型tslxx9的小数位长度小于源字段wa-zzamount的小数位长度，赋值时也会触发自动舍入

解决方案 #

方案1：显式指定初始化变量类型，避免默认类型推导 #

直接在REDUCE初始化时声明变量类型和返回类型一致，从根源避免整数运算舍入：

DATA(lv_total_sum) = REDUCE tslxx9( 
      INIT x TYPE tslxx9 VALUE 0 " 显式指定类型，不会再被默认推导为整数
      FOR wa IN lt_table
      NEXT x = x + wa-zzamount ).

方案2：使用高精度类型做中间计算，完全避免中间舍入 #

如果需要最高精度，或者源字段小数位比目标返回类型长，可以先用DECFLOAT34做中间累加，最后再按需转换为目标类型，还可以自定义舍入规则：

" 高精度中间累加，无任何中间舍入
DATA(lv_tmp_sum) = REDUCE decfloat34(
      INIT x TYPE decfloat34 VALUE 0
      FOR wa IN lt_table
      NEXT x = x + wa-zzamount ).

" 最后转换为目标类型，可自主选择舍入规则
" 不需要舍入可使用ROUND_OFF直接截断，需要四舍五入用ROUND_HALF_UP
lv_total_sum = CONV tslxx9( lv_tmp_sum ROUND_MODE = ROUND_OFF ).

注意事项 #

• 提前确认源字段wa-zzamount的实际小数位长度，保证累加过程中使用的类型小数位≥源字段小数位，避免精度丢失
• ABAP数值运算中只要有一个参与运算的变量为整数类型，就会触发整数运算逻辑，所有涉及小数的运算都建议显式声明变量类型

内容的提问来源于stack exchange，提问作者AbapDesign4Future