create function p_check_txm_xlw (@txm char(13))
returns char(13)
as
begin
--传入 13位条形码(eg: 1234567890123)
计算 条码校验位 ,输出1 则校验位正确,0,不正确
if left(@txm,1)='2'
return 1
if len(rtrim(@txm))<=7
return 1
declare @i integer
declare @jyw integer
declare @k integer
declare @ls_mid char(1)
set @jyw=''
set @i=len(rtrim(@txm))
set @k=len(rtrim(@txm))
while @i >0
begin
set @i =@i -1
set @ls_mid=substring(@txm,@i,1)
if (@k - @i +1 )%2=0
select @jyw = 3* cast(@ls_mid as integer) + @jyw
else
select @jyw = cast(@ls_mid as integer) + @jyw
end
set @jyw= (10 - @jyw%10)%10
return substring(rtrim(@txm),1,12) + rtrim(ltrim(str(@jyw)))
end
SQL 计算条码校验位,输出1 则校验位正确,0,不正确
最新推荐文章于 2020-06-02 11:56:21 发布