From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 8 Jan 2014 09:42:43 +0000 (+0100)
Subject: Merge branch 'oesterreichischer-kontenrahmen-1655'
X-Git-Tag: release-3.1.0beta1~22^2~22^2~19^2~3
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/124b38bc067eed4c89f134dcd59f18eee27912ba?hp=da71570bc10398cc48966a7afab152d8f05ae3a7

Merge branch 'oesterreichischer-kontenrahmen-1655'
---

diff --git a/SL/IR.pm b/SL/IR.pm
index b3c99b829..e5e02f5be 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -210,7 +210,7 @@ sub post_invoice {
 
       # update parts table by setting lastcost to current price, don't allow negative values by using abs
       $query = qq|UPDATE parts SET lastcost = ? WHERE id = ?|;
-      @values = (abs($fxsellprice / $basefactor), conv_i($form->{"id_$i"}));
+      @values = (abs($fxsellprice * $form->{exchangerate} / $basefactor), conv_i($form->{"id_$i"}));
       do_query($form, $dbh, $query, @values);
 
       # check if we sold the item already and