Discussion :

[NABIL74]

salut,

un client peut effectuer une commande(par date) de plusieurs produits:la relation est " 0-n ".

une commande peut contenir plusieurs produits,donc la relation est "1:n".

reste à imene de nous confirmer comment elle veut procéder.

a+
NABIL74

[rec82]

salut

reste à imene de nous confirmer comment elle veut procéder

A+

[imene25]

Bonjour ;
voici mon problème à nouveau:

j'ai une table produit avec les champs:
CodPrd:comme index primaire.
TypPrd:j'ai 7 types :médicaments,réactifs,ligatures,...etc
Design: désignation du produit.
QteEnStk: la quantité en stock.
.....

et une table CommandeS avec les chapms:
NumcmdS:numéro de la commande comme index primaire.
NumServ:numéro de service comme index primaire.
TypPrd:
CodPrd:
Design:
DatCmdS:la date de la commande.
QteDem:quantité demandée.
QteLiv:quantité livrée.
.....

et une table FicheStocks avec les champs:
NumFiche: comme index primaire.
CodPrd:comme index secondaire.
Forme:la forme de produit.
Equiv:le produit equivalant à ce produit.
StkSec:stock de sécurité
Entree:la quantité entrée de ce produit à chaque approvisionnement.
Sortie:la quantité sortie de ce produit à chaque distribution.
Stk: la quantité qu'est dans le stock maintenant.
.....

une commande peut avoir plusieurs produits.

A l'arrivée d'une commande,je remplis les champs de CommandeS pour chaque produit sauf le champs QteLiv puisque je doit vérifierer mon stock avant, ainsi que s'il sera atteind son niveau bas(StkSec) ou non avec un message de confirmation.

