Générer un code à barre

Version imprimable

Bonjour tout le monde,
voilà j'ai fait ce code a fin de générer un code à barre comme suit:
(uncodefournisseur(3caract))(année(2cartct))(type(1caract)(autoincrémnte(5caract))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ALTER PROCEDURE [dbo].[Hb_Set_Card_Code] 
	-- Add the parameters for the stored procedure here
	@Type nvarchar(50)
AS
BEGIN
DECLARE @Max_Id_Carte nvarchar(50);
DECLARE @Initial_Code nvarchar(50);
DECLARE @Code_Client nvarchar(50);
DECLARE @Year nvarchar(50);
SELECT @Code_Client = PAR_Value FROM dbo.Hb_Parms WHERE PAR_Libelle ='Code client'
SELECT @Max_Id_Carte =CONVERT(nvarchar(50),MAX(CAR_Id)) FROM Hb_Cartes;
SELECT @Year = SUBSTRING(CONVERT( nvarchar(50),DATEPART(year, ANU_DateD)),2,4) FROM dbo.Hb_AnneesUniversitaire;
SET @Initial_Code =@Code_Client+@Year+@Type+@Max_Id_Carte;
UPDATE dbo.Hb_Temp_Cartes SET Code_Carte = @Initial_Code WHERE Code_Carte IS NULL;
END

mais j'arrive pas à générer l’auto incrémente une idée s'il vous plait ?
Merci

16/08/2012, 10h12
StringBuilder

Je vois que votre code fait 11 caractères. Plus une clé de 2 caractères, ça ferait un code EAN13.
=> Faite attention, car ce type de code barre est normalisé, essayez dans la mesure du possible de vous y conformer.

Ensuite, pour faire un auto-incrément avec SQL Server, pas 36 solutions en l'absence d'objets séquence : il faut créer une table de compteurs, et une procédure stockée qui permet de lire et incrémenter une ligne de cette table en faisant un lock exclusif sur la ligne (pour éviter que deux transactions concurrentes ne retourne le même incrément).

Vous pouvez aussi travailler avec une variable en mémoire, mais ça posera problème en cas de redémarrage de la base et au niveau des accès concurrents.

Si SQLpro passe par là, il aura peut-être une solution plus propre à vous proposer.
16/08/2012, 10h27
sam83

Bonjour StringBuilder,
Merci pour votre réponse je vais la tester immédiatement

Voici un exemple d'une telle table de compteur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
drop procedure getNext;
 
drop table compteur;
 
create table compteur
(
	cpt_id int identity(1, 1) not null primary key,
	cpt_code varchar(5) not null,
	cpt_minimum int not null,
	cpt_maximum int not null,
	cpt_increment int not null,
	cpt_boucle bit not null,
	cpt_valeur int not null
);
 
create unique index uix_compteur_code on compteur(cpt_code);
 
insert into compteur (cpt_code, cpt_minimum, cpt_maximum, cpt_increment, cpt_boucle, cpt_valeur) values ('CDE', 1, 3, 1, 0, 0);
 
go
 
create procedure getNext
	@code as varchar(6),
	@next as int output
as
declare @id		int;
declare @min	int;
declare @max	int;
declare @inc	int;
declare @boucle	bit;
declare @val	int;
 
select @next = null;
 
begin transaction lock;
 
select @id = cpt_id, @min = cpt_minimum, @max = cpt_maximum, @inc = cpt_increment, @boucle = cpt_boucle, @val = cpt_valeur
from compteur with (holdlock, rowlock)
where cpt_code = @code;
if @id is null
begin
		rollback transaction lock;
		raiserror('Le compteur %s n''existe pas !', 10, 1, @code);
		return;
end;
 
if @val = @max
begin
	if @boucle = 0
	begin
		rollback transaction lock;
		raiserror('Dépassement de l''index du compteur %s', 10, 1, @code);
		return;
	end;
	else
	begin
		select @next = @min;
	end;
end;
else
begin
	select @next = @val + @inc;
end;
 
update compteur
set cpt_valeur = @next
where cpt_id = @id;
 
commit transaction lock;
 
go
 
begin
declare @cpt int;
 
exec getNext 'CDE', @cpt output;
 
print 'Compteur CDE = ' + cast(@cpt as varchar);
 
exec getNext 'CDE', @cpt output;
 
print 'Compteur CDE = ' + cast(@cpt as varchar);
 
exec getNext 'CDE', @cpt output;
 
print 'Compteur CDE = ' + cast(@cpt as varchar);
 
exec getNext 'CDE', @cpt output;
 
print 'Compteur CDE = ' + cast(@cpt as varchar);
 
end;
/*
select *
from compteur;
*/

16/08/2012, 12h17
sam83

StringBuilder :hola: ça marche nickel
16/08/2012, 15h10
StringBuilder

Je viens de voir une broutille dans mon code, si l'incrément n'est pas de 1, le test sur la borne supérieure n'est pas bon.

Ligne 48 :

Code:

IF @val = @max

Devient :

Code:

IF @val + @inc > @max