[Delphi]Problème de division Monnaie/entier[Résolu Blamzia]

Salut
pour calculer le prix unitaire moyen pondéré, je dois avoir la forumule suivante à appliquer sur deux tables "retour " et "reception"
pump:=la somme (quantité*prix) /quantité totale;

voici le code :

Code:: procedure TForm1.qtefExit(Sender: TObject);
var pin,prein,pump:currency;
qtotal,qt1,qt2: integer;
begin
pin:=0;
prein:=0;
pump:=0;
qtotal:=0;
qt1:=0;
qt2:=0;
pbretour.first;
while not pbretour.eof do
begin
if(inttostr(pbretour.fieldbyname('code_pro').asinteger)=codbox.Text) and ((pbretour.fieldbyname('etat').asstring='i') or (pbretour.fieldbyname('etat').asstring=''))then
begin
pin:=pin+pbretour.fieldbyname('prix').ascurrency;
qt1:=qt1+pbretour.fieldbyname('qt').asinteger;
end;
pbretour.next;
end;
pin:=pin/qt1;

pbrecept.first;
while not pbrecept.eof do
begin
if(inttostr(pbrecept.fieldbyname('code_pro').asinteger)=codbox.Text) and ((pbrecept.fieldbyname('etat').asstring='i') or (pbrecept.fieldbyname('etat').asstring=''))then
begin
prein:=prein+pbrecept.fieldbyname('prix').ascurrency;
qt2:=qt2+pbrecept.fieldbyname('qt').asinteger;
end;
pbrecept.next;
end;
prein:=prein/qt2;

pump:=prein+pin;
pumpout.value:=pump;

end;

le problème c'est qu'il m'affiche que c'est une opération à virgukle flotante incorrecte
et je ne veux aps suivre le conseil d'un amis qu m'a dit d'arrondir les valeurs, car c'est de l'argent que je manipule!

aidez-moi!

voici l apremière solution qui me vient d'un autre forum!
je l'ai testé et ça marche, il me reste à vérifier les calculs !

Code:: select (Sum(Rec.Quantite * Prix) / Sum(Rec.Quantite)) as Pump from Reception as Rec inner join Retour as Ret on Rec.ChampCommun=Ret.ChampCommun

je vous informerai de la suite
@+

bon je n'ai utilisé que la partie select sur chaque table séparéments ensuite j'ai calculé la moyenne entre les résultats des deux tables!
les résultats sont bons!