商品条码的生成

最近客户要求在货品资料中生成商品条码(即EAN13,国际商品条码),虽然系统中有商品条码生成的工具,但是对不上号,根本无法使用,客户的货品资料已经有部分有条码,更重要的是客户要求生成商品条码的货品无法正常筛选出来(比如:GW开头,或者是GM开头,而且要求的是GW和GM后面全是数字的货品才要求生成),客户又急着用,没有办法的情况下,就自己动手写了一个小工具,虽然客户无法使用,但是对于维护客户的商品条码生成,确是相当的方便,现记录下,以便将来查看:
生成EAN13条码的SQL函数代码:
create function dbo.EAN13(@value varchar(13))
    returns varchar(13)
as
begin
    declare @s1 int ,@s2 int ,@s3 int
    declare @t table (id int identity(1,1),b bit)
    insert into @t(b)
       select top 13 1 from syscolumns
    set @value='0'+reverse(@value)
    select @s1=sum(cast(substring(@value,id,1) as int))
    from @t a
    where len(@value)>=id and id%2=0
    set @s1=@s1*3
    select @s2=sum(cast(substring(@value,id,1) as int))
    from @t a
    where len(@value)>=id and id>=3 and id%2=1
    set @s3=right(@s1+@s2,1)
return left(reverse(@value),12)+ltrim(10-case @s3 when '0' then '10' else @s3 end)
end
go
函数调用:
select dbo.ean13(694386035966) 返回值:6943860359663
在程序中执行时,可以手工写入SQL语句,这样,可以自由的提出要生成的货品资料,例如:
select code,name,standardcode from goods where (patindex('GW[0-9]%',Code)>0 or patindex('GM[0-9]%',Code)>0) and
(standardcode is  null)
动态的指定SQL语句,相当方便。

 

转载于:https://www.cnblogs.com/edrp/archive/2009/07/26/1645440.html

条码生成Function EAN13(BM As String ) Private BM Dimension EAN_code[10,3] EAN_code[1,1]='00000011110011' EAN_code[1,2]='00110000111111' EAN_code[1,3]='11111100001100' EAN_code[2,1]='00001111000011' EAN_code[2,2]='00111100001111' EAN_code[2,3]='11110000111100' EAN_code[3,1]='00001100001111' EAN_code[3,2]='00001111001111' EAN_code[3,3]='11110011110000' EAN_code[4,1]='00111111001100' EAN_code[4,2]='00001111110011' EAN_code[4,3]='11000000001100' EAN_code[5,1]='00110000001111' EAN_code[5,2]='00001111110011' EAN_code[5,3]='11001111110000' EAN_code[6,1]='00111100000011' EAN_code[6,2]='00111111000011' EAN_code[6,3]='11000011111100' EAN_code[7,1]='00110011111111' EAN_code[7,2]='00000011001111' EAN_code[7,3]='11001100000000' EAN_code[8,1]='00111111001111' EAN_code[8,2]='00001100000011' EAN_code[8,3]='11000000110000' EAN_code[9,1]='00111100111111' EAN_code[9,2]='00000011000011' EAN_code[9,3]='11000011000000' EAN_code[10,1]='00000011001111' EAN_code[10,2]='00001100111111' EAN_code[10,3]='11111100110000' Dimension EAN_left[10] EAN_left[1]='111111' EAN_left[2]='112122' EAN_left[3]='112212' EAN_left[4]='112221' EAN_left[5]='121122' EAN_left[6]='122112' EAN_left[7]='122211' EAN_left[8]='121212' EAN_left[9]='121221' EAN_left[10]='122121' Dimension EAN_mode[8] Store '' To EAN_mode If Len(Alltrim(BM))12 .And. Val(BM)>0 Messagebox('EAN-13编码长度不规范',268,'信息提示') Return '' Else EAN_mode[1]='000000000000000000' EAN_mode[2]='110011' For i=0 To 9 If Val(Substr(BM,1,1))=i For ii=1 To 6 BMZ=Val(Substr(BM,ii+1,1)) MODE=Val(Substr(EAN_left[i+1],ii,1)) EAN_mode[3]=EAN_mode[3]+EAN_code[BMZ+1,MODE] Endf Endi Endf
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值