bonjour
j'ai devloppez un logiciel pour gestion de stock ,et mon patron toujeour reclame que le logiciel il a des probleme de stock,
jai un table de lots pour les produit , et un table bondereception maitre et autre produitreception detaille .
et quand je cree le bon de reception et j'inserer les produit je valide, quand je valide le logiciel lance une requet update de chaque ligne voila le code
merci aidez moi svp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 DataModule2.produitrec.First; while (not DataModule2.produitrec.Eof) do begin h:=CurrToStr(DataModule2.produitrecq.Value) ; DataModule2.ADOQuery2.Active:=false; DataModule2.ADOQuery2.SQL.Clear; DataModule2.ADOQuery2.SQL.Add('UPDATE lots'); DataModule2.ADOQuery2.SQL.Add('SET quantite = quantite +'+h+',pump = '+StringReplace(QuotedStr(p),',','.',[])); DataModule2.ADOQuery2.SQL.Add('where code ='''+DataModule2.produitreccodelots.Value+''';'); DataModule2.ADOQuery2.ExecSQL; DataModule2.produitrec.Next; end;
Partager