voici le code:

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
procedure TForm8.SpeedButton3Click(Sender: TObject);
var rech1: string;
begin
if(strtoint(edit2.Text)>strtoint(dbgrid1.Fields[4].Text))then begin
   messagedlg(' Stock insuffisant pour cette commande!' +#10#13+ '      Demande d''approvisionnement',mterror,[mbOk],0);
   edit3.Enabled:=false;
   exit;
end
 
else begin
  rech1:= dbgrid1.Fields[0].Text;
  dm1.FicheStocks.Active;
  dm1.FicheStocks.First;
  while not(dm1.FicheStocks.Eof)do begin
    if (dm1.FicheStocks.FieldValues['CodPrd']=rech1 )then begin
      break;
    end  else
  dm1.FicheStocks.Next;
  end;
 
  dm1.FicheStocks.FindNearest([rech1]);
     if(strtoint(dbgrid1.Fields[4].text)- strtoint(edit2.Text)<=dm1.FicheStocks.FieldValues['Stksec'])then begin
             if messagedlg ('Si vous etes acceptés cette commande votre stock atteind son niveau bas, !'+#10#13+ '     Voulez vous continuer?', mtinformation,[mbyes,mbno],0)= mryes then
                edit3.Enabled:=true
                else form8.Close;
                end
     else
      showmessage('opération autorisée ');
      edit3.Enabled:=true;
     end;
end;

Aprés remplir tous les champs, je doit cliquer sur un bouton "Ajouter" pour confirmer l'opération.

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
procedure TForm8.SpeedButton1Click(Sender: TObject);
var rech:string;
begin
 rech:= dbgrid1.Fields[0].Text;
  dm1.produit.Active;
  dm1.produit.Append;
  dm1.produit.First;
  while not(dm1.produit.Eof)do begin
    if (dm1.produit.FieldValues['CodPrd']=rech )then begin
      break;
    end  else
  dm1.produit.Next;
  end;
dm1.produit.FindNearest([rech]);
dm1.produit.Edit;
dm1.produit.FieldValues['QteEnStk']:= (dm1.produit.FieldValues['QteEnStk']- strtoint(edit3.Text));
dm1.produit.Post;
 
             ///////////////////////////////////////////////
dm1.CommandeS.Active;
dm1.CommandeS.Append;
dm1.CommandeS.FieldByName('NumServ').AsString:=DBLookupComboBox1.Text;
dm1.CommandeS.FieldByName('NumCmdS').AsString:=edit1.Text;
dm1.CommandeS.FieldByName('DatCmdS').AsString:=maskedit1.Text;
dm1.CommandeS.FieldByName('TypPrd').AsString:=combobox1.Text;
dm1.CommandeS.FieldByName('Design').AsString:=dbgrid1.Fields[1].Value;
dm1.CommandeS.FieldByName('CodPrd').AsString:=dbgrid1.Fields[0].Value;
dm1.CommandeS.FieldByName('QteDems').AsString:=edit2.Text;
dm1.CommandeS.FieldByName('QteLiv').AsString:=edit3.Text;
dm1.CommandeS.Post;
dm1.Query1Design.Value;
               /////////////////////////////////////////////
dm1.FicheStocks.Active;
dm1.FicheStocks.Append;
dm1.FicheStocks.FindKey([rech]);
dm1.FicheStocks.edit;
dm1.FicheStocks.FieldByName('Dat').AsString:= maskedit1.Text; // date de distribution
dm1.FicheStocks.FieldByName('Sortie').AsString:= edit3.Text; //quantité livrée
dm1.FicheStocks.FieldByName('Stk').AsInteger:= strtoint(dbgrid1.Fields[4].Text)- strtoint(edit3.Text);// mon stock aprés distribution
dm1.FicheStocks.Post;
end;

le problème est dans la fiche de stock, je veux gérer l'historique d'un produit dans sa fiche de stock comme rec82 a dis mais a chaque nouvelle distribution d'un produit, le nouveau enregistrement crase l'ancien.
j'éspére que j'étais claire.
merci d'avance .

[NABIL74]

bonjour,
si j'ai bien compris,tu veux garder en archive toutes les opérations que tu as effectuées sur chaque produit.c'est simple;ajoute une autre table que tu nommeras "Table_archives" qui contiendra tous les champs de la table"fiche de stock" puis tu sauvegarderas toutes les opérations faîtes(entrée,sorties....) de chaque produit.

a+

NABIL74

[imene25]

"Table-Archives" c'est une table détail de la table "Produit" ?

[NABIL74]

autre solution:tu ajouteras à chaque nouvelle opération sur un produit un enregistrement dans la table détail "fiche de stock" comme ça tu pourras les visualiser.et l'enregistrement ne sera pas écrasé.
enfin c'est à toi de voir si ça te convient.

A+

NABIL74

[NABIL74]

non,c'est juste pour archiver.la table Archives ne sera pas une table détail pour la table produit.elle sera à part.
1-crée une nouvelle table"Archives_produits" avec les mêmes champs de la table "fiche de stock".
2-quand tu ajoutes ou modifies un produit,tu le feras aussi sur la table"Archive".comme ça, tu pourras voir toutes les opérations faite sur un produit.

A+

NABIL74

[imene25]

ok nabil,je vais essayer la première solution de "Table_Archives" maintenant.
merci.

[Andnotor]

Au risque de me répéter (voir la précédente discussion), la redondance des informations n'est pas bonne. Tu devrais apprendre à faire des jointures de tables (JOIN).

En rouge ce que je supprimerais,
en bleu ce que je déplacerais,
en vert ce que j'ajouterais:

Table Articles
CodPrd:comme index primaire.
TypPrd:j'ai 7 types :médicaments,réactifs,ligatures,...etc
Design: désignation du produit.
Forme:la forme de produit.
Equiv:le produit equivalant à ce produit.
StkSec:stock de sécurité
QteEnStk: la quantité en stock.
.....

Table Commandes
NumcmdS:numéro de la commande comme index primaire.
NumServ:numéro de service comme index primaire.
TypPrd: --> Est déjà dans la première table
CodPrd:
Design: --> Est déjà dans la première table
DatCmdS:la date de la commande.
QteDem:quantité demandée.
QteLiv:quantité livrée.
.....

Table Quantité (Une ligne ajoutée à chaque nouveau réassort)
NumFiche: comme index primaire. <-- Je suppose que ça correspond à une autre table Récéption ou un numéro de bulletin de livraison
CodPrd:comme index secondaire.
Forme:la forme de produit.
Equiv:le produit equivalant à ce produit.
StkSec:stock de sécurité
Qte:Quantité ajoutée (Supprimée, cf Code)
Date: Date approvisionnement
Code: integer --> Réassort, inventaire, vol, etc.
Entree:la quantité entrée de ce produit à chaque approvisionnement.
Sortie:la quantité sortie de ce produit à chaque distribution.
Stk: la quantité qu'est dans le stock maintenant.

Et à l'arrivée, la quantité en stock correspond à SUM(TableQuantite.Qte) -SUM(TableCommande.QteLiv).

Inutile aussi d'afficher un message si il y a une erreur de stock (stock=0 ou mini atteint), le vendeur (manutentionnaire) à l'article dans les mains, on ne va pas l'empècher de le vendre (le livrer) Par contre ça devrait te permettre de générer un bulletin de commande pour réassort.

Quant à l'historique, il est déjà fait, c'est plus que de l'affichage

[NABIL74]

Table Articles
CodPrd:comme index primaire.
TypPrd:j'ai 7 types :médicaments,réactifs,ligatures,...etc
Design: désignation du produit.
Forme:la forme de produit.
Equiv:le produit equivalant à ce produit.
StkSec:stock de sécurité
QteEnStk: la quantité en stock.

oui je suis d'accord avec toi Andnotor à propos de la redondance des informations ou des champs,mais, je pense qu'il ne faut pas supprimer le champ "QteEnStk" dans la table "Produit".c'est pour voir la quantité restante en stock.il faut simplement le déplacer à la table "Fiche stock".c'est pour gérer les entrées et les sorties de chaque produit.

pour remédier au message d'erreur "violation de clé" dans la table "fiche produit",le champ "NumFiche" doit être de type "+" et non pas de type"numérique" ou ajouter à la valeur de ce champ "1".
ex:NumFiche+1.

N.B:toute la structure et les champs de toutes les tables sont à refaire.

a+

NABIL74

[Andnotor]

ça lui permet de travailler avec des TTable à la place de TQuery, mais il y a un risque d'erreur certain Un LEFT JOIN sur les tables et calculer la différence est beaucoup plus sûr !