没有小数位的货币在数据库中的保存（不理解，测试）

REPORT  z_barry_test NO STANDARD PAGE HEADING .
TABLES resb.
DATA: amount_in LIKE bapicurr-bapicurr ,
      amount_ex LIKE bapicurr-bapicurr .

SELECT * FROM resb UP TO 100 ROWS WHERE waers = 'TWD'.
  amount_in = resb-gpreis.
  CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_EXTERNAL'
    EXPORTING
      currency        = resb-waers
      amount_internal = amount_in
    IMPORTING
      amount_external = amount_ex.
  WRITE: / resb-gpreis,amount_ex,resb-waers.
ENDSELECT.