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.