幣別數值顯示(例：JPY，數據庫讀出是100，需要轉10000)

FORM CONVERT_RADIX_POINT USING F_MONEY
                               F_CURRENCY.

  DATA: S_MONEY LIKE WMTO_S-AMOUNT,
        I_MONEY LIKE WMTO_S-AMOUNT,
        I_CURRENCY LIKE TCURC-WAERS.

  MOVE:  0 TO S_MONEY,
        F_MONEY TO I_MONEY,
        F_CURRENCY TO I_CURRENCY.

  CALL FUNCTION 'CURRENCY_AMOUNT_SAP_TO_DISPLAY'
      EXPORTING
         CURRENCY                = I_CURRENCY
         AMOUNT_INTERNAL         = I_MONEY
      IMPORTING
         AMOUNT_DISPLAY          = S_MONEY
      EXCEPTIONS
         INTERNAL_ERROR          =  1
         OTHERS                  =  2.

  IF S_MONEY <> 0.
    F_MONEY = S_MONEY.
  ENDIF.

ENDFORM.