动态计算（摘自COMPASS BUTTON）

来源：互联网发布：进销存软件系统设计编辑：程序博客网时间：2024/05/29 05:05

report ZDEMO_COMPILE.
data jj type i.
perform Dynamicformula using ' 900 + 7 % 3 ' jj.
write / jj.
perform Dynamicformula using ' 900 + ( 7 + 10 ) % 3 ' jj.
write / jj.
perform Dynamicformula using ' 900 * 30 + ( 7 + 10 ) % 3 ' jj.
write / jj.
*&---------------------------------------------------------------------*
*&      Form Dynamicformula
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->SOURCE     text
*      -->RE         text
*----------------------------------------------------------------------*
FORM Dynamicformula using formula type STRING
                    changing re type I.
data source type string.
data return_value type string.
data js_processor type ref to cl_java_script.
js_processor = cl_java_script=>create( ).
concatenate
    'result = '
    formula
     ';'
   into source.
RETURN_VALUE = js_processor->evaluate( source ).
re = RETURN_VALUE.
ENDFORM.                    "Dynamicformula

方法二

CALL FUNCTION 'EVAL_FORMULA'
EXPORTING
    FORMULA                       = ' ( 9 * 10 + ( 7 + 10 ) * 2 ) div 3 '
IMPORTING
   VALUE                         = jj
          .
write / jj.