应用场景
用户使用车间看板时经常会对物料进行检索。若使用物料名称检索,则操作系统自带虚拟键盘输入比较麻烦,用时较长;而使用物料编码,则用户往往难以记忆。因此由 物料名称拼音首字母 形成的助记码便产生了作用。
同时为了减少用户在维护物料主数据时的字段数量,SAP B1根据物料名称 通过后台存储或前台格搜自动填充物料助记码字段,
设计思路
由于在HANA 1.0 FRO B1版本中未找到其自带的相关函数或字符集表,因此需要自己定义,两种设计方法如下:
- 构建数据表调用:
将所有汉字通过其他程序生成拼音,将其汉字及对应拼音作为原始数据在SAP B1中建表,以供调用。由于前期比较麻烦,所以没有使用。 - 构造方法调用:
找到一个按照拼音排序编码的字符集,通过逻辑判断,将特定编码区段内的汉字 赋值为其相对应的拼音字母。
引用HANA函数
- STRTOBIN:将字符串中所有字符转换为 特定字符集对应的区位编码。STRTOBIN('字符串','字符集')。
- LEAST:将行多个参数值中的最小值返回;LEAST('参数1','参数2',...,'参数n')。
- GREATEST:将行多个参数值中的最大值返回;GREATEST('参数1','参数2',...,'参数n')。
- UPPER:将传递的字符串中的所有字符转换为大写;UPPER('字符串')。
参考代码如下
CREATE FUNCTION GETHZPY
(
in str varchar(300)
)
RETURNS
c NVARCHAR(300)
LANGUAGE SQLSCRIPT
SQL SECURITY INVOKER
AS
chh NVARCHAR(300);
chn NVARCHAR(300);
chs NVARCHAR(300);
BEGIN
c:='';
WHILE (LENGTH(str)>0) DO
--依次取单个字符 GB2312 区位编码,
chh := LEFT(str,1);
chn := STRTOBIN(LEFT(str,1),'GB2312') ;
--汉字字符,返回字符对应首字母,非汉字字符,返回原字符
IF(Least(chn,'B0A1')='B0A1' AND Greatest(chn,'D7F9')='D7F9')
THEN
select
case when Least(chn,'B0A1') = 'B0A1' then
(
case when Greatest(chn,'B0C4') = 'B0C4' then 'A'
else case when Greatest(chn,'B2C0') = 'B2C0' then 'B'
else case when Greatest(chn,'B4ED') = 'B4ED' then 'C'
else case when Greatest(chn,'B6E9') = 'B6E9' then 'D'
else case when Greatest(chn,'B7A1') = 'B7A1' then 'E'
else case when Greatest(chn,'B8C0') = 'B8C0' then 'F'
else case when Greatest(chn,'B9FD') = 'B9FD' then 'G'
else case when Greatest(chn,'BBF6') = 'BBF6' then 'H'
else case when Greatest(chn,'BFA5') = 'BFA5' then 'J'
else case when Greatest(chn,'C0AB') = 'C0AB' then 'K'
else case when Greatest(chn,'C2E7') = 'C2E7' then 'L'
else case when Greatest(chn,'C4C2') = 'C4C2' then 'M'
else case when Greatest(chn,'C5B5') = 'C5B5' then 'N'
else case when Greatest(chn,'C5BD') = 'C5BD' then 'O'
else case when Greatest(chn,'C6D9') = 'C6D9' then 'P'
else case when Greatest(chn,'C8BA') = 'C8BA' then 'Q'
else case when Greatest(chn,'C8F5') = 'C8F5' then 'R'
else case when Greatest(chn,'CBF9') = 'CBF9' then 'S'
else case when Greatest(chn,'CDD9') = 'CDD9' then 'T'
else case when Greatest(chn,'CEF4') = 'CEF4' then 'W'
else case when Greatest(chn,'D1B8') = 'D1B8' then 'X'
else case when Greatest(chn,'D4D0') = 'D4D0' then 'Y'
else 'Z'
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end )
else ' ' end
INTO chs FROM DUMMY;
ELSE
chs:=UPPER(chh);
END IF;
str:=RIGHT(str,LENGTH(str)-1);
c:=c||chs ;
END WHILE;
END;
设计缺陷
由于未找到HANA自带的字符集,因此只能使用GB2312字符集做逻辑判断。GB2312中常用汉字按照拼音依次排序,生僻汉字单独无序排序,因此在函数处理时,若涉及到这些生僻汉字的,依然输出原汉字。
设计扩展
自定义获取汉字拼音的函数