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