[转载]ABAP 检查单位允许小数点位数_SAP刘梦_新浪博客

作者：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 .