Discussion :

[abkthekingABK]

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.

[Lung]

Et quel est le problème ?
Si tu ajoutes un ... div 1000 au bout, ça ne marche pas ?

[tourlourou]

Sinon, AsFloat

[abkthekingABK]

j'ai ajouter /1000 devant chaque '+' mais sa marche pas , exemp :
((datas.Query4.fieldbyname('scg_1').AsInteger)*(fiche_vente.table1.FieldByName('s_1').AsInteger)/1000+

[retwas]

Utilise Round si tu veux garder un Integer, sinon le AsFloat comme le dit tourlourou.
Il est plus facile de diviser le résultat par 1000 que chaque opérations par 1000 ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
fiche_vente.table1.FieldByName('tot_poid').AsInteger:= round(
((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)) / 1000);

[anapurna]

salut

le div donne la division entière
le / donne la division reel
et mod donne le reste de la division

après il existe d'autre fonction pour rendre ta division réel sous forme d'entier
voir ici

selon ce que tu veut faire tu as toutes les possibilité de le faire

[abkthekingABK]

Est-ce que je peux intégrer ce calcul comme une fonction, à appeler par un clic de bouton ou une CheckBox ?

[anapurna]

salut

bien sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Function Calcul(ds1,ds2 : TDataset) : Integer;
begin
 result := round(
((ds1.fieldbyname('scg_1').AsInteger)*(ds2.FieldByName('s_1').AsInteger)+
(ds1.fieldbyname('scg_2').AsInteger)*(ds2.FieldByName('s_2').AsInteger)+
(ds1.fieldbyname('scg_3').AsInteger)*(ds2.FieldByName('s_3').AsInteger)+
(ds1.fieldbyname('scg_4').AsInteger)*(ds2.FieldByName('s_4').AsInteger)+
(ds1.fieldbyname('scg_5').AsInteger)*(ds2.FieldByName('s_5').AsInteger)+
(ds1.fieldbyname('scg_6').AsInteger)*(ds2.FieldByName('s_6').AsInteger)) / 1000);
end;

dans la methode onclick

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fiche_vente.table1.FieldByName('tot_poid').AsInteger:= Calcul(datas.Query4,fiche_vente.table1);