Bonjour,

Je développe une application de gestion de stock sous Delphi 7 et j'utilise paradox 7 ,
Voila mon code pour calculer le poids des d'épices :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
if CheckBox3.checked=True then
datas.Query4.Active:=true;
fiche_vente.table1.Edit;
fiche_vente.table1.FieldByName('tot_poid').AsInteger:=
((datas.Query4.fieldbyname('scg_1').AsInteger)*(fiche_vente.table1.FieldByName('s_1').AsInteger)+
(datas.Query4.fieldbyname('scg_2').AsInteger)*(fiche_vente.table1.FieldByName('s_2').AsInteger)+
(datas.Query4.fieldbyname('scg_3').AsInteger)*(fiche_vente.table1.FieldByName('s_3').AsInteger)+
(datas.Query4.fieldbyname('scg_4').AsInteger)*(fiche_vente.table1.FieldByName('s_4').AsInteger)+
(datas.Query4.fieldbyname('scg_5').AsInteger)*(fiche_vente.table1.FieldByName('s_5').AsInteger)+
(datas.Query4.fieldbyname('scg_6').AsInteger)*(fiche_vente.table1.FieldByName('s_6').AsInteger));
*****
Ce code me donne le poids en kg alors que je voudrais diviser lé résultat par 1000 pour me donner la bonne valeur.