ABAP小写金额转大写

FUNCTION ZFUC_NUMERIC_TO_CHINESE .
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(IV_MONEY) TYPE  BF_DMBTR
*"  EXPORTING
*"     VALUE(EV_MONEY) TYPE  STRING
*"  EXCEPTIONS
*"      WRONG_MONEY
*"----------------------------------------------------------------------
  IV_MONEY = ABS ( IV_MONEY ) .
   DATA : SCR ( 30 ) TYPE C , RES ( 60 ) TYPE C ,FEN ( 2 ) TYPE C .
   DATA : LEN TYPE I , C1 TYPE I , C2 TYPE I , C3 TYPE I , C4 TYPE I .
   DATA : D1 ( 1 ) TYPE C , D2 ( 1 ) TYPE C , D3 TYPE I .
   DATA : DIGIT ( 2 )   TYPE C , WEIGHT ( 2 ) TYPE C .
   DATA : RULE1 ( 20 ) TYPE C VALUE '零壹贰叁肆伍陆柒捌玖' .
   DATA : RULE2 ( 30 ) TYPE C VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万' .
  SCR = IV_MONEY * 100 .
   CONDENSE SCR NO -GAPS .
   IF SCR = '0' .
    RES = '零元' .
   ELSE .
    LEN = STRLEN ( SCR ) .
    C1 = 0 .
    D1 = '0' .
     CLEAR RES .
     DO LEN TIMES .
      C1 = C1 + 1 .
      C2 = LEN - C1 .
      D2 = SCR+C2 ( 1 ) .
       IF D2 = '0' .
        D3 = 0 .
       ELSE .
        D3 = D2 .
       ENDIF .
      DIGIT = RULE1+D3 ( 1 ) .
      C3 = ( C1 - 1 ) .
      WEIGHT = RULE2+C3 ( 1 ) .
       IF D2 = '0' .
         IF C1 = 3 .
          DIGIT = '' .
         ELSEIF C1 = 7 .
          DIGIT = '' .
           IF LEN > 10 .
            C4 = LEN - 10 .
             IF SCR+C4 ( 4 ) = '0000' .
              WEIGHT = '' .
             ENDIF .
           ENDIF .
         ELSEIF C1 = 11 .
          DIGIT = '' .
         ELSEIF D1 = '0' .
          DIGIT = '' .
          WEIGHT = '' .
         ELSE .
          WEIGHT = '' .
         ENDIF .
       ENDIF .
       CONCATENATE DIGIT WEIGHT RES INTO RES .
      D1 = D2 .
     ENDDO .
   ENDIF .
  LEN = STRLEN ( RES ) - 1 .
  FEN = RES+LEN ( 1 ) .
   IF FEN <> '分' .
     CONCATENATE RES '整' INTO EV_MONEY .
   ELSE .
    EV_MONEY = RES .
   ENDIF .

ENDFUNCTION .

ABAP小写金额转大写相关推荐

SQL人民币小写金额转大写
--1.人民币小写金额转大写(第一版) ==================================================================== -- Title: 人 ...
人民币小写金额转大写
-- ==================================================================== -- Title: 人民币小写金额转大写 -- Auth ...
JQ实现小写金额转大写
JQ代码如下: <script>//小写金额转大写function num_change(money) {//汉字的数字var cnNums = new Array('零', '壹', ' ...
JS人民币小写金额转换为大写(没毛病)
/** * 人民币小写金额转换为大写 */ export const digitUppercase = (n) => {let fraction = ['角', '分'] let digit = ...
(转)人民币小写金额转大写(SQL)
以下转自 http://www.qeqoo.com/dev/database/dbms/3216.html -- =========================================== ...
oracle人民币转大写,Oracle 小写金额转换为大写
在开发EBS的合同报表打印的时候需要将小写金额转换为大写. 如下是本人自己写的转换函数. 主要思路:先获取小数点位置,在区分整数与小数点处理,根据位数和数字组合读取金额. 最后再处理特殊显示部分. / ...
【叶子函数分享十八】人民币小写金额转大写
--1.人民币小写金额转大写(第一版) ==================================================================== -- Title: 人 ...
Java小写金额转换大写与金额比对（支持繁体大写金额）
package com.gerrard.pmc.util;import java.util.HashMap; import java.util.Map;import org.apache.common ...
js实现小写金额转大写
公共方法: /** 小写金额转大写金额 */dealBigMoney(n) {if (!/^(0|[1-9]\d*)(\.\d+)?$/.test(n)) { return '数据非法' }let u ...

ABAP小写金额转大写

ABAP小写金额转大写相关推荐

最新文章

热门文章