金额小写转大写

CREATE PROCEDURE [dbo].[TranNumberToBigForDecrypt]
(
    @n_LowerMoney numeric(15,2),
    @v_TransType int,
    @RET VARCHAR(200) output
)
--with ENCRYPTION
AS
/**********************************
descript:解密exec sp_decrypt 'TranNumberToBig'
*/

Declare @v_LowerStr VARCHAR(200) -- 小写金额 
Declare @v_UpperPart VARCHAR(200) 
Declare @v_UpperStr VARCHAR(200) -- 大写金额
Declare @startstr varchar(30) --点号前面的部分
Declare @endstr varchar(30) --点号后面部分
Declare @i_I int,@idx int,@e_I int,@i int
Declare @end_Upper varchar(100),@end_Part varchar(100)

select @v_LowerStr = LTRIM(RTRIM(convert(varchar(30),@n_LowerMoney))) --变成字符串并删除数据左右空格

--if(charindex('.',@v_LowerStr)>0)

begin
    set @idx=charindex('.',@v_LowerStr)
    set @startstr=substring(@v_LowerStr,1,@idx-1)
    --print @v_LowerStr
    select @i_I = 1
    select @v_UpperStr = ''
    
    while ( @i_I <= len(@startstr))
    begin
        select @v_UpperPart = case substring(@startstr,len(@startstr) - @i_I + 1,1)
        WHEN '.' THEN ''
        WHEN '0' THEN '零'
        WHEN '1' THEN '壹'
        WHEN '2' THEN '贰'
        WHEN '3' THEN '叁'
        WHEN '4' THEN '肆'
        WHEN '5' THEN '伍'
        WHEN '6' THEN '陆'
        WHEN '7' THEN '柒'
        WHEN '8' THEN '捌'
        WHEN '9' THEN '玖'
        END
        + 
        case @i_I
        WHEN 1 THEN ''
        WHEN 2 THEN '拾'
        WHEN 3 THEN '佰'
        WHEN 4 THEN '仟'
        WHEN 5 THEN '万'
        WHEN 6 THEN '拾'
        WHEN 7 THEN '佰'
        WHEN 8 THEN '仟'
        WHEN 9 THEN '亿'
        WHEN 10 THEN '拾'
        WHEN 11 THEN '佰'
        WHEN 12 THEN '仟'
        WHEN 13 THEN '万'
        ELSE ''
            END
    select @v_UpperStr = @v_UpperPart + @v_UpperStr
    select @i_I = @i_I + 1
        end

    --if ( @v_TransType=0 )
    --begin
        --print @v_UpperStr
        select @v_UpperStr = REPLACE(@v_UpperStr,'零佰零拾','零')
        select @v_UpperStr = REPLACE(@v_UpperStr,'零仟','')
                select @v_UpperStr = REPLACE(@v_UpperStr,'零佰','')
        select @v_UpperStr = REPLACE(@v_UpperStr,'零拾','零')
        select @v_UpperStr = REPLACE(@v_UpperStr,'拾零','拾')
        select @v_UpperStr = REPLACE(@v_UpperStr,'零零','')
    --end
        
        select @endstr=LTRIM(RTRIM(substring(@v_LowerStr,@idx,len(@v_LowerStr)-@idx+1)))
        
        select @e_I=1
        select @end_Part=''
        select @end_Upper=''
        while(@e_I<=len(@endstr))
        begin
             select @end_Part=case substring(@endstr,@e_I,1)
                WHEN '.' THEN '点'
        WHEN '0' THEN '零'
        WHEN '1' THEN '壹'
        WHEN '2' THEN '贰'
        WHEN '3' THEN '叁'
        WHEN '4' THEN '肆'
        WHEN '5' THEN '伍'
        WHEN '6' THEN '陆'
        WHEN '7' THEN '柒'
        WHEN '8' THEN '捌'
        WHEN '9' THEN '玖'
        END
             select @end_Upper=@end_Upper+@end_Part
             select @e_I=@e_I+1
        end
        set @i=len(@end_Upper)
        while(@i>0)
        begin
            if(right(@end_Upper,1)='零' or right(@end_Upper,1)='点')
         begin
         select @end_Upper=left(@end_Upper,@i-1)
         select @i=@i-1
         end
           else
        break
        end
   --select @Part=@v_UpperStr+@end_Upper
   
   select @ret=@v_UpperStr+@end_Upper
 
end

GO