Free BarCode128 SQL编码

CREATE   FUNCTION StringToBarcode
 (@Value Varchar(50)   )
RETURNS NVarchar(100)
AS
BEGIN
 Declare @charCount int
 Declare  @charPos int, @minCharPos int
 declare @currentChar int, @checksum int
   Declare @isTableB int,@isValid int
   Declare @returnValue NVarchar(100)
 
 set @isTableB=1
 set @isValid=1
 set @returnValue=''
 if Len(@Value)>0
 BEGIN
  set @charCount=1
  while @charCount<=Len(@Value)
  BEGIN
   SET @currentChar = ASCII(Substring(@value,@charCount, 1))
   IF NOT (@currentChar>=32 AND @currentChar<=126)
   BEGIN
    SET @isValid=0
    break
   END
   SET @charCount=@charCount+1
  END
  if @isValid=1
  BEGIN
   SET @charPos=1
   WHILE @charPos<=LEN(@value)
   BEGIN
    if @isTableB=1
    BEGIN
     --See if interesting to switch to table C
               --yes for 4 digits at start or end, else if 6 digits
     IF @charPos=1 or @charPos+3=Len(@Value)
      SET @minCharPos=4
     ELSE
      SET @minCharPos=6
     SET @minCharPos=dbo.IsNumber(@Value,@charPos, @minCharPos)
     if @minCharPos<0
     BEGIN
      --Choice table C
      IF @charPos=1
       --Starting with table C
       SET @returnValue=Nchar(205)
     &nbs