Problème de génération d'ID

**Moana987** · 18/08/2017, 22h11

Bonjour à tous,

j'ai une table listant des lignes de facture dans une base Access, la clé primaire est composée du numéro de facture et du numéro de ligne donc je ne peux pas avoir d'identifiant en auto-increment. J'ai une appli que j'ai développé avec delphi qui est censé me créer des commandes et leur lignes.

Voilà le code de la procédure qui me crée mes lignes de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure TFormCommande.AjoutLigne(code:string);
var
  noCmd, designation, date, depot, codeFrn : string;
  noLigne, pxUnit, totLigneHT : integer;
begin
 
  noLigne := 0;
  //Récupération de l'article concerné
  QueryPiece.SQL.Text := 'SELECT * FROM Piece WHERE Code ="' + code + '"';
  QueryPiece.Open;
 
 
 
  //Construction de la ligne de commande
  noCmd := lbNoCmd.Caption;
 
  QueryCommande.SQL.Text := 'SELECT Date, CodeTiers, Depot FROM [Entete commande fournisseur] WHERE Code = "' + noCmd + '"';
  QueryCommande.Open;
 
  QueryNoLigne.SQL.Text := 'SELECT MAX(NumeroLigne) as ligne FROM [Ligne Commande Fournisseur] WHERE CodeDocument = "' + noCmd + '"';
  QueryNoLigne.Open;
 
  noLigne := 1 + QueryNoLigne.FieldByName('ligne').AsInteger;
  date := QueryCommande.FieldByName('Date').AsString;
 
  designation := QueryPiece.FieldByName('Nom').AsString;
  pxUnit := QueryPiece.FieldByName('PrixAchat').AsInteger;
  codeFrn := QueryCommande.FieldByName('CodeTiers').AsString;
  depot := QueryCommande.FieldByName('Depot').AsString;
  QueryCommande.Close;
 
  //Ajout de la ligne à la table Ligne Commande Fournisseur
  QueryLigneCmd.SQL.Text := 'SELECT * FROM [Ligne Commande Fournisseur]';
  QueryLigneCmd.Open;
 
  QueryLigneCmd.Insert;
  QueryLigneCmd.FieldByName('CodeDocument').AsString := noCmd;
  QueryLigneCmd.FieldByName('NumeroLigne').AsInteger := noLigne;
  QueryLigneCmd.FieldByName('CodeArticle').AsString := code;
  //type
  QueryLigneCmd.FieldByName('Designation').AsString := designation;
  QueryLigneCmd.FieldByName('PrixUnitaire').AsInteger := pxUnit;
  QueryLigneCmd.FieldByName('CodeTiers').AsString := codeFrn;
  QueryLigneCmd.FieldByName('DateDocument').AsString := date;
  QueryLigneCmd.FieldByName('depot').AsString := depot;
 
  QueryLigneCmd.Post;
  QueryLigneCmd.Close;
 
  //Actualisation de la grille ligne de commande
  QueryLigneCmd.SQL.Text := 'SELECT CodeArticle as Code, Designation as Désignation, PrixUnitaire as [Prix Unitaire], Quantite as Qté, NumeroLigne FROM [Ligne Commande Fournisseur] WHERE CodeDocument = "' + noCmd + '"';
  QueryLigneCmd.Open;
 
  //Ajustement taille colonne
  DBGridLigneCommande.Columns[0].Width := 80;
  DBGridLigneCommande.Columns[1].Width := 185;
  DBGridLigneCommande.Columns[2].Width := 65;
  DBGridLigneCommande.Columns[3].Width := 40;
  DBGridLigneCommande.Columns[4].Visible := false;
 
 
 
end;

Le problème c'est que de manière aléatoire j'ai des lignes qui sont créées avec le même numéro de ligne que la précédente. En faisant du pas à pas je vois que le code s'exécute comme il le devrait et je n'arrive pas à trouver d'ou cela peut venir.

Si quelqu'un à une idée ou a déjà fait face au même genre de problème je suis tout ouïe ! ^^

Merci d'avance.

**SergioMaster** · 19/08/2017, 08h00

Bonjour,

c'est loin d'être très "propre" tout ça heureusement que cela semble être du monoposte

ma première idée : remplacer les lignes 20..23 du code par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 QueryNoLigne.SQL.Text := 'SELECT MAX(NumeroLigne)+1 as ligne FROM [Ligne Commande Fournisseur] WHERE CodeDocument = "' + noCmd + '"';
 QueryNoLigne.Open;
 noLigne := QueryNoLigne.FieldByName('ligne').AsInteger;
 QueryNoLigne.Close; // ne pas oublier

mes suggestions ensuite serait de changer les différentes Query pour utiliser des requêtes paramètrées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure TFormCommande.AjoutLigne(code:string);
var
  noCmd, designation, date, depot, codeFrn : string;
  noLigne, pxUnit, totLigneHT : integer;
begin
 
  // noLigne := 0; inutile ?
  //Récupération de l'article concerné
  ///QueryPiece.SQL.Text := 'SELECT * FROM Piece WHERE Code =:C';  
  QueryPiece.ParamByName('C').asString:=Code;
  QueryPiece.Open;
 
 
 
  //Construction de la ligne de commande
  noCmd := lbNoCmd.Caption;
 
 /// QueryCommande.SQL.Text := 'SELECT Date, CodeTiers, Depot FROM [Entete commande fournisseur] WHERE Code =:NC';
  QueryCommande.ParamByName('NC').asString:=noCmd; // ou lbNoCmd.Caption 
  QueryCommande.Open;
 
