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.