ABAP-金额小写转大写
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-金额小写转大写的更多相关文章
- 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 ...
- JS函数实现金额小写转大写
///<summery>小写金额转化大写金额</summery> function AmountLtoU(amount) { if (isNaN(amount) || amou ...
- js 金额小写转换为大写
<script> jQuery(document).ready(function () { //当金额文本框失去焦点时,自动将数字转化为大写填充到 大写的文本框中 $("#Amo ...
- ABAP 金额转换成大写
FUNCTION zzfi_change_amount.*"---------------------------------------------------------------- ...
- Python TIPS上一道关于人民币金额小写转大写的题
人民币金额打印 题目链接:here.我发现我写的好复杂,但万幸编码还算符合人类,看了其他答案,感觉都是天书. #!/usr/bin/env python # -*- coding: utf-8 -*- ...
- orcl数据库自定义函数--金额小写转大写
很多时候在打印票据的时候需要用到大写,ireport无法转换,只能先在查询语句里面进行转换,首先定义好函数,之后再调用函数 CREATE OR REPLACE Function MoneyToChin ...
- js实现金额小写转大写
function convertCurrency(currencyDigits) { var MAXIMUM_NUMBER = 1000000000000.00; var CN_ZERO = &quo ...
- js转换人民币金额 小写到大写
u.bigNum=function(n) { var fraction = ['角', '分']; var digit = ['零', '壹', '贰', '叁', '肆', '伍', '陆', '柒 ...
- C#小写数字金额转换成大写人民币金额的算法
C#小写数字金额转换成大写人民币金额的算法 第一种方法: using System.Text.RegularExpressions;//首先引入命名空间 private string DaXie(st ...
随机推荐
- Swift 学习笔记十五:扩展
扩展就是向一个已有的类.结构体或枚举类型加入新功能(functionality).扩展和 Objective-C 中的分类(categories)相似.(只是与Objective-C不同的是,Swif ...
- 捷报 FastAdmin 国内开源排名第 13 名
捷报 FastAdmin 国内开源排名第 13 名 FastAdmin 是一款基于 ThinkPHP 5 + Bootstrap 的后台开源框架. 去年是第 35 名. 今年是第 13 名,有进步.
- 【转】每天一个linux命令(31): /etc/group文件详解
原文网址:http://www.cnblogs.com/peida/archive/2012/12/05/2802419.html Linux /etc/group文件与/etc/passwd和/et ...
- DBLinq (MySQL exactly) Linq To MySql
http://blog.csdn.net/feihu_guest/article/details/7346948 DBLinq (MySQL exactly) Linq To MySql http:/ ...
- php webservice实例(转载)
首先大家要简单了解了何谓webservice,接下来就做两个非常简单的例子,webservice还是逃不开server端(服务器端) 与client端(客户端) . 做这个测试之前,要确认你的php配 ...
- Sublime Text 3 最新可用注册码(免破解)
12年的时候分享过Sublime Text 2的注册码和破解方法.4年后容我更新一下Sublime Text 3的注册码.. 最好还是购买正版主持版权.:D. 以下两枚注册码用最新的Sublime T ...
- ESXI服务器的四个网口负载均衡
什么是NIC Team(负载均衡) NIC Team其实就是将多个物理网卡同时分配到相同的端口/端口组,目的是为了实现带宽聚合,负载均衡以及故障转移 配置NIC Team 一.选择一台ESXi主机,打 ...
- 数据读取速度达1.5G/s,UFS 2.1存储技术曝光
目前最快的是苹果NVME,当然UFS2.1也不差 iPhone6s与iPhone6s Plus在硬件的规格上有了很大的提升,但是它们身上的变化远没有苹果在发布会上所提到的A9处理器.1200万摄像头以 ...
- 超链接中 utm_source, utm_medium 等参数的含义是什么?
作者:张溪梦 Simon链接:https://www.zhihu.com/question/48724061/answer/122730629来源:知乎著作权归作者所有.商业转载请联系作者获得授权,非 ...
- echo off
就是说关闭回显 @echo off并不是DOS程序中的,而是DOS批处理中的.当年的DOS,所有操作都用键盘命令来完成,当你每次都要输入相同的命令时,可以把这么多命令存为一个批处理,从此以后,只要运行 ...