j'ai une fiche pour la saisie des entrées de quelques produits,le but est d'enregistrer le produit entré ET de
tester si le produit entré existe en stock il faudra mettre à jour la quantité du produit.
pour cela j'ai utilisé le code suivant:
La table5 est utilisée pour sauvegarder chaque produit et sa quantité totale en stock.
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
73
74
75
76 procedure TFormStock.BitBtn2Click(Sender: TObject); var i:integer; Quantite:string; begin if messagedlg('Êtes vous sûr de vouloir sauvegarder cet enregistrement?',mtconfirmation,[mbyes, mbno],0)=mryes then if combobox3.text='' then begin showmessage('Veuillez entrer le Code produit!'); combobox3.SetFocus; end else if Maskedit4.text='' then begin showmessage('Veuillez entrer le Code Stock!'); Maskedit4.SetFocus; end else if Maskedit1.text='' then begin showmessage('Veuillez entrer la date d''Entrée!'); Maskedit1.SetFocus; end else if edit8.text='' then begin showmessage('Veuillez entrer le poids unitaire!'); edit8.SetFocus; end else if edit9.text='' then begin showmessage('Veuillez entrer le nombre d''unités!'); edit9.SetFocus; end else if edit10.text='' then begin showmessage('Veuillez entrer le poids Total!'); edit10.setfocus; end else begin table2.insert; table2.fieldbyname('Code_Produit').asstring:=Combobox3.text; table2.fieldbyname('Code_Stock').asstring:=MaskEdit4.text; table2.fieldbyname('Date_Entrée').asstring:=MaskEdit1.text; table2.fieldbyname('Poids_Unitaire').asstring:=edit8.text; table2.fieldbyname('Nombre_Unités').asstring:=edit9.text; table2.fieldbyname('Poids_Total').asstring:=edit10.text; table2.Edit; table2.post; for i:=1 to table5.RecordCount Do if table5.FieldValues['Code_Produit']=Combobox3.Text then begin Quantite:=table5.FieldValues['Quantité']; table5.Insert; table5.fieldbyname('Quantité_Entrée').asstring:=Quantite+(edit10.text); table5.Edit; table5.post; end else begin table5.insert; table5.fieldbyname('Produit_Entré').asstring:=Combobox3.text; table5.fieldbyname('Quantité_Entrée').asstring:=edit10.text; table5.Edit; table5.Post; showmessage ('Opération d''Enregistrement effectuée avec succés!!');
Le problème c'est que ça marche pas.
Partager