Perte des données avec update
Bonjour,
J'ai un logiciel développé avec delphi7 et PostgreSQL, utilisant la connexion odbc.
J'ai une table des produits. Quand je fais update de la quantité, ça marche.
Mais après plusieurs jours, j'ai des réclamations indiquant que le stock n'est pas correcte.
je voudrais savoir quelles règles respecter pour bien faire fonctionner un logiciel de gestion de stock en réseau.
Aidez-moi svp :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//////////////////////////UPDATE PRODUIT
sql := 'SELECT * FROM public.produits WHERE code ='''+DataModule2.bonproduitcodeproduit.Value+'''FOR UPDATE ;';
v:=CurrToStr(DataModule2.bonproduitq.Value) ;
DataModule2.ADOQuery2.SQL.Clear;
DataModule2.ADOQuery2.SQL.Add('Begin;') ;
DataModule2.ADOQuery2.SQL.Add(sql) ;
DataModule2.ADOQuery2.SQL.Add('UPDATE produits');
DataModule2.ADOQuery2.SQL.Add('SET qcourant = qcourant -'+v);
DataModule2.ADOQuery2.SQL.Add('where code ='''+DataModule2.bonproduitcodeproduit.Value+''';');
DataModule2.ADOQuery2.SQL.Add('commit;') ;
DataModule2.ADOQuery2.ExecSQL; |
