From 96b0d77f1ab14caba1eb246b19c6eb38846ae44c Mon Sep 17 00:00:00 2001
From: Rolf Fluehmann <rolf.fluehmann@revamp-it.ch>
Date: Wed, 8 Jan 2014 10:32:00 +0100
Subject: [PATCH] fixed fix #1795.(exchange)

---
 SL/IR.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.20.1