FUNCTION ZSDI0007_CH_LOWERTOUPPER.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(I_JE) TYPE  DMBTR
*"  EXPORTING
*"     VALUE(E_JE) TYPE  CHAR50
*"---------------------------------------------------------------------- *&---------------------------------------------------------------------*
**RFC name: ZSDI0007_CH_LOWERTOUPPER
**Description: 金额小写转大写
**Date/Author: 2013.08.06/rico
**Program Logic:
**1.call function 'SPELL_AMOUNT'
***********************************************************************
** M O D I F I C A T I O N  L O G
***********************************************************************
** ChangeDate  Programmer   Request         Description
** ==========  ==========   ============   ============================
** 2013-08-06   rico        DEVK900071     Created
*&---------------------------------------------------------------------* data:s_zs type spell,
     s_j  type spell,
     s_f  type spell,
     v_nu type char30,
     v_zs type char30,
     v_xs type char30,
     v_j  type char30,
     v_f  type char30.   v_nu = i_je.   split v_nu at '.' into v_zs v_xs.
  v_j = v_xs().
  v_f = v_xs+(). if v_zs <> '' .
   call function 'SPELL_AMOUNT'
     exporting
       language = ''   "sy-langu
       currency = sy-waers
       amount   = v_zs
       filler   = ' '
     importing
       in_words = s_zs.
endif. call function 'SPELL_AMOUNT'
  exporting
    language = ''   "sy-langu
    currency = sy-waers
    amount   = v_j
    filler   = ' '
  importing
    in_words = s_j. if v_f <> '' .
   call function 'SPELL_AMOUNT'
     exporting
       language = ''   "sy-langu
       currency = sy-waers
       amount   = v_f
       filler   = ' '
     importing
       in_words = s_f.
endif. if s_j-word = '零' and s_f is initial .          "如果没有小数位数 如 11.00
   concatenate s_zs-word '元整' into e_je.
elseif s_zs is initial .                        "如果没有证书位 如 0.10 0.01 0.11
   if s_j-word <> '零' .
      concatenate s_j-word '角' into e_je .
   endif.
   if s_f is not initial.
      concatenate e_je s_f-word '分' into e_je.
   endif.
else.                                           "如果整数小数位都有 如 11.01  11.10 11.11
   concatenate s_zs-word '元' into e_je.    if s_j-word = '零' and s_f is not initial .
      concatenate e_je s_j-word into e_je.
   else.
      concatenate e_je s_j-word '角' into e_je .
   endif.    if s_f is not initial .
      concatenate e_je s_f-word '分' into e_je.
   endif. endif. ENDFUNCTION.

ABAP-金额小写转大写的更多相关文章

  1. js helper(hsv/hsb转rgb颜色,uuid,金额小写转大写)

    hsv/hsb转rgb颜色 //h:[0,360],s:[0,100],v:[0,100] //return r:[0,256], g:[0,256],b:[0,256] function hsvto ...

  2. JS函数实现金额小写转大写

    ///<summery>小写金额转化大写金额</summery> function AmountLtoU(amount) { if (isNaN(amount) || amou ...

  3. js 金额小写转换为大写

    <script> jQuery(document).ready(function () { //当金额文本框失去焦点时,自动将数字转化为大写填充到 大写的文本框中 $("#Amo ...

  4. ABAP 金额转换成大写

     FUNCTION zzfi_change_amount.*"---------------------------------------------------------------- ...

  5. Python TIPS上一道关于人民币金额小写转大写的题

    人民币金额打印 题目链接:here.我发现我写的好复杂,但万幸编码还算符合人类,看了其他答案,感觉都是天书. #!/usr/bin/env python # -*- coding: utf-8 -*- ...

  6. orcl数据库自定义函数--金额小写转大写

    很多时候在打印票据的时候需要用到大写,ireport无法转换,只能先在查询语句里面进行转换,首先定义好函数,之后再调用函数 CREATE OR REPLACE Function MoneyToChin ...

  7. js实现金额小写转大写

    function convertCurrency(currencyDigits) { var MAXIMUM_NUMBER = 1000000000000.00; var CN_ZERO = &quo ...

  8. js转换人民币金额 小写到大写

    u.bigNum=function(n) { var fraction = ['角', '分']; var digit = ['零', '壹', '贰', '叁', '肆', '伍', '陆', '柒 ...

  9. C#小写数字金额转换成大写人民币金额的算法

    C#小写数字金额转换成大写人民币金额的算法 第一种方法: using System.Text.RegularExpressions;//首先引入命名空间 private string DaXie(st ...

随机推荐

  1. Swift 学习笔记十五:扩展

    扩展就是向一个已有的类.结构体或枚举类型加入新功能(functionality).扩展和 Objective-C 中的分类(categories)相似.(只是与Objective-C不同的是,Swif ...

  2. 捷报 FastAdmin 国内开源排名第 13 名

    捷报 FastAdmin 国内开源排名第 13 名 FastAdmin 是一款基于 ThinkPHP 5 + Bootstrap 的后台开源框架. 去年是第 35 名. 今年是第 13 名,有进步.

  3. 【转】每天一个linux命令(31): /etc/group文件详解

    原文网址:http://www.cnblogs.com/peida/archive/2012/12/05/2802419.html Linux /etc/group文件与/etc/passwd和/et ...

  4. DBLinq (MySQL exactly) Linq To MySql

    http://blog.csdn.net/feihu_guest/article/details/7346948 DBLinq (MySQL exactly) Linq To MySql http:/ ...

  5. php webservice实例(转载)

    首先大家要简单了解了何谓webservice,接下来就做两个非常简单的例子,webservice还是逃不开server端(服务器端) 与client端(客户端) . 做这个测试之前,要确认你的php配 ...

  6. Sublime Text 3 最新可用注册码(免破解)

    12年的时候分享过Sublime Text 2的注册码和破解方法.4年后容我更新一下Sublime Text 3的注册码.. 最好还是购买正版主持版权.:D. 以下两枚注册码用最新的Sublime T ...

  7. ESXI服务器的四个网口负载均衡

    什么是NIC Team(负载均衡) NIC Team其实就是将多个物理网卡同时分配到相同的端口/端口组,目的是为了实现带宽聚合,负载均衡以及故障转移 配置NIC Team 一.选择一台ESXi主机,打 ...

  8. 数据读取速度达1.5G/s,UFS 2.1存储技术曝光

    目前最快的是苹果NVME,当然UFS2.1也不差 iPhone6s与iPhone6s Plus在硬件的规格上有了很大的提升,但是它们身上的变化远没有苹果在发布会上所提到的A9处理器.1200万摄像头以 ...

  9. 超链接中 utm_source, utm_medium 等参数的含义是什么?

    作者:张溪梦 Simon链接:https://www.zhihu.com/question/48724061/answer/122730629来源:知乎著作权归作者所有.商业转载请联系作者获得授权,非 ...

  10. echo off

    就是说关闭回显 @echo off并不是DOS程序中的,而是DOS批处理中的.当年的DOS,所有操作都用键盘命令来完成,当你每次都要输入相同的命令时,可以把这么多命令存为一个批处理,从此以后,只要运行 ...