///  QueryNoLigne.SQL.Text := 'SELECT MAX(NumeroLigne)+1 as ligne FROM [Ligne Commande Fournisseur] WHERE CodeDocument =:NC';
  QueryCommande.ParamByName('NC').asString:=noCmd; // ou lbNoCmd.Caption 
  QueryNoLigne.Open;
  noLigne := QueryNoLigne.FieldByName('ligne').AsInteger;
  QueryNoLigne.Close;

  date := QueryCommande.FieldByName('Date').AsString;
  designation := QueryPiece.FieldByName('Nom').AsString;
  pxUnit := QueryPiece.FieldByName('PrixAchat').AsInteger;
  codeFrn := QueryCommande.FieldByName('CodeTiers').AsString;
  depot := QueryCommande.FieldByName('Depot').AsString;
  QueryCommande.Close;
 
  // Partie à revoir, considérer un INSERT INTO
 
 //Ajout de la ligne à la table Ligne Commande Fournisseur
  QueryLigneCmd.DisableControls; // pour que la grille ne soit pas modifiée
  QueryLigneCmd.Close;
  QueryLigneCmd.SQL.Text := 'SELECT * FROM [Ligne Commande Fournisseur]';
  QueryLigneCmd.Open;
 
  QueryLigneCmd.Insert;
  QueryLigneCmd.FieldByName('CodeDocument').AsString := noCmd;
  QueryLigneCmd.FieldByName('NumeroLigne').AsInteger := noLigne;
  QueryLigneCmd.FieldByName('CodeArticle').AsString := code;
  //type
  QueryLigneCmd.FieldByName('Designation').AsString := designation;
  QueryLigneCmd.FieldByName('PrixUnitaire').AsInteger := pxUnit;
  QueryLigneCmd.FieldByName('CodeTiers').AsString := codeFrn;
  QueryLigneCmd.FieldByName('DateDocument').AsString := date;
  QueryLigneCmd.FieldByName('depot').AsString := depot;
 
  QueryLigneCmd.Post;
  QueryLigneCmd.Close;
 
  //Actualisation de la grille ligne de commande
 /// QueryLigneCmd.SQL.Text := 'SELECT CodeArticle as Code, Designation as Désignation, PrixUnitaire as [Prix Unitaire], Quantite as Qté, NumeroLigne FROM [Ligne   
/// Commande Fournisseur] WHERE CodeDocument =:NC';
 QueryLigneCmd.ParamByName('NC').asString:=noCmd; 
 QueryLigneCmd.EnableControls; // réactiver la grille  
  
  QueryLigneCmd.Open;
 
  //Ajustement taille colonne
  // Pourquoi ici ? 
  DBGridLigneCommande.Columns[0].Width := 80;
  DBGridLigneCommande.Columns[1].Width := 185;
  DBGridLigneCommande.Columns[2].Width := 65;
  DBGridLigneCommande.Columns[3].Width := 40;
  DBGridLigneCommande.Columns[4].Visible := false;

si l'on considère l'utilisation d'un INSERT,

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
INSERT INTO [Ligne Commande Fournisseur] (CodeDocument,NumeroLigne,CodeArticle,Designation,PrixUnitaire,CodeTiers,DateDocument,depot)
VALUES(:CodeDocument,:NumeroLigne,:CodeArticle,:Designation,:PrixUnitaire,:CodeTiers,:DateDocument,:depot)

le SQL de QueryLigneCmd n'a pas besoin de changer, subséquemment les tailles des colonnes reste identiques !

Je pourrai encore en rajouter i.e : Query créées au runtime mais j'ai un doute sur les composants d'accès aux données utilisées

**guillemouze** · 21/08/2017, 09h18

Envoyé par Moana987

la clé primaire est composée du numéro de facture et du numéro de ligne donc je ne peux pas avoir d'identifiant en auto-increment.

ah bon ?!

pourquoi ? auto-increment n'implique pas clé primaire

**Paul TOTH** · 21/08/2017, 12h12

Envoyé par guillemouze

ah bon ?!

pourquoi ? auto-increment n'implique pas clé primaire

de plus je recommande d'utiliser une clé primaire non significative, c'est à dire un champ qui ne contient aucune donnée de l'application. exemple un champ "id" autoincrémenté.

par ailleurs, si le numéro de ligne doit provenir d'un select, il est préférable de le faire directement dans l'opération insert

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
INSERT INTO [Ligne Commande Fournisseur] (CodeDocument,NumeroLigne,CodeArticle,Designation,PrixUnitaire,CodeTiers,DateDocument,depot)
select CodeDocument, MAX(NumeroLigne +1),:CodeArticle,:Designation,:PrixUnitaire,:CodeTiers,:DateDocument,:depot from 
 [Ligne Commande Fournisseur] where CodeDocument = :CodeDocument

Problème de génération d'ID

Bases de données Delphi

Discussions similaires

Partager

Partager