create PROCEDURE BARTOTXT ( @chaine varchar(13))
as

declare @i integer
declare @first integer
declare @checksum integer
declare @CodeBarre varchar (25) 
declare @tableA integer

begin

set @CodeBarre = ''
set @checksum = 0

set @i = 2
while (@i<13) 
begin
  set @checksum = @checksum + CAST(substring(@chaine,@i,1) AS int)
  set @i = @i + 2
end
set @checksum = @checksum*3;

set @i = 1
while (@i<13) 
begin
  set @checksum = @checksum + CAST(substring(@chaine,@i,1) AS int)
  set @i = @i + 2
end

set @chaine = substring(@chaine,1,12) + CAST((10 - @checksum % 10) % 10 as varchar(1))

set @CodeBarre = SubString(@chaine,1,1) + CHAR(65 + CAST(SubString(@chaine,2,1) as int));

set @first = CAST(SubString(@chaine,1,1) as int)

set @i = 3
while (@i<=7) 
begin
   set  @tableA = 0;

   if (@i = 3 and @first >= 0 and @first <= 3) set @tableA = 1;
   if (@i = 4 and (@first=0 or @first=4 or @first=7 or @first=8)) set @tableA = 1;
   if (@i = 5 and (@first=0 or @first=1 or @first=4 or @first=5 or @first=9)) set @tableA = 1;
   if (@i = 6 and (@first=0 or @first=2 or @first=5 or @first=6 or @first=7)) set @tableA = 1;
   if (@i = 7 and (@first=0 or @first=3 or @first=6 or @first=8 or @first=9)) set @tableA = 1;

   if @tableA = 1
      set @CodeBarre = @CodeBarre + char(65 + CAST(SubString(@chaine,@i,1) as int));
   else
      set @CodeBarre = @CodeBarre + char(75 + CAST(SubString(@chaine,@i,1) as int));

   set @i = @i + 1
end

set @CodeBarre = @CodeBarre + '*'

set @i = 8
while (@i<=13) 
begin
   set @CodeBarre = @CodeBarre + char(97 + CAST(SubString(@chaine,@i,1) as int));
   set @i = @i + 1
end

set @CodeBarre = @CodeBarre + '+'

select @chaine as code, @CodeBarre as ean13txt

end

cкачать

DECLARE @t int;
IF 1 > 0 SET @t = 0; ELSE SET @t = 1;
PRINT @t;