X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/94802c79cda890c12128a83bc931cb342aed470c..211de9e3a7748d80cada65e5dde13a41b9e3f749:/SL/IR.pm diff --git a/SL/IR.pm b/SL/IR.pm index 3b7f415f4..edf55f16a 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -83,7 +83,7 @@ sub post_invoice { if ($form->{currency} eq $defaultcurrency) { $form->{exchangerate} = 1; } else { - $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, 'sell'); + $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, 'sell'); } $form->{exchangerate} = $exchangerate || $form->parse_amount($myconfig, $form->{exchangerate}); @@ -207,9 +207,9 @@ sub post_invoice { next if $payments_only; - # update parts table + # 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 = ($form->{"sellprice_$i"}, conv_i($form->{"id_$i"})); + @values = (abs($form->{"sellprice_$i"}), conv_i($form->{"id_$i"})); do_query($form, $dbh, $query, @values); # check if we sold the item already and