ABAP中将字符格式的金额转换为数值的函数

正文部分

函数名：UNITS_STRING_CONVERT


作用：根据当前用户的金额显示方式,将带有分隔符的金额(字符型)转换为P类型的数值。例如：将“1,000.123”转换为 1000.123
(我一开始的时候是用replace将逗号替换掉,然后直接赋值给一个数值型的变量.但是通用性不太好)


先说说sap的数字显示的三种方式:


1. 小数点是逗号，分隔符是句号  N.NNN,NN(欧洲人的方式很奇怪:))     


2.小数点是句号，分隔符是逗号 N,NNN.NN 


3.小数点是逗号，分隔符是空格 N NNN,NN


系统以哪种方式显示,存储在用户表USR01的DCPFM字段,值分别是"空" 、“X”、“Y”。


调用函数的时候将这个字段将作为其中的一个输入参数.函数会根据当前显示转换.


例如:

DATA: l_clabs TYPE p DECIMALS 3,
          l_dcpfm LIKE usr01-dcpfm.




SELECT SINGLE dcpfm INTO l_dcpfm
      FROM usr01
      WHERE bname = sy-uname.


CALL 


FUNCTION 'UNITS_STRING_CONVERT'
  EXPORTING
    units_string       = '123,456.789'
    dcpfm              = l_dcpfm      "此时为X
*     MLLN               = 'M'
*     TSND               = 'T'
  IMPORTING
    units              = l_clabs
  EXCEPTIONS
    invalid_type       = 1
    OTHERS             = 2.

 

点击进入：ABAP中将字符格式的金额转换为数值的函数