bug avec delphi ???

bug avec delphi ??? - Programmation

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;

Reply

Marsh Posté le 26-04-2001 à 08:04:47   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed