 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : bug avec delphi ??? | |
| bono | Bug découvert aujourd'hui, Le voici, il s'agit de la mise à jour de mes produits avec les entrées/sorties. le code, qui marche pourtant, mais voici ce qui ce passe : Je rentre une référence avec une date et une quantité dans mon entrée de produit, meme si ma référence existe dans ma table, il me dit qu'elle n'existe pas, il faut que j'aille dans ma fiche qui gère les produits et que je clique simplement sur l'article en cause, pour que lorsque je valide mon entrée/sortie cela fonctionne : mais cela ne le fait pas a tout les coups. Le code : begin if Table1.FieldByName('Reference_Produit').AsVariant=Form4.Table1.FieldByName('RefProduit').AsVariant then begin //le contenu du DBedit1 de la Form8 = DBedit1 de la Form4 If not (Form4.Table1.state in [dsEdit,dsInsert]) then Form4.Table1.Edit; Form4.Table1.FieldByName('Qté_Stock').AsInteger:=Table1.FieldByName('Quantité_Entree').AsInteger + Form4.Table1.FieldByName('Qté_Stock).AsInteger; Form4.Table1.Post; end else begin showmessage('référence non valide'); Abort; end; |
| Vue Rapide de la discussion |
|---|
