ABAP 检查单位允许小数…

原文地址：ABAP 检查单位允许小数点位数 作者：Lemon

函数:CO_R0_CHECK_DECIMAL_POINT

单位和小数点之间的对应关系是在系统中配置的  

事务代码CUNI 选择一个单位 双击进入 红色是允许的小数点位数

参考代码:

DATA :l_menge  TYPE mseg -menge ,
          l_meins  TYPE mseg -meins ,
          l_mess  TYPE string .

l_meins  =  'ST' .
l_menge  =  '123.123' .
*    *    "检查 输入数量和单位允许小数点位数
CALL  FUNCTION  'CO_R0_CHECK_DECIMAL_POINT'
    EXPORTING
        i_quantity  = l_menge
        i_unit          = l_meins
    EXCEPTIONS
        wrong_data  =  1
        OTHERS      =  2 .
IF sy -subrc  <>  0 .
    CALL  FUNCTION  'MESSAGE_TEXT_BUILD'
        EXPORTING
            msgid                              = sy -msgid
            msgnr                              = sy -msgno
            msgv1                              = sy -msgv1
            msgv2                              = sy -msgv2
            msgv3                              = sy -msgv3
            msgv4                              = sy -msgv4
        IMPORTING
            message_text_output  = l_mess .

    MESSAGE l_mess  TYPE  'E' .
ENDIF .