sap自建abap函数实现金额转化成大写

FUNCTION zfi_translate.
*"----------------------------------------------------------------------
*"*"本地接口:
*"       IMPORTING
*"             VALUE(ZNETWR) LIKE  VBRP-NETWR
*"       EXPORTING
*"             VALUE(ZTEXT) LIKE  SKAT-TXT50
*"----------------------------------------------------------------------

  DATA: m_curr(15) .
  DATA: m_char(6) .
  DATA: m_chare(1) .
  DATA: m_len TYPE i .
  DATA: m_lenn TYPE i .
  DATA: m_count TYPE i .
  CLEAR: m_text , ztext .
  WRITE znetwr TO m_curr DECIMALS 2
                         USING EDIT MASK 'RRV_________.__' .
  CONDENSE m_curr .
  m_len = strlen( m_curr ) .
  m_lenn = m_len .
  m_count = 0 .
  DO m_len TIMES .
    m_count = m_count + 1 .
    m_lenn = m_lenn - 1 .
    m_chare = m_curr+m_lenn(1) .
    CASE m_chare.
      WHEN '0' .
        m_char = '零' .
      WHEN '1' .
        m_char = '壹' .
      WHEN '2' .
        m_char = '贰' .
      WHEN '3' .
        m_char = '叁' .
      WHEN '4' .
        m_char = '肆' .
      WHEN '5' .
        m_char = '伍' .
      WHEN '6' .
        m_char = '陆' .
      WHEN '7' .
        m_char = '柒' .
      WHEN '8' .
        m_char = '捌' .
      WHEN '9' .
        m_char = '玖' .
      WHEN '-' .
        m_char = '(负)' .
    ENDCASE .
    IF m_char NE '(负)' AND m_char NE space .
      CASE m_count .
        WHEN '1' .
          CONCATENATE m_char '分' INTO m_char .
        WHEN '2' .
          CONCATENATE m_char '角' INTO m_char .
        WHEN '4' .
          CONCATENATE m_char '圆' INTO m_char .
        WHEN '5' OR '9' .
          CONCATENATE m_char '拾' INTO m_char .
        WHEN '6' OR '10'.
          CONCATENATE m_char '佰' INTO m_char .
        WHEN '7' OR '11' .
          CONCATENATE m_char '仟' INTO m_char .
        WHEN '8' .
          CONCATENATE m_char '万' INTO m_char .
        WHEN '12' .
          CONCATENATE m_char '亿' INTO m_char .
      ENDCASE .
    ENDIF.
    CONCATENATE m_char m_text INTO m_text .
    CONDENSE m_text .
    CLEAR m_char .
  ENDDO .

  ztext = m_text .
*PERFORM sub_translate .

ENDFUNCTION.