sql中写标量函数生成大写拼音首字母

USE [StockManageSystemV2]
GO
/****** Object:  UserDefinedFunction [dbo].[PinYin]    Script Date: 2016-08-07 11:19:20 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER FUNCTION [dbo].[PinYin] ( @STR NVARCHAR() )
RETURNS NVARCHAR()
AS
    BEGIN
        DECLARE    @INTLEN INT;
        DECLARE    @STRRET NVARCHAR();
        DECLARE    @TEMP NVARCHAR();
        SET @INTLEN = LEN(@STR);
        SET @STRRET = '';
        WHILE @INTLEN >
            BEGIN
                SET @TEMP = '';
                SELECT    @TEMP = CASE WHEN SUBSTRING(@STR, @INTLEN, ) >= '帀' THEN 'Z'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '丫' THEN 'Y'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '夕' THEN 'X'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '屲' THEN 'W'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '他' THEN 'T'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '仨' THEN 'S'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '呥' THEN 'R'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '七' THEN 'Q'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '妑' THEN 'P'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '噢' THEN 'O'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '拏' THEN 'N'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '嘸' THEN 'M'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '垃' THEN 'L'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '咔' THEN 'K'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '丌' THEN 'J'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '铪' THEN 'H'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '旮' THEN 'G'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '发' THEN 'F'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '妸' THEN 'E'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '咑' THEN 'D'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '嚓' THEN 'C'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '八' THEN 'B'
                                     WHEN SUBSTRING(@STR, @INTLEN, ) >= '吖' THEN 'A'
                                     ELSE RTRIM(LTRIM(SUBSTRING(@STR, @INTLEN, )))
                                END;
        --对于汉字特殊字符，不生成拼音码
                IF ( ASCII(@TEMP) >  )
                    SET @TEMP = '';
        --对于英文中小括号，不生成拼音码
                IF @TEMP = '('
                    OR @TEMP = ')'
                    SET @TEMP = '';
                SELECT    @STRRET = @TEMP + @STRRET;
                SET @INTLEN = @INTLEN - ;
            END;
        RETURN @STRRET;
    END;