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;
Marsh Posté le 26-04-2001 à 08:04:47
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;